Displaying 3 results from an estimated 3 matches for "makefun".
Did you mean:
makefn
2008 Jan 21
2
experiments with slot functions and possible problems NOTE
...==============
## 1) One possible "set of functions"
flistA <- list(
foo = function() {
1:10
},
bar = function() {
log(foo())
}
)
## .. we may also have alternative sets,
## e.g. flistB, flistC, ... etc
## 2) Now we try to construct closures
## 2a) non-nested
makefun1 <- function(flist) {
with(flist,
function() foo()
)
}
## 2b) nested call
makefun2 <- function(flist) {
with(flist,
function() bar()
)
}
## 2c) or use an alternative way with a special function
## addtoenv, suggested by Gabor Grothendieck some times ago:
addtoenv <...
2012 Apr 11
0
mosaic 0.4 on CRAN
...146.52) (10890.48)
[12.34] [ 0.17]
<-3.51> < 0.41>
189.00 10845.00
( 146.48) (10887.52)
[12.34] [ 0.17]
< 3.51> <-0.41>
key:
observed
(expected)
[contribution to X-squared]
<residual>
> model <- lm(length ~ width + sex, KidsFeet)
> L <- makeFun(model)
> L( 9.0, 'B')
1
24.80017
> L( 9.0, 'B', interval='confidence')
fit lwr upr
1 24.80017 24.30979 25.29055
> xyplot( length ~ width, groups= sex, KidsFeet ) # scatter plot
> with different symbols for boys and girls
> plo...
2012 Apr 11
0
mosaic 0.4 on CRAN
...146.52) (10890.48)
[12.34] [ 0.17]
<-3.51> < 0.41>
189.00 10845.00
( 146.48) (10887.52)
[12.34] [ 0.17]
< 3.51> <-0.41>
key:
observed
(expected)
[contribution to X-squared]
<residual>
> model <- lm(length ~ width + sex, KidsFeet)
> L <- makeFun(model)
> L( 9.0, 'B')
1
24.80017
> L( 9.0, 'B', interval='confidence')
fit lwr upr
1 24.80017 24.30979 25.29055
> xyplot( length ~ width, groups= sex, KidsFeet ) # scatter plot
> with different symbols for boys and girls
> plo...