tree <- system.file("extdata", "pa.nwk", package="ggtree")
data <- read.csv(system.file("extdata", "pa_subs.csv", package="ggtree"),
stringsAsFactor=FALSE)
outfile <- tempfile()
write.jplace(tree, data, outfile)
Run the code above in your browser using DataLab