Publications by Peihang Li, Juan Carlos

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