R/example.Time2DArrayList.R

In SoilR: Models of Soil Organic Matter Decomposition

#' create an example TimeMap from 2D array
#' 
#' An example used in tests and other examples.
#' 
#' 
example.Time2DArrayList<- function 
(){
	times <- seq(1,10,by=0.1)
	a <- array(dim=c(2,length(times)))
	a[1,] <- -0.1*(sin(times)+1.1)
	a[2,] <- -0.2*(sin(times)+1.2)
  return(list(times=times,data=a))
}