[R] curvedarrow (some graphics problem)

[casperyc]

Hi there,

I just wonder how to draw this kind of picture...

http://www.nabble.com/file/p24158796/b.jpg 
http://www.nabble.com/file/p24158796/a.jpg 

and this is what i have done

%%%%%
library(shape)
library(diagram)
curve(sin(x),bty="n",-8,8,yaxt="n",ylab="",xaxt="n",type="n",xlab="")
axis(1,labels=F,at=seq(-8,8,1))
curvedarrow(from=c(-4,-1), to=c(4,-1),curve=-0.035,arr.pos=1,lwd=1)
text(0,-0.62,substitute(mu(s,t)))
axis(1,labels="s",at=-4)
axis(1,labels="t",at=4)
%%%%%

is there any easier way
or
the most proper  way to draw these to graphs?

Thanks in advance!

Chen
-- 
View this message in context: http://www.nabble.com/curvedarrow-%28some-graphics-problem%29-tp24158796p24158796.html
Sent from the R help mailing list archive at Nabble.com.