Discussion :

[effossou]

J'ai construit la fonction suivante:

Code :

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

DATE=function(r,s,t){if(r %in% Statut & s<=DATE_CLOTURE) {max(s,DATE_OUVERTURE)}else{min(max(DATE_OUVERTURE,t),DATE_CLOTURE)}}

où

Code :

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

1
2
3
Statut=c("Resi","Dcs","Rac","Ec","Rad","Ren")
DATE_CLOTURE="31/12/2017"
DATE_OUVERTURE="30/06/2008"

Et je voudrais calculer DATE(bdd$STATUT_CONTRAT,bdd$DATE_STAtut[i],bdd$DT_FIN_C[i]) pour toutes les lignes sans utiliser la boucle for

J'ai essayé ça:

Code :

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

DATE(bdd$STATUT_CONTRAT,bdd$DATE_STAtut,bdd$DT_FIN_C)

Le message d'erreur suivant s'affiche :

Warning message:
In if (r %in% Statut & s <= DATE_CLOTURE) { :
the condition has length > 1 and only the first element will be used

Merci de m'aider pour ceux qui pensent avoir une idée favorable.

D'avance je vous remercie

[faubry]

& est un opérateur logique applicable aux vecteurs logiques. Il rend un vecteur logique de la longueur des vecteurs. Exemple :

Code :

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

1
2
3
4
set.seed( 1)
x <- rnorm( 30)
y <- rnorm( 30)
x > 0 & y < 0

&& est le ET logique entre deux conditions et renvoie un logique de longueur 1.

Ta première erreur est donc d'avoir utilisé le & à la place du &&. Ensuite r %in% Statut renvoie un vecteur donc tu testes la conjonction de deux vecteurs de conditions de longueurs supérieures à 1 alors que if nécessite une seule valeur. Si je comprends bien ton problème, ce que tu cherches est de test ligne à ligne. Si c'est le cas, essaye soit par une boucle, soit en utilisant la fonction ifelse.