##ch 9 problem 5
ch9_prob5_data <- read.csv("C:/Users/benny/Downloads/ch9_prob5_data.csv")
View(ch9_prob5_data)
data=ch9_prob5_data

t.test(data$control)
t.test(data$treatment)

var.test(data$treatment,data$control)
t.test(data$treatment,data$control,var.equal = TRUE)

##problem 6
dee=(3-0)/sd(difference)
install.packages("pwr")
library(pwr)
pwr.t.test(n=30,d=dee,sig.level=0.05,type="paired")

##prob 7
ch9_prob7_data <- read.csv("C:/Users/benny/Downloads/ch9_prob7_data.csv")
data7=ch9_prob7_data
t.test(data7$treatment-data7$control)
var.test(data7$treatment,data7$control)
t.test(data7$treatment,data7$control,var.equal = TRUE)