Displaying 2 results from an estimated 2 matches for "have_object".
Did you mean:
have_gobject
2006 Apr 05
1
page() (Was: Re: predict.smooth.spline.fit and Recall() (Was: Re: Return function from function and Recall()))
...e to back-quote it, but it does work). So
> > one possible way out would be to use get() on a name and evaluate
> > calls, e.g.
>
> > page <- function(x, method = c("dput", "print"), ...)
> > {
> > subx <- substitute(x)
> > have_object <- FALSE
> > if(is.call(subx)) {
> > object <- x
> > have_object <- TRUE
> > subx <- deparse(subx)
> > } else {
> > if(is.character(x)) subx <- x
> > else if(is.name(subx)) subx <- dep...
2006 Apr 05
1
predict.smooth.spline.fit and Recall() (Was: Re: Return function from function and Recall())
Hi,
forget about the below details. It is not related to the fact that
the function is returned from a function. Sorry about that. I've
been troubleshooting soo much I've been shoting over the target. Here
is a much smaller reproducible example:
x <- 1:10
y <- 1:10 + rnorm(length(x))
sp <- smooth.spline(x=x, y=y)
ypred <- predict(sp$fit, x)
# [1] 2.325181 2.756166 ...