Méthode de réseaux de neurones
Bonjour, j'ai encore un petit problème sur mon analyse de stat : Je dois essayer de relier une variable qualitative qui prend 5 modalités par 2 autres variables quantitatives et j'arrive à un message Error: subscript out of bounds
merci de votre aide (encore)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
z=read.table("ordre2.txt",header=TRUE)
y=read.table("repartition_gain.txt",header=TRUE)
attach(Z)
attach(y)
library(FactoMineR)
library(MASS)
library(e1071)
library(nnet)
attach(z)
Z=data.frame(z)
S=cor(z)
u=eigen(S)
cumsum(u$values)/sum(u$values)
plot(u$values)
pca=PCA(z)
pca$ind
pca$ind$cos2
pca$var$contrib
pca$ind$contrib
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) # quand pas de lois défini, la lois pas défaut est la lois gaussienne
applog <- predict(logis,xs[samp,], type = "class")
table(C[samp], applog)
testlog <- predict(logis,xs[-samp,], type = "class")
table(C[-samp], testlog) |
et je ne comprends pas le message d'erreur suivant
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
> logis<- multinom(T~.,data=xs, subset= samp) # quand pas de lois défini, la lois pas défaut est la lois gaussienne
Error: subscript out of bounds
>
> applog <- predict(logis,xs[samp,], type = "class")
> table(C[samp], applog)
Error in C[samp] : object of type 'closure' is not subsettable
>
> testlog <- predict(logis,xs[-samp,], type = "class")
> table(C[-samp], testlog)
Error in C[-samp] : object of type 'closure' is not subsettable
>
>
> |
