Publications by Data Whisperer
Homework DOE 3 - Sujit Thakur
Question 2.32) Inspector <- c (1:12) Inspector <- as.character(Inspector) Caliper1 <- c(0.265,0.265,0.266,0.267,0.267,0.265,0.267,0.267,0.265,0.268,0.268,0.265) Caliper2 <- c(0.264,0.265,0.264,0.266,0.267,0.268,0.264,0.265,0.265,0.267,0.268,0.269) dat1 <- cbind(Inspector,Caliper1,Caliper2) dat1 <- as.data.frame(dat1) str(dat1) ## 'data.fram...
4449 sym R (6574 sym/30 pcs) 8 img
DOE-Flipped Assignment 09 - Group 1
Q1a) library(pwr) pwr.anova.test(k=4,n=NULL,f=sqrt(((1)^2)/4.5) ,sig.level = 0.05,power = 0.8) ## ## Balanced one-way analysis of variance power calculation ## ## k = 4 ## n = 13.28401 ## f = 0.4714045 ## sig.level = 0.05 ## power = 0.8 ## ## NOTE: n is number in each gr...
985 sym R (2356 sym/13 pcs) 5 img
DOE - Week 5 Homework
Q3.7) Q1)3.7 ) c) MTest <- c("1","1","1","1","2","2","2","2","3","3","3","3","4","4","4","4") Tstrn <- c(3129,3000,2865,2890,3200,3300,2975,3150,2800,2900,2985,3050,2600,2700,2600,2765) dat1 <- cbind(MTest,Tstrn) dat1 <- as.data.frame(dat1) dat1$Tstrn <- as.numeric(dat1$Tstrn) dat1$MTest <- as.factor(dat1$MTest) first.model <- aov(Tstrn~MT...
3851 sym R (4169 sym/21 pcs) 9 img
Homework Week 06
Q)3.23) The effective life of insulating fluids at an accelerated load of 35 kV is being studied. Test data have been obtained for four types of fluids. The results from a completely randomized experiment were as follows: Getting data ftype <- c(rep(1,6),rep(2,6),rep(3,6),rep(4,6)) obs <- c(17.6,18.9,16.3,17.4,20.1,21.6,16.9,15.3,18.6,17.1,19.5...
5710 sym R (5906 sym/32 pcs) 23 img
Final_Project-1_Oct_5th_#Group-01
Title: Design of Experiments-Project Aim: Testing whether landing distance of three different balls are same or different. Instructor - Dr.Timothy Matis Authors: Sujit Thakur, Tajammul Mohammed, Gowtam Sasikumar Determining the size using power calculation pwr.anova.test(k=3,n=NULL,f=0.5, sig.level = 0.05 ,power = 0.75) ## ## Balance...
1656 sym R (3424 sym/13 pcs) 6 img
Grade_Issue _in_Proj1
About Transformation mark penalty What we did data <- read_excel("Proj1-Oct5-DOE -Tidy2.xlsx") data <- as.data.frame(data) data$Obs <- as.numeric(data$Obs) data$`Ball Colour` <- as.factor(data$`Ball Colour`) first.model <- aov(data$Obs~data$`Ball Colour`,data = data) summary(first.model) ## Df Sum Sq Mean Sq F value Pr(>...
157 sym R (2288 sym/10 pcs) 9 img
Flipped Assignment 12 - Group 1
Q4.3) Hypothesis: Null Hypothesis: \(H_o : \mu_1 = \mu_2 = \mu_3 =\mu_i\) Alternative Hypothesis: \(Ha\) : atleast one \(\mu_i\) differs As we know it has fixed effects hence we can write our hypothesis as, Null Hypothesis: \(H_o : \tau_i=0\) for all i Alternative Hypothesis: \(H_a\) : \(\tau_i \neq 0\) for some i Linear Effects: \(y_{ij} =...
2942 sym R (2009 sym/24 pcs)
Sujit-Homework Week 10
Q5.4) frate <- c(rep("0.20",12),rep("0.25",12),rep("0.30",12)) x <- c("0.15","0.18","0.20","0.25") dcut <- c(rep(x,9)) res <- 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) dat1 <- data.frame(frate,dcut,res) dat1$frate <- as.fixed(dat1$frate) dat1$dcut <- as.fixed(...
6297 sym R (3964 sym/29 pcs) 6 img
DOE_Project_Group1
Title: Design of Experiments-Project Aim: Testing whether landing distance of three different balls are same or different. Instructor - Dr.Timothy Matis Authors: Sujit Thakur, Tajammul Mohammed, Gowtham Sasikumar INTRODUCTION This 3-part project was done using a statapult. We have designed experiments to find the significant factors that a...
9805 sym R (23466 sym/41 pcs) 19 img
Hw 13 - Sujit
Q8.2) We are running \(2^{4-1}\) design where K=4 and P=1. Our defining relationship is I = ABCD and I=-ABCD is this case. des.res3<-FrF2(nfactors=4,resolution=4,randomize=FALSE) des.res3 ## A B C D ## 1 -1 -1 -1 -1 ## 2 1 -1 -1 1 ## 3 -1 1 -1 1 ## 4 1 1 -1 -1 ## 5 -1 -1 1 1 ## 6 1 -1 1 -1 ## 7 -1 1 1 -1 ## 8 1 1 1 ...
3410 sym R (63121 sym/53 pcs) 2 img