library("data.table")
setDTthreads(2)
lat <- 37.2
sol <- calcSol(lat, BTd = fBTd(mode = 'serie'))
range(indexD(sol))
start <- as.Date(indexD(sol)[1])
end <- start + 30
solWindow <- sol[start, end]
range(indexD(solWindow))
Run the code above in your browser using DataLab