R/FilteringTransformation.R

`FilteringTransformation` <-
function(ProbData, CutOffdata)
{	
	FUN2 <- function(x,y){
		x[!(x>y)]=0
		if(ncol(x)==1) return(x[,1])
		else return(x)
	}
	return(sweep(data.matrix(ProbData), 2, CutOffdata, FUN2))
}

Try the BIOMOD package in your browser

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

BIOMOD documentation built on May 2, 2019, 6:48 p.m.