# NOT RUN {
library(fda)
precipitation_data = CanadianWeather$daily[1:334,,"Precipitation.mm"]
annualprec = apply(precipitation_data,2,sum) # without December
y = ifelse(annualprec<mean(annualprec), 0, 1)
y = as.factor(y)
x = CanadianWeather$daily[1:334,,"Temperature.C"]
xbasis = create.fourier.basis(c(1,334),5) # 5 basis functions
xfd = smooth.basis(c(1:334),x,xbasis)$fd
bbasis = create.fourier.basis(c(0,334),5)
betalist = list(bbasis)
formula = y ~ xfd
lfreg.model = lfreg(formula, betalist = betalist)
# Prediction on new data
newdata = list(CanadianWeather$dailyAv[1:365,,1])
# newdata = list(xfd_1, latitude, longitude)
yhat = predict(lfreg.model, newdata = newdata, type = "labels")
# }
Run the code above in your browser using DataLab