library(stUPscales)
library(EmiStatR)
data("P1")
P1 <- P1[1:550,]
new_data <- matrix(data = NA, nrow = nrow(P1), ncol = 55)
for(i in 1:55){
new_data[,i] <- matrix(data = rnorm(nrow(P1), 22, 11),
nrow = nrow(P1), ncol = 1)
}
new_data <- t(new_data)
new_summary <- MC.summary(p1 = P1, data = new_data)
head(new_summary)
dim(new_summary)
new_summary$month <- strftime(new_summary[,"time"], format = "%Y-%m")
## not run
## creating the plot (uncomment to run)
# PlotMC.season(summ1 = new_summary, namePlot = "ExamplePlot",
# ylab = "Variable 1 [units]", qUpper = "q95")
#Run the code above in your browser using DataLab