missing years from length_all.csv

Montserrat-Fisheries-Assessment

Code for all data prep, analyses, and figures in Montserrat Fisheries Assessment Report

	# SA data has already been merged in 'all_length.csv'
	#
	# SA<-read.csv("Sept_2016/Data/SA_individ_lengths.csv")%>%
	# mutate(Gear.Type="SA")
	# nrow(SA)
	# SA<-SA[!(SA$Length<3),] ## remove observations that are <3 cm
	# i=8
	# for (i in 1:length(sp_id)){
	# l<-data%>%
	# filter(Species.ID == sp_id[i])%>%
	# select(Species.ID,Length,Gear.Type)
	#
	# s<-SA%>%
	# filter(Species.ID == sp_id[i])%>%
	# select(Species.ID,Length,Gear.Type)
	# t<-rbind(s,l)%>%
	# mutate(Data.Type=ifelse(Gear.Type=="SA","Survey","Fishery"))%>%
	# write.csv(paste("Sept_2016/Data/",sp_id[i],"_length.csv",sep=""))
	# }

	#days <- length(unique(data$Date))
	#boats <- length(unique(data$Vessel.ID..Length))
	#area <- length(unique(data$Area.fished))
	#unique(df[c("data$Date","data$Vessel.ID..Length")])
	#trips <- data.frame(data$Date,data$Vessel.ID..Length)
	#unique_trips <- unique(trips)
	#nrow(unique_trips)
	#nrow(trips)

	#data[data=="POT/LINE"]<-"pots"
	#data[data=="lines"]<-"line"