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

#this is for all dives
summary(pen_complex)
plot(Biomass~Length_cm)
h_pen_complex_length<-hist(Length_cm, breaks=5,ylim=c(0,10))
plot(h_pen_complex_length, labels = true)
plot(h_pen_complex_length, border= "dark blue", col = "light blue", 
     main = "Histogram of Peniagone complex Lengths", xlab="Length (cm)")
h_pen_complex_biomass<-hist(Biomass, breaks=10, ylim=c(0,10))
plot(h_pen_complex_biomass, labels = true)
plot(h_pen_complex_biomass,border= "dark blue", col = "light blue", 
     main = "Histogram of Peniagone complex Biomass", xlab="Biomass (g)")