frame.to.ddd: Title

Description Usage Arguments Examples

Description

Title

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
frame.to.ddd(
  frame,
  response.column,
  time.column,
  censor.column,
  case.weight.column,
  failure.mode.column,
  right.censor.names = GetSMRDDefault("SMRD.RcName"),
  left.censor.names = GetSMRDDefault("SMRD.LcName"),
  interval.censor.names = GetSMRDDefault("SMRD.IcName"),
  sinterval.censor.names = GetSMRDDefault("SMRD.DefaultSintervalCensorNames"),
  failure.censor.names = GetSMRDDefault("SMRD.FailName"),
  data.title = deparse(substitute(the.frame)),
  time.units = NULL,
  response.units = NULL,
  x.columns = NULL,
  xlabel = NULL,
  data.note = "",
  func.call = match.call(),
  file.name,
  skip = 0
)

Arguments

frame
response.column
time.column
censor.column
case.weight.column
failure.mode.column
right.censor.names
left.censor.names
interval.censor.names
sinterval.censor.names
failure.censor.names
data.title
time.units
response.units
x.columns
xlabel
data.note
func.call
file.name
skip

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
59
60
61
62
63
64
65
## Not run: 

InsulationBrkdwn.ddd <- frame.to.ddd(insulationbrkdwn,
                                     response.column = 3, 
                                     time.column = 1,
                                     x.columns = 2,
                                     data.title = "Voltage Breakdown Data",
                                     response.units = "Volts",
                                     time.units = "Weeks")

print(InsulationBrkdwn.ddd)

plot(InsulationBrkdwn.ddd,
     transformation.Response = "log",
     transformation.time = "linear")

tmp <- groupi.Dest.Degrad.indivplots(InsulationBrkdwn.ddd,
                                     transformation.Response = "log", 
                                     transformation.time = "linear",
                                     distribution = "normal")

groupi.Dest.Degrad.oneplot(InsulationBrkdwn.ddd,
                           transformation.Response = "log", 
                           transformation.time = "linear",
                           distribution="normal")
groupm.Dest.Degrad(InsulationBrkdwn.ddd, 
                   distribution = "normal",
                   transformation.Response = "log10",
                   transformation.x = "invtemp",
                   transformation.time = "linear")


groupm.Dest.Degrad(InsulationBrkdwn.ddd, 
                   distribution = "normal",
                   transformation.Response = "log",
                   transformation.x = "arrhenius",
                   transformation.time="linear")

# Do individual analyses at each level of temperature

InsulationBrkdwn.groupi.Dest.Degrad <-groupi.Dest.Degrad(InsulationBrkdwn.ddd,
                                                         distribution = "normal",
                                                         transformation.Response = "log", 
                                                         transformation.time = "sqrt")


plot(InsulationBrkdwn.groupi.Dest.Degrad,
     transformation.x = "Arrhenius")

InsulationBrkdwn.groupm.Dest.Degrad <-groupm.Dest.Degrad(InsulationBrkdwn.ddd,
                                                         distribution = "normal", 
                                                         transformation.Response = "log",
                                                         transformation.x = "arrhenius", 
                                                         transformation.time = "sqrt")

InsulationBrkdwn.groupm.Dest.Degrad<-groupm.Dest.Degrad(InsulationBrkdwn.ddd,
                                                        distribution = "normal",
                                                        transformation.Response = "log",
                                                        transformation.x = "arrhenius",
                                                        transformation.time = "sqrt",
                                                        new.data = c("150,260"))



## End(Not run)

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