winsorZ(psydat$iq)
if (FALSE) {
psydat %>%
dplyr::select(c(iq, anxT)) %>%
map(winsorZ)
psydat %>% mutate_at(c("iq", "anxT"), list(~ winsorZ(.)))
psydat %>% mutate_if(is.double, list(~ winsorZ(.)))
}
Run the code above in your browser using DataLab