6635282 5. 4673550 class(res) ## [1] "numeric" La fonction sapply fait donc la même chose que la fonction lapply, mais en fournissant directement un vecteur en sortie! Un vecteur… une matrice, si la fonction renvoie plusieurs éléments: res <- sapply(maliste, quantile, probs=c(0. 75)) ## 25% -1. 20998298 3. 25 0. 2139582 ## 75% 0. 04138477 7. 75 0. 7128085 ## [1] "matrix" "array" Pas super simplifié, quand même! La fonction tapply permet d'appliquer une fonction sur une variable, par sous-groupe de données, que l'on spécifie en argument. Et les résultats sont fournis sous une structure de type array. Comment faire des comptages dans un data.frame ? apply, lapply, sapply, which - Astuces et scripts R. Par exemple, on peut obtenir la moyenne des longueurs de sépale pour chaque espèce d'iris: res <- tapply(iris$, iris$Species, mean) ## setosa versicolor virginica ## 5. 006 5. 936 6. 588 ## [1] "array" C'est l' équivalent de la fonction by(), mais sans la mise en forme: by(iris$, iris$Species, mean) ## iris$Species: setosa ## [1] 5. 006 ## ------------------------------------------------------------ ## iris$Species: versicolor ## [1] 5.
La fonction apply() permet d'appliquer une fonction (par exemple une moyenne, une somme) à chaque ligne ou chaque colonne d'un tableau de données. Cette fonction prend 3 arguments dans l'ordre suivant: nom du tableau de données un nombre pour dire si la fonction doit s'appliquer aux lignes (1), aux colonnes (2) ou aux deux (c(1, 2)) le nom de la fonction à appliquer Voici un exemple. L'objectif est de calculer la somme de chaque ligne ou de chaque colonne d'un tableau: # On crée d'abord une matrice avec 2 lignes et 3 colonnes data<-matrix(c(1, 2, 3, 4, 5, 6), nrow=2) # On donne un nom aux lignes et aux colonnes colnames(data)=c("C1", "C2", "C3") rownames(data)=c("L1", "L2") # On utilise la fonction apply() pour faire la somme de chaque ligne apply(data, 1, sum) # Pour faire la somme de chaque colonne, on remplace 1 par 2 apply(data, 2, sum)
Peut-être que cela vous donnera des idées de résolutions... Sinon, s'il vous est possible de mettre un (court) extrait de votre jeu de données, cela rendrait les choses peut-être plus claires. Cela dit, peut-être que d'autres membres du forum connaissent mieux que moi les fonctions que vous utilisez et seront plus à même de vous apporter leur aide. Bonne continuation:) Message par matthieu faron » 21 Fév 2011, 16:18 Merci à vous deux pour votre aide. Lapply sous r llye scientifique des. à Maxime: malheureusement quand j'enlève substitute titre devient un vecteur et la fonction text imprime toutes les combinaisons possibles de la modalité de la variable les unes sur les autres. Par exemple Overall survival: colon et Overall survival: rectum imprimé l'un sur l'autre au lieu de "primsite". à Aline: J'ai bien essayé votre exemple, mais chez moi le titre s'affiche avec la valeur de la variable (généré par runif()) et non pas avec son nom "X1". Encore merci Message par matthieu faron » 21 Fév 2011, 16:35 Merci, C'est mieux car maintenant le titre est de la forme: [[X10L]] Avec je pense 10 qui représente la position de la variable en question dans la liste (ce qui permet de la repérer!
Dans l'exemple que tu a pris c'est déjà une utilisation plus complexe de sapply puisqu'il est imbriqué dans une fonction. IL y a plus simple pour comprendre le fonctionnement. Par exemple, crée toi une liste de vecteur et tu pourras tenter la commande: ou encore sur un tableau de donnée (un est une liste) si tu fais la même commande qu'au dessus tu auras la moyenne par colonne. Je ne vois pas quoi te dire de plus pour le moment. Lapply sous r us. :) jean lobry Messages: 722 Enregistré le: 17 Jan 2008, 20:00 Contact: Message par jean lobry » 13 Oct 2008, 16:05 Bonjour, la fonction sapply() fait en fait appel à la fonction lapply() et essaye de simplifier le résultat en, typiquement, un vecteur. Donc le plus simple pour comprendre sapply() c'est de commencer à jouer avec lapply() qui va appliquer une même fonction à une liste. Comme les objets de la classe sont aussi des listes, on peut faire par exemple: Code: Tout sélectionner data(rock) lapply(rock, mean) colMeans(rock) sapply(rock, mean) Amicalement, Jean Retourner vers « Questions en cours » Qui est en ligne Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invité
5444656 5. 5000000 0. 5156045 unlist(lapply(maliste, quantile, probs=c(0. 75))) ## E1. 25% E1. 75% E2. 25% E2. 75% E3. 25% E3. 75% ## -1. 5197191 3. 2500000 7. 7500000 0. 8437486 Et il est aussi possible d'utiliser un vecteur en entrée, plutôt qu'une liste: nom <- names(iris) nom ## [1] "" "" "" "" "Species" class(nom) ## [1] "character" NOM <- unlist(lapply(nom, toupper)) NOM ## [1] "" "" "" "" "SPECIES" Donc, si on résume: lapply permet d'appliquer une fonction sur tous les éléments d'une liste, et fournit les résultats sous forme de liste. MAIS …, on peut facilement transformer la liste de sortie en vecteur, grâce à la fonction unlist(). Et, on peut aussi donner en entrée un vecteur d'éléments! Ce n'est donc pas pour rien que j'ai toujours eu du mal à m'y retrouver! Le s est pour simplify ( de la sortie)! R pour les nuls: La fonction apply(). Après ce qu'on vient de voir, on se dit forcément que c'est une bonne idée! Allez, on regarde de plus près comment ça fonctionne: maliste <- list(E1=rnorm(10), E2=1:10, E3=runif(10)) res <- sapply(maliste, mean) res ## -0.
Malheureusement c'est pas encore son nom... Encore merci, Message par Logez Maxime » 21 Fév 2011, 16:49 re, bon j'ai pris ça trop à la légère une possibilité: Code: Tout sélectionner tab <- (matrix(rnorm(100), 20)) colnames(tab) <- letters[1:5] lapply(tab, function(x) names(tab)[meric(gsub("\\D", "", deparse(substitute(x)), perl=T))]) Un code bien compliqué juste pour un nom de variable. Surement plus simple avec une boucle. Message par matthieu faron » 22 Fév 2011, 09:48 Merci pour ta suggestion, malheureusement je n'ai pas réussi à la faire marcher (probablement par manque de compétence). Toutefois ca m'a donné une idée pour "une" solution, pas très élégante mais je la mets quand même si ca peut servir un jour à quelqu'un.
Avances sur titres en cas de crédit de trésorerie: définition Une avance sur titre est une catégorie de prêt d'argent dont le remboursement est garanti par le nantissement des titres (mises à disposition de biens fictifs) au profit du créancier. Ces crédits à court terme sont naturellement accordés par des établissements financiers aux particuliers et aux entreprises. Dans son fonctionnement, une avance sur titre se rapproche un peu du crédit lombard. But et avantages des avances sur titres Le but d'une avance sur titres est de compenser les décalages temporaires ou saisonniers en matière de trésorerie. L'opération se déroule sous forme d'une avance en compte courant? ; et la solvabilité est déjà garantie par le nantissement. En effet, ce type de prêt présente de nombreux atouts. Pour l'emprunteur, les avances sur prêt lui permettent: de disposer de fonds pour sa trésorerie sans hypothéquer ses titres? ; d'obtenir une réponse immédiate à sa requête de disposer de liquidité? ; d'obtenir une avance évaluée proportionnellement à la valeur boursière moyenne des titres.
#47 05/12/2018 14h45 cricri77700 Membre (2014) Top 20 Année 2021 Top 20 Dvpt perso. Top 5 Vivre rentier Top 20 Immobilier locatif Réputation: 621 Et si unibail dévisse de 50% ainsi que son dividende? Je trouve ce discours trompeur. Dans mon cas je vais récupérer samedi 300k de CRD ou je suis seulement à 1. 40% sur 18 ans restant. Je ne vais pas mettre les 300k dans des foncières et prendre des risques inutile et continuer à payer mes mensualités. Et mes dans d'autre actif d'ailleur. Il ne faut pas être aveuglé par un rendement, pourquoi pas un couteau qui tombe aussi car sa va forcément remonter hein? Un emprunt doit être remboursé avec des mensualités qui doivent être toujours régler. Si demain ou sur du court terme la bourse fait comme 2008? Tout ce qui se seront endettés seront comme des c..! Maintenant je profite!!! #48 05/12/2018 14h51 ZeBonder Membre (2012) Top 10 Expatriation Top 5 Obligs/Fonds EUR Top 20 Monétaire Top 20 Invest. Exotiques Top 20 Entreprendre Top 20 Banque/Fiscalité Réputation: 416 Ils disent que c'est au maximum 50% de la valeur des actions éligibles au SRD mais est ce qu'il y a un barème plus clair avec une liste d'actions et du montant prêté?
Pokemon Gold Rom Ds, 2024