folder_path1 <- system.file("extdata", "SAM", package="biogeom")
bmp.res1 <- PlanCoor( folder_path1, lower.val = 0, upper.val = 250,
fig.opt = TRUE, np = NULL )
folder_path2 <- system.file("extdata", "Leaf", package="biogeom")
bmp.res2 <- PlanCoor( folder_path2, lower.val = 1, upper.val = 254,
fig.opt = TRUE, np = NULL, unit = "cm", verbose = FALSE )
graphics.off()
Run the code above in your browser using DataLab