merge conflict resolution to merge update_2019 to master

Merge branch 'master' into update_2019

# Conflicts:
#	.gitignore
#	complete_r_script.R
#	data_raw/.gitignore
#	data_raw/README.md
#	metaData/.gitignore
#	metaData/NEUS_6f90fb.csv
#	metaData/README.md
#	metaData/ai/ai_354fd2.csv
#	metaData/ai_354fd2.csv
#	metaData/docs/wcann-data-request-forms/Data Release Non-Confidential Data Request Form 12_15_11_V2.docx
#	metaData/docs/wcann-data-request-forms/Data Release Non-Confidential Data Request Form 12_15_11_V2_RDB_16Jun2016.docx
#	metaData/docs/wcann-data-request-forms/Data Release Non-Confidential Data Request Form 12_15_11_V2_RDB_23Jul2015.docx
#	metaData/docs/wcann-data-request-forms/NWFSC_Trawl_Data_Request_Batt_July2015.pdf
#	metaData/docs/wcann-data-request-forms/NWFSC_Trawl_Data_Request_Batt_June2016.pdf
#	metaData/docs/wcann-data-request-forms/NWFSC_trawl_request_NCA.pdf
#	metaData/docs/wcann/Data Release Non-Confidential Data Request Form 12_15_11_V2.docx
#	metaData/docs/wcann/Data Release Non-Confidential Data Request Form 12_15_11_V2_RDB_16Jun2016.docx
#	metaData/docs/wcann/Data Release Non-Confidential Data Request Form 12_15_11_V2_RDB_23Jul2015.docx
#	metaData/docs/wcann/NWFSC_Trawl_Data_Request_Batt_July2015.pdf
#	metaData/docs/wcann/NWFSC_Trawl_Data_Request_Batt_June2016.pdf
#	metaData/docs/wcann/NWFSC_trawl_request_NCA.pdf
#	metaData/ebs/ebs_121213.csv
#	metaData/ebs_121213.csv
#	metaData/gmex/gmex_25d0f9.csv
#	metaData/gmex_25d0f9.csv
#	metaData/goa/goa_2f7db6.csv
#	metaData/goa_2f7db6.csv
#	metaData/neus/NEUS_6f90fb.csv
#	metaData/ocean_adapt_docs/Ocean Adapt Report - 6-30-2016.docx
#	metaData/sample_data/NEUS_6f90fb.csv
#	metaData/sample_data/ai_354fd2.csv
#	metaData/sample_data/ebs_121213.csv
#	metaData/sample_data/gmex_25d0f9.csv
#	metaData/sample_data/goa_2f7db6.csv
#	metaData/sample_data/wcann_515e03.csv
#	metaData/sample_data/wctri_5c6851.csv
#	metaData/wcann/Data Release Non-Confidential Data Request Form 12_15_11_V2.docx
#	metaData/wcann/Data Release Non-Confidential Data Request Form 12_15_11_V2_RDB_16Jun2016.docx
#	metaData/wcann/Data Release Non-Confidential Data Request Form 12_15_11_V2_RDB_23Jul2015.docx
#	metaData/wcann/NWFSC_Trawl_Data_Request_Batt_July2015.pdf
#	metaData/wcann/NWFSC_Trawl_Data_Request_Batt_June2016.pdf
#	metaData/wcann/NWFSC_trawl_request_NCA.pdf
#	metaData/wcann/wcann_515e03.csv
#	metaData/wcann_515e03.csv
#	metaData/wctri/wctri_5c6851.csv
#	metaData/wctri_5c6851.csv

data_raw/.gitignore

@@ -1,3 +1,6 @@
 gmex_BGSREC.csv
 seus_catch.csv
+.Rapp.history
+.DS_Store
+.Rhistory
 wcann_catch.csv

figures/map-spp-distribution.Rmd

