u010380670的博客

衍生变量 data1 <- read.csv("数据转换数据.csv",na.strings = NA) #日期格式转换 data1$registration <- as.Date(paste(substr(data1$registration,1,4), substr(data1$registration,5,6...

dummyVars(formula, data, sep = “.”, levelsOnly = FALSE, fullRank = FALSE, …) sep:因子变量名及其级别之间的可选分隔符。使用sep = NULL表示没有分隔符(即模型的正常行为)。 data4 <- read.csv("玩家玩牌数据.csv") head(data4) library(VIM) aggr(data...

查看数据缺失情况 questionnaire <- read.csv("问卷调研数据.csv",header = TRUE) dim(questionnaire)#查看行数和变量 library(VIM) aggr(questionnaire[,-1],prop=FALSE,numbers=TRUE)#不要序号，以绝对数显示，有标签 建立逻辑回归模型，对性别进行预测 for(i in 2...