Nesse vídeo faço uma introdução sobre esta abordagem.
Segue o link do artigo mencionado no final do vídeo: www.scielo.br/...
Rotinas utilizadas no R:
remove(list=ls()) #Apagar a memoria do R
#Criando a matriz de dados
Joao = c(71 ,1.8, 15)
Maria = c(50, 1.69, 16)
Ricardo = c(80, 1.75, 22)
Luiza = c(52, 1.63 ,25)
Dados=rbind(Joao, Maria, Ricardo, Luiza)
colnames(Dados)=c("Peso", "Altura", "Idade")
Dados
#Padronizando os dados
DadosPad=scale(Dados)
DadosPad
#Instalando o pacote
install.packages("RSNNS")
#Ativando o pacote
library(RSNNS)
?som
modelo=som(x = DadosPad,mapX = 2,mapY = 1,maxit = 100,
saveWinnersPerPattern = TRUE)
modelo$winnersPerPattern
cbind(Alunos=rownames(Dados),Grupo=modelo$winnersPerPattern)
Негізгі бет Inteligencia artificial: Mapas auto-organizáveis de Kohonen
Пікірлер: 3