2.1. Response to CATI-based recruitment attempts (Table 1 in the paper)

The table provides details about the different stages in the recruitment process and indicates the impact of incentives on the telephone recruitment effort.

# Table with absolute frequencies
t1 <- WaveOne %>%
  filter(is.na(PUMA1)==FALSE) %>%
  filter(datenotok=="Datum ident" | is.na(datenotok)) %>%
  with(table(PUMA1,Pumavers)) %>%
  vcd::mar_table() 

# Table with relative frequencies
t2 <- WaveOne %>%
  filter(is.na(PUMA1)==FALSE) %>%
  filter(datenotok=="Datum ident" | is.na(datenotok)) %>%
  with(table(PUMA1,Pumavers)) %>%
  cbind(table(WaveOne$PUMA1)) %>%
  prop.table(2) %>%
  vcd::mar_table()

# Combine both tables
paste0(t1, " (", scales::percent(t2[,1:5], accuracy = 0.1), ")") %>%
  matrix(ncol = 5) %>%
  cbind(c("Yes, I’ll participate (Internet access available)",
          "Yes, perhaps (please send me more information)",
          "Yes, I’m essentially interested, but I don’t have internet access",
          "No, I cannot participate for other reasons (such as German-language skills)",
          "No, I’m not interested",
          "Total"
  ),.) %>%
  as.data.frame() %>%
  setNames(c("Answer",
             "Brochure",
             "2€ token",
             "5€ token",
             "Voucher",
             "Total")) %>%
  kable("html") %>%
  kable_styling("striped") %>%
  column_spec(1, width = "30em")