Publications by Yasir Iqbal
HW6
6.8: Model equation is: \[ y_{ij} =\mu +\alpha_i +\beta_j + \alpha \beta_{ij} +\epsilon_{ijk} \] CultureMedium <- c(1,1,2,2,1,1,2,2,1,1,2,2,1,1,2,2,1,1,2,2,1,1,2,2) Time <- c(rep(12,12),rep(18,12)) Values <- c(21,22,25,26,23,28,24,25,20,26,29,27,37,39,31,34,38,38,29,33,35,36,30,35) CM <- as.factor(CultureMedium) Time <- as.factor(Time) Data...
2632 sym R (47414 sym/124 pcs) 16 img
Homework 5
5.2: (a) Df_total<-15 Df_error<-8 Df_interaction<-3 Df_A<-1 Df_B<-Df_total-Df_error-Df_interaction-Df_A MSA<-0.0002 SSA<-MSA*Df_A SSB<-180.378 SSAB<-8.479 SSE<-158.797 MSB<-SSB/Df_B MSAB<-SSAB/Df_interaction MSE<-SSE/Df_error Fa<-MSA/MSE Fb<-MSB/MSE Fab<-MSAB/MSE pf(0.00001007576,1,8, lower.tail = FALSE) ## [1] 0.9975451 pf(3.029...
1735 sym R (7264 sym/28 pcs) 2 img
Document
Part 1: Yes, every letter only appears once in each column and row hence it is. Part 2: The linear equation would be: \[y_{ijk} = \mu + \tau_i +\beta_j + \gamma_k + \epsilon_{ijk} \] where \(\mu\) is the overall mean, \(\alpha_i\) is the factor of treatments, Both \(\beta_j\) and \(\gamma_k\) are blocks and \(\epsilon_{ijk}\) is the random erro...
544 sym
Document
Question 1: The hypothesis would be first, stating the null hypothesis meaning that all of the means are equal \(\mu_1=\mu_2=\mu_3=\mu_4\) and the alternative, meaning that one of the means is different. The linear equation would be: \[y_{ijk} = \mu + \tau_i +\beta_j + \epsilon_{ijk} \] library(GAD) observation <- c(73,68,74,71,67,73,67,75,72,70...
977 sym R (969 sym/5 pcs)
Document
Question 1: The hypothesis would be first, stating the null hypothesis meaning that all of the means are equal \(\mu_1=\mu_2=\mu_3=\mu_4\) and the alternative, meaning that one of the means is different. The linear equation would be: \[y_{ijk} = \mu + \tau_i +\beta_j + \epsilon_{ijk} \] library(GAD) observation <- c(73,68,74,71,67,73,67,75,72,70...
977 sym R (969 sym/5 pcs)
Document
Problem 3.23: Part (a) Life <- c(17.6, 18.9, 16.3, 17.4, 20.1, 21.6, 16.9, 15.3, 18.6, 17.1, 19.5, 20.3, 21.4, 23.6, 19.4, 18.5, 20.5, 22.3, 19.3, 21.1, 16.9, 17.5, 18.3, 19.8) Type <- c(rep(1,6), rep(2,6), rep(3,6), rep(4,6)) Data <- data.frame(Life, Type) Data$Type <- as.factor(Data$Type) aov.model<-aov(Life~Type,data=Data) summary(aov.model...
2376 sym R (5744 sym/29 pcs) 23 img
Homework1
Q 2.24. 2.24 (a) Statement of the hypothesis: We will test both null and alternative hypotheses mathematically given as: \(H_0: \mu_1 = \mu_2\\ H_a: \mu_1 \neq \mu_2\) where \(\mu_1\) and \(\mu_2\) are the means from sample 1 and 2. 2.24 (b) # Data given Mach1 <- c(16.03,16.04,16.05,16.05,16.02,16.01,15.96,15.98,16.02,15.99) Mach2 <- c(16.02,1...
2856 sym R (5302 sym/36 pcs) 12 img
Document
data<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/US_Japanese_Cars.csv") Uscars<-(data$USCars) Japcars<-(data$JapaneseCars) Japcars<-data[1:28,2] qqnorm(Japcars) qqline(Japcars) qqnorm(Uscars) qqline(Uscars) ?boxplot boxplot(Uscars,Japcars, main= "Boxplot of MPG (Untransformed)", col = c("blue", "red"), names=c("US"...
387 sym 6 img
Document
dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv") Males<-dat[dat$Sex==1,] # Extracting Male heartbeats Male_heartbeats<-dat[1:65,3] # Extracting minimum min(Male_heartbeats) ## [1] 58 # Extracting Max max(Male_heartbeats) ## [1] 86 # Extracting Sample Mean sd(Male_heartbeats) ## [1] 5.875184 # Standard d...
380 sym 5 img