Publications by Group 11
IE 5342 FA3
Reading the data dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv") head(dat) ## ï..Temp Sex Beats ## 1 96.3 1 70 ## 2 96.7 1 71 ## 3 96.9 1 74 ## 4 97.0 1 80 ## 5 97.1 1 73 ## 6 97.1 1 75 colnames(dat)<-c("Temp","Sex","Beats") head(dat) ## Temp Sex ...
1755 sym 5 img
IE5342 FA4
dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/US_Japanese_Cars.csv") colnames(dat)<-c("Uscars","JapaneseCars") head(dat) ## Uscars JapaneseCars ## 1 18 24 ## 2 15 27 ## 3 18 27 ## 4 16 25 ## 5 17 31 ## 6 15 35 As we can see tha...
1686 sym 6 img
IE 5342 HW-1
Answer to the problem No: 2.24.(a) getwd() ## [1] "C:/Users/J A Kowshik/OneDrive - Texas Tech University/Desktop" Machine <- c("Machine 1","Machine 1","Machine 1","Machine 1","Machine 1","Machine 1","Machine 1","Machine 1","Machine 1","Machine 1","Machine 2","Machine 2","Machine 2","Machine 2","Machine 2","Machine 2","Machine 2","Machine 2","Mach...
2226 sym R (4687 sym/41 pcs) 2 img
IE5342 FA6
Question No: 1 Aspirin_A <- c(15,26,13,28,17,20,07,36,12,18) Aspirin_B <- c(13,20,10,21,17,22,05,30,07,11) Answer to the question 1.a) here, for Null Hypothesis, Ho: u1=u2: u1-u2=0 So The mean of Aspirin A is equal to mean of Aspirin B alternative Hypothesis: H1: u1=!u2: u1-u2=!0 So the mean of AspirinA is not equal to mean of AspirinB. t.test(A...
1263 sym 3 img
IE 5342 Week5 HW
Question No: 3.7 Tensile_Strength<-c(3129,3000,2865,2890,3200,3300,2975,3150,2800,2900,2985,3050,2600,2700,2600,2765) Mixing_Technique<-c(rep(1,4),rep(2,4),rep(3,4),rep(4,4)) Mixing_Technique<-as.factor(Mixing_Technique) dat<-cbind.data.frame(Tensile_Strength,Mixing_Technique) Answer to the Question No: 3.7(c) library(agricolae) ## Warning: ...
2383 sym R (4159 sym/23 pcs) 12 img
IE-5342: FA9 GRoup1
Question No: 1 Answer to The Question No: 1.a library(pwr) ## Warning: package 'pwr' was built under R version 4.1.3 sqrt(1/4.5) ## [1] 0.4714045 pwr.anova.test(k=4,n=NULL,f=0.471,sig.level = 0.05,power =0.80) ## ## Balanced one-way analysis of variance power calculation ## ## k = 4 ## n = 13.30502 ## ...
824 sym R (3090 sym/31 pcs) 8 img
IE 5342 HW_Week_6
############################### Question No: 3.23 ##################### Entry of data and Formation of Data frame: T1_Fluid<-c(17.6, 18.9, 16.3, 17.4, 20.1, 21.6) T2_Fluid<-c(16.9, 15.3, 18.6, 17.1, 19.5, 20.3) T3_Fluid<-c(21.4, 23.6, 19.4, 18.5, 20.5, 22.3) T4_Fluid<-c(19.3, 21.1, 16.9, 17.5, 18.3, 19.8) dat<-cbind.data.frame(T1_Fluid, T2_...
4812 sym R (7000 sym/47 pcs) 21 img
IE-5342:FA12G7
Answer to question no-1 This is a valid latin square design. Since all the letters (A,B,C,D,E) appears only once in each row and each column. Answer to question no-2 The model equation for the latin sqaure design is as follows: Yij = µ + τi + βj + αk + εijk Where, µ = Grand Mean τi = Treatment effect βj = Block-1 effect αk = Block-2 ef...
1093 sym
IE 5342 HW_Week_7
#################### Question No: 4.3 ################################### Hypothesis: Null Hypothesis:Ho:μ1=μ2=μ3=μi Alternative Hypothesis: Ha : atleast one μi differs As we know it has fixed effects hence we can write our hypothesis as,Null Hypothesis: Ho:τi=0 for all i Alternative Hypothesis: Ha : τi≠0 for some i. Linear Effects: ...
2561 sym R (2353 sym/29 pcs)
Document
Question No: 1 basic<-c(21,20,25,22,21,22,22,24,24,23,21,25,23,24,24) conehead<-c(28,28,25,29,29,27,30,29,29,29,30,26,26,26,28) backethead<-c(23,23,23,21,21,22,20,22,22,22,19,19,21,18,18) dat<-data.frame(basic,conehead,backethead) boxplot(dat$basic,dat$conehead,dat$backethead,names=c("Basic","Conhead","Backethead"), main= "Boxplot of Zoombie"...
660 sym R (1377 sym/11 pcs) 6 img