Publications by Eghorieta /
factorial design homework 8
Question 5.4 depth<-rep(seq(1:4),9) feedrate<-c(rep(1,12),rep(2,12),rep(3,12)) response<-c(74,79,82,99,64,68,88,104,60,73,92,96,92,98,99,104,86,104,108,110,88,88,95,99,99,104,108,114,98,99,110,111,102,95,99,107) data.frame(feedrate,depth,response) ## feedrate depth response ## 1 1 1 74 ## 2 1 2 79 ## 3 ...
3872 sym R (12262 sym/35 pcs) 8 img
Team 7
Present Condition at LM Test Labs The data comprised of the weekly average reports gathered at LM before the implementation of lean principles and procedures for 3 weeks Weeks 1, week 2 and week 3 represent the levels 1:2:3 Frequency is represented by the response element of the data we are observing. They are stated as: SPs opened - opened SPs c...
1395 sym R (2065 sym/8 pcs) 5 img
Document
library(GAD) ## Loading required package: matrixStats ## Loading required package: R.methodsS3 ## R.methodsS3 v1.8.1 (2020-08-26 16:20:06 UTC) successfully loaded. See ?R.methodsS3 for help. dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/PowderProduction.csv") dat$Ammonium<-as.fixed(dat$Ammonium) dat$StirRate<-as.fixed(...
2467 sym R (6559 sym/22 pcs) 1 img
Homework 7
Question 5.2 P-value A #qf(0.95, 1, 15) pf(0.000010, 1, 15, lower.tail = FALSE) ## [1] 0.9975185 P-value B #qf(0.95, 3, 15) pf(3.02917, 3, 15, lower.tail = FALSE) ## [1] 0.06220712 P-value Interaction #qf(0.95, 3, 15) pf(0.14237, 3, 15, lower.tail = FALSE) ## [1] 0.9329697 Question 5.9 library(agricolae) #?design.ab trts<-c(2,4) design<-design...
1097 sym R (2053 sym/12 pcs) 1 img
Homework 6
4.3 Question 4.3 Test Hypothesis Ho: \(\mu_1 = \mu_2 = \mu_3 = \mu_4\) - Null Hypothesis Ha: At least 1 differs - Alternative Hypothesis \(\alpha\) = 0.05 Linear Effects \(y_{ij} = \mu + \tau_i + \beta_i + \epsilon_{ij}\) #install.packages("GAD") library(GAD) ## Loading required package: matrixStats ## Loading required package: R.methodsS3 ## R.m...
1609 sym R (4265 sym/33 pcs)
Assignment 11
Question 1 Test Hypothesis Ho: \(\mu_1 = \mu_2 = \mu_3 = \mu_4\) - Null Hypothesis Ha: At least 1 differs - Alternative Hypothesis \(\alpha\) = 0.15 Linear Effects \(y_{ij} = \mu + \tau_i + \beta_i + \epsilon_{ij}\) #install.packages("GAD") library(GAD) ## Loading required package: matrixStats ## Loading required package: R.methodsS3 ## R.methods...
1232 sym R (1749 sym/9 pcs)
Anova 2
Question 3.7c Test Hypothesis Ho: \(\mu_1 = \mu_2 = \mu_3 = \mu_4\) - Null Hypothesis Ha: At least 1 differs - Alternative Hypothesis Using Fisher LSD method t1<-data.frame("ten_strength"=c(3129,3000,2865,2890)) t2<-data.frame("ten_strength"=c(3200,3300,2975,3150)) t3<-data.frame("ten_strength"=c(2800,2900,2985,3050)) t4<-data.frame("ten_strength...
3410 sym R (7771 sym/19 pcs) 9 img
Hwk 3 Paired T-test
Question 2.32 a) Hypothesis to be tested Ho: \(\mu_1 = \mu_2\) - Null Hypothesis for difference in mean diameter Ha: \(\mu_1 \neq \mu_2\) - Alternative Hypothesis for difference in mean diameter where: \(\sigma^2_1\) = 0.0000014772, \(\sigma^2_2\) = 0.00000309, \(n_1\) = 12, \(n_2\) = 12 \(\mu_1\) is the mean of caliper 1 \(\mu_2\) is the mean of...
5487 sym R (7676 sym/34 pcs) 8 img
Homework wk3
Question 2.32 a) Hypothesis to be tested Ho: \(\mu_1 = \mu_2\) - Null Hypothesis for difference in mean diameter Ha: \(\mu_1 \neq \mu_2\) - Alternative Hypothesis for difference in mean diameter where: \(\sigma^2_1\) = 0.0000014772, \(\sigma^2_2\) = 0.00000309, \(n_1\) = 12, \(n_2\) = 12 \(\mu_1\) is the mean of caliper 1 \(\mu_2\) is the mean of...
5364 sym R (7234 sym/32 pcs) 8 img
Assignment 5
One method for assessing the bioavailability of a drug is to note its concentration in blood and/or urine samples at certain periods of time after the drug is given. Suppose we want to compare the concentrations of two types of aspirin (types A and B) in urine specimens taken from the same person 1 hour after he/ she has taken the drug. In this s...
2763 sym R (788 sym/4 pcs)