surface_file <- system.file("extdata", "lh.tinysurface",
package = "freesurferformats", mustWork = TRUE
)
mesh <- read.fs.surface(surface_file)
cat(sprintf(
"Read data for %d vertices and %d faces. \n",
nrow(mesh$vertices), nrow(mesh$faces)
))
Run the code above in your browser using DataLab