if (FALSE) {
# Not run:
library(BoneProfileR)
path_Hedgehog <- system.file("extdata", "Erinaceus_europaeus_fem_2-1_small.png",
package = "BoneProfileR")
bone <- BP_OpenImage(file=path_Hedgehog)
plot(bone)
path_Hedgehog <- system.file("extdata", "Erinaceus_europaeus_fem_2-1_small.tif",
package = "BoneProfileR")
bone <- BP_OpenImage(file=path_Hedgehog)
plot(bone)
bone <- BP_OpenImage(file=path_Hedgehog, ijtiff=TRUE)
plot(bone)
# A partial section
path_Dicynodon <- system.file("extdata", "Dicynodon_tibia_11.11.1.T_b_b-1.png",
package = "BoneProfileR")
bone <- BP_OpenImage(file=path_Dicynodon)
plot(bone)
# To open a file with a dialog:
bone <- BP_OpenImage()
}
Run the code above in your browser using DataLab