women_weight <- c(38.9, 61.2, 73.3, 21.8, 63.4, 64.6, 48.4, 48.8, 48.5) men_weight <- c(67.8, 60, 63.4, 76, 89.4, 73.3, 67.3, 61.3, 62.4) gender_weight = data.frame( gender =rep(c("men", "women") , each = 9) , weight = c(men_weight , women_weight) ) gender_weight%>% group_by(gender)%>% summarise( count = n() , mean(weight) , sd(weight) ) ggboxplot(data = gender_weight , x = "gender" ,y = "weight" , color = "gender" ,palette =c( "#E69F00", "#56B4E9") , title = "Is weight differance" ,xlab = "Gender" , ylab ="weight" ) with(gender_weight ,shapiro.test(weight[gender == "men"]) ) with(gender_weight ,shapiro.test(weight[gender == "women"]) ) t.test(weight ~ gender , data = gender_weight , var.equal = T )

Project 2's Second Dataset: Tidying Vaccine Data

The Dallas Cowboys’ 2025 season report through Week 5 provides a comprehensive analysis of the team’s offensive performance using advanced metrics derived from detailed play-by-play data.

Proyecto 3 resultados