R/pb.R

Defines functions pb

pb <-
function(data, ...){
	result <- numeric(ncol(data))
		for(i in 1:ncol(data)) {
		result[i] <- cor(data[,i], rowSums(data[-i]), ...)
	}
	result
}
wasabi1989/MiscPsycho documentation built on Jan. 19, 2020, 12:29 a.m.