x<-seq(0,2*pi,length=1001)
fx<-fdata(sin(x)/sqrt(pi),x)
fx0<-fdata(rep(0,length(x)),x)
int.simpson(fx0$data,fx$data)
int.simpson(fx)
int.simpson2(fx$argvals,fx$data^2)
int.simpson2(fx$argvals,fx$data^2,method="TRAPZ")
int.simpson2(fx$argvals,fx$data^2,method="ESR")Run the code above in your browser using DataLab