Last data update: 2014.03.03

R: Profiles control plot
plotControlProfilesR Documentation

Profiles control plot

Description

Plots the proportion of times that each profile remains out of the confidence bands

Usage

plotControlProfiles(pOut, tol = 0.5)

Arguments

pOut

identifiers of profiles out of control

tol

tolerance for the proportion of times the value of the profile is out of control

Value

There is only graphical output

Author(s)

Javier M. Moguerza and Emilio L. Cano

References

Cano, E.L. and Moguerza, J.M. and Prieto Corcoba, M. (2015) Quality Control with R. An ISO Standards Approach. Springer.

Examples

wby.phase1 <- ss.data.wby[, 1:35]
wb.limits <- climProfiles(profiles = wby.phase1,
    x = ss.data.wbx,
    smoothprof = TRUE,
    smoothlim = TRUE)
wby.phase2 <- ss.data.wby[, 36:50]
wb.out.phase2 <- outProfiles(profiles = wby.phase2,
    x = ss.data.wbx,
    cLimits = wb.limits,
    tol = 0.8)
plotControlProfiles(wb.out.phase2$pOut, tol = 0.8)

Results


R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(SixSigma)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/SixSigma/plotControlProfiles.Rd_%03d_medium.png", width=480, height=480)
> ### Name: plotControlProfiles
> ### Title: Profiles control plot
> ### Aliases: plotControlProfiles
> 
> ### ** Examples
> 
> wby.phase1 <- ss.data.wby[, 1:35]
> wb.limits <- climProfiles(profiles = wby.phase1,
+     x = ss.data.wbx,
+     smoothprof = TRUE,
+     smoothlim = TRUE)
> wby.phase2 <- ss.data.wby[, 36:50]
> wb.out.phase2 <- outProfiles(profiles = wby.phase2,
+     x = ss.data.wbx,
+     cLimits = wb.limits,
+     tol = 0.8)
> plotControlProfiles(wb.out.phase2$pOut, tol = 0.8)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>