Hi Everyone,
I've been doing the empirical project 11.4. this is my code:
variables <- list(quo(sex), quo(age),
quo(kids_nr), quo(hhnetinc),
quo(member), quo(education))
for (i in seq_along(variables)){
WTP %>%
group_by(abst_format, !!variables[[i]]) %>%
summarize (n = n()) %>%
mutate(freq = n / sum(n)) %>%
select(-n) %>%
spread(abst_format, freq) %>%
print()
}
But i got this error while i run my code:
> WTP %>%
+ group_by(abst_format, !!variables[[i]]) %>%
+ summarize (n = n()) %>%
+ mutate(freq = n / sum(n)) %>%
+ select(-n) %>%
+ spread(abst_format, freq) %>%
+ print()
`summarise()` regrouping output by 'abst_format' (override with `.groups` argument)
Error in spread(., abst_format, freq) : could not find function "spread"
Thank You,
Anastasia