#Aranjuez, Madrid
BD<-LeeMAPA(28,3,'01/01/2008','31/12/2008')
lat=41;
BTd=fBTd(Modo='BaseDatos',FechaBaseDatos=BD$Fecha,FormatoFecha="%d/%m/%Y")
BD<-cbind(BTd,BD)
SolD<-fSolD(lat,BTd=BTd)
SolI<-fSolI(SolD,Nm=1)
Temp<-fTemp(SolI,BD)
bwplot(Ta~w|Mes,data=Temp,horizontal=FALSE)Run the code above in your browser using DataLab