<html><head></head><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:12px"><div style="margin-top: 0px; margin-bottom: 6px; color: rgb(20, 24, 35); font-family: helvetica, arial, sans-serif; font-size: 14px; line-height: 19.32px;" id="yui_3_16_0_ym19_1_1461660534750_2617">Olá pessoal, quero comparar retas desenhadas por crianças (a mão, elas viam o gráfico com pontos e tinham que desenhar uma reta que melhor se ajustasse aos pontos) com 3 métodos diferentes que resultam na "reta correta". Para isso ploto as retas sempre de duas a duas (criança com método 1, criança com método 2 e criança com método 3) e calculo a área entre as duas retas (integral). Quero no fim poder olhar para os 3 valores de cada criança e achar o mínimo (melhor método). Pa<span style="display: inline;" id="yui_3_16_0_ym19_1_1461660534750_2618">ra isso (tentei) criei um código que infelizmente não funciona...<br id="yui_3_16_0_ym19_1_1461660534750_2619">Os valores dos coeficientes das retas dos 3 métodos de referência são fixos (b e s), tenho uma matrix com os 75 valores dos coeficientes para as crianças, os coeficientes são m e t:<br id="yui_3_16_0_ym19_1_1461660534750_2620">Quero armazenar cada área clauclada em uma linha e na coluna específica do método de referência</span></div><div style="display: inline;" id="yui_3_16_0_ym19_1_1461660534750_2621"><div style="color: rgb(20, 24, 35); font-family: helvetica, arial, sans-serif; font-size: 14px; line-height: 19.32px; margin-bottom: 6px;" id="yui_3_16_0_ym19_1_1461660534750_2622">area<-function(m,t,na.rm=TRUE) { <a href="https://www.facebook.com/hashtag/na?source=feed_text" data-ft="{"tn":"*N","type":104}" style="color: rgb(59, 89, 152); cursor: pointer; text-decoration: none;" id="yui_3_16_0_ym19_1_1461660534750_2623"><span aria-label="hashtag" style="color: rgb(98, 122, 173);" id="yui_3_16_0_ym19_1_1461660534750_2624">‪#‎</span><span id="yui_3_16_0_ym19_1_1461660534750_2625">na‬</span></a>.rm não funciona<br id="yui_3_16_0_ym19_1_1461660534750_2626">u <- matrix(nrow=length(m),ncol=3)<br id="yui_3_16_0_ym19_1_1461660534750_2627">colnames(u)<-c("Method1","Method2","Method3")<br id="yui_3_16_0_ym19_1_1461660534750_2628">for(i in 1:length(m)){<br id="yui_3_16_0_ym19_1_1461660534750_2629">for (j in 1:3){<br id="yui_3_16_0_ym19_1_1461660534750_2630">f1<-function(x, m, t) {m*x+t} # m e t variáveis locais<br id="yui_3_16_0_ym19_1_1461660534750_2631">mt<-function(x) {b[j]*x+s[j]} # b e s variáveis globais<br id="yui_3_16_0_ym19_1_1461660534750_2632">dif<-function(x, m,t) {abs(f1(x,m,t)-mt(x))} <br id="yui_3_16_0_ym19_1_1461660534750_2633">int[i]<-integrate(dif, -1,1,m = m[i], t = t[i])$value<br id="yui_3_16_0_ym19_1_1461660534750_2634">u[i,j]<-int[i]<br id="yui_3_16_0_ym19_1_1461660534750_2635">}}<br id="yui_3_16_0_ym19_1_1461660534750_2636">return(u)}</div><div style="color: rgb(20, 24, 35); font-family: helvetica, arial, sans-serif; font-size: 14px; line-height: 19.32px; margin-bottom: 6px;" id="yui_3_16_0_ym19_1_1461660534750_2622"><br></div><div style="margin-bottom: 6px;" id="yui_3_16_0_ym19_1_1461660534750_2622" dir="ltr"><font color="#141823" face="helvetica, arial, sans-serif" id="yui_3_16_0_ym19_1_1461660534750_2665"><span style="font-size: 14px; line-height: 19.32px;" id="yui_3_16_0_ym19_1_1461660534750_2666">Recebo o erro de que o objeto "int" não foi encontrado</span></font><br></div><div style="margin-bottom: 6px;" id="yui_3_16_0_ym19_1_1461660534750_2622" dir="ltr"><font color="#141823" face="helvetica, arial, sans-serif"><span style="font-size: 14px; line-height: 19.32px;"><br></span></font></div><div style="color: rgb(20, 24, 35); font-family: helvetica, arial, sans-serif; font-size: 14px; line-height: 19.32px; margin-top: 6px; margin-bottom: 6px;" dir="ltr" id="yui_3_16_0_ym19_1_1461660534750_2637">Alguém teria uma sugestão?</div></div><div></div><div id="yui_3_16_0_ym19_1_1461660534750_2540"> </div><div class="signature" id="yui_3_16_0_ym19_1_1461660534750_2537"><div id="yui_3_16_0_ym19_1_1461660534750_2536">-- <br><font size="2" id="yui_3_16_0_ym19_1_1461660534750_2552">Daniela Recchia</font></div><div id="yui_3_16_0_ym19_1_1461660534750_2675"><br></div><div><span style="font-size:10px;"></span></div><div id="yui_3_16_0_ym19_1_1461660534750_2679"><span style="font-size:10px;" id="yui_3_16_0_ym19_1_1461660534750_2678"><span style="line-height:18px;font-family:'helvetica neue', arial, sans-serif;font-style:italic;" id="yui_3_16_0_ym19_1_1461660534750_2677"><font size="2" id="yui_3_16_0_ym19_1_1461660534750_2676">“The standard of success in life is absolutely the amount of joy you feel”</font></span><br></span><span style="font-size:13px;" id="yui_3_16_0_ym19_1_1461660534750_2683"><span style="font-size:10px;" id="yui_3_16_0_ym19_1_1461660534750_2682"><span style="line-height:18px;font-family:'helvetica neue', arial, sans-serif;font-style:italic;" id="yui_3_16_0_ym19_1_1461660534750_2681"><font size="2" id="yui_3_16_0_ym19_1_1461660534750_2680">Esther & Jerry Hick</font></span></span><br></span></div><div id="yui_3_16_0_ym19_1_1461660534750_2684"><span style="font-size:small;"> </span></div></div></div></body></html>