Dear Users,
This, substitute(paste(z,sigma)), small code doesn¡¦t work properly with text()
within a loop z in ¡V3:3, except if i don¡¦t use print(z) while plotting. What
may be the problem? This code is used in a user defined function. It was running
in older versions.
Thanks in advance.
plot(x,type="l",ylim=c(alt,ust))
for(z in -3:3)
{
if(abs(z)==3)
{
metin=substitute(paste(z,sigma));print(z) #if i don¡¦t use print(z),
in plot, only 3£m is seen.
abline(h=mean(x)+z*sd(x),col="red")
text(15,mean(x)+z*sd(x)-.1,col="red",metin)
}
else if(abs(z)==2)
{
metin=substitute(paste(z,sigma));print(z)
abline(h=mean(x)+z*sd(x),col="blue")
text(15,mean(x)+z*sd(x)-.1,col="blue",metin)
}
else if(abs(z)==1)
{
metin<-substitute(paste(z,sigma));print(z)
abline(h=mean(x)+z*sd(x),col="green")
text(15,mean(x)+z*sd(x)-.1,col="green",metin)
}
else
{
metin=substitute(paste(mu))
abline(h=mean(x)+z*sd(x))
text(15,mean(x)+z*sd(x)-.1,metin)
}
}
Levent TERLEMEZ
[[alternative HTML version deleted]]