You are sampling two different formulations for a new type of poly film. The tear strength of the poly film is the key characteristic and you would like to have a higher strength.

Two companies submit samples; Pacific Chemical Corp and Advanced Specialty Chemicals.

Provide a report that shows the results of your tests. Be sure to include a Conclusion (e.g., which supplier, if any, has the better product).

Use RMarkdown and submit the .Rmd file as well as the .html file.

pcc <- c(63.68, 65.13, 59.81, 60.82, 61.74, 61.64, 61.4, 61.08, 62.39, 60.83, 62.38, 61.94, 61.46, 59.01, 63.23, 64.18, 59.95, 64.34, 62.33, 65.1, 59.54, 62.93, 61.66, 60.47)

asc <- c( 62.78, 65.26, 64.39, 60.92, 64.83, 62.57, 59.54, 59.89, 62.58, 65.02, 63.06, 61.49, 65.94, 64.43, 68.56, 60.33, 65.24, 60.39, 61.04, 59.11, 67.83, 60.77, 63.5, 60.33, 62.62, 64.64, 67.4, 60.67, 59.34, 64, 60.75)

The Solution should be done by Rcloud.