require(zoo)
data(Metdata)
A <- 0.21
B <- 0.57
sunshine <- Metdata$meteo$SUNSHINE
days <- Metdata$meteo$DAY
lat <- Metdata$LATITUDE
plot(zoo(ap(days,lat,extraT=NULL,A,B,sunshine),order.by=days))
Run the code above in your browser using DataLab