objet formula et modification

[Mickael Canouil]

Bonjour, j'ai besoin d'effectuer une modification d'un objet formula en ajoutant un terme, j'ai la fonction ci dessous pour le faire, néanmoins n'y a t-il pas une meilleure solution?

Merci par avance de votre aide

Code : Tout sélectionner

newFormulaOffset <- function (formula) {
    terms <- attributes(terms.formula(formula))$term.labels
    fixEff <- terms[-grep("|",terms,fixed=T)]
    randEff <- terms[grep("|",terms,fixed=T)]
    newFormula <- paste(formula[[2]],"~")
    if (length(fixEff)>=1) {
      newFormula <- paste(newFormula,fixEff[1])
      for (i in 2:length(fixEff)) {
         newFormula <- paste(newFormula,fixEff[i],sep=" + ")
        }
   } else {}
    if (length(randEff)!=0) {
        newFormula <- paste(newFormula,"+(",randEff,")")
    } else {}
   newFormula <- as.formula(paste(newFormula,"offset(trajTypique)",sep=" + "),env=parent.frame())
    return(newFormula)
}
# newFormulaOffset(formula=y~x+z+(1|id))

[Logez Maxime]

Bonjour,

Code : Tout sélectionner

update(formula, ~.+offset(trajTypique))

Maxime

[Mickael Canouil]

merci beaucoup!
dans le même ordre d'idée pour récupérer uniquement dans
y~x+z+e+(1|id)
les "x", "z" et "e" ?

les méthodes terms, all.vars, etc fournissent la totalités des termes, y en a t'il une spécifique pour récupérer ces noms de variables?

[Matthieu Lesnoff]

les méthodes terms, all.vars, etc fournissent la totalités des termes, y en a t'il une spécifique pour récupérer ces noms de variables?

je ne pense pas (?) car "1|id" est aussi une variable, mais vous pouvez y arriver facilement par :

Code : Tout sélectionner

> f <- formula(y~x+z+e+(1|id))
> z <- all.vars(f)[-1]
> z[-c(length(z))]
[1] "x" "z" "e"


ou :

Code : Tout sélectionner

> z <- attr(terms(f), "term.labels")
> z[-c(length(z))]
[1] "x" "z" "e"


[Mickael Canouil]

merci beaucoup

[Logez Maxime]

Bonjour,

le code de Matthieu est efficace mais ne fonctionne pas si le terme aléatoire est placé à la fin.

Code : Tout sélectionner

f <- y~ x+(1|ed)+z
auxi <- attr(terms(f), "term.labels")
vars <- all.vars(f)[-1]

randoms <- vars[grep("\\|", auxi)]
fixes <- setdiff(vars, randoms)

Maxime

[Mickael Canouil]

comment s'utilise le double backslash dans le grep?
j'ai l'impression que ça fait exactement comme l'option fixed=TRUE.

[Logez Maxime]

?regexp

In basic regular expressions the metacharacters ?, +, {, |, (, and ) lose their special meaning; instead use the backslashed versions \?, \+, \ {, \|, \(, and \). Thus the metacharacters are . \ [ ^ $ *.

Effectivement ça semble avoir le même effet puisque chaque élément sera regardé comme un caractère. Je penche plutôt pour l'utilisation de \\ devant un méta-caractère parce que lorsque tu utiliseras des expressions régulière un peu plus complexes il est intéressant de pouvoir se servir des symboles comme \\b ou \\d et dans ce cas la il n'est pas souhaitable qu'il soit interpréter comme des caractères.
Maxime

[Mickael Canouil]

merci pour ce complément d'information