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