R/TCS.R

TCS <-
function(basis, cov, lambda){
	cov[abs(cov)<lambda]=0
	smooth=basis%*%cov%*%t(basis)
	return(smooth)	
}

Try the treelet package in your browser

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

treelet documentation built on May 2, 2019, 6:08 a.m.