nwos_response_rate_apply: NWOS Replicate Response Rates

In bbutler01/nwos: NWOS Weights and Estimates

Description

This function calculates response rates for NWOS replicates and is designed to be used with an apply function, such as sapply.

Usage

nwos_response_rate(index.rep, index, stratum, response)

Arguments

index.rep	list of observations (i.e., replicates) to include.
index	vector used to identify the location of values in the other vectors (e.g., row names).
stratum	vector indicating inclusion (1) and exclusion (0) in the stratum of interest. NA's are allowed.
response	vector indicating response (1) and non-response (0).

Value

Response rate in the stratum.

References

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.

Examples

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

bbutler01/nwos documentation built on Aug. 30, 2019, 12:57 p.m.