inst/added/Comprehensive_PrecipitationGenerator_test_no_spline_true.R

In RMAWGEN: Multi-Site Auto-Regressive Weather GENerator

rm(list=ls())


data(trentino)
set.seed(1222) # set the seed for random generations!
year_max <- 1990
year_min <- 1961
year_max_sim <- 1982
year_min_sim <- 1981

n_GPCA_iter <- 2
p <- 1
nscenario=1
station <- c("T0090","T0083")

## Not Run: the call to ComprehensivePrecipitationGenerator may elapse too
## long time (more than 5 eseconds) and is not executed  by default CRAN check.
## Please uncomment the following line to run the example on your own PC.
## set no_spline=TRUE
generation00 <- ComprehensivePrecipitationGenerator(station=station,
                                                    prec_all=PRECIPITATION,year_min=year_min,year_max=year_max,
                                                    year_min_sim=year_min_sim,year_max_sim=year_max_sim,p=p,
                                                    n_GPCA_iteration=n_GPCA_iter,n_GPCA_iteration_residuals=0,
                                                    sample="monthly",nscenario=nscenario,no_spline=TRUE)
plot(generation00$prec_spline_sim$T0083)