Publications by Group 11
IE5342_FA14_Group 6
################# QUESTION NO: 1 # Answer to the Question No: 1(a) Model Equation for full factorial model: \[ y_{ijkl} = \mu + \alpha_{i} + \beta_{j} + \gamma_{k} + \alpha\beta_{ij} + \alpha\gamma_{ik} + \beta\gamma_{jk} + \alpha\beta\gamma_{ijk} + \epsilon_{ijkl} \] Answer to the Question No: 1(b) library(GAD) ## Warning: package 'GAD' was ...
2335 sym R (7075 sym/27 pcs) 1 img
Document
Question No: 7.12 Entering the data… A<-c(rep(c(rep(-1,7), rep(1, 7)), 8)) B<-c(rep(c(rep(-1,14), rep(1, 14)), 4)) C<-c(rep(c(rep(-1,28), rep(1, 28)), 2)) D<-c(rep(-1, 56), rep(1, 56)) block<-c(rep(seq(1,7), 16)) obs1<-c(10.0, 18.0, 14.0, 12.5, 19.0, 16.0, 18.5, 0.0, 16.5, 4.5, 17.5, 20.5, 17.5, 33.0, 4.0, 6.0, 1.0, 14.5, 12...
246 sym
IE5342 FA18
Model Equation \[y_{ijk} = \mu+\alpha_{i}+\beta_{j\left( i \right)}+ \epsilon_{ijk}\] Hypothesis: Null Hypothesis ; \[\beta_{j\left(i \right)} = 0\] Alternative Hypothesis: \[\beta_{j\left(i \right)} \neq 0\] Batch<-rep(c(rep(1,3),rep(2,3),rep(3,3),rep(4,3)),3) observations<-c(25,30,26,19,28,20,15,17,14,15,16,13,19,17,14,23,24,21,18,21,17,35...
540 sym R (1082 sym/9 pcs)
IE 5342_ Final Project_Group 4
INTRODUCTION This was a design of experiment to investigate using a statapult significant factors that influence the distance in which a ball type was thrown.The statapult has three parameters to consider for our experiment which was: • Pin Elevation • Bungee Position • Release Angle Note The release angle was varied from 90 to 180 degr...
9740 sym R (7586 sym/32 pcs) 14 img
IE 5342_Final_Q9
Entering the data.. library(GAD) ## Warning: package 'GAD' was built under R version 4.1.3 ## Loading required package: matrixStats ## Warning: package 'matrixStats' was built under R version 4.1.3 ## Loading required package: R.methodsS3 ## Warning: package 'R.methodsS3' was built under R version 4.1.3 ## R.methodsS3 v1.8.2 (2022-06-13 22:00:14 ...
1442 sym R (3029 sym/16 pcs)
IE5342_Final_Q11
(a) half normal: A<-c(-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1) B<-c(-1,-1,1,1,-1,-1,1,1,-1,-1,1,1,-1,-1,1,1) C<-c(-1,-1,-1,-1,1,1,1,1,-1,-1,-1,-1,1,1,1,1) D<-c(-1,-1,-1,-1,-1,-1,-1,-1,1,1,1,1,1,1,1,1) obs<-c(12,18,13,20,1,25,15,25,10,24,13,24,19,21,17,23) dat<-data.frame(A,B,C,D,obs) library(DoE.base) ## Warning: package 'DoE.base' was buil...
284 sym R (1220 sym/14 pcs) 1 img
IE 5342_Final_Q13
(a) Model Equation: Y_ijk=mu+alpha_i+beta_j+beta_j(i)+E_ijk Hypothesis: Null hypothesis; Ho: Beta_j(i)=0 Alternative Hypothesis Ha; Beta_j(i)=/0 Analysis: library(GAD) ## Warning: package 'GAD' was built under R version 4.1.3 ## Loading required package: matrixStats ## Warning: package 'matrixStats' was built under R version 4.1.3 ## Loading ...
467 sym R (1065 sym/9 pcs)
Test File
You can put chunks of R code by putting three backticks at the beginning and end of the chunk. You need to give each chunk a unique name in the {} Echo The echo command tell R whether or not to print the code that generated the result. Here is an example with echo=FALSE ## [1] 0.9047383 and here is an example with echo=TRUE x<-rnorm(100) y<-2*x...
2047 sym R (1731 sym/9 pcs) 1 img