# List output
set.seed(123)
KScens(times = rweibull(1000, 12, scale = 4), distr = "weibull")
# Table output
set.seed(123)
print(KScens(times = rweibull(1000, 12, scale = 4), distr = "weibull"),
outp = "table")
Run the code above in your browser using DataLab