R help - Feb 2006 - print formula on plot

I estimate some parameters and I want to print them (pretty) on my plot:

# somehow estimated parameters
z<-c(1.543523e+00, 1.23453e+00, 3.454000e+00)

x<-seq(-1,1,length=100)
plot(x,z[3]*x^2+z[2]*x+z[3],type="l", main="My nice plot of the
estimated function")
zs<-format(z,digits=4,scientific=FALSE,trim=TRUE)

text(-0.9,7,expression(1.54*x^2))                   # is what I want,
but DYNAMIC
text(-0.9,6,expression(paste(zf[1],x^3)))         # not really
text(-0.9,5,expression(paste(toSting(zf[1]),x^3)))  # not really
#using z (double) instead of zf (string) does not help.

So my question is:
How do I evaluate zf[1] from the variable to it's (String) value? Here
it is used within an expression: this makes all the trouble.

Thanks for help, I tried 2 hrs now...
Thomas

I found it immediately after posting :(

substitute is my friend:

text(0.5,5,substitute(f[Sv] ==k*x^2, list(k=zf[1])))

Only put the expression inside the expression?
> plot(x,z[3]*x^2+z[2]*x+z[3],type="l", main="My nice
plot")
> text(-0.9,5,paste(zs[1],' ',expression(x^3)))  # should work
____________________________
Robert W. Baer, Ph.D.
Associate Professor
Department of Physiology
A. T. Still University of Health Science
800 W. Jefferson St.
Kirksville, MO 63501-1497 USA
----- Original Message ----- 
From: "Thomas Steiner" <finbref.2006 at gmail.com>
To: <r-help at stat.math.ethz.ch>
Sent: Wednesday, February 08, 2006 7:47 AM
Subject: [R] print formula on plot

> I estimate some parameters and I want to print them (pretty) on my plot:
>
> # somehow estimated parameters
> z<-c(1.543523e+00, 1.23453e+00, 3.454000e+00)
>
> x<-seq(-1,1,length=100)
> plot(x,z[3]*x^2+z[2]*x+z[3],type="l", main="My nice plot of
the
> estimated function")
> zs<-format(z,digits=4,scientific=FALSE,trim=TRUE)
>
> text(-0.9,7,expression(1.54*x^2))                   # is what I want,
> but DYNAMIC
> text(-0.9,6,expression(paste(zf[1],x^3)))         # not really
> text(-0.9,5,expression(paste(toSting(zf[1]),x^3)))  # not really
> #using z (double) instead of zf (string) does not help.
>
> So my question is:
> How do I evaluate zf[1] from the variable to it's (String) value? Here
> it is used within an expression: this makes all the trouble.
>
> Thanks for help, I tried 2 hrs now...
> Thomas
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html
>

Also see ?bquote

On 2/8/06, Thomas Steiner <finbref.2006 at gmail.com>
wrote:
> I found it immediately after posting :(
>
> substitute is my friend:
>
> text(0.5,5,substitute(f[Sv] ==k*x^2, list(k=zf[1])))
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html
>