R/especov.R

In SINRELEF.LD: Reliability and Relative Efficiency in Locally-Dependent Measures

Defines functions especov

Documented in especov

especov <- function(thres1,thres2,ncat,r,C){

  sum <- 0
  ncat1 <- ncat[1]

  for (i in 1:ncat1){
    for (j in 1:ncat1){
      tmp <- i * j * C[i,j]
      sum <- sum + tmp
    }
  }

  espcov <- sum
  return(espcov)
}

Try the SINRELEF.LD package in your browser