data(XX)
V<-translator(XX[[3]],100)
YY<-vector("list",length=100)
for(i in 1:100){
YY[[i]]<-generator(V,,,)
}
M<-Mmean(YY)
M
plot(M,type="l",xlim=c(-3,4))
lines(V,type="l",col="red",lwd=2)Run the code above in your browser using DataLab