R/LRpv.R

In IOstrovnaya/Clonality: Clonality testing

Defines functions LRpv

Documented in LRpv

LRpv <-
function(tum, pp,nref)
{ts<-LRts(tum,pp,0.8)
sum(ts[1]<=refvector(pp,0,ts[2],nref))/nref
}