<html><head></head><body><div style="color:#000; background-color:#fff; font-family:verdana, helvetica, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1528154049214_81848"><span>Pois é,</span></div><div id="yui_3_16_0_1_1528154049214_81848">Acho que to misturando tudo. Enfim, vou estudar melhor antes.</div><div id="yui_3_16_0_1_1528154049214_81848">Obrigado pelas sugestões e esclarecimentos.</div><div id="yui_3_16_0_1_1528154049214_81848">Henrique</div> <div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: verdana, helvetica, sans-serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"><font size="2" face="Arial"> Em Terça-feira, 5 de Junho de 2018 10:25, Cesar Rabak <cesar.rabak@gmail.com> escreveu:<br></font></div> <br><br> <div class="y_msg_container"><div id="yiv8061070376"><div><div dir="ltr">Henrique,<div><br clear="none"></div><div>Se você está pedindo para o SW, via
<span style="color:rgb(0,0,0);font-family:verdana, helvetica, sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-color:initial;float:none;display:inline;">geom_smooth(method = lm, formula = y ~ exp(-x), se = FALSE)
<span style="color:rgb(34,34,34);font-family:arial, sans-serif;font-size:small;text-decoration-color:initial;float:none;display:inline;">fazer o alisamento de uma curva usando a equação y ~ exp(-x), como você esperaria que o SW "adivinhasse" que você quer calcular um coeficiente para o expoente?</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana, helvetica, sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-color:initial;float:none;display:inline;"><span style="color:rgb(34,34,34);font-family:arial, sans-serif;font-size:small;text-decoration-color:initial;float:none;display:inline;"><br clear="none">Por outro lado, se você está se perguntando qual coeficiente poderia ser usado para fazer uma equação fechada considerando as duas curvas, bastaria você pegar os dados do procedimento proposto por Cayan e dividir os coeficientes para obter o fator, não seria isso?</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana, helvetica, sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-color:initial;float:none;display:inline;"><span style="color:rgb(34,34,34);font-family:arial, sans-serif;font-size:small;text-decoration-color:initial;float:none;display:inline;"><br clear="none"></span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana, helvetica, sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-color:initial;float:none;display:inline;"><span style="color:rgb(34,34,34);font-family:arial, sans-serif;font-size:small;text-decoration-color:initial;float:none;display:inline;">HTH</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana, helvetica, sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-color:initial;float:none;display:inline;"><span style="color:rgb(34,34,34);font-family:arial, sans-serif;font-size:small;text-decoration-color:initial;float:none;display:inline;">--</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana, helvetica, sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-color:initial;float:none;display:inline;"><span style="color:rgb(34,34,34);font-family:arial, sans-serif;font-size:small;text-decoration-color:initial;float:none;display:inline;">Cesar Rabak</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana, helvetica, sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-color:initial;float:none;display:inline;"><span style="color:rgb(34,34,34);font-family:arial, sans-serif;font-size:small;text-decoration-color:initial;float:none;display:inline;"><br clear="none"></span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana, helvetica, sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-color:initial;float:none;display:inline;"><span style="color:rgb(34,34,34);font-family:arial, sans-serif;font-size:small;text-decoration-color:initial;float:none;display:inline;"><br clear="none"></span></span></div></div><div class="yiv8061070376gmail_extra"><br clear="none"><div class="yiv8061070376gmail_quote">2018-06-04 20:29 GMT-03:00 Henrique Boriolo Dias via R-br <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>></span>:<br clear="none"><blockquote class="yiv8061070376gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="yiv8061070376yqt5711083435" id="yiv8061070376yqt43694"><div><div style="color:#000;background-color:#fff;font-family:verdana, helvetica, sans-serif;font-size:16px;"><div id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21523">Obrigado Cayan.</span></div><div id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span><br clear="none"></span></div><div id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21505">Todavia, acho que não me expressei direito com relação ao que procuro.</span></div><div id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span><br clear="none"></span></div><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21554">Saberia me dizer se nessa equação y ~ exp(-x) tem algum número que multiplica o 'x' ?<br clear="none"></span></div><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_25020">Tem como escrever essa equação, por exemplo, </span>y ~ exp(-x<font id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_28505" color="#cd232c">z</font>). O 'z' que gostaria de descobrir/ajustar, se for possível com essa função.</div><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><br clear="none"></div><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462">Outra dificuldade, é plotar a equação usando o facet_wrap, ou seja, uma equação (y ~ exp(-x<font id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_31888" color="#cd232c">z</font>)) e regressão (a, b, R²) para cada gráfico. Não sei se isso é possível ou se é melhor fazer um loop para cada gráfico.</div><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><br clear="none" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_38767"></div><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462">Perdão a falha ao explicar. Nem sei se é possível ou não, mas está ai para discussão.</div><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462">Obrigado mais uma vez.</div><span class="yiv8061070376HOEnZb"><font color="#888888"></font></span><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462"><br clear="none"></div><div dir="ltr" id="yiv8061070376m_826186955842351848yui_3_16_0_1_1528154049214_21462">Henrique</div><div><div class="yiv8061070376h5"> <div class="yiv8061070376m_826186955842351848qtdSeparateBR"><br clear="none"><br clear="none"></div><div class="yiv8061070376m_826186955842351848yahoo_quoted" style="display:block;"> <div style="font-family:verdana, helvetica, sans-serif;font-size:16px;"> <div style="font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px;"> <div dir="ltr"><font size="2" face="Arial"> Em Terça-feira, 5 de Junho de 2018 1:21, Cayan Portela via R-br <<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br clear="none"></font></div> <br clear="none"><br clear="none"> <div class="yiv8061070376m_826186955842351848y_msg_container"><div dir="ltr">Você pode gerar um modelo utilizando a função lm e extrair os coeficientes.<br clear="none"></div><div dir="ltr"><br clear="none"></div><div dir="ltr">De acordo com <a rel="nofollow" shape="rect" target="_blank" href="https://stackoverflow.com/questions/30144785/how-to-extract-intercept-and-slope-from-a-plot-for-large-number-of-variables">https://stackoverflow.com/ questions/30144785/how-to- extract-intercept-and-slope- from-a-plot-for-large-number- of-variables </a>,<br clear="none"></div><div dir="ltr">no seu caso ficaria assim:<br clear="none"></div><div dir="ltr"><br clear="none"></div><div dir="ltr">db %>% <br clear="none"></div><div dir="ltr"> group_by(type) %>% <br clear="none"></div><div dir="ltr"> do({<br clear="none"></div><div dir="ltr"> mod = lm(y ~ exp(-x), data = .)<br clear="none"></div><div dir="ltr"> data.frame(Intercept = coef(mod)[1],<br clear="none"></div><div dir="ltr"> Slope = coef(mod)[2])<br clear="none"></div><div dir="ltr"> })<br clear="none"></div><div dir="ltr"><br clear="none"></div><div dir="ltr">Cayan<br clear="none"></div><div dir="ltr"><br clear="none"></div><div dir="ltr">______________________________ _______<br clear="none"></div><div dir="ltr">Sent from <a rel="nofollow" shape="rect" target="_blank" href="http://r-br.2285057.n4.nabble.com/">http://r-br.2285057.n4.nabble. com</a><br clear="none"></div><div dir="ltr"><br clear="none"></div><div dir="ltr">______________________________ _________________<br clear="none"></div><div dir="ltr">R-br mailing list<br clear="none"></div><div dir="ltr"><a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"></div><div dir="ltr"><a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/ cgi-bin/mailman/listinfo/r-br</a><br clear="none"></div><div dir="ltr">Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br- guia</a>) e fornea cdigo mnimo reproduzvel.</div><br clear="none"><br clear="none"></div> </div> </div> </div></div></div></div></div></div><br clear="none">______________________________ _________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/ cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br- guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div><br clear="none"></div></div></div><br><br></div> </div> </div> </div></div></body></html>