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]]