R/rlgst.R

rlgst<-function(n,a,b,s) (log(-(b*(-(a*s)/b-(1-runif(n))^(-s)+1))/(a*s)))/b
bokov/powertrip documentation built on May 12, 2019, 11:33 p.m.