Application de la fonction au vecteur

J'ai construit la fonction suivante:

Code:

---

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:

---

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:

---

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

---

Le message d'erreur suivant s'affiche :

Citation:

---

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

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

Code:

---

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.