File: commonCondLogLikDerDelta.R

package info (click to toggle)
r-bioc-edger 3.40.2%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 1,484 kB
  • sloc: cpp: 1,425; ansic: 1,109; sh: 21; makefile: 5
file content (10 lines) | stat: -rw-r--r-- 340 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
 
commonCondLogLikDerDelta <- function(y, delta, der=0) 
# Calculates the common conditional log-likelihood (i.e. summed over all tags) - necessary so that optimize can be applied in estimateCommonDisp
# Davis McCarthy, July 2009
{
	l0 <- 0
	for(i in 1:length(y)) {
		l0 <- condLogLikDerDelta(y[[i]],delta,der=der)+l0
	}
	sum(l0)
}