# NOT RUN {
x <- cbind(intercept=100,data.matrix(iris[1:2]))
y <- iris[[3]]
w <- bmrm(lmsRegressionLoss(x,y))
w <- bmrm(ladRegressionLoss(x,y))
w <- bmrm(quantileRegressionLoss(x,y,q=0.5))
w <- bmrm(epsilonInsensitiveRegressionLoss(x,y,epsilon=1))
# }
Run the code above in your browser using DataLab