# \donttest{
## 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 = "TreeQSM_QSM.mat")
export_mat(cylinder, filename)
## SimpleForest Processing Chain
file <- system.file("extdata/QSM.csv", package = "rTwig")
cylinder <- read.csv(file)
cylinder <- update_cylinders(cylinder)
filename <- tempfile(pattern = "SimpleForest_QSM.mat")
export_mat(cylinder, filename)
# }
Run the code above in your browser using DataLab