rsalaza4

# Import the SixSigma package
library(SixSigma)

# Create 50 random data points and name them x
x <- rnorm(50, 15, 5)

# Create 50 random data points and name them y
y <- rnorm(50, 30, 4)

# Create a data frame with both data columns

rsalaza4

# Import the SixSigma package
library(SixSigma)

# Create 50 random data points
x <- rnorm(100, 15, 5)

# Build the histogram
hist(x,                             
     breaks = "FD",                 
     main = "Histogram Title",      

rsalaza4

# Import the grid package
library(grid)

# Build external box
grid.rect(width = 0.5,
          height = unit(9, "inches"),
           x = 0.5)

# Add a title
grid.text("CHECK SHEET",

rsalaza4

# Import the qcc package
library(qcc)

# Create a measures column
measures <- rnorm(200, 3, 1)

# Specify the sample size
sample_size <- 20

# Get the total number of samples

rsalaza4

# Create the s-chart
s_chart <- qcc(measure, type = "S", data.name = measure_unit)

# Get the summary for s-chart
summary(s_chart)

rsalaza4

library(grid)
library(SixSigma)

rsalaza4

inputs <- c("Ingredients", "Cook","Oven", "Plates")
outputs <- c("Temperature", "Taste", "Tenderness", "Weight", "Radius", "Time")

rsalaza4

steps <- c("DOUGH", "TOPPINGS", "BAKE", "DELIVER")

rsalaza4

io <- list()
io[[1]] <- list("X's")
io[[2]] <- list("Dough", "Ingredients", "Cooker")
io[[3]] <- list("Raw Pizza", "Cooker", "Oven Plate")
io[[4]] <- list("Baked Pizza", "Plate")

rsalaza4

param <- list()
param[[1]] <- list(c("Cook", "C"),
                   c("Flour brand", "C"),
                   c("Prop water", "P"))
param[[2]] <- list(c("Cook", "C"),
                   c("Ing. Brand", "Cr"),
                   c("Amount", "P"))
param[[3]] <- list(c("Cook", "C"),
                   c("Queue", "N"),
                   c("Baketime", "Cr"))