(~wool + tension, warpbreaks)[,-1]
Att.
Elias T. Krainski
De: Fernando Neto fernandone...@gmail.com
Para: r-br@listas.c3sl.ufpr.br
Enviadas: Segunda-feira, 12 de Dezembro de 2011 21:32
Assunto: [R-br] Transformar Variáveis discretas em Numeros Binários -
Pre
Boa noite, R-anos!
Por favor, estou precisando ajustar os arquivos de uma base de dados para
processamento de uma RNA.
Estou usando a função decodeClassLabels(...) mas a operacao tá ficando
muito custosa.
Por exemplo
__
Masculino Programador
Masculino Médico
Feminino Programador
__
tem que ser
__
Fernando,
Não se entendi, mas se seus vetores sempre so tiverem duas opções um
which(vetor == 'marculino') não serviria?
Nesse contexto você pode incluir um apply(), mas ou menos do tipo:
apply(dados, 2, function(x) which(x == 'masculino'))
Como pressuponho só ter duas opções o caso com !=
Não, FHRB, as variáveis podem ser qualquer valor discreto. Eu citei apenas
um exemplo. Essa funcao q falei ja faz isso, mas acho que a operacao de
adicionar à matriz principal é custosa. Você saberia me confirmar isso?
Acho que é O(n).
Em 12 de dezembro de 2011 21:04, FHRB Toledo
Retiraria o cbind do forele ta crescendo. a matriz
Em 12 de dezembro de 2011 22:07, Fernando Neto
fernandone...@gmail.comescreveu:
Não, FHRB, as variáveis podem ser qualquer valor discreto. Eu citei apenas
um exemplo. Essa funcao q falei ja faz isso, mas acho que a operacao de
adicionar à
Luis, mas eu preciso que a nova coluna substituia a coluna velha. Então
eu retiro a velha e adiciono.
Como você faria de forma menos custosa?
Em 12 de dezembro de 2011 22:24, Luis Iván Ortiz Valencia
liov2...@gmail.com escreveu:
Retiraria o cbind do forele ta crescendo. a matriz
Em 12 de
Mande uma parte do seu arquivo. e as codificacoes desejadas.
Em 12 de dezembro de 2011 23:27, Fernando Neto
fernandone...@gmail.comescreveu:
Luis, mas eu preciso que a nova coluna substituia a coluna velha. Então
eu retiro a velha e adiciono.
Como você faria de forma menos custosa?
Em 12 de
library(RSNNS)
#load the database
#data(iris)
dataBaseName = read.table(adult.data) # é uma base de dados
#shuffle the vector
vector -
dataBaseName[sample(1:nrow(dataBaseName),length(1:nrow(dataBaseName))),1:ncol(dataBaseName)]
#set what the columns are discrete variable
colDisVar =
tal vez funcione
data(iris)
nom1-sample(iris[,5])
nom2-sample(iris[,5])
nom3-sample(iris[,5])
nom4-sample(iris[,5])
nom5-sample(iris[,5])
nom-data.frame(nom1,nom2,nom3,nom4)
m-NULL
for ( i in 1:4)
{
d-length(table(nom[,3]))
n-matrix(0,nrow(nom),d)
n-decodeClassLabels(nom[,3])
m-cbind(m,n)
}
Em
corrigindo, mandei errado antes.
data(iris)
nom1-sample(iris[,5])
nom2-sample(iris[,5])
nom3-sample(iris[,5])
nom4-sample(iris[,5])
nom-data.frame(nom1,nom2,nom3,nom4)
m-NULL
for ( i in 1:4)
{
d-length(table(nom[,i]))
n-matrix(0,nrow(nom),d)
n-decodeClassLabels(nom[,i])
m-cbind(m,n)
}
Em 13
10 matches
Mail list logo