N <- 100
x <- cumsum(rexp(N))
smooth_cumulative <- smooth.spline(x, 1:length(x), df=5)
rate_smooth <- predict(smooth_cumulative, 0 : (N-1)), deriv=1)
plot(rate_smooth, type="l", col="blue", lwd=2)
N <- 100
x <- cumsum(rexp(N))
smooth_cumulative <- smooth.spline(x, 1:length(x), df=5)
rate_smooth <- predict(smooth_cumulative, 0 : (N-1)), deriv=1)
plot(rate_smooth, type="l", col="blue", lwd=2)
You'll need to experiment with the degrees of freedom in the smoother.Last reply 4 days ago
Did Cambridge maths students find maths and further maths a level very easy?Last reply 2 weeks ago
Edexcel A Level Mathematics Paper 2 unofficial mark scheme correct me if wrong71
Last reply 4 days ago
Did Cambridge maths students find maths and further maths a level very easy?Last reply 2 weeks ago
Edexcel A Level Mathematics Paper 2 unofficial mark scheme correct me if wrong71