## Not run: ------------------------------------
# # Plotting the robust kernel from Savchuk and Hart (2017) with alpha=16.8954588 and sigma=1.01.
# u=seq(-5,5,len=1000)
# ker=H_I(u,16.8954588,1.01)
# dev.new()
# plot(u,ker,'l',lwd=3,cex.axis=1.7, cex.lab=1.7)
# title(main="Robust kernel H_I along with the Gaussian kernel (phi)",cex=1.7)
# lines(u,dnorm(u),lty="dashed",lwd=3)
# legend(-4.85,0.3,lty=c("solid","dashed"),lwd=c(3,3),legend=c("H_I","phi"),cex=1.5)
# legend(1,0.4,legend=c("alpha=16.8955","sigma=1.01"),cex=1.5,bty="n")
## ---------------------------------------------
Run the code above in your browser using DataLab