2012-10-11 10 views
5

Uso naiveBayes (e1071 http://en.wikibooks.org/wiki/Data_Mining_Algorithms_In_R/Classification/Na%C3%AFve_Bayes) para clasificar mi conjunto de datos (Classification class: "class" 0/1). Aquí es lo que hago:

library(e1071) 
arrhythmia <- read.csv(file="/home/.../arrhythmia.csv", head=TRUE, sep=",") 

#devide into training and test data 70:30 
trainingIndex <- createDataPartition(arrhythmia$class, p=.7, list=F) 
arrhythmia.training <- arrhythmia[trainingIndex,] 
arrhythmia.testing <- arrhythmia[-trainingIndex,] 

nb.classifier <- naiveBayes(class ~ ., data = arrhythmia.training) 
predict(nb.classifier,arrhythmia.testing[,-260]) 

El clasificador no funciona, aquí es lo que me sale:

> predict(nb.classifier,arrhythmia.testing[,-260]) 
factor(0) 
Levels: 

> str(arrhythmia.training) 
'data.frame': 293 obs. of 260 variables: 
$ age       : int 75 55 13 40 44 50 62 54 30 46 ... 
$ sex       : int 0 0 0 1 0 1 0 1 0 1 ... 
$ height      : int 190 175 169 160 168 167 170 172 170 158 ... 
$ weight      : int 80 94 51 52 56 67 72 58 73 58 ... 
$ QRSduration     : int 91 100 100 77 84 89 102 78 91 70 ... 
$ PRinterval     : int 193 202 167 129 118 130 135 155 180 120 ... 
# and so on (260 attributes) 

> str(arrhythmia.training[260]) 
'data.frame': 293 obs. of 1 variable: 
$ class: int 1 0 1 0 0 1 1 1 1 0 ... 


> nb.classifier$levels 
NULL 

He intentado utilizar el incluido el conjunto de datos (iris) y todo funciona bien. ¿Qué pasa con mi enfoque?

Respuesta

6

Asegúrate de tratar la variable de clase como factor; es decir,

nb.classifier <- naiveBayes(as.factor(class) ~ ., data = arrhythmia.training) 

Por cierto, no necesita excluir la variable de clase de predecir llamada.

1

Cada variable en su marco de datos compuesta por cadenas, debe ser tratada como un factor.

En caso de que la variable no es un factor de utilizar este comando:

df$var1 <- as.factor(df$var1) 

Esto incluye la variable de clase.

Nota: Si una variable es numérica, no necesita convertirla en un factor.

Cuestiones relacionadas