Nano Hash - криптовалюты, майнинг, программирование

Вычислить последние n дней недели

У меня есть функция в R, которая, учитывая n дней, возвращает список последних n дней недели. Мое решение работает нормально, но кажется неэлегантным, и мне было интересно, есть ли какие-нибудь простые способы его улучшить.

WeekdayList <- function(n) {
    Today <- as.Date(Sys.time())
    days <- c(Today)
    i <- 1
    while (length(days) < n) {
        NewDay <- as.Date(Today-i)
        if (!weekdays(NewDay) %in% c("Saturday", "Sunday")) {
            days <- c(days,NewDay)
        }
        i <- i+1
    }
    days
}

WeekdayList(30)
WeekdayList(2)

Исключение праздников тоже было бы неплохо.

r datetime
24.05.2011

  • Вы можете найти ответ здесь: stackoverflow.com/questions/5046708/ 24.05.2011
  • @Sacha Epskamp Я думаю, что это разные темы. В этом случае у меня есть дата начала, но дата окончания неизвестна. В предыдущем вопросе известны и начало, и конец. 24.05.2011
  • Если у вас есть дата начала и количество дней, у вас есть день окончания, верно? 24.05.2011
  • @Sacha Epskamp нет, потому что неизвестно, сколько выходных вы встретите в своем квесте ровно n будних дней. 24.05.2011
  • А если учесть n будних дней, а не n дней? 24.05.2011

Ответы:


1

Векторизация кода необходима в R. Вот пример:

WeekdayList2 <- function(n) {
  Today <- as.Date(Sys.time())
  dayz <- seq(Today, Today - 2 * n, "-1 days")
  dayz <- dayz[!(weekdays(dayz) %in% c("Saturday", "Sunday"))]
  dayz <- dayz[seq_len(n)]
  return(dayz)
}
identical(WeekdayList2(1000), WeekdayList(1000))
system.time(WeekdayList2(10000))
system.time(WeekdayList(10000))
[1] TRUE
   user  system elapsed 
      0       0       0 
   user  system elapsed 
   4.90    0.00    4.91

Как видите, даже несмотря на то, что моя функция создает вектор почти в два раза больше, чем он должен быть (а затем удаляет выходные), это намного быстрее, чем использование цикла for. Мой компьютер даже не может запустить вашу функцию с n = 100000 (не то, чтобы вас это заботило много дней назад), но WeekdayList2 запускает ее почти мгновенно.

Поскольку праздники зависят от того, где вы находитесь, вам, вероятно, потребуется вручную загрузить список дат и добавить еще один критерий, чтобы отфильтровать эти даты из данных.

24.05.2011
  • @Спасибо за совет о векторизации. Мне не нужно векторизовать, когда это возможно, но для этой конкретной проблемы у меня возникли проблемы с обрамлением ее в векторах, и в итоге я стал думать циклами. 24.05.2011
  • Исправлено для n = 0. 1:n опасно! seq_len полезно знать. 25.05.2011
  • @ Ричи, можешь уточнить? Когда вы подключаете 0 к моей исходной функции, она просто выводит сегодняшнюю дату. Где 1:n может быть опасен? Худшее, что может случиться, — это сообщение об ошибке, верно? И спасибо тому, кто изменил последовательность на автоматическую обратную, я не знал, что для приращения можно использовать такие строки, как -1 дней! 25.05.2011

    • 2

    Я добавил в код Rguy расчет праздников.

    WeekdayList3 <- function(n) {
    library(timeDate)
    Today <- as.Date(Sys.time())
    dayz <- rev(seq(Today - 2 * n, Today, "days"))
    years <- as.numeric(unique(format(dayz,'%Y')))
    holidays <- as.Date(holidayNYSE(years))
    dayz <- dayz[!(weekdays(dayz) %in% c("Saturday", "Sunday"))]
    dayz <- dayz[!(dayz %in% holidays)]
    dayz <- dayz[1 : n]
    return(dayz)
}

WeekdayList3(100)
    24.05.2011
    Новые материалы
    Кластеризация: более глубокий взгляд
    Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
    Как написать эффективное резюме
    Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
    Частный метод Python: улучшение инкапсуляции и безопасности
    Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
    Как я автоматизирую тестирование с помощью Jest
    Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
    Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
    Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
    Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
    В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
    Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
    В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..