Publications by Peihang Li, Juan Carlos

FA5_Group5

Question 1 alpha <- 0.05 power <- 0.75 delta <- 0.015 sd <- 0.03 power.t.test(n=NULL, delta = 0.015, sd = 0.03, power = 0.75, sig.level = 0.05, type = c("paired"), alternative = c("one.sided")) ## ## Paired t test power calculation ## ## n = 22.92961 ## delta = 0.015 ## sd = 0.03 ## sig.level = 0.0...

133 sym R (1194 sym/5 pcs)

Document

Question 1 dat <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/US_Japanese_Cars.csv") qqnorm(dat$USCars) qqnorm(dat$JapaneseCars) Question2 boxplot(dat$USCars, dat$JapaneseCars, names = c("US", "Japanese"), main="Boxplot of Untransformed Data") The variance does not appear to be constant. Question3 logUS <- log(dat$USCars)...

460 sym 6 img

Document

Seperating males and females males <- dat[dat$Sex==1,] females <- dat[dat$Sex==2, ] Question 1 Descriptive Statistics Males min(males$Beats) ## [1] 58 max(males$Beats) ## [1] 86 mean(males$Beats) ## [1] 73.36923 sd(males$Beats) ## [1] 5.875184 median(males$Beats) ## [1] 73 quantile(males$Beats) ## 0% 25% 50% 75% 100% ## 58 70 73 78...

434 sym 5 img