simple.contour: Create a contour plots of a likelihood function

Description Usage Arguments Examples

Description

Create a contour plots of a likelihood function

Usage

 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
simple.contour(
  data.ld,
  distribution,
  xlim = c(NA, NA),
  ylim = c(NA, NA),
  size = 100,
  static = F,
  quantile = NA,
  show.confidence = TRUE,
  contour.indicators = NULL,
  zoom.level = 3.5,
  show.mle = T,
  my.title = NULL,
  threeD = F,
  direction = NULL,
  profile = NULL,
  lwd = 1,
  elevation = NULL,
  distance = NULL,
  original.par = T,
  log.quantile = F,
  log.axis = T,
  add = F,
  ...
)

Arguments

data.ld
distribution
xlim
ylim
size
quantile
show.confidence
contour.indicators
zoom.level
show.mle
my.title
threeD
direction
profile
lwd
elevation
distance
original.par
log.quantile
log.axis
add
...

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
55
56
57
58
## Not run: 

ShockAbsorber.ld <- frame.to.ld(shockabsorber,
                                response.column = 1, 
                                censor.column = 3,
                                time.units = "Kilometers")

simple.contour(ShockAbsorber.ld,
               distribution = "lognormal",
               show.confidence = T)


simple.contour(ShockAbsorber.ld,
               distribution = "lognormal",
               show.confidence = T,
               threeD = T)
               
bulb.ld <- frame.to.ld(bulb,
                       response.column = 1,
                       data.title = "Bulb Data",
                       time.units = "Hours")

mlest(bulb.ld,"lognormal")

simple.contour(bulb.ld,"lognormal", quantile = .5)

# Bearing Cage Data Set

BearingCage.ld <- frame.to.ld(bearingcage,
                              response.column = 1, 
                              censor.column = 2, 
                              case.weight.column = 3,
                              time.units = "Hours")

simple.contour(BearingCage.ld,
               distribution = "Weibull",
               zoom.level = 4,
               quantile = .1,
               threeD = TRUE)

simple.contour(BearingCage.ld,
               distribution = "Weibull",
               zoom.level = 4,
               profile = "x")

simple.contour(BearingCage.ld,
               distribution = "Weibull",
               zoom.level = 4,
               profile = "y")


simple.contour(BearingCage.ld,
               distribution = "Weibull",
               threeD = T,
               zoom.level = 3,
               size = 75)

## End(Not run)

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