Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

Link para esta página de comparações

Ambos lados da revisão anteriorRevisão anterior
Próxima revisão
Revisão anterior
mod1:mat_apoio:class [2010/08/31 22:45] adalardomod1:mat_apoio:class [2024/01/11 15:21] (atual) – edição externa 127.0.0.1
Linha 117: Linha 117:
 Consegue identificar padrões nesses dados? Consegue identificar padrões nesses dados?
 Faça o mesmo para a comunidade discreta, mas guarde o resultado em um objeto de nome //sim.disc1//. Faça o mesmo para a comunidade discreta, mas guarde o resultado em um objeto de nome //sim.disc1//.
-Chegamos nas matrizes de similiaridades, o primeiro passo da+Chegamos nas matrizes de similiaridades, o primeiro passo da nossa classificação. 
  
  
Linha 124: Linha 124:
  
   *1. Vamos procurar entre os pares de parcelas, aquela que tem mais similaridade   *1. Vamos procurar entre os pares de parcelas, aquela que tem mais similaridade
 +
   max(sim.cont1)   max(sim.cont1)
   sim.cont1==max(sim.cont1)   sim.cont1==max(sim.cont1)
Linha 151: Linha 152:
 Agora temos que tomar uma outra decisão: como esse grupo agora formado irá se ligar aos outras parcelas? 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:  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=paste("g", paste(g1.n1,g1.n2, sep=","))
   g1.nome   g1.nome
Linha 174: Linha 175:
   maior2=which(grupo1==max(grupo1,na.rm=TRUE), arr.ind=TRUE)   maior2=which(grupo1==max(grupo1,na.rm=TRUE), arr.ind=TRUE)
   maior2   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=paste(paste("g",g2.n1,sep="_"),g2.n2, sep=",")  
   g2.nome   g2.nome
Linha 199: Linha 200:
   maior3=which(grupo2==max(grupo2,na.rm=TRUE), arr.ind=TRUE)   maior3=which(grupo2==max(grupo2,na.rm=TRUE), arr.ind=TRUE)
   maior3   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=paste(paste("g",g3.n1,sep="_"),g3.n2, sep=",")  
   g3.nome   g3.nome
mod1/mat_apoio/class.1283294701.txt.gz · Última modificação: 2024/01/11 15:21 (edição externa)
CC Attribution-Noncommercial-Share Alike 4.0 International
www.chimeric.de Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0