R/r_rsize_Weibull.R

In RSizeBiased: Hypothesis Testing Based on R-Size Biased Samples

Defines functions r_rsize_Weibull

Documented in r_rsize_Weibull

r_rsize_Weibull <- function(n, TRpar,r) {
  u<-rgamma(n, shape = r/TRpar[1]+1, scale =1)
  y<-TRpar[2]*u^(1/TRpar[1])
  return (y)  
}

Try the RSizeBiased package in your browser