# NOT RUN {
data(RFLPdata)
res <- RFLPdist(RFLPdata, nrBands = 4)
cl <- hclust(res)
# }
# NOT RUN {
write.hclust(cl, file = "Test.txt", prefix = "Bd4", h = 50)
# }
# NOT RUN {
res <- RFLPdist2(RFLPdata, nrBands = 4, nrMissing = 1)
cl <- hclust(res)
# }
# NOT RUN {
write.hclust(cl, file = "Test.txt", append = TRUE, prefix = "Bd4_Mis1", h = 60)
# }
Run the code above in your browser using DataLab