## Not run:
# harg=seq(0.01,1,len=100)
# w=c(3/4,1/4)
# mu=c(0,3/2)
# sdev=c(1,1/3)
# # The vectors w, mu, and sdev define the skewed bimodal density of Marron and Wand (1992).
# dat=mixnorm(300,w,mu,sdev)
# h_ISE=round(h_isemixnorm(dat,w,mu,sdev),digits=4)
# ISEarray=ISE_mixnorm(harg,dat,w,mu,sdev)
# dev.new()
# plot(harg,ISEarray,'l',lwd=3,xlab="h, n=300",ylab="ISE",cex.lab=1.7,cex.axis=1.7,main="")
# title(main="ISE(h)",cex.main=1.7)
# legend(0.2,0.08,legend=paste("h_ISE=",h_ISE),cex=2)
# ## End(Not run)
Run the code above in your browser using DataLab