# NOT RUN {
str(iris)
data <- iris[, 1:4]
label <- iris[, 5]
ccp(y = label, d = data, method = "multinom",maxit = 1000,MaxNWts = 2000,trace=FALSE)
ccp(y = label, d = data, method = "multinom")
ccp(y = label, d = data, method = "svm")
ccp(y = label, d = data, method = "svm",kernel="sigmoid",cost=4,scale=TRUE,coef0=0.5)
ccp(y = label, d = data, method = "tree")
p = as.numeric(label)
ccp(y = label, d = p, method = "label")
hum(y = label, d = data,method = "multinom")
hum(y = label, d = data,method = "svm")
hum(y = label, d = data,method = "svm",kernel="linear",cost=4,scale=TRUE)
hum(y = label, d = data, method = "tree")
# }
# NOT RUN {
ests(y = label, d = data,acc="hum",level=0.95,method = "multinom",trace=FALSE)
# }
# NOT RUN {
## $value
## [1] 0.9972
## $sd
## [1] 0.002051529
## $interval
## [1] 0.9935662 1.0000000
# }
Run the code above in your browser using DataLab