groupm.Dest.Degrad: Title
In Auburngrads/SMRD: Statistical Methods For Reliability Data

Title

groupm.Dest.Degrad(
  data.ddd,
  transformation.response,
  transformation.time,
  transformation.x,
  distribution,
  group.var = 1:ncol(xmat(data.ddd)),
  ylim = c(NA, NA),
  xlim = c(NA, NA),
  my.title = NULL,
  ylab = NULL,
  xlab = NULL,
  cex = 1.05,
  cex.labs = 1.05,
  cex.points = 1,
  add = F,
  grids = F,
  title.option = GetSMRDDefault("SMRD.TitleOption"),
  do.legend = "On plot",
  subset = T,
  pch.point = NULL,
  response.on.yaxis = T,
  new.data = NULL,
  FailLevel = NULL,
  power = NULL,
  PlotFailDefLine = T,
  debug1 = map.SMRDDebugLevel(),
  lty = NULL,
  lwd = 2,
  mar = c(4.5, 5.25, 3.5, 12.1),
  bty = if (grids) "o" else "L",
  ...
)

`data.ddd`
`transformation.response`
`transformation.time`
`transformation.x`
`distribution`
`group.var`
`ylim`
`xlim`
`my.title`
`ylab`
`xlab`
`cex`
`cex.labs`
`cex.points`
`add`
`grids`
`title.option`
`do.legend`
`subset`
`pch.point`
`response.on.yaxis`
`new.data`
`FailLevel`
`power`
`PlotFailDefLine`
`debug1`
`lty`
`...`

## 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)