A6Q3

A6Q3_2 %>% group_by(Exercise) %>% summarise( mean = mean(Weight, na.rm = TRUE), medidan = median(Weight, na.rm = TRUE), sd = sd(Weight, na.rm = TRUE) )

hist(A6Q3_2\(Weight[A6Q3_2\)Exercise == “cardio”], main = “Histogram of Cardio Body Weight”, xlab = “Value”, ylab = “Frequency”, col = “pink”, border = “blue”, breaks = 10)

hist(A6Q3_2\(Weight[A6Q3_2\)Exercise == “nocardio”], main = “histogram of noncardio body weight”, xlab = “value”, ylab = “frequency”, col = “blue”, border = “pink”, breaks = 10)

#Group 1: cardio #The first variable looks normally distributed. #The data is positively skewed #The data has a proper bell curve.

#Group 2: nocardio #The second variable looks abnormally distributed. #The data is symmetrical . #The data has a proper bell curve.

ggboxplot(A6Q3_2, x = “Cardio”, y = “Weight”, color = “cardio”, palette = “jco”, add = “jitter”) rlang::last_trace()

ggboxplot(A6Q3_2, x = “NoCardio”, y = “weight”, color = “cardio”, palette = “jco”, add = “jitter”) #Boxplot 1: cardio #There are dots outside the boxplot. #The dots are close to the whiskers. #The dots are not very far away from the whiskers. #The outliers are not balanced. #Based on these findings, the boxplot is normal

#Boxplot 2: non cardio #There are dots outside the boxplot. #The dots are not close to the whiskers. #The dots are very far away from the whiskers. #The outliers are not balanced. #Based on these findings, the boxplot is not normal

shapiro.test(A6Q3_2\(Weight[A6Q3_2\)Exercise == “cardio”]) shapiro.test(A6Q3_2\(Weight[A6Q3_2\)Exercise == “nocardio”])

#Group 1: Cardio #The first group is normally distributed, (p=.581)

#Group 2: No Cardio #The second group is normally distributed, (p=.816)

t.test(weight ~ cardio, data = A6Q3_2, var.equal = TRUE) t.test(weight ~ nocardio, data = A6Q3_2, var.equal = TRUE)

wilcox.test(weight ~ cardio, data = A6Q3_2) wilcox.test(weight ~ nocardio, data = A6Q3_2)

cohens_d_result <- cohen.d(weight ~ cardio, data = A6Q3_2, pooled_sd = TRUE)

cohen.d(weight ~ nocardio, data = A6Q3_2, pooled_sd = TRUE)

#An Independent T-Test was conducted to determine if there was a difference in weight between cardio and noncardio. #Group 1 scores (M = 74.7, SD = 7.57) were not significantly different from Group2 scores (M = 70.8, SD = 7.35), t(49) #The effect size was small

#A mann-whitney U test was conducted to determine if there was a difference in weight between cardio and noncardio. #Group 1 scores (Mdn = 73.3) were significantly different from Group2 scores (Mdn = 69.5) #The effect size was small