Создать сезонный манекен

Question

Я бы хотел создать сезонного манекена. В частности, я хочу, чтобы переменная равнялась 1 каждого июня и 0 в противном случае. Я хотел бы, чтобы вывод фиктивной переменной сохранялся в mat1 [, 2]

Настройка:

start = as.Date("1926-07-01")
end = as.Date("2019-07-01")
dates = seq(from = start, to = end, by = "month")
mat1 <- matrix(nrow =1117, ncol =2)
mat1[,1] = dates

Answer 1

Извлеките месяц из дат и проверьте, является ли месяц "июнем".

data.frame(dates = dates, isJune = +(format(dates, "%m") == "06"))

Мы также можем использовать regex, чтобы определить, является ли это 6-й месяц

data.frame(dates = dates, isJune = +(grepl(".*-06-.*", dates)))