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")
testSP(btrees$switches)
}
Run the code above in your browser using DataLab