if (FALSE) {
igphyml <- "~/apps/igphyml/src/igphyml"
data(ExampleAirr)
ExampleAirr$sample_id = sample(ExampleAirr$sample_id)
clones = formatClones(ExampleAirr, trait="sample_id")
btrees = findSwitches(clones[1:2], bootstraps=100, nproc=1,
igphyml=igphyml, trait="sample_id", id="temp", dir="temp")
testSC(btrees$switches)
}
Run the code above in your browser using DataLab