Nothing
# ----------------------------------------------------------
# Given n an integer, create a matrix with n columns
# containing all combinations of 0 and 1 in the first column
# and all combinations of 0,1 and 2 in the other columns.
# mkPatr produces matrices in a different order than mkPat
# ----------------------------------------------------------
mkPatr <- function( n ) {
nc <- n
nr <- 2 * 3 ^ (n-1)
vals <- c(0,1,2)
mat <- matrix(NA,ncol=nc,nrow=nr)
mat[,1] <- sapply(c(0,1),rep,nr/2)
if ( n > 1 ) {
for ( k in 1:(n-1) ) {
mat[,k+1] <- sapply(vals,rep,3^(k-1))
}
}
return(mat)
}
# ----------------------------------------------------------
# Given n an integer, create a matrix with n columns
# containing all combinations of 0, 1 and 2.
# mkPatr3 produces matrices in a different order from mkPat3
# ----------------------------------------------------------
mkPatr3 <- function( n ) {
nc <- n
nr <- 3 ^ n
vals <- c(0,1,2)
mat <- matrix(NA,ncol=nc,nrow=nr)
mat[,1] <- vals
if ( n > 1 ) {
for ( k in 1:(n-1) ) {
mat[,k+1] <- sapply(vals,rep,3^(k))
}
}
return(mat)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.