Displaying 2 results from an estimated 2 matches for "listenom".
Did you mean:
listenoms
2005 Jun 06
2
How to vectorize
...expression(italic(phantom(0)^{137}*Cs)),
expression(italic(phantom(0)^{129*m}*Te))),
cex=3
)
But, since I have a lot of isotopes to write on the plot, I would like
to construct automatically the labels. So I wrote the code below which
works fine.
listenoms <- list(nom=c("Ge","Cs","Te"),num=c("78","137","129*m"))
n <- length(listenoms$nom)
resu <- "c("
for( i in 1:(n-1))
{
resu <- paste(resu,paste("expression(italic(phantom(0)^{",...
2005 Jun 06
2
How to vectorize
...expression(italic(phantom(0)^{137}*Cs)),
expression(italic(phantom(0)^{129*m}*Te))),
cex=3
)
But, since I have a lot of isotopes to write on the plot, I would like
to construct automatically the labels. So I wrote the code below which
works fine.
listenoms <- list(nom=c("Ge","Cs","Te"),num=c("78","137","129*m"))
n <- length(listenoms$nom)
resu <- "c("
for( i in 1:(n-1))
{
resu <- paste(resu,paste("expression(italic(phantom(0)^{",...