Kode berikut mengevaluasi kesamaan antara dua seri waktu:
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")
Di sini, gam
digunakan untuk mengevaluasi bagaimana suhu di New York dan Miami bervariasi dari suhu rata-rata (dari kedua lokasi) pada waktu yang berbeda dalam sehari. Masalah yang saya miliki sekarang adalah bahwa saya perlu memasukkan istilah interaksi yang menunjukkan bagaimana suhu setiap lokasi bervariasi sepanjang hari untuk berbagai hari dalam setahun. Saya akhirnya berharap untuk menampilkan semua informasi ini pada satu grafik (untuk setiap lokasi). Jadi, untuk Miami saya berharap memiliki satu grafik yang menunjukkan bagaimana suhu bervariasi dari rata-rata selama waktu yang berbeda dalam sehari dan waktu yang berbeda dalam setahun (plot 3d?)