# Attribute plan
plan_attr <- optAttrPlan(PRQ = 0.01, CRQ = 0.05)
oc_attr <- OCdata(plan_attr)
plot(oc_attr) # OC curve by pd (default)
plot(oc_attr, by = "mean") # Will show message if not available
# Variable plan
plan_var <- optVarPlan(PRQ = 0.025, CRQ = 0.1, USL = 0.1,
distribution = "normal", sigma=0.01)
oc_var <- OCdata(plan_var)
plot(oc_var) # OC curve by pd
plot(oc_var, by = "mean") # OC curve by mean levels
Run the code above in your browser using DataLab