C_fCompD | R Documentation |
Extract the diffuse and direct components from the daily global irradiation on a horizontal surface by means of regressions between the clearness index and the diffuse fraction parameters.
fCompD(sol, G0d, corr = "CPR",f)
sol |
A |
G0d |
A |
corr |
A character, the correlation between the fraction of diffuse irradiation and the clearness index to be used. With this version several options are available, as described in
If If |
f |
A function defininig a correlation between the fraction of
diffuse irradiation and the clearness index. It is only neccessary when |
A data.table
object which includes:
Fd |
numeric, the diffuse fraction |
Ktd |
numeric, the clearness index |
G0d |
numeric, the global irradiation on a horizontal surface (Wh/m²) |
D0d |
numeric, the diffuse irradiation on a horizontal surface (Wh/m²) |
B0d |
numeric, the direct irradiation on a horizontal surface (Wh/m²) |
Oscar Perpiñán Lamigueiro, Francisco Delgado López.
Perpiñán, O, Energía Solar Fotovoltaica, 2015. (https://oscarperpinan.github.io/esf/)
Perpiñán, O. (2012), "solaR: Solar Radiation and Photovoltaic Systems with R", Journal of Statistical Software, 50(9), 1-32, \Sexpr[results=rd]{tools:::Rd_expr_doi("10.18637/jss.v050.i09")}
fCompI
library("data.table")
lat <- 37.2;
BTd <- fBTd(mode = 'serie')
SolD <- fSolD(lat, BTd[100])
G0d <- 5000
fCompD(SolD, G0d, corr = "Page")
fCompD(SolD, G0d, corr = "CPR")
#define a function fKtd with the correlation of CPR
fKTd <- function(sol, G0d){
Kt <- Ktm(sol, G0d)
Fd <- (0.99*(Kt <= 0.17))+ (Kt>0.17)*(1.188 -2.272 * Kt + 9.473 * Kt^2 -
21.856 * Kt^3 + 14.648 * Kt^4)
return(data.table(Fd, Kt))}
#The same as with corr = "CPR"
fCompD(SolD, G0d, corr = "user", f = fKTd)
lat <- -37.2;
SolDs <- fSolD(lat, BTd[283])
G0d <- data.table(Dates = SolDs$Dates, G0d = 5000)
fCompD(SolDs, G0d, corr = "CPR")
lat <- 37.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;
Rad <- readG0dm(G0dm, lat = lat)
solD <- fSolD(lat, fBTd(mode = 'prom'))
fCompD(solD, Rad, corr = 'Page')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.