search for: mycondition

Displaying 6 results from an estimated 6 matches for "mycondition".

2015 Feb 23
5
iterated lapply
...n reflects a "condition". When I evaluate this list of functions by another lapply/sapply, I get an unexpected result: all values coincide. However, when I uncomment the print(), it works as expected. Is this a bug or a feature? conditions <- 1:4 test <- lapply(conditions, function(mycondition){ #print(mycondition) myfn <- function(i) mycondition*i return(myfn) }) sapply(test, function(myfn) myfn(2)) Cheers, Daniel -- Daniel Kaschek Institute of Physics Freiburg University Room 210 Phone: +49 761 2038531
2015 Feb 24
3
iterated lapply
...; ... When I evaluate this list of functions by > another lapply/sapply, I get an unexpected result: all values coincide. > However, when I uncomment the print(), it works as expected. Is this a > bug or a feature? > > conditions <- 1:4 > test <- lapply(conditions, function(mycondition){ > #print(mycondition) > myfn <- function(i) mycondition*i > return(myfn) > }) > > sapply(test, function(myfn) myfn(2)) From: Jeroen Ooms <jeroenooms at gmail.com> > I think it is a bug. If we use substitute to inspect the promise, it > appears the index nu...
2015 Feb 23
0
iterated lapply
...evaluation when you want it. This is a feature: it allows you to have arguments that are never evaluated, because they are never used, or defaults that depend on things that are calculated within the function. Duncan Murdoch > conditions <- 1:4 > test <- lapply(conditions, function(mycondition){ > #print(mycondition) > myfn <- function(i) mycondition*i > return(myfn) > }) > > sapply(test, function(myfn) myfn(2)) > > > > Cheers, > Daniel >
2015 Feb 24
0
iterated lapply
...his list of functions by >> another lapply/sapply, I get an unexpected result: all values coincide. >> However, when I uncomment the print(), it works as expected. Is this a >> bug or a feature? >> >> conditions <- 1:4 >> test <- lapply(conditions, function(mycondition){ >> #print(mycondition) >> myfn <- function(i) mycondition*i >> return(myfn) >> }) >> >> sapply(test, function(myfn) myfn(2)) > > From: Jeroen Ooms <jeroenooms at gmail.com> >> I think it is a bug. If we use substitute to inspect the p...
2015 Feb 26
3
iterated lapply
...>>> another lapply/sapply, I get an unexpected result: all values coincide. >>> However, when I uncomment the print(), it works as expected. Is this a >>> bug or a feature? >>> >>> conditions <- 1:4 >>> test <- lapply(conditions, function(mycondition){ >>> #print(mycondition) >>> myfn <- function(i) mycondition*i >>> return(myfn) >>> }) >>> >>> sapply(test, function(myfn) myfn(2)) >>> >> >> From: Jeroen Ooms <jeroenooms at gmail.com> >> >>>...
2003 Dec 05
0
simple sphericity test using bartlett and cov?
Hey, Is this right for a sphericity test? x <- mymatrix mycov <- cov(x) bartlett.text (array (mycov), myconditions)