<div dir="ltr"><div>Roney, bom dia!</div><div><br></div><div>Complementando o email anterior...</div><div><br></div><div>### <code r></div><div><font face="courier new, monospace">setwd("C:/LAB/Temp/Roney");getwd()</font></div>
<div><font face="courier new, monospace">load("ver2.RData")</font></div><div><font face="courier new, monospace">ver2.df <- do.call(rbind, ver2)</font></div><div><font face="courier new, monospace">row.names(ver2.df) <- NULL</font></div>
<div><font face="courier new, monospace">head(ver2.df)</font></div><div><font face="courier new, monospace">str(ver2.df)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### ideia básica</font></div>
<div><font face="courier new, monospace">table(ver2.df$name, ver2.df$grupo)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### transforma table em data.frame</font></div>
<div><font face="courier new, monospace">tab <- as.data.frame.matrix(table(ver2.df$name, ver2.df$grupo)); head(tab)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### conferindo alguns resultados apresentados em tab...</font></div>
<div><font face="courier new, monospace">tab[2,1:5]</font></div><div><font face="courier new, monospace">lapply(1:5, function(x) </font></div><div><font face="courier new, monospace">          ver2.df[which(ver2.df$name=='Abay, 2004, V24, P123'&ver2.df$grupo==x),])</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### número de citações de cada referência</font></div><div><font face="courier new, monospace">rowSums(tab[,2:48]) </font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### número de grupos em que citação ocorre</font></div><div><font face="courier new, monospace">tabL <- (tab>0)*1 ; head(tabL) ### criação de uma versão "lógica" de tab</font></div>
<div><font face="courier new, monospace">rowSums(tabL[,2:48]) </font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### situações em que a citação do grupo 1 aparece no grupo 2</font></div>
<div><font face="courier new, monospace">nrow(tab[tabL[,1]&tabL[,2],1:2]) #[1] 2173</font></div><div><font face="courier new, monospace">tab[tabL[,1]&tabL[,2],1:2]</font></div><div><font face="courier new, monospace"><br>
</font></div><div><div><font face="courier new, monospace">### situações em que a citação do grupo 1 aparece no grupo 3</font></div><div><font face="courier new, monospace">nrow(tab[tabL[,1]&tabL[,3],c(1,3)]) #[1] 1827</font></div>
<div><font face="courier new, monospace">tab[tabL[,1]&tabL[,3],c(1,3)]</font></div></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### você pode utilizar um loop pra testar cada grupo contra os demais!</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### </code></font></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>