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
>