inst/doc/bmrm.R

## ---- echo=TRUE, results='hide'------------------------------------------
    library(bmrm)
    x <- cbind(intercept=100,data.matrix(iris[c("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width")]))
    w <- nrbm(softMarginVectorLoss(x,iris$Species))
    table(target=iris$Species,prediction=predict(w,x))

Try the bmrm package in your browser

Any scripts or data that you put into this service are public.

bmrm documentation built on May 2, 2019, 2:49 p.m.