#File Output.xlxs

x1<-read.table(file="clipboard",header=T)
attach(x1)
x1

hist(FlightSpeed, c(2.5,5.0,7.5,10.0,12.5,15.0,17.5,20.0),main="", xlab="Flight speed (km/hr)")
hist(Tmin, c(35.0,40.0,45.0,50.0,55.0,60.0,65.0),main="", xlab="Minimum Temp. (°F)")
hist(Tmax, c(65.0,70.0,75.0,80.0,85.0,90.0),main="", xlab="Maximum Temp. (°F)")

x2<-read.table(file="clipboard",header=T)
attach(x2)
library(geosphere)
Abmatrix<-matrix(c(EndLon,EndLat),ncol=2)  
Smatrix<-matrix(c(FLon,FLat),ncol=2)

fdist<-distHaversine(Abmatrix,Smatrix)
fdist
hist(fdist)

x3<-read.table(file="clipboard",header=T)
attach(x3)
hist(km,c(0.0:200.0),main="", xlab="Distance between actual and simulated recapture (km)")