Delete comment from: One R Tip A Day
Paolo said...
I'm not at all a guru! I like R because, nine times out of ten, you can solve problems in short time and, of course, because of his awesome community.
I'm not sure if this is what you're looking for...
##
xt1 <- c(x[(length(x)-cutpoint):length(x)], line)
y1=pmin(x1,x2)
yt1 <- c(y1[(length(y1)-cutpoint):length(y1)],0)
polygon(xt1,yt1, density=50)
##
I advice you to take a look at the package HH, the function normal.and.t.dist() may be of particular interest to you!
Sep 9, 2008, 8:56:00 PM