# NOT RUN {
hingefunction <- getHinge()
## plot hinge function value and, if specified, the majorization function at z
plot(hingefunction,z=3)
## generate loss function value
loss <- hingefunction(q = -10:10 ,y = 1)$loss
loss
# }
Run the code above in your browser using DataLab