R/Check.entropy.nseq.R

Check.entropy.nseq <-
function(list.elt,minseq=0,entropy.min=0.6){
    check.OT.nseq <- nrow(list.elt)>=minseq
    Check.OT.entropy <- (max(apply(list.elt,2,CalcEntropy.seq))>=entropy.min)
    return(all(check.OT.nseq,Check.OT.entropy))
}
aramette/otu2ot documentation built on May 10, 2019, 12:46 p.m.