heartL <- mesh3dL_to_cgalMeshL(data_heart_obsL)
metroL <- get_mesh_metro(heartL, nSamples=500L, silent=TRUE)
# Hausdorff distance
get_HD_max <- function(x) {
max(c(x$ForwardSampling$maxdist,
x$BackwardSampling$maxdist))
}
Map(get_HD_max, metroL)
Run the code above in your browser using DataLab