Discussion :

[effossou]

J'ai construit la fonction "Rang" ci-dessous pour le calcul du range d'une échéance( qui est une date).

Code :

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

Rang=function(x,y,z){round((12*(year(y)-year(x))+month(y)-month(x)+(day(y)-day(x))/30)*z/12,0)+1}

PRÉOCCUPATION

Je voudrais appliquer la fonction apply à la fonction "Rang" ci-dessus et à la donnée "matrice" ci-dessous

Merci de bien vouloir me donner un coup de main

J'ai essayer ceci:

Code :

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

apply(matrice,1,Rang)

où:

matrice[,c(1:10)]=
echeance DATE_EFF PERIODICITE
1 2017-01-01 1991-12-01 12
2 2017-01-01 1992-01-01 12
3 2017-01-01 1992-02-01 12
4 2017-01-01 1992-03-01 12
5 2017-01-01 1989-10-01 12
6 2017-01-01 1992-08-01 12
7 2017-01-01 1992-11-01 12
8 2017-01-01 1993-01-01 12
9 2017-01-01 1993-01-01 12
10 2017-01-01 1993-01-01 12


Et le résultat est malheureusement le message d'erreur suivant:

Error in year(y) : argument "y" is missing, with no default

Je ne sais plus comment faire.

[tototode]

Bonjour (?!),

la fonction Rang nécessite trois arguments : x, y et z , alors que la fonction apply va travailler sur un vecteur qui est les données en lignes (disons "x").
Par conséquent quand tu appliques ta fonction Rang, apply va passer toutes tes données au "x" de ta fonction, il ne va pas séparer les données en fonction de chaque colonne, il va les conserver dans un seul vecteur.
Pour t'en convaincre tape : apply(matrice, 1, function(x) print(x)).
Par chance R vectorise les calculs, c'est a dire qu'au lieu de les faire valeur par valeur il peut les faire sur des vecteurs entiers de valeurs.
Donc en faisant : Rang(matrice[,1], matrice[,2], matrice[,3]) ça devrait fonctionner et plus efficacement que si tu avais le calcul ligne par ligne.

cdlt

[effossou]

Merci Infiniment ça marche