[R] plot labeling and expressions

[Johannes Graumann]

Hi all,

I'm trying to use an iteration that appends something to vector 'peaklabels'
like so:
peaklabelNames <- append(
        peaklabelNames,
        substitute(i^{z+phantom()}*" ("*a*"AMU)",list(i="y2",z=2,a=0))
)
The vector is supposed to be used with 'text' to put labels on signals in an
impulse plot.

While not vectorized
        substitute(i^{z+phantom()}*" ("*a*"AMU)",list(i="y2",z=2,a=0))
works for me, the vectorized form doesn't. The labels are represented as 
        "y2"^2 (AMU)
(note the '"' in the printed string). Can anyone please give me a hint on
how to resolve this?

Thanks, Joh