Bonjour,

je crée une base aléatoire (des consommateurs) pour tester mon modèle. Chaque consommateur fait un choix entre 2 alternatives + il peut choisir "aucun alternative" 12 fois. J'entre les valeurs des alternatives et puis je calcule des valeurs de chaque attribut pour chaque personne et chaque alternative

Voici le morceau de code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
design<-data.frame(question=c(1,2,3,4,5,6,7,8,9,10,11,12),facture0=base_aleatoire["facture"],facture1=c(-0.2,-0.05,-0.1,-0.05,-0.1,-0.05,-0.05,-0.2,-0.1,-0.1,-0.2,-0.2),
facture2 = c(-0.05,-0.2,-0.05,-0.2,-0.05,-0.2,-0.05,-0.1,-0.1,-0.2,-0.1,-0.1),pilotage0=base_aleatoire["pilotage"], pilotage1=c(2,1,1,1,1,0,0,0,2,2,2,0),pilotage2=c(0,0,2,2,0,2,1,2,1,1,0,1),
confort0=base_aleatoire["confort"],confort1=c(0,-2,0,0,-2,-1,-1,-1,-2,0,-1,-2),confort2=c(-2,0,-2,-2,0,-1,-1,-1,-1,-2,0,0),
renen0=base_aleatoire["renen"], renen1=c(15,30,15,30,15,30,15,15,30,30,30,15),renen2=c(30,15,30,15,30,15,15,30,15,15,30,30))
 
for (i in 1:nrow(base_aleatoire))
{
 base_aleatoire[i,"facture0"] = design[base_aleatoire[i,"question"],"facture0"]
  base_aleatoire[i,"facture1"] = base_aleatoire[i,"facture"] * (1+design[base_aleatoire[i,"question"],"facture1"])
  base_aleatoire[i,"facture2"] = base_aleatoire[i,"facture"] * (1+design[base_aleatoire[i,"question"],"facture2"])
  base_aleatoire[i,"pilotage0"] = design[base_aleatoire[i,"question"],"pilotage0"]
  base_aleatoire[i,"pilotage1"] = design[base_aleatoire[i,"question"],"pilotage1"]
  base_aleatoire[i,"pilotage2"] = design[base_aleatoire[i,"question"],"pilotage2"]
  base_aleatoire[i,"confort0"] = design[base_aleatoire[i,"question"],"confort0"]
  base_aleatoire[i,"confort1"] = design[base_aleatoire[i,"question"],"confort1"]
  base_aleatoire[i,"confort2"] = design[base_aleatoire[i,"question"],"confort2"]
 base_aleatoire[i,"renen0"] = design[base_aleatoire[i,"question"],"renen0"]
  base_aleatoire[i,"renen1"] =design[base_aleatoire[i,"question"],"renen1"]
  base_aleatoire[i,"renen2"] = design[base_aleatoire[i,"question"],"renen2"]
   }
J'ai une erreur 
Erreur dans `*tmp*`[[jj]] : indice hors limites
Si vous avez une idée...

Merci par avance
Valeriia