Running examples in 'insol-Ex.R' failed
The error most likely occurred in:

> ### Name: insolation
> ### Title: Direct and diffuse solar radiation.
> ### Aliases: insolation
> 
> ### ** Examples
> 
> insolation(30,2456007,3200,28,60,278.15,0.02,0.2)
           In       Id
[1,] 951.8575 133.9065
> insolation(30,JDymd(2012,6,21),3200,28,60,278.15,0.02,0.2)
           In       Id
[1,] 932.8685 131.2351
> 
> # Compare measured and modelled insolation
> 
> # load data from automatic weather station in the Andes
> data(meteoandes)
> 
> # Get zenith angle for every time step
> meteodate=as.POSIXct(strptime(paste(meteoandes$year,meteoandes$doy,
+ 	meteoandes$hh,meteoandes$mm),format="%Y %j %H %M"))
> metjd=JD(meteodate)
> 
> 
> sunv = sunvector(metjd,-33.695,-70.0033,-4) 
> zenith = sunpos(sunv)[,2]
> 
> # Compute direct and diffuse beam irradiance 
> Idirdif = insolation(zenith,metjd,4640,90,
+ 	meteoandes$RH,meteoandes$Tair+273.15,0.02,0.55)
> 
> # modify for angle of incidence on horizontal surface (pyranometer)
> cos_inc_sfc=sunv%*%as.vector(normalvector(0,0)) ## or sum(sunv*normalvector(0,0))
> 
> # set to zero values with no indicent light
> cos_inc_sfc[cos_inc_sfc<0]=0
> 
> # Add direct and diffuse simulated radiation on horizontal surface
> Isim  = Idirdif[,1] * cos_inc_sfc + Idirdif[,2]
> 
> # plot the measured insolation
> plot(meteodate,meteoandes$pyra1,'l',col=2)
> 
> # add a shaded polygon corrresponding to 10% accuracy in the measurements
> polygon(c(meteodate, rev(meteodate)), c(meteoandes$pyra1*(1+0.1),
+ 	rev(meteoandes$pyra1*(1-0.1))),col = "#ff000033", border = NA)
> 
> # add the simulated insolation
> lines(meteodate,Isim,col=4)
> 
> # We measured that diffuse reflected solar radiation from the surrounding mountains 
> # covered in snow could be up to 10% of total incoming radiation. 
> # There is one hour of shadows early in the morning (not simulated)
> # Add 10% diffuse reflected radiation
> lines(meteodate,1.1*Isim,col=3)
> 
> 
> ## Calculate insolation on the island of La Palma, Spain on the 21.03.2013
> ## reduced resolution DEM from SRTM, http://www2.jpl.nasa.gov/srtm/
> zipfile=tempfile()
> download.file("http://www.meteoexploration.com/R/insol/data/demlapalma.asc.zip",zipfile)
trying URL 'http://www.meteoexploration.com/R/insol/data/demlapalma.asc.zip'
Warning in download.file("http://www.meteoexploration.com/R/insol/data/demlapalma.asc.zip",  :
  InternetOpenUrl failed: 'Das Zeitlimit für den Vorgang wurde erreicht.'
Error in download.file("http://www.meteoexploration.com/R/insol/data/demlapalma.asc.zip",  : 
  cannot open URL 'http://www.meteoexploration.com/R/insol/data/demlapalma.asc.zip'
Execution halted