if(interactive()) {
src_dir <- system.file("extdata", package="MeshAgreement")
ff1 <- list.files(src_dir, pattern="^Obs01", full.names=TRUE)
ff2 <- list.files(src_dir, pattern="^Obs02", full.names=TRUE)
ff3 <- list.files(src_dir, pattern="^Obs03", full.names=TRUE)
obsL <- read_mesh(list(Obs01=ff1,
Obs02=ff2,
Obs03=ff3),
reconstruct="AFS")
get_mesh_info(obsL)
}
Run the code above in your browser using DataLab