R/xy.LM.R

In jfpalomeque/pandora: Data processing of marks in bones, from images of sections

xy.LM <-
function(){#Open new window whit image, and take XY coordinates of seven Landmarks
  windows(6,6); plot(seq(0, dim(specimen)[2], length.out = 10), seq(0, dim(specimen)[1], length.out = 10), type = "n", xlab = "x", ylab = "y", asp = 1, tck = 0, xaxt = "n", yaxt = "n")
  rasterImage(specimen, 1, 1, dim(specimen)[2], dim(specimen)[1])
  xy_LM<<-locator(n=7, type="p", pch=19, col="red")
  matrixLM<-as.matrix(xy_LM$x)
  matrixLM<<-cbind(matrixLM, as.matrix(xy_LM$y))
}