Displaying 6 results from an estimated 6 matches for "thisenv".
Did you mean:
thise
2018 Jan 02
3
Help with first S3-class
...3. How can one function inside "me"-list called another function. Eg.
How can account$plot() call account$pastSaldo() ?
Here are my code. Feel free to comment on any aspect of the code.
ps. I hope I have manage to strip HTML.
Regards
Martin
account <- function(owner = NULL) {
thisEnv <- environment()
pastSaldo <- vector()
saldo <- 0
owner <- owner
me <- list(
thisEnv = thisEnv,
getEnv = function() { return(get("thisEnv", thisEnv)) },
balance = function() { return(get("saldo", thisEnv)) },
depo...
2018 Jan 02
0
Help with first S3-class
...they'd be able to see each other
without any prefix.
Duncan Murdoch
>
> Here are my code. Feel free to comment on any aspect of the code.
> ps. I hope I have manage to strip HTML.
>
> Regards
> Martin
>
>
>
> account <- function(owner = NULL) {
> thisEnv <- environment()
>
> pastSaldo <- vector()
> saldo <- 0
> owner <- owner
>
> me <- list(
> thisEnv = thisEnv,
>
> getEnv = function() { return(get("thisEnv", thisEnv)) },
>
> balance = functio...
2006 Jan 08
1
confint/nls
...etArgs[[2]],
! gradSetArgs[[3]], gradSetArgs[[4]],drop=FALSE))
getRHS.varying <- function()
{
ans <- getRHS.noVarying()
***************
*** 331,337 ****
else {
vary
}, envir = thisEnv)
! gradCall[[length(gradCall)]] <<- useParams
if(all(useParams)) {
assign("setPars", setPars.noVarying, envir = thisEnv)
assign("getPars", getPars.noVarying, envir = thisEnv)
--- 331,337 ----...
2009 Jul 09
1
Changing text in a tkentry widget
...for a solution to this, but
didn't see anything, so here goes. I'm new to tcltk. I'm trying to
change the contents of a tkentry widget when a button is pressed. Once I
get that working, the widget will be read only to the user. Here is some
toy code:
###############
require(tcltk)
thisEnv=environment()
tt<-tktoplevel()
Name <- tclVar("Anonymous")
entry.Name <-tkentry(tt,width="20",textvariable=Name)
tkgrid(entry.Name)
OnChange <- function()
{
assign("Name",tclVar("changed name"),thisEnv)
}
Change.but <-tkbutton(tt,text="...
2007 Mar 13
0
segfault with correlation structures in nlme
...q=2))
>fm60var.nlme <- update(fm10var.nlme,corr=corGaus(form=~Time))
*** caught segfault ***
address 0x1075e501, cause 'memory not mapped'
Traceback:
1: eval(expr, envir, enclos)
2: eval(modelExpression, env)
3: assign("modelValue", eval(modelExpression, env), envir = thisEnv)
4: function (newPars) { if (!missing(newPars)) { for (i in
names(ind)) { assign(i, clearNames(newPars[ind[[i]]]), envir
= env) } assign("modelValue", eval(modelExpression, env),
envir = thisEnv) } modelValue}(c(-4.11936939372863,
0.157676781855328,...
2003 Aug 07
2
model.frame() call from inside a function (PR#3671)
R version: 1.7.1
OS: Red Hat Linux 7.2
Hi all,
The formula object in model.frame() is not retrieved properly when
model.frame() is called from within a function and the "subset" argument
is supplied.
foo <- function(formula,data,subset=NULL)
{
cat("\n*****Does formula[-3] == ~y ?**** TRUE *****\n")
print(formula[-3] == ~y)
cat("\n*****Result of model.frame()