Caro Humberto, como está? Você é irmão do Fábio, certo?
Bem, talvez "seu" google dê uma resposta diferente do "meu". Não consegui identificar nada relacionado. Qual seria o site?
Obrigado e um abração,
Antônio
Saída do google que obtive
Ola antonio,Coloque no google rfish. La aparecera um site que tem o que vc quer.Humberto
Enviado via iPhoneOlá 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 SilvaBiólogo / OceanógrafoInstituto 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
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br