Publications by DEVINE FATHY MAE S. GRINO
STAT 50 FINAL EXAM (PARTIAL)
setwd("D:/stat") getwd() ## [1] "D:/stat" library(readxl) ## Warning: package 'readxl' was built under R version 4.2.3 Data<-read_excel("D:/stat//DataFinalExam.xlsx") Data ## # A tibble: 163 × 33 ## Age Gender Course T…¹ In1 In2 In3 In4 In5 In6 In7 In8 Ex1 ## <dbl> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <db...
935 sym R (4684 sym/24 pcs)
Final Term: Exercise Number 12
Setup setwd("D:/stat") getwd() ## [1] "D:/stat" Load packages library(ggplot2) library(ggpubr) ## Warning: package 'ggpubr' was built under R version 4.2.3 library(rstatix) ## Warning: package 'rstatix' was built under R version 4.2.3 library(readxl) ## Warning: package 'readxl' was built under R version 4.2.3 Data<-read_excel("D:/stat//Reading.x...
1490 sym R (10164 sym/58 pcs)
Final Term: Exercise Number 13
Analysis of Variance # get summary & structure and create a boxplot of our differences str(chickwts) ## 'data.frame': 71 obs. of 2 variables: ## $ weight: num 179 160 136 227 217 168 108 124 143 140 ... ## $ feed : Factor w/ 6 levels "casein","horsebean",..: 2 2 2 2 2 2 2 2 2 2 ... #> 'data.frame': 71 obs. of 2 variables: #> $ weig...
73 sym 1 img
Final Term: Exercise Number 11
1.1 What is the mean and standard deviation of mpg of the mtcars data? ## [1] 20.09062 ## [1] 6.026948 1.2 Is there sufficient evidence that the population mean score of the mtcars data exceeds 19 miles per gallon? ## ## One Sample t-test ## ## data: mtcars$mpg ## t = 1.0237, df = 31, p-value = 0.157 ## alternative hypothesis: true mean ...
870 sym
Final Term: Exercise Number 7
library(openintro) ## Warning: package 'openintro' was built under R version 4.2.3 ## Loading required package: airports ## Warning: package 'airports' was built under R version 4.2.3 ## Loading required package: cherryblossom ## Warning: package 'cherryblossom' was built under R version 4.2.3 ## Loading required package: usdata ## Warning: package...
23 sym R (6173 sym/19 pcs) 1 img
Final Term: Exercise Number 10
Chapter 12 Two Sample t-Test 12.1 Example with Wide Format Data # read in our data (wide format) Cd.BeetBarley<- data.frame( redbeet= c(18, 5, 10, 8, 16, 12, 8, 8, 11, 5, 6, 8, 9, 21, 9), barley= c(8, 5, 10, 19, 15, 18, 11, 8, 9, 4, 5, 13, 7, 5, 7)) # three ways to look at the data structure str(Cd.BeetBarley) ## 'data.frame': 15 obs....
70 sym 2 img
Final Term: Exercise Number 9
Chapter 11 Variance Ratio Test 11.1 Equal Variance Testing - Two Groups Trout.250 <- c(508, 479, 545, 531, 559, 422, 547, 525, 420, 491, 508, 511, 569, 453, 533, 460, 523, 540, 463, 502) Trout.300 <- c(461, 464, 344, 559, 445, 617, 402, 531, 535, 413, 456, 479, 393, 504, 416, 468, 368, 519, 523, 531) Farmed.Trout <- data.frame(cbind...
56 sym 1 img
Final Term: Exercise Number 4
Chapter 6 Graphical Parameters 6.1 Defining Colours # specify colour by number # col= 1, # black # col= c(1,2,3), # vector of colours 1,2,3 # col= c(1:3), # range of colours 1 to 3 - same as above # specify colour by name # col= "grey", # col= c("grey10","grey30","grey80"), par(mfrow=c(1,1),mar=c(3,0,2,0)) x <- rep(1...
138 sym 3 img
Final Term: Exercise Number 6
8.1.2 Standardizing with Z -scores # calculate the probability P(Z<0.43) - i.e. what is the probability of standard # normal variable taking a value less than 0.43? pnorm(q = 0.43, mean = 0, sd = 1) ## [1] 0.6664022 #> [1] 0.666 # calculate the $Z$-score satisfying P(Z<z)=0.80 - i.e. what value is at the 80th # percentile of a standard normal d...
102 sym
Final Term: Exercise Number 5
library(openintro) #load the package that contains the data ## Warning: package 'openintro' was built under R version 4.2.3 ## Loading required package: airports ## Warning: package 'airports' was built under R version 4.2.3 ## Loading required package: cherryblossom ## Warning: package 'cherryblossom' was built under R version 4.2.3 ## Loading req...
21 sym R (1730 sym/18 pcs)