Publications by Author 1
Assignment 18
1 Assignment Description A rocket propellant manufacturer is studying the burning rate of propellant from three production processes. Four batches of propellant are randomly selected from the output of each process, and three determinations of burning rate are made on each batch. The results follow. State the model equation and hypotheses to b...
1124 sym R (1377 sym/4 pcs) 4 img
Flip Assignment 18 Group 3
1 Nested Designs using R Input data: library(GAD) Process <- rep(c(rep(1,4),rep(2,4),rep(3,4)),3) Batch <- rep(rep(c(1,2,3,4),3),3) obs <- c(25,19,15,15,19,23,18,35,14,35,38,25,30,28,17,16,17,24,21,27,15,21,54,29,26,20,14,13,14,21,17,25,20,24,50,33) data <- data.frame(Process,Batch,obs) data ## Process Batch obs ## 1 1 1 25 #...
596 sym R (2076 sym/5 pcs)
Flipped assignment 17 Group 6
1 Blocking in a 2^k Factorial Design Question 3: Which effects appear to be significant? Input data: library(DoE.base) A<-c(-1,1,-1,1,-1,1,-1,1) B<-c(-1,-1,1,1,-1,-1,1,1) C<-c(-1,-1,-1,-1,1,1,1,1) obs<-c(22,32,35,55,44,40,60,39) dat<-data.frame(A,B,C,obs) mod<-lm(obs~A*B*C,data=dat) Display the coeficient and the halfnormal plot: coef(mod...
466 sym R (697 sym/5 pcs) 1 img
Review Housing Price in Hobbs
data <- read.csv('zillow-properties-for-sale-2023-11-11_14_54_06.csv') data <- data[!is.na(data$Living.area),] data <- data[!is.na(data$Property.price..USD.),] data <- data[!is.na(data$Bedrooms),] data <- data[!is.na(data$Lot.land.area),] data$Property.price..USD. <- as.numeric(data$Property.price..USD.) boxplot(data$Property.price..USD.~data...
80 sym 8 img
Assignment16
1 Problem: In a process development study on yield, four factors were studied, each at two levels: time (A), concentration (B), pressure (C), and temperature (D). Display the halfnormal plot for this data and determine which factors appear to be significant. Pull terms that do not appear to be significant into error and test for the significa...
1061 sym R (1775 sym/7 pcs) 1 img
Flip Assignment 16 Group 7
1 Build the Halfnormal plot Input data: library(DoE.base) A <- rep(c(-1,1),8) B <- rep(c(-1,-1,1,1),4) C <- rep(c(-1,-1,-1,-1,1,1,1,1),2) D <- c(rep(-1,8),rep(1,8)) Obs <- c(12,18,13,16,17,15,20,15,10,25,13,24,19,21,17,23) dat <- data.frame(A,B,C,D,Obs) dat ## A B C D Obs ## 1 -1 -1 -1 -1 12 ## 2 1 -1 -1 -1 18 ## 3 -1 1 -1 ...
683 sym R (3004 sym/11 pcs) 7 img
Flip Assignment 14 Group 4
1 Question 1: Factorial experiment to improve a silver powder production process a. The model equation for a full factorial model: \[ Y_{ijk}=\mu+\tau_{i}+\beta_{j}+\alpha_{k}+ \tau\beta_{ij} +\tau\alpha_{ik} + + \beta\alpha_{jk} + \tau\beta\alpha_{ijk}+\epsilon_{ijk} \] Where, µ = Grand Mean τi = Factor 1 βj = Factor 2 αk = Factor 3 εij...
2103 sym R (6704 sym/19 pcs) 3 img
MidtermProjectAKT
1 4. Two-Sample T-Test (with VST) (By Ajala, Ponmile - Kininge, Rucha - Tejada, Omar ) In a Two-Sample t-test, we look to compare the means of two independent groups in order to determine if there’s a significant difference between them. We start by assuming normality and constant variance within the populations. We will explore the case wher...
9795 sym 11 img
Midterm Day 3
1 4. Two-Sample T-Test (with VST) (By Ajala, Ponmile - Kininge, Rucha - Tejada, Omar ) In a Two-Sample t-test, we look to compare the means of two independent groups in order to determine if there’s a significant difference between them. We start by assuming normality and constant variance within the populations. We will explore the case wher...
9227 sym 11 img
Midterm Day 2
1 4. Two-Sample T-Test (with VST) (By Ajala, Ponmile - Kininge, Rucha - Tejada, Omar ) In a Two-Sample t-test, we look to compare the means of two independent groups in order to determine if there’s a significant difference between them. We start by assuming normality and constant variance. We will explore the case where we don’t have const...
4330 sym R (1709 sym/12 pcs) 12 img