## 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:
## Not run: wux.test <- models2wux(userinput_CMIP5_timeseries,
# modelinput = model.input)## End(Not run)
## 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:
## Not run: wux.test <- models2wux("/tmp/userinput_CMIP5_timeseries.R",
# modelinput = model.input)## End(Not run)
## 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
## Not run: require(lattice)
# xyplot(air_temperature ~ year|season,
# groups=acronym,
# data = wux.test,
# type = c("l", "g"),
# main = "Temperature trends for Alpine Region" )
# ## End(Not run)
Run the code above in your browser using DataLab