Sorry, I am still not understanding this. I tried using the unlock binding
function, but the function remains unchanged after I attempt an assignment:

> library(nlme)
> bindingIsLocked("corExp",environment(corExp))
[1] TRUE
> unlockBinding("corExp",environment(corExp))
> bindingIsLocked("corExp",environment(corExp))
[1] FALSE
> assignInNamespace("corExp",
+ function (value = numeric(0), form = ~1, nugget = FALSE, metric =
c("euclidean",
+     "maximum", "manhattan"), fixed = FALSE)
+ {
+     cat("corExp\n")  ## SLIGHTLY CHANGE FUNCTION BY ADDING THIS LINE
+     attr(value, "formula") <- form
+     attr(value, "nugget") <- nugget
+     attr(value, "metric") <- match.arg(metric)
+     attr(value, "fixed") <- fixed
+     class(value) <- c("corExp", "corSpatial", "corStruct")
+     value
+ },
+ environment(corExp))
> corExp
function (value = numeric(0), form = ~1, nugget = FALSE, metric =
c("euclidean",
    "maximum", "manhattan"), fixed = FALSE)
{
    attr(value, "formula") <- form
    attr(value, "nugget") <- nugget
    attr(value, "metric") <- match.arg(metric)
    attr(value, "fixed") <- fixed
    class(value) <- c("corExp", "corSpatial", "corStruct")
    value
}
<environment: namespace:nlme>

On Mon, Apr 26, 2010 at 11:25 PM, Gabor Grothendieck <
ggrothendieck@gmail.com> wrote:

> See ?lockBinding
>
> On Mon, Apr 26, 2010 at 11:20 PM, Michael Steven Rooney
> <michael.s.rooney@gmail.com> wrote:
> > I tried editing the corExp function (added a line) within the nlme
> > environment with the following code, but it looks like my declaration did
> > not have any effect. I am guessing it is locked some how. Is there an
> easy
> > way to do this or am I treading into complicated waters? (I just picked
> up R
> > a year ago, and I don't have any experience in development. Willing to
> > learn.)
> >
> >> assignInNamespace("corExp",
> > + function (value = numeric(0), form = ~1, nugget = FALSE, metric =
> > c("euclidean",
> > +     "maximum", "manhattan"), fixed = FALSE)
> > + {
> > +     cat("corExp\n")   # I ADDED THIS LINE HERE
> > +     attr(value, "formula") <- form
> > +     attr(value, "nugget") <- nugget
> > +     attr(value, "metric") <- match.arg(metric)
> > +     attr(value, "fixed") <- fixed
> > +     class(value) <- c("corExp", "corSpatial", "corStruct")
> > +     value
> > + },
> > + environment(corExp))
> >> corExp
> > function (value = numeric(0), form = ~1, nugget = FALSE, metric =
> > c("euclidean",
> >     "maximum", "manhattan"), fixed = FALSE)
> > {
> >     attr(value, "formula") <- form
> >     attr(value, "nugget") <- nugget
> >     attr(value, "metric") <- match.arg(metric)
> >     attr(value, "fixed") <- fixed
> >     class(value) <- c("corExp", "corSpatial", "corStruct")
> >     value
> > }
> > <environment: namespace:nlme>
> >
> >
> > On Mon, Apr 26, 2010 at 10:46 PM, Michael Steven Rooney
> > <michael.s.rooney@gmail.com> wrote:
> >>
> >> Thanks.
> >>
> >> How do I make my function visible to others? Will assignInNamespace do
> >> that?
> >>
> >> On Mon, Apr 26, 2010 at 10:23 PM, Gabor Grothendieck
> >> <ggrothendieck@gmail.com> wrote:
> >>>
> >>> See ?assignInNamespace
> >>>
> >>> On Mon, Apr 26, 2010 at 9:49 PM, Michael Steven Rooney
> >>> <michael.s.rooney@gmail.com> wrote:
> >>> > Hi,
> >>> >
> >>> > I am trying to place my own functions in the nlme environment:
> >>> >
> >>> > The following statement works:
> >>> >
> >>> > environment(coef.corSPT) <-
> >>> > environment(getS3method("coef","corSpatial"))
> >>> >
> >>> > but this one returns an error:
> >>> >
> >>> > environment(get("coef<-.corSPT")) <-
> >>> > environment(getS3method("coef<-","corSpatial"))
> >>> > Error in environment(get("coef<-.corSPT")) <-
> >>> > environment(getS3method("coef<-",  :
> >>> >  target of assignment expands to non-language object
> >>> >
> >>> > What should I do?
> >>> >
> >>> > Thanks.
> >>> >
> >>> > Mike
> >>> >
> >>> >        [[alternative HTML version deleted]]
> >>> >
> >>> > ______________________________________________
> >>> > R-help@r-project.org mailing list
> >>> > https://stat.ethz.ch/mailman/listinfo/r-help
> >>> > PLEASE do read the posting guide
> >>> > http://www.R-project.org/posting-guide.html
> >>> > and provide commented, minimal, self-contained, reproducible code.
> >>> >
> >>
> >
> >
>

	[[alternative HTML version deleted]]

