Discussion :

[Lou.lou]

Bonjour à tous,

J'ai un souci avec la fonction 'predict' du package e1071. En sorti j'obtient un résultat à 48 observations alors que mon data en contient 20.

voyez-donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
train<-sample(seq(68), 48, replace=FALSE)
dim(forismay[train,])
[1] 48 12
dim(forismay[-train,])
[1] 20 12

J'utilise le data.frame forismay[train,] comme donné d'apprentissage pour mon modèle, et forismay[-train,] comme test du modèle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
svm.mod<-svm(cover~hight, data=forismay[train,])
prediction<-predict(svm.mod, data=forismay[-train,])
data.mod<-as.data.frame(prediction)
dim(data.mod)
[1] 48  1 #ici il devrait afficher 20 1 vu que dim(forismay[-train,]) contient 20 lignes

lorsque j'utilise l'objet prediction pour calculer le R² par exemple, les jeux de données valeurs réel et valeurs prédites ne correspondent pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
reg<-lm(forismay[-train,]$cover~prediction)
Error in model.frame.default(formula = forismay[-train, ]$cover ~ prediction,  : 
  les longueurs des variables diffèrent (trouvé pour 'prediction')

Je ne vois pas où se situe le problème.

Merci.

[tototode]

Bonjour,

Ca ne fonctionne pas parce que l'argument de la fonction predict n'est pas 'data' mais 'newdata'. Si newdata n'est pas renseigner alors il prédira les valeurs pour les observations qui ont servi à la calibration du modèle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
x <- 1:10
y <- 3*x-2+rnorm(10,0,1.25)
 
tab <- data.frame(x = x , y = y)
rm(x,y)
lm1 <- lm(y ~ x, data = tab, subset = !(x%in%c(4, 8)))
length(predict(lm1))
[1] 8
length(predict(lm1, newdata = tab[tab$x %in% c(4, 8),]))
[1] 2
length(predict(lm1, data = tab[tab$x %in% c(4, 8),]))
[1] 8

cdlt

[Lou.lou]

Dire que c'était si simple

merci, Tototode.