Displaying 1 result from an estimated 1 matches for "bag3".
Did you mean:
bag
2010 Jan 14
2
Fixed size permutations
...ctor selection.
For each predictor size I use a seperate function like this:
bag2 <- function(n) {
rl <- c()
for (i1 in seq(n)) {
for (i2 in seq(n)) {
if (length(unique(c(i1,i2)))==1) {next}
rl <- cbind(rl,matrix(c(i1,i2)))
}
}
rl
}
bag3 <- function(n) {
rl <- c()
for (i1 in seq(n)) {
for (i2 in seq(n)) {
for (i3 in seq(n)) {
if (length(unique(c(i1,i2,i3)))==1) {next}
rl <- cbind(rl,matrix(c(i1,i2,i3)))
}
}
}
rl
}
But I think it should...