search for: beer_fit_fouri

Hi R-community, I have the code as follows,i Fitted model as follows lbeer<-log(beer_monthly) t<-seq(1956,1995.2,length=length(beer_monthly)) #beer_monthly contains 400+ entries t2=t^2 beer_fit_parabola=lm(lbeer~t+t2) Below is not working for me. Please help me in preparing the new data set for the below prediction

...advise on this beer_monthl has 400+ records EXample: > head(beer_monthly) beer 1 93.2 2 96.0 3 95.2 4 77.1 5 70.9 6 64.8 time<-seq(1956, 1995.2, length=length(beer_monthly)) sin.t<-sin(2*pi*time) cos.t<-cos(2*pi*time) beer_fit_fourier=lm(beer_monthly[, 1]~poly(time, 2)+sin.t+cos.t) #this is not working beer_fit_fourier=lm(beer_monthly[, 1]~time+time2+sin.t+cos.t) #it is working #prediction is not workinng tpred_four <- data.frame(time = seq(1995, 1998, length = 20)) predict(beer_fit_fourie...