R/byfactor.R

Defines functions byfactor

byfactor<-function(chrmdata){
	names<-dimnames(chrmdata)[[2]]
	if(length(unique(names))!=ncol(chrmdata))stop("wrong number of variable names")
	dimnames(chrmdata)[[2]]<-sample(names)
	return(chrmdata[,match(names,dimnames(chrmdata)[[2]])])
}

Try the TBEST package in your browser

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

TBEST documentation built on May 25, 2022, 9:11 a.m.