CranialElevationCheck.R

setwd('/Users/hannah/Dropbox/Westneat_Lab/Eartheater Project/Data/Videos/Cranial Elevation Check/')
angles <- read.csv('Angles.csv')
change <- c((angles$During.strike-angles$Before.strike), (angles$During.strike-angles$After.strike))
mean(angles$During.strike-angles$Before.strike)
sd(angles$During.strike-angles$Before.strike)
hist(change)
nitlon/Eartheaters documentation built on May 23, 2019, 7:06 p.m.