Displaying 4 results from an estimated 4 matches for "envformula".
2015 Mar 22
2
robust updating methods
...dictor
variables and input variables. For example
d <- data.frame(y=1:10,x=runif(10))
names(model.frame(lm(y~log(x),data=d)))
## "y" "log(x)"
So if we wanted to do something like update to "y ~ sqrt(x)",
it wouldn't work ...
==================
update.envformula <- function(object,...) {
extras <- match.call(expand.dots = FALSE)$...
call <- getCall(object)
for (i in names(extras)) {
existing <- !is.na(match(names(extras), names(call)))
for (a in names(extras)[existing]) call[[a]] <- extras[[a]]
if (any(!ex...
2015 Mar 24
2
robust updating methods
...bles. For example
>
> d <- data.frame(y=1:10,x=runif(10))
> names(model.frame(lm(y~log(x),data=d))) ## "y" "log(x)"
>
> So if we wanted to do something like update to "y ~ sqrt(x)", it
> wouldn't work ...
>
> ================== update.envformula <- function(object,...) {
> extras <- match.call(expand.dots = FALSE)$... call <-
> getCall(object) for (i in names(extras)) { existing <-
> !is.na(match(names(extras), names(call))) for (a in
> names(extras)[existing]) call[[a]] <- extras[[a]] if
> (any(!existing)) {...
2015 Mar 23
0
robust updating methods
...le
>
> d <- data.frame(y=1:10,x=runif(10))
> names(model.frame(lm(y~log(x),data=d)))
> ## "y" "log(x)"
>
> So if we wanted to do something like update to "y ~ sqrt(x)",
> it wouldn't work ...
>
> ==================
> update.envformula <- function(object,...) {
> extras <- match.call(expand.dots = FALSE)$...
> call <- getCall(object)
> for (i in names(extras)) {
> existing <- !is.na(match(names(extras), names(call)))
> for (a in names(extras)[existing]) call[[a]] <- extras...
2015 Mar 27
0
robust updating methods
...;
>> d <- data.frame(y=1:10,x=runif(10))
>> names(model.frame(lm(y~log(x),data=d))) ## "y" "log(x)"
>
>> So if we wanted to do something like update to "y ~ sqrt(x)", it
>> wouldn't work ...
>
>> ================== update.envformula <- function(object,...) {
>> extras <- match.call(expand.dots = FALSE)$... call <-
>> getCall(object) for (i in names(extras)) { existing <-
>> !is.na(match(names(extras), names(call))) for (a in
>> names(extras)[existing]) call[[a]] <- extras[[a]] if
>...