R/Chi_Test.R

Chi_Test <-
function(PI, Limit=10^(-8)){
  N  <- length(PI)-1        
  Chi<- (var(PI)*N)/Limit   
  p  <- pchisq(q=Chi, df=N)
  return(p)
}

Try the NHEMOtree package in your browser

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

NHEMOtree documentation built on May 2, 2019, 7:32 a.m.