STAT432 Project 4

# Setting 1
set.seed(1)
setting1 <- rnorm(30,mean=20,sd=3)
t.test(setting1, mu=20, alternative = "less")$p.value

## [1] 0.6856444

t.test(setting1, mu=20, alternative = "greater")$p.value

## [1] 0.3143556

t.test(setting1,mu=20)$p.value

## [1] 0.6287113

# Setting 2
set.seed(1)
setting2 <- rnorm(10,mean=20,sd=3)
t.test(setting2, mu=20, alternative = "less")$p.value

## [1] 0.6973837

t.test(setting2, mu=20, alternative = "greater")$p.value

## [1] 0.3026163

t.test(setting2,mu=20)$p.value

## [1] 0.6052327

# Setting 3
set.seed(1)
setting3 <- rexp(30,rate=1/20)
t.test(setting3, mu=20, alternative = "less")$p.value

## [1] 0.6655078

t.test(setting3, mu=20, alternative = "greater")$p.value

## [1] 0.3344922

t.test(setting3,mu=20)$p.value

## [1] 0.6689844

# Setting 4
set.seed(1)
setting4 <- rexp(10,rate=1/20)
t.test(setting4, mu=20, alternative = "less")$p.value

## [1] 0.2820539

t.test(setting4, mu=20, alternative = "greater")$p.value

## [1] 0.7179461

t.test(setting4,mu=20)$p.value

## [1] 0.5641078