R/readSathayeForest.R

In pik-piam/mrland: MadRaT land data package

#' Read Sathaye Forest
#' 
#' Read-in an Sathaye Forest data .csv file as magclass object
#' 
#' 
#' @return magpie object of the Sathaye Forest data
#' @author Lavinia Baumstark, Felicitas Beier, Abhijeet Mishra
#' @seealso \code{\link{readSource}}
#' @examples
#' 
#' \dontrun{ a <- readSource("SathayeForest")
#' }
#' 
readSathayeForest <- function() {
      forest <- read.csv("SathayeForest.csv", sep=";", header=TRUE, row.names=2)
      forest[,1] <- NULL
      forest <- as.magpie(forest)
      getYears(forest) <- "y2001"
      return(forest)
}