## Not run: ------------------------------------
# dev.new()
# plot(seq(-3.5,3.5,len=1000),fstar(seq(-3.5,3.5,len=1000)),'l',lwd=3,
# main="Nonsmooth density fstar with seven cusps", xlab="argument", ylab="density",cex.main=1.5,
# cex.axis=1.7,cex.lab=1.7)
## ---------------------------------------------
Run the code above in your browser using DataLab