classes <- paste0("class", 1:10)
all_pairwise(classes)[[1]]
#### How to use as an iterator
# dataframe with 4 cols, 100 rows
d <- as.data.frame(matrix(runif(100*4), 100, 4))
names(d) <- paste0("class", 1:4)
( idx <- all_pairwise(colnames(d))[[1]] )
opar <- par(no.readonly=TRUE)
par(mfrow=c(2,3))
lapply(idx, function(i) {
plot(d[,i[1]], d[,i[2]], main=paste0(i[1], " vs ", i[2]) )
})
par(opar)
Run the code above in your browser using DataLab