synall<-read.table(file.choose(),sep=",",header=TRUE)
synall
attach(synall)

#this is for all dives
summary(synall)

h_synall_length<-hist(Length_cm, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="Synallactidae gen. et. sp. indet. (cm)")

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

#December 2006 length data 
#must make a vector that is only the length measurements from that time period
synallDec2006<-Length_cm[DiveNumber=="1067"]
synallDec2006

#Because there are no observations in this time period for Synallactidae gen. et. sp. indet., use
#Nov 2012 graph below with June 2007 labels so I can erase the line in Powerpoint

h_synall_length<-hist(Length_cm, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="December 2006 Synallactidae gen. et. sp. indet. (cm)")
                      


summary(synallDec2006)
#boxplot(synallDec2006)

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

#February 2007 length data 
#must make a vector that is only the length measurements from that time period
synall1077<-Length_cm[DiveNumber=="1077"]
synall1077

synall1080<-Length_cm[DiveNumber=="1080"]
synall1080

synallFeb2007<-c(synall1077,synall1080)
synallFeb2007

h_synallFeb2007<-hist(synallFeb2007, (Length_cm, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="February 2007 Synallactidae gen. et. sp. indet. (cm)")

#Because there are no observations in this time period for Synallactidae gen. et. sp. indet., use
#Nov 2012 graph below with June 2007 labels so I can erase the line in Powerpoint

h_synall_length<-hist(Length_cm, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="February 2007 Synallactidae gen. et. sp. indet. (cm)")

summary(synallFeb2007)
#boxplot(synallFeb2007)

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

#June 2007 length data 
#must make a vector that is only the length measurements from that time period
synallJune2007<-Length_cm[DiveNumber=="1094"]
synallJune2007

h_synallJune2007<-hist(synallJune2007, (Length_cm, breaks=12,xlim=c(0,20),ylim=c(0,5),
                      main= "  ", border= "dark blue", col = "light blue",  
                      xlab="June 2007 Synallactidae gen. et. sp. indet. (cm)")

#Because there are no observations in this time period for Synallactidae gen. et. sp. indet., use
#Nov 2012 graph below with June 2007 labels so I can erase the line in Powerpoint

h_synall_length<-hist(Length_cm, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="June 2007 Synallactidae gen. et. sp. indet. (cm)")

summary(synallJune2007)
#boxplot(synallJune2007)

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

#Sept 2007 length data 
#must make a vector that is only the length measurements from that time period
synall1141<-Length_cm[DiveNumber=="1141"]
synall1141

synall1143<-Length_cm[DiveNumber=="1143"]
synall1143

synallSept2007<-c(synall1141,synall1143)
synallSept2007

h_synallSept2007<-hist(synallSept2007, (Length_cm, breaks=12,xlim=c(0,20),ylim=c(0,5),
                      main= "  ", border= "dark blue", col = "light blue",  
                      xlab="September 2007 Synallactidae gen. et. sp. indet. (cm)")

#Because there are no observations in this time period for Synallactidae gen. et. sp. indet., use
#Nov 2012 graph below with June 2007 labels so I can erase the line in Powerpoint

h_synall_length<-hist(Length_cm, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="September 2007 Synallactidae gen. et. sp. indet. (cm)")


summary(synallSept2007)
#boxplot(synallSept2007)

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

#February 2009 length data for synallidia
#must make a vector that is only the length measurements from that time period
synallFeb2009<-Length_cm[DiveNumber=="8"]
synallFeb2009

h_synallFeb2009<-hist(synallFeb2009, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="February 2009 Synallactidae gen. et. sp. indet. (cm)")

#this is done to fix the axis
#synallfix<-c(0)
#synallFeb2009a<-c(synallFeb2009,synallfix)
                       
#h_synallFeb2009<-hist(synallFeb2009a, breaks=12,xlim=c(0,20),ylim=c(0,5),
          main= "  ", border= "dark blue", col = "light blue",  
          xlab="February 2009 Synallactidae gen. et. sp. indet. (cm)")
                       

summary(synallFeb2009)
boxplot(synallFeb2009)

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

#May 2011 length data 
#must make a vector that is only the length measurements from that time period
synall230<-Length_cm[DiveNumber=="230"]
synall230

synall231<-Length_cm[DiveNumber=="231"]
synall231

synall232<-Length_cm[DiveNumber=="232"]
synall232

synallMay2011<-c(synall230,synall231,synall232)
synallMay2011

h_synallMay2011<-hist(synallMay2011, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="May 2011 Synallactidae gen. et. sp. indet. (cm)")


summary(synallMay2011)
#boxplot(synallMay2011)

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


#Nov 2011 length data 
#must make a vector that is only the length measurements from that time period
synall321<-Length_cm[DiveNumber=="321"]
synall321

synall323<-Length_cm[DiveNumber=="323"]
synall323

synall324<-Length_cm[DiveNumber=="324"]
synall324

synallNov2011<-c(synall321,synall323,synall324)
synallNov2011

h_synallNov2011<-hist(synallNov2011, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="November 2011 Synallactidae gen. et. sp. indet. (cm)")

#this is done to fix the axis
#synallfix<-c(0)
#synallNov2011a<-c(synallNov2011,synallfix)

#h_synallNov2011<-hist(synallNov2011a, breaks=12,xlim=c(0,20),ylim=c(0,5),
main= "  ", border= "dark blue", col = "light blue",  
xlab="November 2011 Synallactidae gen. et. sp. indet. (cm)")

summary(synallNov2011)
#boxplot(synallNov2011)

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

#June 2012 length data for synallidia
#must make a vector that is only the length measurements from that time period
synallJune2012<-Length_cm[DiveNumber=="403"]
synallJune2012

h_synallJune2012<-hist(synallJune2012, breaks=12,xlim=c(0,20),ylim=c(0,5),
                      main= "  ", border= "dark blue", col = "light blue",  
                      xlab="June 2012 Synallactidae gen. et. sp. indet. (cm)")

#this is done to fix the axis
#synallfix<-c(0)
#synallJune2012a<-c(synallJune2012,synallfix)

#h_synallJune2012<-hist(synallJune2012a, breaks=12,xlim=c(0,20),ylim=c(0,5),
main= "  ", border= "dark blue", col = "light blue",  
xlab="June 2012 Synallactidae gen. et. sp. indet. (cm)")

summary(synallJune2012)
boxplot(synallJune2012)

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

#November 2012 length data 
#must make a vector that is only the length measurements from that time period
synall442<-Length_cm[DiveNumber=="442"]
synall442

synall443<-Length_cm[DiveNumber=="443"]
synall443

synallNov2012<-c(synall442,synall443)
synallNov2012


h_synallNov2012<-hist(synallNov2012, breaks=12,xlim=c(0,20),ylim=c(0,5),
                     main= "  ", border= "dark blue", col = "light blue",  
                     xlab="November 2012 Synallactidae gen. et. sp. indet. (cm)")


summary(synallNov2012)
#boxplot(synallNov2012)