Ma problématique est: "Comment et par quoi les mains perdues sont-elles remplacées? " ce qui m'envois sur la prothèse Myoélectrique… Pouriez-vous m'éclairer sur le sujet s'il vous plaît? Avez-vous d'autres informations sur les autres types de prothèses telles celle de travail, ou esthétiques ou encore les nouvelles telles les I-limb, les Fluidhands, ou Nanobiotact? Je cherche aussi des témoignages et vos avis, pourriez-vous faire partit de ces personnes? Je vous remercie d'avance, cordialement, Zoé. Prothèse avant bras oscillant. C cou08yux 09/02/2010 à 18:26 C cou08yux 09/02/2010 à 18:30 Bonjour Zoé, Je porte une prothèse myoélectrique Otto Bock depuis 30 ans déjà. Je pourrais te donner toutes informations utiles. Je viens aussi de recevoir une I-limb, mais j'en connais encore très mal le fonctionnement. J'ai besoin de m'entraîner. A bientôt peut-être Publicité, continuez en dessous Vous ne trouvez pas de réponse?
- Prothèse avant bras gauche
- Lapply sous l'emprise
- Lapply sous réserve
Prothèse Avant Bras Gauche
Pour une utilisation optimale, le patient a besoin de s'entraîner à contrôler les contractions musculaire et à gagner en précision dans ses mouvements. La prothèse bionique permet de réaliser des gestes encore plus précis au niveau de l'avant-bras, de la main et des doigts. Prothèse avant bras gauche. Son utilisateur peut piloter ses mouvements à l'aide d'un logiciel ou d'une application mobile. Cette solution innovante permet ainsi de se servir des avancées des nouvelles technologies pour gagner en autonomie dans la vie quotidienne. Un spécialiste de l'orthopédie présent dans les grandes villes de France
Pour vous accompagner, les spécialistes ortho team réalisent des appareillages sur mesure. Ces appareillages orthopédiques sont appliqués dans les points d'accueil clientèle du réseau par des professionnels, qui assurent un suivi régulier au fil des mois.
La forme et les éventuels points de pression de la prothèse sont contrôlés, et sa longueur est affinée. Nous vérifierons si d'autres adaptations sont nécessaires lors d'un rendez-vous de contrôle ultérieur. Si tout est en ordre, votre prothèse sera finalisée. Prothèses cosmétiques
Finition standard
Dans le cas d'une amputation d'un bras, l'apparence de la prothèse (l'aspect esthétique) est très importante. Une prothèse de bras purement cosmétique restaurera l'image corporelle; sa fonction est essentiellement esthétique. Le poids de la prothèse contribue en outre à un meilleur équilibre et au développement symétrique des muscles. Prothèse esthétique personnalisée en silicone finition "design" pour amputation d'avant bras - Amputation de l'avant-bras - NEUT. La main ou les doigts de la prothèse peuvent être bougés de manière passive uniquement. Finition de qualité
Outre la finition standard, nous proposons également une finition ultra-esthétique en silicone. Cette finition est plus réaliste avec des veines, des ongles, une couleur personnalisée, des tâches de pigmentation, …
Ce type de finition est plus coûteux que la finition standard et entraînera donc un supplément.
Quelqu'un sait-il comment faire ceci? En vous remerciant de votre attention
Matthieu FARON
Aline Deschamps
Messages: 133 Enregistré le: 11 Mai 2010, 07:49
Contact:
Message par Aline Deschamps » 21 Fév 2011, 15:38
Peut-être qu'un code réproductible et minimal serait le bienvenu ici. En effet, en ce qui me concerne je ne vois pas bien à quel moment vous faîtes appel au lapply (la commande paste est-elle incluse dans la fonction utilisée dans le lapply? ). Cordialement,
A. D. Message par matthieu faron » 21 Fév 2011, 15:49
Merci de votre réponse. Voici le code en question:
Code: Tout sélectionner #la fonction uni1 <- function(var) { survie <- survfit(Surv(delaios, status) ~ var, data=don) lr <- survdiff(Surv(delaios, status) ~ var, data=don) test <- round(pchisq(lr$chisq, df = (dim(lr$n)-1), ), 5) out <- list("Survie"=survie, "Log Rank"=test) if (test<0. Chapitre 8 Les fonctions apply | Apprendre à programmer avec R. 05) { survplot(survie) titre <- paste("Overall Survival:", substitute(var)) print(titre) text(titre[3], xpd=T, x=12, y=1. 1, font=2)} return(out)} # l'appel à lapply lapply(listuni1, FUN=uni1) # la liste (enfin le debut) listuni1 <- list("Site du primitif" = don$primsite, "Loc double" = don$pdouble,... )
En vous remerciant à nouveau pour votre attention
Logez Maxime
Messages: 3061 Enregistré le: 26 Sep 2006, 11:35
Message par Logez Maxime » 21 Fév 2011, 16:06
enlève le substitute et ça devrait fonctionner.
Lapply Sous L'emprise
lapply ( X = iris, function (x) class (x))
## $
## [1] "numeric"
## $Species
## [1] "factor"
lapply ( X = colnames (iris), function (x) summary (iris[, x]))
## [[1]]
## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 4. 300 5. 100 5. 800 5. 843 6. 400 7. 900
## [[2]]
## 2. 000 2. 800 3. 000 3. 057 3. 300 4. 400
## [[3]]
## 1. 000 1. 600 4. 350 3. Mémo sur les fonctions lapply, sapply, tapply, apply - DellaData. 758 5. 100 6. 900
## [[4]]
## 0. 100 0. 300 1. 199 1. 800 2. 500
## [[5]]
## setosa versicolor virginica
## 50 50 50
Quand on regarde de plus près, on se rend compte, que ces fonctions peuvent jouer le même rôle qu'une boucle. lapply ( X = colnames (iris), function (x) x)
## [1] ""
## [1] "Species"
Fonction sapply
La fonction sapply est similaire à la fonction lapply sauf qu'elle ne retourne pas de liste mais un vecteur ou une matrice. sapply ( X = iris, function (x) class (x))
## "numeric" "numeric" "numeric" "numeric" "factor"
Fonction tapply
La fonction tapply adopte la même approche que la fonction aggregate. Elle permet d'agréger des données. Les arguments de la fonction d'agrégation sont renseignés dans la fonction tapply et non dans la fonction d'agrégation.
Lapply Sous Réserve
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. à 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". R pour les nuls: La fonction tapply(). à 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!
Le jeu de données collecte pour chaque espèce des informations sur leur longueur et leur largeur. En guise de travail préalable, nous pouvons calculer la médiane de la longueur pour chaque espèce. tapply() est un moyen rapide d'effectuer ce calcul. data(iris)tapply(iris$, iris$Species, median)
## setosa versicolor virginica ## 3. 4 2. 8 3. 0