Nothing
## splom
## splomsolaR <- function(x, ...){
## splom(x,
## panel=panel.hexbinplot,
## diag.panel = function(x, ...){
## yrng <- current.panel.limits()$ylim
## d <- density(x, na.rm=TRUE)
## d$y <- with(d, yrng[1] + 0.95 * diff(yrng) * y / max(y) )
## panel.lines(d)
## diag.panel.splom(x,...)
## },
## lower.panel = function(x, y, ...){
## panel.hexbinplot(x, y, ...)
## panel.loess(x, y, ..., col = 'red')
## },
## pscale=0, varname.cex=0.7
## )
## }
## setMethod('splom',
## signature='Meteo',
## definition=function(x, ...){
## df <- as.data.frame(getData(x))
## splomsolaR(df)
## }
## )
## setGeneric('compareSplom', signature='...', function(...){standardGeneric('compareSplom')})
## setMethod('compareSplom',
## signature='Meteo',
## definition=function(...){
## z <- mergesolaR(..., var='G0')
## df <- as.data.frame(z)
## splomsolaR(df)
## }
## )
## setMethod('compareSplom',
## signature='G0',
## definition=function(...){
## z <- mergesolaR(..., var='G0d')
## df <- as.data.frame(z)
## splomsolaR(df)
## }
## )
## setMethod('compareSplom',
## signature='Gef',
## definition=function(...){
## z <- mergesolaR(..., var='Gefd')
## df <- as.data.frame(z)
## splomsolaR(df)
## }
## )
## setMethod('compareSplom',
## signature='ProdGCPV',
## definition=function(...){
## z <- mergesolaR(..., var='Yf')
## df <- as.data.frame(z)
## splomsolaR(df)
## }
## )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.