np-chart.R

# Import the qcc library
library(qcc)

# Create the defects data column
defects <- as.integer(rnorm(50, 3, 1))

# Create the sample size data column
sample_size <- as.integer(rep(20, 50))

# Create a data frame with both columns
df <- data.frame(defects, sample_size)

# Create the np-chart
np_chart <- with(df, qcc(df$defects, df$sample_size, type = "np", data.name = "defects"))

# Get the summary for the chart
summary(np_chart)