通过通过SplitUplift
分割数据集,这2组训练和验证以及split.data1
都是列表。
如果我尝试创建DualUplift
函数,则结果为错误
contrasts<-(*tmp*, value = contr.funs[1 + isOF[nn]])
中的错误:
对比只能应用于2个或更多级别的因素
我尝试通过以下方式更改数据框中的SplitUplift
:
使用:
split.data1<- SplitUplift(data1, 0.5, group = c("train","visit"))
str(split.data1)
split.data2 <- data.frame(split.data1)
str(split.data2)
这将导致
训练错误[,1:9]:尺寸错误。
read.csv(*Used dataset*)
data1 <- read.csv2(*Used dataset*)
library(tools4uplift)
library(dummies)
set.seed(1988)
group = c("train", "visit")
split.data1<- SplitUplift(data1, 0.5, group = c("train", "visit"))
str(split.data1)
split.data2 <- data.frame(split.data1)
str(split.data2)
training <- split.data1[[1]]
str(training)
validating <- split.data1[[2]]
"base.tm" <- DualUplift(training, "train", "visit", predictors = colnames(training[,1:9]))
我希望“ base.tm”会有结果,而不是错误消息