R/Hscale.R

Defines functions Hscale

Hscale <-function(X,EO,O){
  J <- colnames(X)
  nn <- length(J)
  Hscal <- NULL
  cmb1 <- combinations(n=nn, r=3, v=J, set=FALSE, repeats.allowed=FALSE)
  Osum <- sum(O[cmb1])
  Esum <- sum(EO[cmb1])
  Hscal <- 1 - (Osum / Esum)
  return(Hscal)
}

Try the mudfold package in your browser

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

mudfold documentation built on Nov. 24, 2022, 5:09 p.m.