Recherche:

tu peux utiliser la commande sub (ce n'est probablement pas la seule solution)


df <- c("Mlle TOTO", "Mr DUPONT", "Marie Mme HOUST")
sub('.*(Mr|Mme|Mlle).*', '\\1', df )
## [1] "Mlle" "Mr" ...

Tu peux utiliser la fonction axis comme ceci


A <- c(3,2,1,3)
x <- seq(0, 3, by=0.5)
barplot(A, horiz=TRUE, axes=F)
axis(side=1, at=seq(0, 3, by=0.5), labels = seq_along(x))

Très bien, cela signifie que ce qui est affiché à l'écran est différent de ce qui est stocké dans ta variable 'course'.
il faut encore essayer cela :



library(XML)
url <-...

En exécutant ton code j'obtiens :
course
# "vendredi_:_Vincennes_(R4)"

Du coup le code précédent ne fonctionne plus, puisqu'il y avait des espaces alors qu'ici ce sont des tirets.

Tu peux...

OK,
il me faudrait un exemple reproductible, même minimal pour comprendre ce qui ne va pas

pour le lien : http://ciam.inra.fr/r4ciam/node/148


pour le code


ch <- c("mardi : Fabrice (Dispo)", "lundi : Josianne (Occ)")
gsub(pattern="[[:alpha:]]+ : ([[:upper:]]{1}[[:alpha:]]+)...

le vecteur renvoyé à la fin du script indique les lignes de tes données qui possèdent la même date sans se soucier de l'heure.
Ainsi les 1 dans le vecteur représentent la date du 2014-05-28, les 2...

la première étape est de séparer l'heure des dates


data <- data.frame(date=c('2014-05-28 16:56:22','2014-05-28 16:52:22','2014-05-30 16:51:22','2014-05-28 16:51:02','2014-05-30...

il faut utiliser les fonctions eval et parse pour évaluer des chaînes de caractères



nomTable <- data.frame(x=rnorm(10))
for(I in 1:10) {
eval(parse(text=paste0("var",I,"=rep(0,...

je crois que tu as remplacé l'indice j par i dans ta boucle. De plus tu devrais utiliser un indice autre que j dans le 'assign', cela rendrait ton code plus lisible.
Enfin, pourquoi demander de...

Bien sûr,



eval(parse(text=paste0("Data_",stationsLISTE[1]))) # il suffit de remplacer par stations dans ta boucle

PS : Ce n'est pas très propre d'évaluer des chaînes des caractères mais ça...

Bonjour,
pourquoi compliquer les choses, une simple structure 'if() else' est suffisante pour cela.

Bonjour,
utilise le 'Y' en majuscule, sinon ça ne prend que les deux premier chiffres

as.Date(variable_date, '%d/%m/%Y')

Les odds pour chaque individu se calculent avec


exp(model_regression$linear.predictors)

l'odds ratio est


exp(coefficients(model_regression))

Tu peux tout à fait combiner les deux méthodes si c'est ce que tu souhaites mais je ne vois pas où tu bloques

Bonjour,
Regarde l'aide de la fonctions ?knn du package 'class' tu y trouveras tout ce qu'il faut.



require(class)
train <- rbind(iris3[1:25,,1], iris3[1:25,,2], iris3[1:25,,3]) # données...

require(cluster) # j'avais oublié de charger ce package
x <- rbind(cbind(rnorm(10,0,0.5), rnorm(10,0,0.5)), cbind(rnorm(15,5,0.5), rnorm(15,5,0.5)))
pamx <- pam(x, 2)
pamx$medoids
# [,1]...

GiyF
147948

va sur http://cran.r-project.org/web/packages/Rcmdr/index.html puis télécharges la source en tar.gz (Rcmdr_x.0-4.tar.gz )

Bonjour,
je souhaite estimer les paramètres d'un mélange de deux lois normales ~ N(0,1)+N(4,1) .
Pour cela j'utilise le package 'flexmix'.

require(flexmix)
#require(lattice)
dat <-...

la fonction "step" ne va pas renvoyer le résultat rapidement d'autant que ton modèle contient 269 variables (ce qui n'est pas rien), c'est probablement pour cela que le programme se fige.
Sinon,...

options(warn=-1) # n'affiche plus les messages de warning
regl=glm(Statut~ . , family=binomial) # le "." permet d'inclure toute les variables présentes dans ton tableau

f <- function(x1, y1, data) {
cl <- match.call()
mt <- match(c('x1', 'y1'), table=names(cl))
mt <- mt[mt != 0]
x1 <- data[, as.character(cl)[mt[1]]]
x2 <- data[,...

(xc <- as.character(runif(10)))
(pref <- sample(c('MFCDTA', 'MTEDTA'), 10, replace=TRUE))
(maVar <- paste0(pref, sep='_', xc))
grep('MTEDTA\\.*', maVar) # récupère les indices de tes variables...

J'ai modifié mon message précédent (j'avais oublié une ligne), ça marche maintenant ;)