## thats what userinput_CMIP5_timeseries looks like:
## it contains a single list named user.input
## describing 2 CMIP5 models in the alpine region
data("userinput_CMIP5_timeseries")
is.list(userinput_CMIP5_timeseries)
str(userinput_CMIP5_timeseries)
data(modelinput_test)
## reading in these data and process them:
wux.test <- models2wux(userinput_CMIP5_timeseries,
modelinput = model.input)
## if you had a file "/tmp/userinput_CMIP5_timeseries.R" which contains a
## list 'user.input with the same content as 'userinput_CMIP5_timeseries'
## you could read the data also like this:
wux.test <- models2wux("/tmp/userinput_CMIP5_timeseries.R",
modelinput = model.input)
## the result is what the data.set would look like, if you ran the code
## above:
data(CMIP5_example_timeseries)
wux.test <- CMIP5_example_timeseries
require(lattice)
xyplot(air_temperature ~ year|season,
groups=acronym,
data = wux.test,
type = c("l", "g"),
main = "Temperature trends for Alpine Region" )
Run the code above in your browser using DataLab