Dear Users,


This, substitute(paste(z,sigma)), small code doesn’t work properly with text() within a loop z in –3: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σ 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]]

