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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.