R/startedLog.R

Defines functions startedLog

Documented in startedLog

startedLog=function(data,count.columns,logstart=0.1) {
	nn=data[,count.columns]
	sums=apply(nn,1,function(x){sum(x,na.rm=T)})
	msum=mean(sums)/sums
	nn=nn*msum
	logs=log(nn+logstart)
	if(logstart==0) {
		logs[nn==0]=NA
	}
	return(logs)
}

Try the MCMC.OTU package in your browser

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

MCMC.OTU documentation built on May 1, 2019, 10:55 p.m.