Commit cdbe831f authored by Manuela's avatar Manuela

reduce size of example data

parent ac040c62
......@@ -2,6 +2,8 @@
### load data for four stations
data(weather_sim_multi_sites)
sim <- weather_sim_multi_sites
# weather_sim_multi_sites <- list(weather_sim_multi_sites[[1]],weather_sim_multi_sites[[2]])
# save(file='weather_sim_multi_sites.rda', weather_sim_multi_sites)
### define plotting colors
col_sim <- adjustcolor("#fd8d3c",alpha=0.8)
......@@ -20,13 +22,13 @@ par(mfrow=c(2,1),mar=c(3,3,2,1))
ylim_max <- max(sim[[1]][[1]]$Temp)*1.5
### observed
plot(sim[[1]][[1]]$Temp[1:1000],ylab=expression(bold(paste("Temperature [degrees]"))),xlab="Time [d]",type="l",col=col_vect_obs[1],ylim=c(0,ylim_max),main='Observations')
for(l in 2:4){
for(l in 2){
lines(sim[[l]][[1]]$Temp[1:1000],col=col_vect_obs[l])
}
# legend('topleft',legend=c('Station 1','Station 2','Station 3','Station 4'),lty=1,col=col_vect_obs[1:4])
### simulated (one run)
plot(sim[[1]][[1]]$r1[1:1000],ylab=expression(bold(paste("Temperature [degrees]"))),xlab="Time [d]",type="l",col=col_vect_sim[1],ylim=c(0,ylim_max),main='Stochastic simulations')
for(l in 2:4){
for(l in 2){
lines(sim[[l]][[1]]$r1[1:1000],col=col_vect_sim[l])
}
......
......@@ -3,10 +3,10 @@
\alias{weather_sim_multi_sites}
\docType{data}
\title{
Simulated temperature and precipitation for four grid cells
Simulated temperature and precipitation for two grid cells
}
\description{
The dataset is generated with the package own routines and represent 5 series of 38 years of meteorological data for four grid cells
The dataset is generated with the package own routines and represent 5 series of 38 years of meteorological data for two grid cells
}
\usage{data("weather_sim_multi_sites")}
\format{
......@@ -57,17 +57,17 @@ plot(sim[[1]][[1]]$Temp[1:1000],
ylab=expression(bold(paste("Temperature [degrees]"))),
xlab="Time [d]",type="l",col=col_vect_obs[1],
ylim=c(0,ylim_max),main='Observations')
for(l in 2:4){
for(l in 2){
lines(sim[[l]][[1]]$Temp[1:1000],col=col_vect_obs[l])
}
# legend('topleft',legend=c('Station 1','Station 2','Station 3'
#,'Station 4'),lty=1,col=col_vect_obs[1:4])
# legend('topleft',legend=c('Station 1','Station 2'
# ),lty=1,col=col_vect_obs[1:2])
### simulated (one run)
plot(sim[[1]][[1]]$r1[1:1000],
ylab=expression(bold(paste("Temperature [degrees]"))),
xlab="Time [d]",type="l",col=col_vect_sim[1],
ylim=c(0,ylim_max),main='Stochastic simulations')
for(l in 2:4){
for(l in 2){
lines(sim[[l]][[1]]$r1[1:1000],col=col_vect_sim[l])
}
......@@ -79,17 +79,17 @@ plot(sim[[1]][[2]]$Prec[1:1000],
ylab=expression(bold(paste("Precipitation [mm/d]"))),
xlab="Time [d]",type="l",col=col_vect_obs[1],
ylim=c(0,ylim_max),main='Observations')
for(l in 2:4){
for(l in 2){
lines(sim[[l]][[2]]$Prec[1:1000],col=col_vect_obs[l])
}
# legend('topleft',legend=c('Station 1','Station 2','Station 3'
#,'Station 4'),lty=1,col=col_vect_obs[1:4])
# legend('topleft',legend=c('Station 1','Station 2'
# ),lty=1,col=col_vect_obs[1:2])
### simulated (one run)
plot(sim[[1]][[2]]$r1[1:1000],
ylab=expression(bold(paste("Precipitation [mm/d]"))),
xlab="Time [d]",type="l",col=col_vect_sim[1],
ylim=c(0,ylim_max),main='Stochastic simulations')
for(l in 2:4){
for(l in 2){
lines(sim[[l]][[2]]$r1[1:1000],col=col_vect_sim[l])
}
}
......
No preview for this file type
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment