R/mcpv.function.R

mcpv.function <-
function(obs.stat,ms.stat,direction)
{
	D=get(direction)
	pv=apply(t(t(obs.stat)),1,function(x) (sum(D(ms.stat,x))+1)/(length(ms.stat)+1))
	return(pv=pv)
}
TunChiehHsu/SNscan documentation built on May 9, 2019, 5:15 p.m.