library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.0.2
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2 v purrr 0.3.4
## v tibble 3.0.3 v dplyr 1.0.2
## v tidyr 1.1.2 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.0
## Warning: package 'tibble' was built under R version 4.0.2
## Warning: package 'tidyr' was built under R version 4.0.2
## Warning: package 'dplyr' was built under R version 4.0.2
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(mosaic)
## Warning: package 'mosaic' was built under R version 4.0.2
## Registered S3 method overwritten by 'mosaic':
## method from
## fortify.SpatialPolygonsDataFrame ggplot2
##
## The 'mosaic' package masks several functions from core packages in order to add
## additional features. The original behavior of these functions should not be affected by this.
##
## Attaching package: 'mosaic'
## The following object is masked from 'package:Matrix':
##
## mean
## The following objects are masked from 'package:dplyr':
##
## count, do, tally
## The following object is masked from 'package:purrr':
##
## cross
## The following object is masked from 'package:ggplot2':
##
## stat
## The following objects are masked from 'package:stats':
##
## binom.test, cor, cor.test, cov, fivenum, IQR, median, prop.test,
## quantile, sd, t.test, var
## The following objects are masked from 'package:base':
##
## max, mean, min, prod, range, sample, sum
getwd()
## [1] "C:/Users/Jerome/Documents/From_Toshiba_HD_Work_Files/0000_Montgomery_College/Math_217/Week_7"
Problem 6.2.3
alfalfa <- c(10.0, 8.9, 9.1, 11.7, 7.9)
mean(alfalfa)
## [1] 9.52
sd(alfalfa)
## [1] 1.428986
1.428986/sqrt(5)
## [1] 0.639062
1.428986/sqrt(4)
## [1] 0.714493
6.3.3
8.7/sqrt(5)
## [1] 3.890758
8.7/sqrt(4)
## [1] 4.35
hbe <-c(20, 18, 28, 0, 7, 34, 16, -5, 8, 4)
mean(hbe)
## [1] 13
sd(hbe)
## [1] 12.40072
jan <-c(42,47,37,9,33,70,54,27,41,18)
may <- c(22,29,9,9,26,36,38,32,33,14)
t.test(may,jan, paired = TRUE)
##
## Paired t-test
##
## data: may and jan
## t = -3.3151, df = 9, p-value = 0.00901
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -21.870938 -4.129062
## sample estimates:
## mean of the differences
## -13
Problem 6.5.2(b)
pigs <-c(38, 42, 25, 35, 35, 33, 48, 53, 17, 24, 26, 26, 47, 28, 24, 35, 38, 26,38, 29, 49, 26, 41, 26, 35, 38, 44, 25, 45, 28, 31, 46, 32, 39, 59, 53)
hist(pigs, main= "# of Dendritic Branch Segments", ylab = "# of Dendritic Branch Segments")
avg <- mean(pigs)
med <- median(pigs)
abline(v = avg, col = "red")
abline(v = med, col = "blue")
shapiro.test(pigs)
##
## Shapiro-Wilk normality test
##
## data: pigs
## W = 0.96117, p-value = 0.2335
Problem 6.6.8
sb <-c(3.06,2.78, 2.87, 3.52, 3.81, 3.6, 3.3, 2.77, 3.62)
bibb <- c(1.31, 1.17, 1.72, 1.2, 1.55, 1.53)
mean(sb)
## [1] 3.258889
sd(sb)
## [1] 0.3999201
mean(bibb)
## [1] 1.413333
sd(bibb)
## [1] 0.2198788
t.test(sb,bibb)
##
## Welch Two Sample t-test
##
## data: sb and bibb
## t = 11.484, df = 12.716, p-value = 4.422e-08
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 1.497569 2.193542
## sample estimates:
## mean of x mean of y
## 3.258889 1.413333