if (FALSE) {
IDlist <- c('BC0077','BC0071')
prepath <- system.file("extdata", package = 'patternize')
extension <- '.jpg'
imageList <- makeList(IDlist, 'image', prepath, extension)
landmarkList <- sampleLandmarks(imageList)
}
Run the code above in your browser using DataLab