Displaying 1 result from an estimated 1 matches for "nofl".
Did you mean:
noel
2012 Jun 27
2
a problem of approach
...fe pet example, using the function findSubsets() from the QCA
package (our foo function above):
####
library(QCA)
testfoo <- function(x, y) {
index <- 0
while((index <- index + 1) < length(x)) {
x <- setdiff(x, findSubsets(y, x[index], max(x)))
}
return(x)
}
nofl <- rep(3, 14)
set.seed(12345)
numbers <- sort(sample(seq(prod(nofl)), 1000000))
system.time(result <- testfoo(numbers, nofl))
####
user system elapsed
8.168 2.049 10.148
Any hint will be highly appreciated, thanks in advance,
Adrian
--
Adrian Dusa
Romanian Social Data Archive...