[?]
scores <- c(85, 90, 88, 92, 87)
weights <- c(1, 2, 1, 1, 3)
scores <- c(85, 90, 88, 92, 87) weights <- c(1, 2, 1, 1, 3) weighted_mean <- [?]
[Blank 1]
[Blank 2]
[Blank 3]
x <- c(5, 7, 6, 9, 100, 8, 5, 7, 6)
IQR()
x <- c(5, 7, 6, 9, 100, 8, 5, 7, 6) q1 <- [Blank 1](x, 0.25) q3 <- [Blank 2](x, [Blank 3]) iqr_value <- q3 - q1
lower_bound <- q1 - 1.5 * iqr_value upper_bound <- q3 + 1.5 * iqr_value outliers_lower <- [Blank 1] outliers_upper <- [Blank 2]
x <- c(3, 5, 8, 12, 14, 15, 18, 20)
x
x <- c(3, 5, 8, 12, 14, 15, 18, 20) n <- length(x) mean_x <- mean(x) sd_x <- sd(x) skewness <- [?]
mode_v
v <- c(2, 3, 5, 5, 6, 7, 3)
mfv()
modeest
v <- c(2, 3, 5, 5, 6, 7, 3, 5) mode_v <- [Blank 1]::[Blank 2](v)
x <- c(10, 20, 30, 40, 50)
x <- c(10, 20, 30, 40, 50) z <- [?]