R/spc.controlviolation.nelson.1984.test3.trends.create.R

In burrm/lolcat: Miscellaneous Useful Functions

spc.controlviolation.nelson.1984.test3.trends.create <- function(
    point.count = 6,
    strictly.increasing = T,
    strictly.decreasing = strictly.increasing
) {
  p <- point.count
  s1 <- strictly.increasing
  s2 <- strictly.decreasing 

    fn <- function(
        chart.series = NA,

        center.line = NA,

        control.limits.ucl = NA,
        zone.a.upper = NA,
        zone.ab.upper = NA,
        zone.bc.upper = NA,

        control.limits.lcl = NA,
        zone.a.lower = NA,
        zone.ab.lower = NA,
        zone.bc.lower = NA,

        point.count = p,
        strictly.increasing = s1,
        strictly.decreasing = s2,
        ...
    ) {
      spc.controlviolation.nelson.1984.test3.trends(
        point.count = point.count,
        strictly.increasing = strictly.increasing,
        strictly.decreasing = strictly.decreasing,

        center.line = center.line,

        chart.series = chart.series, 
        control.limits.ucl = control.limits.ucl,
        zone.a.upper = zone.a.upper,
        zone.ab.upper = zone.ab.upper,
        zone.bc.upper = zone.bc.upper,

        control.limits.lcl = control.limits.lcl,
        zone.a.lower = zone.a.lower,
        zone.ab.lower = zone.ab.lower,
        zone.bc.lower = zone.bc.lower,

        ... 
      )
    }

    fn
}