--- mod1:mat_apoio:class [2010/08/31 23:57] – adalardo
+++ mod1:mat_apoio:class [2024/01/11 15:21] (atual) – edição externa 127.0.0.1
@@ Linha 152: / Linha 152: @@
 Agora temos que tomar uma outra decisão: como esse grupo agora formado irá se ligar aos outras parcelas?
 Podemos decidir que ele irá se ligar aos outros pelo valor da máxima similaridade de seus componentes  (ligação máxima), ou pela minima. Vamos usar a média do grupo:
-  g1.n1=strsplit(nome.par[maior1[1,2]]," ")[[mod1:restr:1]][2]
+  g1.n1=strsplit(nome.par[maior1[1,2]]," ")[[1]][2]
-  g1.n2=strsplit(nome.par[maior1[1,1]]," ")[[mod1:restr:1]][2]
+  g1.n2=strsplit(nome.par[maior1[1,1]]," ")[[1]][2]
   g1.nome=paste("g", paste(g1.n1,g1.n2, sep=","))
   g1.nome
@@ Linha 175: / Linha 175: @@
   maior2=which(grupo1==max(grupo1,na.rm=TRUE), arr.ind=TRUE)
   maior2
-  g2.n1=strsplit(rownames(grupo1)[maior2[1,2]]," ")[[mod1:restr:1]][2]
+  g2.n1=strsplit(rownames(grupo1)[maior2[1,2]]," ")[[1]][2]
-  g2.n2=strsplit(rownames(grupo1)[maior2[1,1]]," ")[[mod1:restr:1]][2]
+  g2.n2=strsplit(rownames(grupo1)[maior2[1,1]]," ")[[1]][2]
   g2.nome=paste(paste("g",g2.n1,sep="_"),g2.n2, sep=",")
   g2.nome
@@ Linha 200: / Linha 200: @@
   maior3=which(grupo2==max(grupo2,na.rm=TRUE), arr.ind=TRUE)
   maior3
-  g3.n1=strsplit(rownames(grupo2)[maior3[1,2]]," ")[[mod1:restr:1]][2]
+  g3.n1=strsplit(rownames(grupo2)[maior3[1,2]]," ")[[1]][2]
-  g3.n2=strsplit(rownames(grupo2)[maior3[1,1]]," ")[[mod1:restr:1]][2]
+  g3.n2=strsplit(rownames(grupo2)[maior3[1,1]]," ")[[1]][2]
   g3.nome=paste(paste("g",g3.n1,sep="_"),g3.n2, sep=",")
   g3.nome

mod1/mat_apoio/class.1283299047.txt.gz · Última modificação: 2024/01/11 15:21 (edição externa)

Mostrar página Revisões anteriores

[unknown link type]Voltar ao topo