View source: R/nwos_plot_response_rate_replicates_state.R
nwos_plot_response_rate_replicates_state | R Documentation |
This function calculates response rates for NWOS replicates and is designed to be used with an apply function, such as sapply.
nwos_response_rate_replicates_state(state, data = po, s.name = "FFO", r.name = "RESPONSE")
state |
= state |
data |
= po |
s.name |
= "FFO" |
r.name |
= "RESPONSE" |
Response rate in the stratum.
Butler, B.J. In review. Weighting for the US Forest Service, National Woodland Owner Survey. U.S. Department of Agriculture, Forest Service, Northern Research Station. Newotwn Square, PA.
wi <- tbl_df(read.csv("data/wi.csv")) %>% mutate(ROW_NAME = row.names(wi), AC_WOOD = ACRES_FOREST, FFO = if_else(LAND_USE == 1 & OWN_CD == 45 & AC_WOOD >= 1, 1, 0), RESPONSE = if_else(RESPONSE_PROPENSITY >= 0.5, 1, 0), RESPONSE = if_else(is.na(RESPONSE_PROPENSITY), 0, RESPONSE))
WI_FFO_RR_REP <- sapply(WI_REPLICATES, nwos_response_rate_apply, index = wi$ROW_NAME, stratum = wi$FFO, response = wi$RESPONSE)
WI_FFO_RR_REP
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.