Jitter upcall v detector.R

data=read.table(file.choose("C:/Users/Trudi/Documents/RIGHT WHALES/SRWs/PhD/DATA ANALYSIS
/Ch3 Temporal analysis - DSG data/Analysis DSG-1 Laurie Aug11-May12/
Upcalls v detected upcalls.txt"), header=T, sep="\t")

attach(data)
data
head(data)

## Jitter upcall data
JitteredPlot <- plot(jitter(data$Detected,factor=0.6),Upcall, 
xlab="Analyst detected upcalls",ylab="Automatically detected upcalls")

## Add regression line
RegressionLine <- abline(lsfit(data$Detected,data$Upcall))