Objective

Here we show how the model perform on different sites. We text for 2 years training 2012, 2013 and test 2014. The target and training is from the chosen station. All the models only usar solar radiation.

alt text

#Defines how to discretize each weather variable
model[["discretize"]] <- list()
#Precipitation
model[["discretize"]][["PREC"]][["method"]] <- "binning"
model[["discretize"]][["PREC"]][["ncentroids"]] <- 5
#Solar
model[["discretize"]][["SOLR"]][["method"]] <- "kmeans"
model[["discretize"]][["SOLR"]][["ncentroids"]] <- 5
#Humidity
model[["discretize"]][["RELH"]][["method"]] <- "kmeans"
model[["discretize"]][["RELH"]][["ncentroids"]] <- 5
#Dew Point
model[["discretize"]][["DWPF"]][["method"]] <- "kmeans"
model[["discretize"]][["DWPF"]][["ncentroids"]] <- 5
#Wind Speed
model[["discretize"]][["SKNT"]][["method"]] <- "kmeans"
model[["discretize"]][["SKNT"]][["ncentroids"]] <- 5
#Temperature
model[["discretize"]][["TMPF"]][["method"]] <- "kmeans"
model[["discretize"]][["TMPF"]][["ncentroids"]] <- 5

SCBH1 (Center)

formulas <- c(
                "SCBH1.SOLR_Daym0|SCBH1.SOLR_Daym1",
                "SCBH1.SOLR_Daym0|SCBH1.SOLR_Daym1,SCBH1.SOLR_Daym2",
                "SCBH1.SOLR_Daym0|SCBH1.SOLR_Daym1,SCBH1.SOLR_Daym2,SCBH1.SOLR_Daym3",
                "SCBH1.SOLR_Daym0|SCBH1.SOLR_Daym1,SCBH1.SOLR_Daym2,SCBH1.SOLR_Daym3,SCBH1.SOLR_Daym4",
                "SCBH1.SOLR_Daym0|SCBH1.SOLR_Daym1,SCBH1.SOLR_Daym2,SCBH1.SOLR_Daym3,SCBH1.SOLR_Daym4,SCBH1.SOLR_Daym5",
                "SCBH1.SOLR_Daym0|SCBH1.SOLR_Daym1,SCBH1.SOLR_Daym2,SCBH1.SOLR_Daym3,SCBH1.SOLR_Daym4,SCBH1.SOLR_Daym5,SCBH1.SOLR_Daym6",
                "SCBH1.SOLR_Daym0|SCBH1.SOLR_Daym1,SCBH1.SOLR_Daym2,SCBH1.SOLR_Daym3,SCBH1.SOLR_Daym4,SCBH1.SOLR_Daym5,SCBH1.SOLR_Daym6,SCBH1.SOLR_Daym7"
            )    

2 3 4 5 6 7 8
1704.407 1761.425 1851.155 2161.85 2399.324 2731.632 2804.364

KKRH1 (Far West)

formulas <- c(
                "KKRH1.SOLR_Daym0|KKRH1.SOLR_Daym1",
                "KKRH1.SOLR_Daym0|KKRH1.SOLR_Daym1,KKRH1.SOLR_Daym2",
                "KKRH1.SOLR_Daym0|KKRH1.SOLR_Daym1,KKRH1.SOLR_Daym2,KKRH1.SOLR_Daym3",
                "KKRH1.SOLR_Daym0|KKRH1.SOLR_Daym1,KKRH1.SOLR_Daym2,KKRH1.SOLR_Daym3,KKRH1.SOLR_Daym4",
                "KKRH1.SOLR_Daym0|KKRH1.SOLR_Daym1,KKRH1.SOLR_Daym2,KKRH1.SOLR_Daym3,KKRH1.SOLR_Daym4,KKRH1.SOLR_Daym5",
                "KKRH1.SOLR_Daym0|KKRH1.SOLR_Daym1,KKRH1.SOLR_Daym2,KKRH1.SOLR_Daym3,KKRH1.SOLR_Daym4,KKRH1.SOLR_Daym5,KKRH1.SOLR_Daym6",
                "KKRH1.SOLR_Daym0|KKRH1.SOLR_Daym1,KKRH1.SOLR_Daym2,KKRH1.SOLR_Daym3,KKRH1.SOLR_Daym4,KKRH1.SOLR_Daym5,KKRH1.SOLR_Daym6,KKRH1.SOLR_Daym7"
            )    

2 3 4 5 6 7 8
1839.101 1786.511 1879.831 1805.752 1877.544 1879.676 2085.449

PLHH1 (South)

