R/weightsMixtureUB.R

Defines functions weightsMixtureUB

Documented in weightsMixtureUB

weightsMixtureUB <- function(orness,numVar){
  if(orness == .5){
    w = rep(1/numVar,numVar)
   }else{
     lambda = 0.5
     prob0 = 3/2 - 2 * orness
     w = lambda * dbinom(0:(numVar-1), size = numVar-1, prob = prob0) + 
       (1 - lambda) * rep(1/numVar,numVar)
    }
  w
}

Try the Anthropometry package in your browser

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

Anthropometry documentation built on Jan. 14, 2023, 1:16 a.m.