如何计算具有季节性趋势的数据的余弦系数和正弦系数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

对于具有季节性的时间序列数据，如果用余弦波的方式来表达其季节性趋势，怎么计算数据的余弦系数和正弦系数，并做出等值线图呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：季节性 时间序列数据 时间序列 序列数据 等值线 趋势 系数 季节性 正弦 余弦

可以这样做——
plot(LakeHuron,
     ylab = "",
     main = "Level of Lake Huron")


x <- window(sunspots, start=1750, end=1800)
plot(x,
     ylab = "",
     main = "Sunspot numbers")


plot(x,
     type = 'p',
     ylab = "",
     main = "Sunspot numbers")
k <- 20
lines( filter(x, rep(1/k,k)),
       col = 'red',
       lwd = 3 )


data(UKgas)
plot.band <- function (x, ...) {
  plot(x, ...)
  a <- time(x)
  i1 <- floor(min(a))
  i2 <- ceiling(max(a))
  y1 <- par('usr')[3]
  y2 <- par('usr')[4]
  if( par("ylog") ){
    y1 <- 10^y1
    y2 <- 10^y2
  }
  for (i in seq(from=i1, to=i2-1, by=2)) {
    polygon( c(i,i+1,i+1,i),
             c(y1,y1,y2,y2),
             col = 'grey',
             border = NA )
  }
  par(new=T)
  plot(x, ...)
}
plot.band(UKgas,
          log = 'y',
          ylab = "",
          main = "UK gas consumption")


x <- LakeHuron
op <- par(mfrow = c(1,2),
          mar = c(5,4,1,2)+.1,
          oma = c(0,0,2,0))
hist(x,
     col = "light blue",
     xlab = "",
     main = "")
qqnorm(x,
       main = "")
qqline(x,
       col = 'red')
par(op)
mtext("Lake Huron levels",
      line = 2.5,
      font = 2,
      cex = 1.2)


这里有一份课件，可以参考一下，特别详细：http://zoonek2.free.fr/UNIX/48_R/15.html