R/getPerms.R

Defines functions getPerms

getPerms<-function(n){
	mat<-matrix(0,2^n,n)
	for(i in 1:n)
		mat[,i]<-rep(0:1,times=2^(i-1),each=2^(n-i))
	mat
}

Try the mcbiopi package in your browser

Any scripts or data that you put into this service are public.

mcbiopi documentation built on May 2, 2019, 10:28 a.m.