# create a folder named “2d_midpaleolithic_specs” and unzip images there
# dir.create(“C:/2d_midpaleolithic_specs/”)

# then set the directory to where the images are located
> setwd(“C:/2d_midpaleolithic_specs/”)

> # create the file name character vector named “specs”
> # ensure that only “.jpg” files are called (for future reference)
> specs<-list.files()[grep(".JPG",list.files())]
> specs
[1] “spec100.JPG” “spec143.JPG” “spec164.JPG”
> 
> # source the function “digitize2d.multi()”
> source(url(“http://www.people.fas.harvard.edu/~eotarolacastillo/software/digitze2dmulti.R”))
> 
> # To begin digitizing images call the function with with:
> diged.imgs <- lapply(specs, digitize2d.multi, nlandmarks=3, scale=1)
Loading required package: jpeg
set scale = 1

# to set the scale, use the mouse to digitize the length of the scale in the image

select landmarks 1:3

# to select landmarks, “point-and-click” at the locations of the landmarks of interest. in this case, the ends of a preparation platform and the tip were selected.

set scale = 1
select landmarks 1:3

(figure not shown)
set scale = 1
select landmarks 1:3

# here is another example using an upper-paleolithic blade.