Placing Surface Semi-landmarks on All of the Specimens

make sure the landmark files are in .tps format:

LM3=109
-16.1912002563476 -174.8839721679680 -202.0444488525390
-14.8865737915039 -187.2805175781250 -217.8384094238280
-14.2809696197509 -166.0343322753900 -168.3610229492180
-15.0032215118408 -150.9121551513670 -165.0103759765620

setwd("~/Documents/CompletedEndocastsFinal")
load("~/Documents/CompletedEndocastsFinal/surfacesemilandmarks.RData")
library(geomorph)

-import all specimen's original and mirrored endocasts and landmark files:

morton1192_fixed_curve_landmarks <- readland.tps(file.choose())
morton1192ply  <- read.ply(file.choose())
morton1192_fixed_curve_landmarks_flipped <- readland.tps(file.choose())
morton1192ply_flipped  <- read.ply(file.choose())

To place the surface semi-landmarks on each endocast use geomorph's digitsurface() function:

digitsurface(morton25ply, morton25_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton25ply_flipped, morton25flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton51ply, morton51_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton51ply_flipped, morton51flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton413ply, morton413_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton413ply_flipped, morton413flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton422ply_flipped, morton422flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton422ply, morton422_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton432ply, morton432_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton432ply_flipped, morton432flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton434ply, morton434_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton434ply_flipped, morton434flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton451ply, morton451_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton451ply_flipped, morton451flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton547ply, morton547_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton547ply_flipped, morton547flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton631ply, morton631_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton631ply_flipped, morton631flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton645ply, morton645_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton645ply_flipped, morton645flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton646ply, morton646_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton646ply_flipped, morton646flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton762ply, morton762_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton762ply_flipped, morton762flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton772ply_flipped, morton772flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton772ply, morton772_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton778ply, morton778_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton778ply_flipped, morton778flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton787ply, morton787_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton787ply_flipped, morton787flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton808ply, morton808_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton808ply_flipped, morton808flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton901ply, morton901_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton901ply_flipped, morton901flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton902ply, morton902_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton902ply_flipped, morton902flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton913ply, morton913_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton913ply_flipped, morton913flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton915ply, morton915_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton915ply_flipped, morton915flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1103ply, morton1103_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1103ply_flipped, morton1103flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1188ply_flipped, morton1188flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1188ply, morton1188_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1192ply, morton1192_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1192ply_flipped, morton1192flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1306ply, morton1306_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1306ply_flipped, morton1306flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1319ply, morton1319_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1319ply_flipped, morton1319flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1329ply, morton1329_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1329ply_flipped, morton1329flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1486ply, morton1486_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1486ply_flipped, morton1486flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1973ply, morton1973_fixed_curve_landmarks, ptsize=1, center=FALSE)
digitsurface(morton1973ply_flipped, morton1973flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1306plyerror, morton1306error_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1306plyerror_flipped, morton1306errorflipped_fixed_curve_landmarks, ptsize=1, center=FALSE)
digitsurface(morton1306plyerror2, morton1306error2_fixed_curve_landmarks, ptsize=1, center=FALSE)

digitsurface(morton1306plyerror2_flipped, morton1306error2flipped_fixed_curve_landmarks, ptsize=1, center=FALSE)

this will create an .nts file of all the landmarks for each specimen

Files:
morton1192ply.nts
morton1192ply_flipped.nts