R/get.alpha.R

Defines functions get.alpha

Documented in get.alpha

get.alpha<-function(beta, scaledfactor)
{
  nz<-sum(beta!=0)
  alpha<-nz*scaledfactor
  if (is.nan(alpha)==TRUE)
  {
    alpha<-0.5
  }
  return(alpha)
}

Try the icmm package in your browser

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

icmm documentation built on May 26, 2021, 9:06 a.m.