In einarhjorleifsson/fishdown: Does not matter.

Some thoughts on function flows

Load data to oracle (not run):

library(tidyverse)
library(mar)
db <- connect_mar()

SMB19852016 <- 
  husky::STODVAR %>% 
  bind_rows() %>% 
  filter(tognumer %in% 1:39) %>% 
  select(synis_id = synis.id, ar, toglengd, strata = newstrata)
copy_to(db, SMB19852016, temporary = FALSE)

LWCOEFF <- bind_rows(husky::LWCOEFF)
LWCOEFF <-
  data_frame(tegund = as.integer(names(LWCOEFF)),
             a = as.numeric(LWCOEFF[1,]),
             b = as.numeric(LWCOEFF[2,])) %>% 
  filter(!is.na(tegund)) %>% 
  arrange(tegund)
copy_to(src_oracle("mar"), LWCOEFF, temporary = FALSE)

STRATAS <-
  husky::stratas_df
copy_to(src_oracle("mar"), STRATAS, temporary = FALSE)

NEWSTRATAS <-
  husky::newstratas_df
copy_to(src_oracle("mar"), NEWSTRATAS, temporary = FALSE)

Length based:

• By station:
  • Calculate for a complete length range
  • Raise by counted
  • Convert to biomass via lwcoefficient
  • Standardize by tow / trim tow
  • Standardize by area swept

einarhjorleifsson/fishdown documentation built on June 26, 2022, 2:31 p.m.