R/norm1c.R

"norm1c" <-
function(logratio,logintensity,span=0.6)
{
 lRbar<-apply(logratio,1,mean)
 lIbar<-apply(logintensity,1,mean)
 lRbar-loess(lRbar~lIbar,span=span)$fitted
}

Try the nudge package in your browser

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

nudge documentation built on May 2, 2018, 4:26 a.m.