test.R
In kpadmost/randomForest:
library(rpart)
library(mowRandomForest)
mykip <- data.frame(kyphosis)
names(mykip) <- casefold(names(mykip)) #remove mixed case
f <- mowRandomForest(kyphosis ~ age + number + start, mykip, ntrees = 500, minsplit=6)
p <- predict(f, mykip)
a <- as.numeric(mykip$kyphosis)
print(paste('eq: ', which(p == a)))
print(paste('neq:', which(p != a)))
kpadmost/randomForest documentation built on Feb. 1, 2020, 11 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(rpart)
library(mowRandomForest)
mykip <- data.frame(kyphosis)
names(mykip) <- casefold(names(mykip)) #remove mixed case
f <- mowRandomForest(kyphosis ~ age + number + start, mykip, ntrees = 500, minsplit=6)
p <- predict(f, mykip)
a <- as.numeric(mykip$kyphosis)
print(paste('eq: ', which(p == a)))
print(paste('neq:', which(p != a)))
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.