Publications by Mary Adepoju
finalProject
Final Project Submission Katarina Kentera, Mary Adepoju, Ryan Davis IE 5342 - Design of Experiments Dr. Timothy Matis December 1, 2021 In this project, the team completed three different experiments with different design. The supplies of this experiment were a statapult and varioius bouncy balls. Throughtout different stages of the experime...
4127 sym R (389 sym/2 pcs) 11 img 1 tbl
Week 14 - Homework
\(H_o\) : \(\alpha_i = 0\) \(H_a\) \(\alpha_i \neq 0\) \(H_o\) : \(\sigma^2_{\beta} = 0\) \(H_a\) \(\sigma^2_{\beta} \neq 0\) Machine <-c(rep(1,8),rep(2,8),rep(3,8)) Spindle <- rep(c(rep(1,4),rep(2,4)),3) Obs<-c(12,9,11,12,8,9,10,8,14,15,13,14,12,10,11,13,14,10,12,11,16,15,15,14) Table<-data.frame(Machine,Spindle,Obs) Machine<-as.fixed(Ma...
494 sym R (709 sym/2 pcs)
Week 13 - Homework
8.2 ## A B C D results ## 1 -1 -1 -1 -1 7.037 ## 2 1 -1 -1 1 14.707 ## 3 -1 1 -1 1 11.635 ## 4 1 1 -1 -1 17.273 ## 5 -1 -1 1 1 10.403 ## 6 1 -1 1 -1 4.368 ## 7 -1 1 1 -1 9.360 ## 8 1 1 1 1 13.440 ## class=design, type= FrF2 There are no significan factors 8.24 \(2^{5-1}\) Block Design ## Warning in FrF...
1148 sym R (17946 sym/17 pcs) 1 img
Week 11 - Homework 10
Week 11 - Homework 6.8 Effects of Two Different Cultural Medians ## obs timeH median ## 1 21 12 1 ## 2 22 12 1 ## 3 25 12 2 ## 4 26 12 2 ## 5 23 12 1 ## 6 28 12 1 ## 7 24 12 2 ## 8 25 12 2 ## 9 20 12 1 ## 10 26 12 1 ## 11 29 12 ...
1249 sym R (10369 sym/22 pcs) 21 img
Flipped Assignment 16
Flipped Assignment 16 Hypothesis: \(H_o: \alpha_i = 0\) \(H_a: \alpha_i \neq 0\) \(H_o: \gamma_k = 0\) \(H_a: \gamma_k \neq 0\) \(H_o: \delta_l = 0\) \(H_a: \delta_l \neq 0\) \(H_o: \alpha\gamma_{ik} = 0\) \(H_a: \alpha\gamma_{ik} \neq 0\) \(H_o: \alpha\delta_{il} = 0\) \(H_a: \alpha\delta_{il} \neq 0\) A <-c(-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1...
481 sym R (1366 sym/7 pcs) 1 img
Week9
5.2 ANOVA TABLE dat <- read.csv("https://raw.githubusercontent.com/maryadepoju98/DesignExperiment/main/question5_2.csv") dat ## Source DF SS MS F P ## 1 A 1 0.0002 0.00020 0.000100 0.992 ## 2 B 3 180.3780 60.12600 3.029690 0.093 ## 3 Interaction(AB) 3 8.4790 2.82633 0.1424...
890 sym R (1319 sym/5 pcs) 2 img
Flipped Assignment 11
Blocked Observation Hypothesis: \(H_o: \tau_i = 0\) for all i \(H_a: \tau_i \neq 0\) for some i i = the chemical agent used in the experiment Model Equation: \(y_{ij} = \mu + \tau_i + \beta_j + \epsilon_{ij}\) obs<-c(73,68,74,71,67, 73,67,75,72,70, 75,68,78,73,68, 73,71,75,75,69) qqnorm(obs[1:5]) qqnorm(obs[6:10])...
1211 sym R (1483 sym/9 pcs) 5 img
Flipped Assignment 10
library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(tidyr) method1<-c(0.34,0.12,1.23,0.70,1.75,0.12) method2<-c(0.91,2.94,2.14,2.36,2.86,4.55) method3...
814 sym R (1368 sym/16 pcs) 4 img
Homework3
3.7 (a) \(H_o: \mu_1 = \mu_2 = \mu_3 = \mu_4\) \(H_a\): At least one of the means are different mixing technique 1: 2971 mixing technique 2: 3156.25 mixing technique 3: 2933.75 mixing technique 4: 2666.25 F-Value: 12.73 p-value: 0.000489 Therefore we reject the null hypothesis because the p-value(0.000489) is < alpha (0.05). mt1 <- c(3129, 3000, ...
1084 sym R (1518 sym/6 pcs)
Homework
2.24 data1 <-read.csv("https://raw.githubusercontent.com/maryadepoju98/DesignExperiment/main/Question2_24.csv", header = TRUE) head(data1) ## Machine1 Machine2 ## 1 16.00 16.02 ## 2 16.04 15.97 ## 3 16.05 15.96 ## 4 16.05 16.01 ## 5 16.02 15.99 ## 6 16.01 16.03 a. Null and Alternate Hypothesis \(H_0: ...
1428 sym R (3483 sym/27 pcs)