fplot(mosaic:::.oldD(sin),xlim=c(-2*pi,2*pi))
fplot(mosaic:::.oldAntiD(sin),xlim=c(-2*pi,2*pi))
fplot( list( sin, mosaic:::.oldD(sin), mosaic:::.oldD(sin,2) ), xlim=c(-2*pi, 2*pi) )
f <- mosaic:::.oldAntiD(cos)
f(1)
sin(1)
Run the code above in your browser using DataLab