Modérateur : Groupe des modérateurs
Pierre Bady a écrit :Bonjour,
Je pense que tu veux faire trop de chose à la fois. En Programmation orientée objet (d’ailleurs c’est même en général), il faut diviser pour mieux régner.
# Dans un premier temps, tu peux construire une fonction qui caractérise tes PIi
DesCol <- function(df){
PIi <- matrix (apply (df, 2, '+'), ((rowEPI - rowSPI)+1), ((colEPI - colSPI)+1))
return(PIi)
}
# Dans un second temps, tu peux construire ta boucle :
nbreclasse <- n
lw <- list()
for(i in 1 : nbreclasse){
cat("iter = ",i, "\n")
cat("numeros de colonne de la classe PI",i,":\n")
nc <- c(scan())
w <- DesCol(df=occupation[,nc])
lw[[i]] <- w
}
# et enfin, tu peux calculer ton total. Tes valeurs sont stockés dans lw.
Tu n’est pas obliger d’utiliser une liste pour stocker les résultats
Mais, j’ai du mal à voir ce qui sort de la fonction DesCol (quelles dimensions ?).
Par contre, il me semble qu’il faut éviter d’utiliser le signe ‘_ ‘, c’est un ancien signe d’affectation, donc c’est tjs perturbant de le voir se balader dans un code :)
N’hésite pas à décortiquer les calculs.
Ça simplifie la lecture et ça permet de mieux localiser les erreurs.
sinon, je n’ai pas vraiment compris ton script :(
j’espère que cela t’aidera un peu
@+
pierre
Pierre Bady a écrit :Bonjour,
.......
w <- DesCol(df=occupation[,nc])
......
pierre
J'écoute ta solution PIERRE
Un dernier point: Qu'est-ce que c'est que ta function(x).........?
J’espère ne pas être trop à coté de la plaque :)
Retourner vers « Archives : Manipulation de données avec R »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 0 invité