context("classif_logreg")
test_that("classif_logreg", {
# "did not converge":
m = glm(formula = binaryclass.formula, data = binaryclass.train, family = binomial)
p = predict(m, newdata = binaryclass.test, type = "response")
p.prob = 1 - p
p.class = as.factor(binaryclass.class.levs[ifelse(p > 0.5, 2, 1)])
testSimple("classif.logreg", binaryclass.df, binaryclass.target, binaryclass.train.inds, p.class)
testProb("classif.logreg", binaryclass.df, binaryclass.target, binaryclass.train.inds, p.prob)
tt = function(formula, data) {glm(formula, data = data, family = binomial)}
tp = function(model, newdata) {
p = predict(model, newdata, type = "response")
as.factor(binaryclass.class.levs[ifelse(p > 0.5, 2, 1)])
}
testCV("classif.logreg", binaryclass.df, binaryclass.target, tune.train = tt, tune.predict = tp)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.