R/psi.R

Defines functions psi

Documented in psi

psi<- function(x, y, intCol, exCol, pseudoCnt=0){
	if(missing(y))
		y<-x

	xCnt<-
		counts(x)[,
			intCol]
	yCnt<-
		counts(y)[,
			exCol]

	psiRes<- (xCnt)/(xCnt+(yCnt*2)+pseudoCnt)
	return (psiRes)

}

Try the IntEREst package in your browser

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

IntEREst documentation built on Nov. 8, 2020, 8:05 p.m.