calcParticipation: Calculate participation rate

In chrischizinski/huntfishapp: Exploratory Data Analysis Application for Hunting, Fishing, and Outdoor Recreation

Description

Calculate participation rate by group. Participation rate is the number of customers divided by the population size.

Usage

calcParticipation(df, groupVars, pop)

Arguments

df	A data frame
groupVars	A character vector of variable names to group by
pop	A dataframe of population by county, year, gender, and age group.

See Also

Other analysis functions: calcChurn, calcGenderProportion, calcRecruitment, countCustomers, countItems, itemGroupCount, sumRevenue

Examples

# Get list of valid counties (used to filter out data entry errors)
validCounties <- countyMaps %>%
  dplyr::filter(region == "nebraska") %>%
  dplyr::distinct(county) %>%
  dplyr::pull(county)

# Demo data: Participation rate for customers purchasing a fishing
# license between 2010 and 2017
filterData(
  dataSource = "csv",
  activeFilters = list(itemType = "Fish", itemYear = c(2010, 2017), state = "NE")
) %>%
  calcParticipation(c("itemType", "county"),
    pop = statePop %>% filter(state == "NE")
  ) %>%
  dplyr::filter(county %in% validCounties)
## Not run: 
# Database connection. Suggest using keyring package to avoid hardcoding
# passwords
myConn <- DBI::dbConnect(odbc::odbc(),
  dsn = "HuntFishApp", # Your datasource name
  uid = keyring::key_get("HuntFishAppUID"), # Your username
  pwd = keyring::key_get("HuntFishAppPWD")
) # Your password

# Get list of valid counties (used to filter out data entry errors)
validCounties <- countyMaps %>%
  dplyr::filter(region == "nebraska") %>%
  dplyr::distinct(county) %>%
  dplyr::pull(county)

# SQL Backend: Participation rate for customers purchasing a fishing
# license between 2010 and 2017
filterData(
  dataSource = "sql",
  conn = myConn,
  activeFilters = list(itemType = "Fish", itemYear = c(2010, 2017), state = "NE")
) %>%
  calcParticipation(c("itemType", "county"),
    pop = statePop %>% filter(state == "NE")
  ) %>%
  dplyr::filter(county %in% validCounties)

## End(Not run)

chrischizinski/huntfishapp documentation built on Sept. 7, 2020, 12:14 p.m.