@@ -0,0 +1,135 @@
+---
+title: "Plot distribution of speices"
+params:
+  title: "Distribution of seafood"
+  subtitle: "lobster, cod, and black sea bass, 1972-2017"
+  save_file: "east-coast-seafood.png"
+output: 
+  html_notebook: default
+  github_document: default
+---
+<!-- To turn this into an R script: -->
+<!-- knitr::purl(map-spp-dist2.Rmd) -->
+
+```{r setup, include=FALSE}
+#This line of code installs the pacman page if you do not have it installed - if you do, it simply loads the package
+if(!require(pacman))install.packages("pacman")
+
+pacman::p_load('dplyr', 'tidyr', 'gapminder',
+               'ggplot2',  'ggalt',
+               'forcats', 'R.utils', 'png', 
+               'grid', 'ggpubr', 'scales',
+               'bbplot', readr, here, ggthemes,
+               install = FALSE)
+
+# regions_of_interest <- c("West Coast Annual", "West Coast Triennial")
+regions_of_interest <- c("Northeast US Spring", "Northeast US Fall")
+# species_of_interest <- c("Doryteuthis opalescens", "Gadus chalcogrammus", "Sebastes pinniger")
+species_of_interest <- c("HOMARUS AMERICANUS", "Gadus morhua", "GADUS MORHUA", "Homaurs americanus", "CENTROPRISTIS STRIATA")
+# map_regions <- c("Canada", "USA")
+map_regions <- c("USA")
+```
+
+
+Start with data
+```{r fish data}
+oa <- read_csv(here("data_clean", "dat_exploded.csv"), col_types = cols(
+  region = col_character(),
+  haulid = col_character(),
+  year = col_double(),
+  lat = col_double(),
+  lon = col_double(),
+  stratum = col_double(),
+  stratumarea = col_double(),
+  depth = col_double(),
+  spp = col_character(),
+  common = col_character(),
+  wtcpue = col_double()
+))
+
+# some rows imported with problems of trailing whitespace in the stratum column
+prob <- problems(oa)
+
+prob$actual <- trimws(prob$actual)
+
+# fix those rows in the oa data set
+oa$stratum[prob$row] <- prob$actual
+rm(prob)
+
+# filter out just what is needed for the map
+oa <- oa %>%
+  filter(region %in% regions_of_interest, 
+         spp %in% species_of_interest) %>%
+  mutate(lon = ifelse(region == "Aleutian Islands" & !grepl("-", lon), as.numeric(paste0("-", lon)), lon))
+
+# calculate annual means for each variable
+oa_mean <-  oa %>% 
+  mutate(year = as.integer(year), 
+         spp = ifelse(spp == "HOMARUS AMERICANUS", "Homaurs americanus", spp), 
+         spp = ifelse(spp == "GADUS MORHUA", "Gadus morhua", spp)) %>% 
+  group_by(year, spp, common) %>% 
+  summarise(lat = mean(lat), 
+            lon = mean(lon), 
+            wtcpue = mean(wtcpue)) %>% 
+  ungroup() 
+```
+```{r map data}
+coastal_map <- map_data("world") %>% 
+  filter(region %in% map_regions) %>%
+  mutate(long = ifelse(!grepl("-", long) & subregion == "Alaska", paste0("-", long), long), 
+         long = as.numeric(long)) %>%
+  filter(long >= min(oa$lon), long <= (max(oa$lon)+4))
+```
+
+Make the plot
+```{r plot map}
+map <- ggplot(data = coastal_map) +
+ geom_polygon(aes(x = long, y = lat, group = group), fill = "gray80", colour = "gray85") + coord_fixed(1.3) +
+  theme_map()
+
+plot(map)
+```
+
+```{r plot data}
+spp_plot <- map +
+  geom_point(data = oa_mean, aes(lon, lat
+                                 # , size = wtcpue
+                                 # , size = year
+                                 , color = common
+                                 , alpha = year
+                                 )) +
+  scale_color_manual(values = c("olivedrab4", "darkorange3", "dodgerblue3")) + 
+  bbc_style() +
+  theme(legend.position = "none",
+        axis.text.x = element_blank(), 
+        axis.text.y = element_blank()) +
+  labs(title = params$title,
+       subtitle = params$subtitle)+
+  theme(plot.subtitle = element_text(size = 12)) +
+  theme(plot.title = element_text(size = 14)) +
+  theme(legend.position = c(1, 0.25)) +
+  theme(legend.text = element_text(size = 10))
+
+plot(spp_plot)
+
+finalise_plot(
+  plot_name = spp_plot, 
+  source = "Source: Rutgers OceanAdapt", 
+  save_filepath = here("metaData", "media", params$save_file)
+)
+```
+Make a legend that is a barbell plot
+```{r}
+
+#Make plot
+ggplot()+
+  geom_dumbbell(data = oa_mean, aes(x = min(oa_mean$year), xend = max(oa_mean$year), y = common, group = common, alpha = year, color = common)) + 
+   scale_color_manual(values = c("olivedrab4", "darkorange3", "dodgerblue3")) +
+  facet_wrap( ~ common)
+# + 
+#   bbc_style() 
+```
+
+
+
+

