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=10, nproc=1,
igphyml=igphyml, trait="sample_id")
testPS(btrees$switches)
}
Run the code above in your browser using DataLab