formulas <- c(
                "PLHH1.SOLR_Daym0|PLHH1.SOLR_Daym1",
                "PLHH1.SOLR_Daym0|PLHH1.SOLR_Daym1,PLHH1.SOLR_Daym2",
                "PLHH1.SOLR_Daym0|PLHH1.SOLR_Daym1,PLHH1.SOLR_Daym2,PLHH1.SOLR_Daym3",
                "PLHH1.SOLR_Daym0|PLHH1.SOLR_Daym1,PLHH1.SOLR_Daym2,PLHH1.SOLR_Daym3,PLHH1.SOLR_Daym4",
                "PLHH1.SOLR_Daym0|PLHH1.SOLR_Daym1,PLHH1.SOLR_Daym2,PLHH1.SOLR_Daym3,PLHH1.SOLR_Daym4,PLHH1.SOLR_Daym5",
                "PLHH1.SOLR_Daym0|PLHH1.SOLR_Daym1,PLHH1.SOLR_Daym2,PLHH1.SOLR_Daym3,PLHH1.SOLR_Daym4,PLHH1.SOLR_Daym5,PLHH1.SOLR_Daym6",
                "PLHH1.SOLR_Daym0|PLHH1.SOLR_Daym1,PLHH1.SOLR_Daym2,PLHH1.SOLR_Daym3,PLHH1.SOLR_Daym4,PLHH1.SOLR_Daym5,PLHH1.SOLR_Daym6,PLHH1.SOLR_Daym7"
            )    

2 3 4 5 6 7 8
1646.245 1658.856 1771.134 1943.82 1665.155 2062.199 1890.426

OFRH1 (East)

formulas <- c(
                "OFRH1.SOLR_Daym0|OFRH1.SOLR_Daym1",
                "OFRH1.SOLR_Daym0|OFRH1.SOLR_Daym1,OFRH1.SOLR_Daym2",
                "OFRH1.SOLR_Daym0|OFRH1.SOLR_Daym1,OFRH1.SOLR_Daym2,OFRH1.SOLR_Daym3",
                "OFRH1.SOLR_Daym0|OFRH1.SOLR_Daym1,OFRH1.SOLR_Daym2,OFRH1.SOLR_Daym3,OFRH1.SOLR_Daym4",
                "OFRH1.SOLR_Daym0|OFRH1.SOLR_Daym1,OFRH1.SOLR_Daym2,OFRH1.SOLR_Daym3,OFRH1.SOLR_Daym4,OFRH1.SOLR_Daym5",
                "OFRH1.SOLR_Daym0|OFRH1.SOLR_Daym1,OFRH1.SOLR_Daym2,OFRH1.SOLR_Daym3,OFRH1.SOLR_Daym4,OFRH1.SOLR_Daym5,OFRH1.SOLR_Daym6",
                "OFRH1.SOLR_Daym0|OFRH1.SOLR_Daym1,OFRH1.SOLR_Daym2,OFRH1.SOLR_Daym3,OFRH1.SOLR_Daym4,OFRH1.SOLR_Daym5,OFRH1.SOLR_Daym6,OFRH1.SOLR_Daym7"
            )    

2 3 4 5 6 7 8
1502.231 1566.85 1685.291 1962.447 2302.092 2478.861 2558.564

KTAH1 (North)

formulas <- c(
                "KTAH1.SOLR_Daym0|KTAH1.SOLR_Daym1",
                "KTAH1.SOLR_Daym0|KTAH1.SOLR_Daym1,KTAH1.SOLR_Daym2",
                "KTAH1.SOLR_Daym0|KTAH1.SOLR_Daym1,KTAH1.SOLR_Daym2,KTAH1.SOLR_Daym3",
                "KTAH1.SOLR_Daym0|KTAH1.SOLR_Daym1,KTAH1.SOLR_Daym2,KTAH1.SOLR_Daym3,KTAH1.SOLR_Daym4",
                "KTAH1.SOLR_Daym0|KTAH1.SOLR_Daym1,KTAH1.SOLR_Daym2,KTAH1.SOLR_Daym3,KTAH1.SOLR_Daym4,KTAH1.SOLR_Daym5",
                "KTAH1.SOLR_Daym0|KTAH1.SOLR_Daym1,KTAH1.SOLR_Daym2,KTAH1.SOLR_Daym3,KTAH1.SOLR_Daym4,KTAH1.SOLR_Daym5,KTAH1.SOLR_Daym6",
                "KTAH1.SOLR_Daym0|KTAH1.SOLR_Daym1,KTAH1.SOLR_Daym2,KTAH1.SOLR_Daym3,KTAH1.SOLR_Daym4,KTAH1.SOLR_Daym5,KTAH1.SOLR_Daym6,KTAH1.SOLR_Daym7"
            )    

2 3 4 5 6 7 8
1502.411 1560.081 1697.43 1807.902 1608.673 1709.279 1780.917