Đoạn mã sau đánh giá sự giống nhau giữa hai chuỗi thời gian:
set.seed(10)
RandData <- rnorm(8760*2)
America <- rep(c('NewYork','Miami'),each=8760)
Date = seq(from=as.POSIXct("1991-01-01 00:00"),
to=as.POSIXct("1991-12-31 23:00"), length=8760)
DatNew <- data.frame(Loc = America,
Doy = as.numeric(format(Date,format = "%j")),
Tod = as.numeric(format(Date,format = "%H")),
Temp = RandData,
DecTime = rep(seq(1, length(RandData)/2) / (length(RandData)/2),
2))
require(mgcv)
mod1 <- gam(Temp ~ Loc + s(Doy) + s(Doy,by = Loc) +
s(Tod) + s(Tod,by = Loc),data = DatNew, method = "ML")
Ở đây, gam
được sử dụng để đánh giá nhiệt độ tại New York và Miami khác với nhiệt độ trung bình (của cả hai địa điểm) vào các thời điểm khác nhau trong ngày. Vấn đề mà bây giờ tôi gặp phải là tôi cần bao gồm một thuật ngữ tương tác cho thấy nhiệt độ của từng địa điểm thay đổi như thế nào trong ngày cho các ngày khác nhau trong năm. Cuối cùng tôi hy vọng sẽ hiển thị tất cả thông tin này trên một biểu đồ (cho mỗi vị trí). Vì vậy, đối với Miami, tôi hy vọng sẽ có một biểu đồ cho thấy nhiệt độ thay đổi như thế nào so với giá trị trung bình trong các thời điểm khác nhau trong ngày và các thời điểm khác nhau trong năm (lô 3d?)