刚刚学R， 很多问题还不清楚，希望高手指点，谢谢
题目要求：用几种不同的核函数来拟合标准正态分布的样本？
现在假设，假设窗宽用CV方法得到，我自己写的程序如下核函数分别为 高斯，epanechnikov，cos，不道是否正确？还有如果核密度函数为均匀分布，该怎么拟合呢？

#simulation de loi normale
x<-rnorm(300,mean=0,sd=sqrt(1))
hist(x,main="n=300 l'histogramme d'échantillon gaussien",lwd=3)

#noyau gaussien
x<-rnorm(300,0,1)
plot(density(x, bw="ucv",kernel = c("gaussian")), lwd=3,main="noyau gaussien")
rug(x)

#noyau epanechnikov
plot(density(x, bw="ucv",kernel = c("epanechnikov")), lwd=3,main="noyau epanechnikov")


#noyau triangulaire
plot(density(x, bw="ucv",kernel = c("triangular")), lwd=3,main="noyau triangulaire")

#noyau cosine
plot(density(x, bw="ucv",kernel = c("cosine")), lwd=3,main="noyau cosine")