1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
E=kmeans(z,5)
S=E$cluster
T=class.ind(S)
n=3853
x<- cbind(gain,taille)
xs <-data.frame(scale(x, center =TRUE, scale=TRUE))
samp <- c(sample(1:n,1626))
> # classif par modéle logistique
> logis<- multinom(T~.,data=xs, subset= samp)
# weights: 20 (12 variable)
initial value 2616.946046
iter 10 value 2472.870549
final value 2466.730138
converged
> applog <- predict(logis,xs[samp,], type = "class")
> table(C[samp], applog)
Error in C[samp] : object of type 'closure' is not subsettable |
Partager