readStrefler <- function(){
x <- read.csv("f33_data_weathering_graderegi.csv", sep=";", header=TRUE, row.names = 1)
x <- as.magpie(x,spatial=1)
getSets(x)[1] <- "region"
getSets(x)[2] <- "year"
getSets(x)[3] <- "data1"
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.