nwos_plot_response_rate_replicates: NWOS Plot Response Rates for Replicates

View source: R/nwos_plot_response_rate_replicates.R

nwos_plot_response_rate_replicatesR Documentation

NWOS Plot Response Rates for Replicates

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

familyforestresearchcenter/nwos documentation built on April 12, 2025, 11:54 a.m.