R/fht.R

Defines functions fht

fht <-
function(A){
	m<-NROW(A)
	mbig<-2^ceiling(log2(m))
	Abig<-matrix(0,nrow=mbig,ncol=NCOL(A))
	Abig[1:m,]<-A
	.C("mfwht", Abig, as.integer(mbig), as.integer(NCOL(Abig)))[[1]]
}
tslumley/bigQF documentation built on May 20, 2018, 1:17 p.m.