<html><head></head><body><div class="ydp315c09dayahoo-style-wrap" style="font-family:bookman old style, new york, times, serif;font-size:16px;"><div dir="ltr" data-setdir="false">Boa tarde a todos!!! Dúvida boba, mas tenho de explicar antes: estou fazendo uma análise de cluster, para poder identificar resultados iguais de laboratórios analíticos. O resultado foi um banco parecido com esse reproduzível:</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false"><div><div dir="ltr" data-setdir="false"><font color="#808080"><span>library(dplyr)</span></font></div><div dir="ltr" data-setdir="false"><span style="color: rgb(128, 128, 128);"><br></span></div><div dir="ltr" data-setdir="false"><span style="color: rgb(128, 128, 128);">x01<-c(8.49,8.62,8.63,8.49,8.44,2)</span><br></div><div><font color="#808080">x02<-c(9.18,9.21,9.15,8.86,9.36,3)</font></div><div><font color="#808080">x03<-c(8.49,8.62,8.63,8.49,8.44,2)</font></div><div><font color="#808080">x04<-c(9.74,9.69,9.81,9.25,9.98,3)</font></div><div><font color="#808080">x05<-c(9.74,9.69,9.81,9.25,9.98,3)</font></div><div><font color="#808080">x06<-c(8.15,9.52,9.89,9.95,8.33,2)</font></div><div><font color="#808080">x07<-c(8.32,8.73,9.60,9.04,9.97,3)</font></div><div><font color="#808080">x08<-c(7.42,7.01,7.31,7.20,7.61,1)</font></div><div><font color="#808080">x09<-c(9.79,8.76,9.68,8.31,9.37,3)</font></div><div><font color="#808080">x10<-c(7.42,7.01,7.31,7.20,7.61,1)</font></div><div><span style="color: rgb(128, 128, 128);"><br></span></div><div><span style="color: rgb(128, 128, 128);">dados<-data.frame(rbind(x01,x02,x03,x04,x05,x06,x07,x08,x09,x10))</span><br></div><div><font color="#808080">names(dados)<-c("v1","v2","v3","v4","v5","Cluster")</font></div></div><br></div><div dir="ltr" data-setdir="false">Para facilitar essa identificação, ordenei os resultados por cluster, pelos dados das variáveis, e então calculei a média em cada linha:</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false"><div><div><font color="#808080">dados<-dados %>% </font></div><div><font color="#808080">arrange(Cluster, v1,v2,v3,v4,v5) </font></div><div><font color="#808080"><br></font></div><div><font color="#808080">for (i in (1:nrow(dados))){</font></div><div><font color="#808080">dados$Média[i]<-mean(dados$v1[i],dados$v2[i],dados$v3[i],dados$v4[i],dados$v5[i],na.rm = TRUE)</font></div><div><font color="#808080">}</font></div><div><br></div><div dir="ltr" data-setdir="false"><b><i>MEU PROBLEMA:</i></b> para finalmente identificar os resultados iguais, eu apliquei esse código abaixo, onde em resumo, se o cluster for igual e a média do resultado do laboratório da <b>linha i</b> for igual <span><span style="color: rgb(0, 0, 0); font-family: bookman old style, new york, times, serif; font-size: 16px;">a média do resultado do laboratório da <b>linha i+1</b>, então ambos os laboratórios responderam resultados iguais. Apliquei o código abaixo, e ele está resultando em erro:</span></span> </div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false"><font color="#808080">i=1</font></div><div><font color="#808080">for (i in (1:nrow(dados))){</font></div><div><font color="#808080">if ((dados$Cluster[i]==dados$Cluster[i+1]) & (dados$Média[i]==dados$Média[i+1])){</font></div><div><font color="#808080">dados$sit[i] == "Resultado Igual"</font></div><div><font color="#808080">dados$sit[i+1] == "Resultado Igual"}</font></div><div><font color="#808080">else {</font></div><div><font color="#808080">}</font></div><div><font color="#808080">i=i+1</font></div><div><font color="#808080">}</font></div><div><br></div></div><div dir="ltr" data-setdir="false">Alguém poderia dizer qual o meu erro? Ou se faltou algo no código?</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false">Muito agradecido pela atenção, e desculpa a extensão!!!</div></div><div><br></div><div class="ydp315c09dasignature"><div style="font-family:Helvetica, Arial, sans-serif;font-size:16px;"><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Diogo Jerônimo</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Mestre em Metrologia - PUC-Rio/PósMQI</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color: inherit;">http://lattes.cnpq.br/8996149312896520</font></span></i></div><p id="ydpcf278505yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;" class="ydpcf278505MsoNormal"><br></p></div></div></div></body></html>