if (FALSE) {
sfile <- system.file("examples/sample_comstruct", package = "phylocomr")
tfile <- system.file("examples/traits_aot", package = "phylocomr")
# from files
sample_str <- paste0(readLines(sfile), collapse = "\n")
sfile2 <- tempfile()
cat(sample_str, file = sfile2, sep = '\n')
traits_str <- paste0(readLines(tfile), collapse = "\n")
tfile2 <- tempfile()
cat(traits_str, file = tfile2, sep = '\n')
ph_comtrait(sample = sfile2, traits = tfile2)
# from data.frame
sampledf <- read.table(sfile, header = FALSE,
stringsAsFactors = FALSE)
traitsdf_file <- system.file("examples/traits_aot_df",
package = "phylocomr")
traitsdf <- read.table(text = readLines(traitsdf_file), header = TRUE,
stringsAsFactors = FALSE)
ph_comtrait(sample = sampledf, traits = traitsdf,
binary = c(FALSE, FALSE, FALSE, TRUE))
}
Run the code above in your browser using DataLab