library("data.table")
setDTthreads(2)
G0dm <- c(2.766, 3.491, 4.494, 5.912, 6.989, 7.742, 7.919, 7.027, 5.369, 3.562, 2.814, 2.179)*1000;
Ta <- c(10, 14.1, 15.6, 17.2, 19.3, 21.2, 28.4, 29.9, 24.3, 18.2, 17.2,
15.2)
g0 <- calcG0(lat = 37.2, modeRad = 'prom', dataRad = list(G0dm = G0dm, Ta = Ta))
print(g0)
xyplot(g0)
## Aguiar et al.
g0 <- calcG0(lat = 37.2, modeRad = 'aguiar', dataRad = G0dm)
print(g0)
xyplot(g0)
##Now the G0I component of g0 is used as
##the bdI argument to calcG0 in order to
##test the intradaily correlations of fd-kt
BDi = as.data.tableI(g0)
BDi$Ta = 25 ##Information about temperature must be contained in BDi
g02 <- calcG0(lat = 37.2,
modeRad = 'bdI',
dataRad = list(lat = 37.2, file = BDi),
corr = 'none')
print(g02)
g03 <- calcG0(lat = 37.2,
modeRad = 'bdI',
dataRad = list(lat = 37.2, file = BDi),
corr = 'BRL')
print(g03)
xyplot(Fd ~ Kt, data = g03, pch = 19, alpha = 0.3)
Run the code above in your browser using DataLab