figures/test-handout.Rmd

@@ -0,0 +1,209 @@
+---
+title: "OceanAdapt at Rutgers University"
+author: "Dr. Malin Pinsky  malin.pinsky@rutgers.edu"
+email: "malin.pinsky@rutgers.edu"
+params:
+  alpha: 0.25
+  subtitle_size: 14
+  title_colour: dodgerblue3
+  title_size: 21
+output:
+  pdf_document: default
+  github_document: default
+  html_document: default
+  word_document: default
+subtitle: Exploring changes in marine species distributions
+---
+
+______
+
+<!-- None of this handout was used in this format, we got rid of all features that required R code and so moved to google docs, which is more GUI formattable.
+https://docs.google.com/document/d/1Z7UwUygCNV6DkxUD8zHlSD9jXtwjYFRObXRMTFd5_uI/edit?usp=sharing
+-->
+
+# [www.oceanadapt.rutgers.edu](http://oceanadapt.rutgers.edu)
+
+**OceanAdapt is a collaboration between the Pinsky Lab of Rutgers University and the National Marine Fisheries Service (NMFS).**  
+
+
+We provide information about the impacts of changing climate and other factors on the distribution of marine life to the National Climate Assessment, fisheries communities, policymakers, and to others.   
+
+This website hosts an annually updated database of scientific surveys in the United States and provides tools for exploring changes in marine fish and invertebrate distributions. We are continually working to expand the site with new data and visualization tools.
+
+```{r setup, include=FALSE}
+#This line of code installs the pacman page if you do not have it installed - if you do, it simply loads the package
+if(!require(pacman))install.packages("pacman")
+
+# change install to true if you want to install any packages listed that you don't currently have.
+pacman::p_load(tidyverse, here, maps, ggthemes, grid, install = FALSE)
+
+
+multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL) {
+  library(grid)
+  
+  # Make a list from the ... arguments and plotlist
+  plots <- c(list(...), plotlist)
+  
+  numPlots = length(plots)
+  
+  # If layout is NULL, then use 'cols' to determine layout
+  if (is.null(layout)) {
+    # Make the panel
+    # ncol: Number of columns of plots
+    # nrow: Number of rows needed, calculated from # of cols
+    layout <- matrix(seq(1, cols * ceiling(numPlots/cols)),
+                     ncol = cols, nrow = ceiling(numPlots/cols))
+  }
+  
+  if (numPlots==1) {
+    print(plots[[1]])
+    
+  } else {
+    # Set up the page
+    grid.newpage()
+    pushViewport(viewport(layout = grid.layout(nrow(layout), ncol(layout))))
+    
+    # Make each plot, in the correct location
+    for (i in 1:numPlots) {
+      # Get the i,j matrix positions of the regions that contain this subplot
+      matchidx <- as.data.frame(which(layout == i, arr.ind = TRUE))
+      
+      print(plots[[i]], vp = viewport(layout.pos.row = matchidx$row,
+                                      layout.pos.col = matchidx$col))
+    }
+  }
+}
+
+
+
+```
+
+
+```{r data prep, echo=FALSE, message=FALSE, warning=FALSE, eval=FALSE, include=FALSE}
+oa <- read_csv(here("data_clean", "dat_exploded.csv"), col_types = cols(
+  region = col_character(),
+  haulid = col_character(),
+  year = col_double(),
+  lat = col_double(),
+  lon = col_double(),
+  stratum = col_double(),
+  stratumarea = col_double(),
+  depth = col_double(),
+  spp = col_character(),
+  common = col_character(),
+  wtcpue = col_double()
+)) 
+
+# some rows imported with problems of trailing whitespace in the stratum column
+prob <- problems(oa)
+
+prob$actual <- trimws(prob$actual)
+
+# fix those rows in the oa data set
+oa$stratum[prob$row] <- prob$actual
+rm(prob)
+
+bass <- oa %>% 
+  filter(grepl("black sea bass", common))
+
+east_coast <- subset(map_data("state"), region %in% c("maine", "vermont", "new hampshire", "massachusets", "connecticut", "rhode island", "new york", "new jersey", "delaware", "maryland", "virginia", "north carolina", "south carolina", "georgia", "florida", "pennsylvania"))
+
+```
+
+
+
+```{r all years, eval=FALSE, include=FALSE, echo=FALSE}
+# Skipping this chunk because we want to split maps up into 1960's and 2010's
+
+map_bass <-  bass %>% 
+  group_by(region, year, spp) %>% 
+  summarise(lat = mean(lat), 
+            lon = mean(lon), 
+            wtcpue = mean(wtcpue)) %>% 
+  ungroup() %>% 
+  mutate(year = as.integer(year))
+
+map <- ggplot(data = east_coast)+
+  geom_polygon(aes(x = long, y = lat, group = group), fill = "gray80", colour = "gray85")+
+  coord_fixed(1.3)
+
+map_of_bass <- map + 
+  geom_point(data = map_bass, aes(lon, lat, size = wtcpue
+                                  , color = year)
+             , alpha = 0.1
+             , show.legend = FALSE)+
+  theme_map()+
+  labs(title = "Distribution of black sea bass, Centropristis striata, from 1970-2017") 
+
+
+  map_of_bass + 
+    scale_fill_gradientn(colours = heat.colors(47))
+```
+
+```{r early, eval=FALSE, include=FALSE, echo=FALSE}
+early <-  bass %>% 
+  filter(year <= 1980) %>% 
+  group_by(region, year, spp) %>% 
+  summarise(lat = mean(lat), 
+            lon = mean(lon), 
+            wtcpue = mean(wtcpue)) %>% 
+  ungroup() %>% 
+  mutate(year = as.integer(year))
+
+map <- ggplot(data = east_coast)+
+  geom_polygon(aes(x = long, y = lat, group = group), fill = "gray80", colour = "gray85")+
+  coord_fixed(1.3)
+
+early_map <- map + 
+  geom_point(data = early, aes(lon, lat, size = wtcpue
+                                  , color = year)
+             , alpha = params$alpha
+             , show.legend = FALSE)+
+  theme_map()+
+  labs(title = "Distribution of black sea bass, Centropristis striata", 
+       subtitle= "
+       1970-1980") +
+  theme(plot.title = element_text(size = params$title_size, colour = params$title_colour)) +
+  theme(plot.subtitle = element_text(size = params$subtitle_size))
+```
+
+
+```{r late, eval=FALSE, include=FALSE, echo=FALSE}
+late <-  bass %>% 
+  filter(year >= 2010) %>% 
+  group_by(region, year, spp) %>% 
+  summarise(lat = mean(lat), 
+            lon = mean(lon), 
+            wtcpue = mean(wtcpue)) %>% 
+  ungroup() %>% 
+  mutate(year = as.integer(year))
+
+map <- ggplot(data = east_coast)+
+  geom_polygon(aes(x = long, y = lat, group = group), fill = "gray80", colour = "gray85")+
+  coord_fixed(1.3)
+
+late_map <- map + 
+  geom_point(data = late, aes(lon, lat, size = wtcpue
+                                  , color = year)
+             , alpha = params$alpha
+             , show.legend = FALSE)+
+  theme_map()+
+  # this extra space puts the dates down on the same line as the subtitle from the previous plot
+  labs(subtitle = "
+
+       2010-2017") +
+  theme(plot.subtitle = element_text(size = params$subtitle_size))
+
+```
+```{r 2-up, eval=FALSE, include=FALSE, echo=FALSE}
+multiplot(early_map, late_map, cols = 2)
+```
+<!-- - Size of the circles represent the mean weight caught per unit effort.   -->
+<!-- - Color of the circles represent the year of catch with darker being older.     -->
+<!-- - Location of circled represent the mean latitude and logitude for each year.   -->
+
+### Distribution of Black Sea Bass in the Fall, Northeast US
+![](https://github.com/mpinsky/OceanAdapt/blob/master/metaData/test-handout_files/figure-markdown_github/Screen%20Shot%202019-03-04%20at%203.51.35%20PM.png?raw=true)
+
+![](https://github.com/mpinsky/OceanAdapt/blob/master/metaData/test-handout_files/figure-markdown_github/Screen%20Shot%202019-03-04%20at%203.51.45%20PM.png?raw=true)
+

metaData/docs/ai/.gitignore

@@ -0,0 +1,4 @@
+.Orr et al. 2014 species identification in GoA and AI surveys - NOAA PR2014-01.pdf.icloud
+.Stauffer 2003 groundfish protocols - NOAA tm65.pdf.icloud
+.species_codebook_2011.pdf.icloud
+.von Szalay et al. 2011 NOAA-TM-AFSC-215.pdf.icloud

metaData/sample_data/NEUS_6f90fb.csv

@@ -0,0 +1,7 @@
+"STRATUM","SVSPP","YEAR","SEASON","LAT","LON","DEPTH","CRUISE6","STATION","BIOMASS","ABUNDANCE","SCINAME","Areanmi2"
+1010,"103",1975,"SPRING",39.833333,-73.35,44,197503,33,0,1,"PARALICHTHYS DENTATUS",2516
+1010,"103",1975,"SPRING",40.7,-72.633333,31,197503,80,0,1,"PARALICHTHYS DENTATUS",2516
+1010,"103",1977,"SPRING",39.883333,-72.75,56,197702,139,0.83969465648855,2,"PARALICHTHYS DENTATUS",2516
+1010,"103",1978,"SPRING",40.3,-72.5,51,197804,157,0.687022900763359,1,"PARALICHTHYS DENTATUS",2516
+1010,"103",1980,"SPRING",40.066667,-72.933333,48,198002,171,0.0763358778625954,1,"PARALICHTHYS DENTATUS",2516
+1010,"103",1980,"SPRING",40.1,-73.783333,31,198002,178,0.152671755725191,1,"PARALICHTHYS DENTATUS",2516

metaData/sample_data/ai_354fd2.csv

@@ -0,0 +1,7 @@
+"STRATUM","LATITUDE","LONGITUDE","STATION","YEAR","DATETIME","WTCPUE","NUMCPUE","COMMON","SCIENTIFIC","SID","BOT_DEPTH","BOT_TEMP","SURF_TEMP","VESSEL","CRUISE","HAUL","Areakm2"
+211,53.07167,172.83167,"38-48",1983,"10/29/1983 23:00",0.008,0.0883,"scissortail sculpin","Triglops forficata",21352,80,4.3,6.8,554,198301,"251        ",3693
+211,53.07167,172.83167,"38-48",1983,"10/29/1983 23:00",0.1481,0.0883,"chum salmon","Oncorhynchus keta",23235,80,4.3,6.8,554,198301,"251      ",3693
+211,53.07167,172.83167,"38-48",1983,"10/29/1983 23:00",0.1241,0.4414,"flathead sole","Hippoglossoides elassodon",10130,80,4.3,6.8,554,198301,"251      ",3693
+211,53.07167,172.83167,"38-48",1983,"10/29/1983 23:00",14.7695,7.6812,"great sculpin","Myoxocephalus polyacanthocephalus",21370,80,4.3,6.8,554,198301,"251     ",3693
+211,53.07167,172.83167,"38-48",1983,"10/29/1983 23:00",0.008,0.0883,"kelp greenling","Hexagrammos decagrammus",21935,80,4.3,6.8,554,198301,"251        ",3693
+211,53.07167,172.83167,"38-48",1983,"10/29/1983 23:00",0.016,1.7658,"Pacific sand lance","Ammodytes hexapterus",20202,80,4.3,6.8,554,198301,"251      ",3693

metaData/sample_data/ebs_121213.csv

@@ -0,0 +1,7 @@
+"STRATUM","LATITUDE","LONGITUDE","STATION","YEAR","DATETIME","WTCPUE","NUMCPUE","COMMON","SCIENTIFIC","SID","BOT_DEPTH","BOT_TEMP","SURF_TEMP","VESSEL","CRUISE","HAUL","Areakm2"
+"10",58.65167,-164.65167,"L-06",1982,"06/14/1982 17:00",4.7416,2.727,"walleye pollock","Theragra chalcogramma",21740,40,1.5,3.6,1,198203,"49",77871
+"10",58.65167,-164.65167,"L-06",1982,"06/14/1982 17:00",0.6186,NA,"ridged crangon","Crangon dalli",66530,40,1.5,3.6,1,198203,"49",77871
+"10",58.65167,-164.65167,"L-06",1982,"06/14/1982 17:00",0.3093,NA,"circumboreal toad crab","Hyas coarctatus",68577,40,1.5,3.6,1,198203,"49",77871
+"10",58.65167,-164.65167,"L-06",1982,"06/14/1982 17:00",0.4638,NA,"hermit crab unident.","Paguridae",69010,40,1.5,3.6,1,198203,"49",77871
+"10",58.65167,-164.65167,"L-06",1982,"06/14/1982 17:00",0.5463,NA,"helmet crab","Telmessus cheiragonus",68781,40,1.5,3.6,1,198203,"49",77871
+"10",58.65167,-164.65167,"L-06",1982,"06/14/1982 17:00",0.8247,NA,"red king crab","Paralithodes camtschaticus",69322,40,1.5,3.6,1,198203,"49",77871

metaData/sample_data/gmex_25d0f9.csv

@@ -0,0 +1,7 @@
+"CRUISEID","VESSEL","BIO_BGS","STATIONID","CRUISE_NO","P_STA_NO","BGSID","CATEGORY","GENUS_BGS","SPEC_BGS","BGSCODE","CNTEXP","SELECT_BGS","INVRECID","GEAR_SIZE","GEAR_TYPE","MESH_SIZE","OP","MIN_FISH","TIME_ZN","TIME_MIL","S_LATD","S_LATM","S_LOND","S_LONM","DEPTH_SSTA","MO_DAY_YR","E_LATD","E_LATM","E_LOND","E_LONM","TEMP_SSURF","TEMP_BOT","VESSEL_SPD","COMSTAT","TAXONOMIC","TITLE"
+5,4,"108020000",57649,127,36878,767556,3,"CARCHAR","HIIDA","",1,22.68,49330,40,"ST",1.63,"",21,"4","132",29,2.8,89,56,25.6,"1982-06-19",29,1.7,89,56.1,30.5,23.61,3,"LOST SHARK FROM MOUTH OF ET","CARCHARHIIDAE","Summer SEAMAP Groundfish Survey"
+5,4,"108021802",57724,127,36953,769055,3,"RHIZOPR","TERRAE","",4,4.565,49387,40,"ST",1.63,"",27,"4","2041",28,51.5,94,23.5,23.8,"1982-07-01",28,50.3,94,23.5,30.14,24.53,3,"","RHIZOPRIOODO TERRAEOVAE","Summer SEAMAP Groundfish Survey"
+5,4,"108021802",57774,127,37003,770355,3,"RHIZOPR","TERRAE","",1,3.266,49426,40,"ST",1.63,"",30,"4","206",28,21,95,49.4,25.6,"1982-07-08",28,19.5,95,48.2,NA,NA,3,"SIGLE TOW","RHIZOPRIOODO TERRAEOVAE","Summer SEAMAP Groundfish Survey"
+5,4,"108031101",57633,127,36862,767311,3,"MUSTELU","CAIS","",1,7.258,49317,40,"ST",1.63,"",11,"4","48",28,51.1,89,28.3,45.7,"1982-06-17",28,50.5,89,28.6,28.33,19.94,3,"O BTM GRAB CURRET TOO STROG","MUSTELUS CAIS","Summer SEAMAP Groundfish Survey"
+5,4,"108031101",57691,127,36920,768432,3,"MUSTELU","CAIS","",1,2.948,49366,40,"ST",1.63,"",16,"4","239",28,12.8,91,52.8,73.2,"1982-06-25",28,11.6,91,53.1,31.05,18.5,3,"","MUSTELUS CAIS","Summer SEAMAP Groundfish Survey"
+5,4,"110040205",57560,127,36789,766224,3,"RAJA","EGLAT","",1,0.68,49271,40,"ST",1.63,"",30,"4","2301",29,29.3,88,51.9,14.6,"1982-06-01",29,28.4,88,51,30,23.89,2.5,"","RAJA EGLATERIA","Summer SEAMAP Groundfish Survey"

metaData/sample_data/goa_2f7db6.csv

@@ -0,0 +1,7 @@
+"STRATUM","LATITUDE","LONGITUDE","STATION","YEAR","DATETIME","WTCPUE","NUMCPUE","COMMON","SCIENTIFIC","SID","BOT_DEPTH","BOT_TEMP","SURF_TEMP","VESSEL","CRUISE","HAUL","Areakm2"
+"10",54.00767,-165.42167,"55-41",1984,"07/13/1984 14:00",4.8096,1.8644,"Pacific halibut","Hippoglossus stenolepis",10120,84,6.2,7.2,57,198401,"106",8333
+"10",54.00767,-165.42167,"55-41",1984,"07/13/1984 14:00",7.8754,17.2456,"arrowtooth flounder","Atheresthes stomias",10110,84,6.2,7.2,57,198401,"106",8333
+"10",54.00767,-165.42167,"55-41",1984,"07/13/1984 14:00",0.1058,0.4661,"flathead sole","Hippoglossoides elassodon",10130,84,6.2,7.2,57,198401,"106",8333
+"10",54.00767,-165.42167,"55-41",1984,"07/13/1984 14:00",0.1585,0.6991,"yellow Irish lord","Hemilepidotus jordani",21347,84,6.2,7.2,57,198401,"106",8333
+"10",54.00767,-165.42167,"55-41",1984,"07/13/1984 14:00",26.2158,13.5168,"Pacific cod","Gadus macrocephalus",21720,84,6.2,7.2,57,198401,"106",8333
+"10",54.00767,-165.42167,"55-41",1984,"07/13/1984 14:00",0.0529,NA,"Oregon triton","Fusitriton oregonensis",72500,84,6.2,7.2,57,198401,"106",8333