Description Usage Arguments Value Author(s) References See Also Examples

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.

1 | ```
fCompD(sol, G0d, corr = "CPR",f)
``` |

`sol` |
A |

`G0d` |
A |

`corr` |
A character, the correlation between the 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 `zoo`

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

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, doi: 10.18637/jss.v050.i09

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ```
lat = 37.2;
BTd = fBTd(mode = 'serie')
SolD <- fSolD(lat, BTd[100])
G0d = zoo(5000, index(SolD))
fCompD(SolD, G0d, corr = "Page")
fCompD(SolD, G0d, corr = "CPR")
#define a function fKtd with the correlation of CPR
fKTd = function(x){(0.99*(x <= 0.17))+
(x>0.17)*(1.188 -2.272 * x + 9.473 * x^2 - 21.856 * x^3
+ 14.648 * x^4)}
#The same as with corr = "CPR"
fCompD(SolD, G0d, corr = "user", f = fKTd)
lat = -37.2;
SolDs <- fSolD(lat, BTd[283])
G0d = zoo(5000, index(SolDs))
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')
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.