Fr.conf: Title

Description Usage Arguments Examples

Description

Title

Usage

1
2
3
4
5
6
7
8
9
Fr.conf(
  fcn,
  fcn.arg2,
  gmle.out,
  extrapolate = F,
  ptwise.if.simult = F,
  conf.level = GetSMRDDefault("SMRD.ConfLevel")/100,
  ...
)

Arguments

fcn
fcn.arg2
gmle.out
extrapolate
ptwise.if.simult
conf.level
...

Examples

 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)

Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.