R/sandwich2.f.R

Defines functions sandwich2.f

# Sandwich estimator 2
# 
# This function is internal and not to be called by the user

sandwich2.f <- function(Y, g1, g2)
{
  Y1 <- na.omit(Y[g1])
  Y2 <- na.omit(Y[g2])
  return(sum(sapply(Y2, function(x) sum(1*(Y1 < x) + 0.5*(Y1 == x)))^2))  
}

Try the unifiedWMWqPCR package in your browser

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

unifiedWMWqPCR documentation built on May 6, 2019, 3:55 a.m.