The R Project SVN R

Rev

Rev 61160 | Rev 65147 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61160 Rev 62106
Line 59... Line 59...
59 
## keep LHS :
 59 
## keep LHS :
60 
reformulate("x*w", ff[[2]])
 60 
reformulate("x*w", ff[[2]])
61 
fS <- surv(ft, case) ~ a + b
 61 
fS <- surv(ft, case) ~ a + b
62 
reformulate(c("a", "b*f"), fS[[2]])
 62 
reformulate(c("a", "b*f"), fS[[2]])
63 
 
 63 
 
- 
 
 64 
## using non-syntactic names:
- 
 
 65 
reformulate(c("`P/E`", "`\% Growth`"), response = as.name("+-"))
- 
 
 66 
 
64 
stopifnot(identical(      ~ var, reformulate("var")),
 67 
stopifnot(identical(      ~ var, reformulate("var")),
65 
          identical(~ a + b + c, reformulate(letters[1:3])),
 68 
          identical(~ a + b + c, reformulate(letters[1:3])),
66 
          identical(  y ~ a + b, reformulate(letters[1:2], "y"))
 69 
          identical(  y ~ a + b, reformulate(letters[1:2], "y"))
67 
         )
 70 
         )
68 
}
 71 
}