Publications by Ayodeji
FINAL PROJECT
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...
7938 sym R (7586 sym/32 pcs) 14 img
Document
position<-c(rep(1,9),rep(2,9)) t<-c(800,825,850) temp<-rep(t,6) obs<-c(570,1063,565,565,1080,510,583,1043,590,528,988,526,547,1026,538,521,1004,532) dat<-data.frame(position,temp,obs) library(GAD) ## Warning: package 'GAD' was built under R version 4.1.3 ## Loading required package: matrixStats ## Warning: package 'matrixStats' w...
755 sym R (2174 sym/13 pcs)
Document
Getting in data process<-c(rep(1,12),rep(2,12),rep(3,12)) batch<-rep(c(rep(1,3),rep(2,3),rep(3,3),rep(4,3)),3) obs<-c(25,30,26,19,28,20,15,17,14,15,16,13,29,27,24,23,24,21,28,21,27,35,27,25,24,25,20,35,21,24,38,34,30,25,29,33) dat<-data.frame(process,batch,obs) #question 1 yikj=mu+alpha i +beta(i) +eilj Question 2 #alpha:beta(i) =0 #alpha:beta...
363 sym R (1113 sym/11 pcs) 4 img
Document
Getting in data 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) yield<-c(12,18,13,20,17,25,15,25,10,24,13,24,19,21,17,23) dat<-data.frame(A,B,C,D,yield) Question a library(DoE...
441 sym R (1878 sym/6 pcs) 1 img