Hi
I have problem with error:
Error in auc3_(actual, predicted, ranks) : Not compatible with requested type: [type=character; target=double].
nba1718$salaryBinary <- factor(nba1718$salaryBinary)
set.seed(998)
inTraining <- createDataPartition(nba1718$salaryBinary, p = 0.7, list = FALSE, times = 1)
training <- nba1718[inTraining,]
testing <- nba1718[-inTraining,]
fitControl <- trainControl( method = "cv", number = 10, savePredictions = TRUE )
logreg <-
train(
salaryBinary ~ Tm + G + MP + PER + TS. + X3PAr + FTr + ORB. + DRB. + TRB. +
AST. + STL. + BLK. + TOV. + USG. + OWS + DWS + WS + WS.48 + OBPM + DBPM +
BPM + VORP,
data = training,
method = "glm",
family = binomial(),
trControl = fitControl,
tuneGrid = expand.grid(parameter = c(0.001, 0.01, 0.1, 1, 10, 100, 1000))
)
print(logreg)
varImp(logreg)
#Decision tree
dectree <-
train(
salaryBinary ~ Tm + G + MP + PER + TS. + X3PAr + FTr + ORB. + DRB. + TRB. +
AST. + STL. + BLK. + TOV. + USG. + OWS + DWS + WS + WS.48 + OBPM + DBPM +
BPM + VORP,
data = training,
method = "ctree",
trControl = fitControl
)
print(dectree)
varImp(dectree) ##this error
Thanks.