tbl_blister:

In ben-williams/scallopr: ADF&G scallop survey assessment

Usage

tbl_blister(scal_awl, tows)

Arguments

scal_awl
tows

Examples

##---- Should be DIRECTLY executable !! ----

## The function is currently defined as
function (scal_awl, tows)
{
    tbl_names <- c("Bed", "N", "0%", "1-24%", "25-49%", "50-74%",
        "75-100%")

    x <- scal_awl %>%
        left_join(tows) %>%
        filter(!is.na(mud)) %>%
        count(Bed, mud) %>%
        group_by(Bed) %>%
        mutate(prop = round(n/sum(n) * 100, 1)) %>%
        spread(mud, prop) %>%
        replace(is.na(.), 0) %>%
        mutate(`4` = 0) %>%
        summarise(N = sum(n),
                  zero = round(max(`0`), 1),
                  one = round(max(`1`), 1),
                  two = round(max(`2`), 1),
                  three = round(max(`3`), 1),
                  four = round(max(`4`), 1)) %>%
        rename_at(names(.), function(x) tbl_names)
    write_csv(x, here::here(paste0("output/", YEAR, "/mud.csv")))
    x
  }

ben-williams/scallopr documentation built on Nov. 4, 2019, 7:13 a.m.