#########################################################################################################

## Graydon McKee
## 2018
## Black Bay walleye Migrators vs resident bio t-tests (Welch two sample)

#########################################################################################################

## clean up dataset

Bio <- unique(SpineR[,c('Fish','Age','TLEN','Migratory')])

BioM<-subset(Bio,Bio$Migratory=='Y')
BioR<-subset(Bio,Bio$Migratory=='N')

## difference in age

t.test(BioR$Age,BioM$Age)

## difference in total length

t.test(BioR$TLEN,BioM$TLEN)

hist(BioR$TLEN, breaks=15)
hist(BioM$TLEN, breaks=15)