У меня есть набор панельных данных с большим количеством групп. Я рассчитал подогнанные значения для каждой группы и хотел бы объединить все подогнанные значения в новый набор данных. Я ищу возможный ярлык, чтобы не делать это вручную.
Следующий набор данных похож на тот, над которым я работаю (хотя и в гораздо меньшем масштабе с точки зрения групп).
set.seed(999)
dt <- data.frame("Group"=rep((LETTERS[1:10]), each=15),
"Year"=2001:2015,"value"=5+rnorm(150, 3,1))
names(dt)
head(dt)
table(dt$Year, dt$Group)
library(reshape2)
dt_tbl1 <- dcast(dt,Year~Group)
dt_tbl1
library(forecast)
tsMat <- ts(dcast(dt, Year ~ Group), start=2001, freq=1)
dt_ses <- lapply(tsMat, function(x) ses(x))
Мне нужна помощь, чтобы автоматизировать следующий шаг. Добавьте все оставшиеся группы во фрейм данных.
dt_tbl2 <- data.frame("Year"=2001:2015,
data.frame(dt_ses$A$fitted),
data.frame(dt_ses$B$fitted),
data.frame(dt_ses$C$fitted))
И переименуйте переменные в новом наборе данных, чтобы они соответствовали исходным группам.
names(dt_tbl2)[2:4] <- c("A_hat", "B_hat", "C_hat")
Как только это будет завершено, dt_tbl2 должен иметь тот же формат, что и dt_tbl1.
Я пробовал использовать sapply () и lapply (), но, похоже, ничего не работает. Спасибо TCS