file <- system.file("extdata/QSM.mat", package = "rTwig")
qsm <- import_qsm(file)
cylinder <- qsm$cylinder
cylinder <- update_cylinders(cylinder)
## Before Smoothing
plot_qsm(cylinder)
## After Smoothing
cylinder <- smooth_qsm(cylinder)
plot_qsm(cylinder)
Run the code above in your browser using DataLab