Posts

继续阅读

继续阅读

继续阅读

继续阅读

继续阅读

继续阅读

继续阅读

继续阅读

简介 这里记录一些自己编写的R语言函数,以供日常使用参考。 代码部分 1号函数 library(tidyverse) plot_cat_bin <- function(data, predictor, outcome, reorder = F) { data <- data %>% transmute(predictor = !!enquo(predictor), outcome = !!enquo(outcome)) stopifnot(is.factor(data$predictor) | is.logical(data$predictor)) stopifnot(all(data$outcome %in% c(0, 1)) | is.logical(data$outcome)) data <- drop_na(data, outcome) prob_mean

继续阅读

继续阅读