352 résultats trouvés

Aller à la recherche avancée

par Aurélien Madouasse
28 Aoû 2013, 18:15
Forum : Questions en cours
Sujet : Indexation enregistrements ordonnés sans boucle
Réponses : 3
Vues : 2348

Bonsoir Anne,

Une manière de faire:

Code : Tout sélectionner

test$Index <- match(test$Com, unique(test$Com))

En espérant que tout va commme tu veux.

Aurélien
par Aurélien Madouasse
29 Juil 2013, 09:45
Forum : Questions en cours
Sujet : modèle et expression régulière
Réponses : 3
Vues : 2372

Bonjour, rm_last <- function(x, sep){ splt <- strsplit(x, sep, fixed = TRUE) lgth_str <- as.numeric(lapply(splt, length)) out_str <- paste(splt[[1]][-lgth_str], collapse = sep) out_str } rm_last(formule, "+") Aurélien
par Aurélien Madouasse
19 Juil 2013, 09:51
Forum : Questions en cours
Sujet : Couleurs graphiques
Réponses : 4
Vues : 2263

Bonjour, Par exemple: test <- data.frame( traitement = rep(letters[1:3], each = 3), x = runif(9), y = runif(9)) colr <- data.frame( traitement = letters[1:3], col = c("red", "blue", "green")) plot(y ~ x, data = test, p...
par Aurélien Madouasse
14 Juin 2013, 13:07
Forum : Questions en cours
Sujet : Débutant fonction readOGR
Réponses : 5
Vues : 7141

Bonjour, Il faut renseigner les arguments dsn et layer . dsn est le chemin vers le repertoire qui contient les fichiers. Habituellement, plusieurs fichiers ont le même nom, avec des extensions différentes (voir ici ). L'argument layer est le nom des fichiers sans l'extension. Si ça ne marche pas, po...
par Aurélien Madouasse
22 Mai 2013, 12:15
Forum : Questions en cours
Sujet : agrandir les axes sur un plot
Réponses : 2
Vues : 4228

Bonjour, Pas sûr d'avoir compris la question. Si le problème est de changer le nombre de graduations: test <- data.frame( x = runif(10), y = runif(10)) plot(y ~ x, data = test, xaxt = "n", yaxt = "n") axis(side = 1, at = seq(0, 1, by = .2&#...
par Aurélien Madouasse
05 Mai 2013, 14:07
Forum : Questions en cours
Sujet : comparaison des vecteurs
Réponses : 6
Vues : 2879

Bonjour,

Une idée:

Code : Tout sélectionner

X <- 1:10
Y <- 0:9

sapply(X, function(x) x %in% Y)


Aurélien
par Aurélien Madouasse
29 Avr 2013, 14:57
Forum : Questions en cours
Sujet : compter le nombre de caractère
Réponses : 2
Vues : 9741

Bonjour,

Code : Tout sélectionner

test <- data.frame(
            mot = unlist(sapply(1:5, function(x) paste(letters[1:x], collapse = ""))))

test$mot_long <- nchar(as.character(test$mot))


Aurélien
par Aurélien Madouasse
23 Avr 2013, 15:51
Forum : Questions en cours
Sujet : analyse spatiale
Réponses : 3
Vues : 2527

Bonjour, Difficile sans un extrait des données. Il me semble que la partie suivante du code peut poser porblème: #je créé un polygone à partir du tableau de données# polygon<-poly(ptsp,degree=1,coefs=NULL,raw=FALSE) frame() polymap(polygon,add=TRUE) poly est une fonction qui ...
par Aurélien Madouasse
22 Avr 2013, 09:16
Forum : Questions en cours
Sujet : Problème de régression logistique
Réponses : 2
Vues : 9225

Bonjour, Il est probable que ça ne vienne pas de 'goodbad' mais d'une des variables incluse dans le modèle définie comme facteur, mais avec une seule modalité. ## Exemple ?glm counts <- c(18,17,15,20,10,20,25,13,12) outcome <- gl(3,1,9) treatment <- gl(3,3) print(d.AD <- ...
par Aurélien Madouasse
16 Avr 2013, 13:13
Forum : Questions en cours
Sujet : R <-> MySQL sur serveur Ubuntu
Réponses : 7
Vues : 4253

De mémoire, c'est assez compliqué sous Windows. J'avais fini par utiliser RODBC qui fonctionne sur sytème 32 bits. Par contre, RMySQL fonctionne bien sous ubuntu. Il y a quelques liens sur internet qui décrivent comment faire. Pas testé. http://www.r-bloggers.com/installing-the-rmysql-package-on-win...
par Aurélien Madouasse
26 Mar 2013, 18:43
Forum : Questions en cours
Sujet : Passer d'une mesure quotidienne à une mesure mensuelle
Réponses : 2
Vues : 2130

Bonjour, test <- data.frame( X=(seq(as.Date("2012-12-01"), as.Date("2013-03-17"), "day")), Y=(c(1:107))) test$mois <- format(as.Date(test$X), "%b-%y") with(test, tapply(Y, mois, su...
par Aurélien Madouasse
05 Mar 2013, 17:18
Forum : Questions en cours
Sujet : utiliser un nom partiel
Réponses : 4
Vues : 2169

Bonsoir,

Code : Tout sélectionner

test <- data.frame(
         C = c("a", "aa", "b", "ab"))

length(grep("a", test$C))


Aurélien
par Aurélien Madouasse
01 Fév 2013, 11:37
Forum : Questions en cours
Sujet : questions simples sur un graphe
Réponses : 6
Vues : 3380

Voir ?axis

Code : Tout sélectionner

axis(side = 1, labels = NA, tick = FALSE)


Aurélien
par Aurélien Madouasse
01 Fév 2013, 11:17
Forum : Questions en cours
Sujet : [RESOLU] sourcer tous les fichiers d'un dossier
Réponses : 2
Vues : 2344

Bonjour, Il y a un exemple dans l'aide de la fonction source. ## If you want to source() a bunch of files, something like ## the following may be useful: sourceDir <- function(path, trace = TRUE, ...) { for (nm in list.files(path, pattern = "\\.[RrSsQq]$")&...
par Aurélien Madouasse
01 Fév 2013, 11:11
Forum : Questions en cours
Sujet : questions simples sur un graphe
Réponses : 6
Vues : 3380

Bonjour,

1)

Code : Tout sélectionner

layout(matrix(1:8, nrow = 1),
               width = c(1, rep(2, 7)))
layout.show(n = 8)


2)

Code : Tout sélectionner

plot(rnorm(100), xaxt = "n")
axis(side = 1, labels = NA)


Aurélien

Aller à la recherche avancée