R/pairt.samp.R

In siggenes: Multiple Testing using SAM and Efron's Empirical Bayes Approaches

Defines functions pairt.samp

Documented in pairt.samp

pairt.samp<-function(n.pair){
	mat<-matrix(0,2^n.pair,n.pair)
	for(i in 1:n.pair)
		mat[,i]<-rep(rep(c(1,-1),e=2^(n.pair-i)),2^(i-1))
	mat
} 
 

Try the siggenes package in your browser