书内184页内的代码可能有误

[kongjianyang]

同时修改列名的方法：

my_summarise = function(data, mean_var, sd_var) { data %>% summarise("mean_{{mean_var}}" := mean({{mean_var}}), "sd_{{sd_var}}" := mean({{sd_var}})) }

应该是

my_summarise = function(data, mean_var, sd_var) { data %>% summarise("mean_{{mean_var}}" := mean({{mean_var}}), "sd_{{sd_var}}" := sd({{sd_var}})) }

第二列应该想求的是SD