## TreeQSM Processing Chain
file <- system.file("extdata/QSM.mat", package = "rTwig")
qsm <- import_qsm(file)
cylinder <- qsm$cylinder
cylinder <- update_cylinders(cylinder)
filename <- tempfile(pattern = "QSM_mesh")
export_mesh(cylinder, filename)
## SimpleForest Processing Chain
file <- system.file("extdata/QSM.csv", package = "rTwig")
cylinder2 <- read.csv(file)
cylinder2 <- update_cylinders(cylinder2)
filename2 <- tempfile(pattern = "QSM_mesh2")
export_mesh(cylinder2, filename2)
## All Parameters
filename3 <- tempfile(pattern = "QSM_mesh3")
export_mesh(
cylinder = cylinder,
filename = filename3,
radius = "UnmodRadius",
color = "growthLength",
palette = "viridis"
)
Run the code above in your browser using DataLab