Description Usage Arguments Examples
Title
1 2 3 4 5 6 7 8 9 |
fcn |
|
fcn.arg2 |
|
gmle.out |
|
extrapolate |
|
ptwise.if.simult |
|
conf.level |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | ## Not run:
Fan.ld <- frame.to.ld(fan,
response.column = 1,
censor.column = 2,
case.weight.column = 3,
time.units = "Hours")
Fan.egeng.gmle.out <- FillRegion(Fan.egeng.gmle.out,
nbound = 10,
iter = 500)
summary(Fan.egeng.gmle.out.jcr)
names(Fan.egeng.gmle.out.jcr)
basic.gmleprobplot(Fan.ld,distribution = "egeng",
xlim = c(200,99999),
ylim = c(.0011,.69),
xxx.mle.out = Fan.egeng.gmle.out,
my.title = "",
cexlab = 1.5,
conlev = .95,
ciMethod = "lr.approx",
length.time.vec = 2)
Fan.weibull.gmle.out <- ls2.mle(Fan.ld, distribution = "weibull")
Fan.weibull.gmle.out <- FillRegion(Fan.weibull.gmle.out,
nbound = 4,
iter = 50,
cull = 2 )
fcn = function(theta,time,distribution){
f.phibf((log(time)-theta[1]) / exp(theta[2]),
distribution = "Weibull")
}
Fr.conf(fcn,
fcn.arg2 = log.seq(200,2000,length=10),
gmle.out = Fan.weibull.gmle.out,
ptwise = T)
Fr.conf(fcn,
fcn.arg2 = log.seq(200,2000,length = 10),
gmle.out = Fan.weibull.gmle.out,
ptwise = T,
extrapolate = T)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.