# Good Practise: Basic house keeping: cleanup the env before you start new work
rm(list=ls())
# Libraries
library(DATA606)##
## Welcome to CUNY DATA606 Statistics and Probability for Data Analytics
## This package is designed to support this course. The text book used
## is OpenIntro Statistics, 3rd Edition. You can read this by typing
## vignette('os3') or visit www.OpenIntro.org.
##
## The getLabs() function will return a list of the labs available.
##
## The demo(package='DATA606') will list the demos that are available.
##
## Attaching package: 'DATA606'
## The following object is masked from 'package:utils':
##
## demo
library(StMoSim)## Loading required package: RcppParallel
## Loading required package: Rcpp
##
## Attaching package: 'Rcpp'
## The following object is masked from 'package:RcppParallel':
##
## LdFlags
library(tidyverse)## -- Attaching packages --------------------------------------------------- tidyverse 1.2.1 --
## v ggplot2 2.2.1 v purrr 0.2.4
## v tibble 1.4.1 v dplyr 0.7.4
## v tidyr 0.8.0 v stringr 1.2.0
## v readr 1.1.1 v forcats 0.3.0
## -- Conflicts ------------------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
\[M = 6 \]
\[\mu = 65 + 6 \] \[\mu = 71 \]
\[\sigma = 18.2927 \]
\[n= [1.64 (250/25)]^2\] \[n= 268.96 = 269\]
\[n= [2.576 (250/25)]^2\] \[n= 663.58 = 664\]
SE <- sqrt(3.58^2/26 + 4.51^2/26)
t <- (19.85 - 16.12)/SE
t## [1] 3.30302
Caption for the picture.