Ola antonio,
Coloque no google rfish. La aparecera um site que tem o que vc quer. 
Humberto

Enviado via iPhone

Em Jun 6, 2011, às 11:19 PM, Antonio Silva <aolinto.lst@gmail.com> escreveu:

Olá Paulo e Walmes

Obrigado pela atenção. Vamos lá:

1) Colocar os colchetes entre aspas "[" não deu certo:

plot(1:10, 1:10)

legend(locator(1),bty="n",expression(L[i]==L["\U221E"]%*%"["1-e^{-k%*%(t-t[0])}"]"),cex=1.5)
Erro: constante numérica inesperado em "legend(locator(1),bty="n",expression(L[i]==L["\U221E"]%*%"["1"

ou

text(locator(1),expression(L[i]==L[infinity]%*%"["1-e^{-k%*%(t-t[0])}"]"),cex=1.5)
Erro: constante numérica inesperado em "text(2,4,expression(L[i]==L[infinity]%*%"["1"

não funciona, mesmo simplificando

text(6,6, expression("["1-e^-k(t-t[0])"]"))
Erro: constante numérica inesperado em "text(6,6, expression("["1"


2) com group funciona em parte.

Se simplifico a fórmula para
text(locator(1),expression(group("[",1-e^{-k%*%(t-t[0])},"]")),cex=1.5)

Tudo OK, [1-e-k×(t-t0)] é plotado corretamente, mas se coloco %*%


text(locator(1),expression(group(%*%,"[",1-e^{-k%*%(t-t[0])},"]")),cex=1.5)
Erro: SPECIAL inesperado em "text(locator(1),expression(group(%*%"

3) No Linux (Ubuntu pelo menos) infinity retorna um pequeno círculo e não aquele "oito" deitado. Isto ocorre inclusive nos exemplos do demo(plotmath), por isso utilizo o código "\U221E"







Em 6 de junho de 2011 21:01, Paulo Justiniano <paulojus@leg.ufpr.br> escreveu:
Antonio

agradito que group() vai resolver o seu problema

Veja este exemplo mais simples:

plot(1:10, 1:10)
text(2,4, expression(group("[", list(5,7), "]")))


alem disto no seu exemplo considere usar infinity para fazer o símbolo de infinito

P.J.



On Mon, 6 Jun 2011, Antonio Silva wrote:

Olá,

Quero escrever a equação de von Bertalanffy como um legenda em um gráfico. Utilizo o R no Ubuntu.

A forma mais adequada de escrever a equação é Li=L∞×[1-e-k×(t-t0)], sendo "i" e "∞" subscritos e "-k×(t-t0)" sobrescrito. O "0" do
"t0" também é subscrito.

Para tal escrevi: legend(locator(1),bty="n",expression(L[i]==L["\U221E"]%*%(1-e^{-k%*%(t-t[0])})),cex=1.5)

Notem que não consegui colocar os colchetes, repito os parêntesis ...

Tentei várias formas como "[" ou mesmo "\U005B" mas não deu certo.

Agradeço qualquer dica.

Abraços,

Antônio

--
Antônio Olinto Ávila da Silva
Biólogo / Oceanógrafo
Instituto de Pesca (Fisheries Institute)
São Paulo, Brasil



_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br




--
Antônio Olinto Ávila da Silva
Biólogo / Oceanógrafo
Instituto de Pesca (Fisheries Institute)
São Paulo, Brasil

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br