## Not run:
# # Graph of the ICV selection kernel with (alpha,sigma)=(2.42,5.06).
# u=seq(-10,10,len=1000)
# kern=L_ICV(u,2.42,5.06)
# dev.new()
# plot(u,kern,'l',lwd=2,ylim=c(-0.2,1.2),ylab="kernel",cex.lab=1.7,cex.axis=1.7,main="")
# lines(u,dnorm(u),lwd=3,lty="dashed")
# title(main="Selection kernel with (alpha,sigma)=(2.42,5.06)",cex.main=1.6)
# legend(-11, 1.2, legend=c("ICV kernel","Gaussian kernel"),lwd=c(3,3),lty=c(1,2),bty="n",cex=1.3)
# ## End(Not run)
Run the code above in your browser using DataLab