R/example.2DUnBoundLinDecompOp.R

#' example.2DUnBoundLinDecompOpFromFunction
#' 
#' An example used in tests and other examples.
#' 
#' 
example.2DUnBoundLinDecompOpFromFunction <- function (){
	matFunc<- function(t){
		matrix(
			nrow=2,
			byrow=TRUE,
			c(
					-0.1*(sin(t)+1.1)		,	 0,
					 0									,	-0.2*(sin(t)+1.2)
			)
		)
	}
	res <- UnBoundLinDecompOp(matFunc)
	return(res)
}

Try the SoilR package in your browser

Any scripts or data that you put into this service are public.

SoilR documentation built on Oct. 13, 2023, 5:06 p.m.