#No 1
tatap_muka <- c(75, 78, 80, 76, 79, 81, 77, 74, 82, 80)
media_sosial <- c(65, 60, 68, 62, 66, 67, 64, 61, 69, 63)
email <- c(70, 72, 74, 71, 73, 75, 70, 69, 76, 72)
webinar <- c(80, 85, 83, 79, 84, 82, 81, 78, 86, 85)
# Menggabungkan dalam satu data frame
skor <- c(tatap_muka, media_sosial, email, webinar)
media <- factor(rep(c("Tatap Muka", "Media Sosial", "Email", "Webinar"), each=10))
data1 <- data.frame(media, skor)
# ANOVA
anova_result <- aov(skor ~ media, data = data1)
summary(anova_result)
## Df Sum Sq Mean Sq F value Pr(>F)
## media 3 1796.6 598.9 82.35 3.48e-16 ***
## Residuals 36 261.8 7.3
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
#Jika nilai p-value < 0.05, maka terdapat perbedaan signifikan skor pemahaman antar media komunikasi.
#No 2
# Jumlah responden yang memilih masing-masing
media_sosial <- 11
media_konvensional <- 4
total <- media_sosial + media_konvensional
# Uji Binomial: Hipotesis nol = preferensi seimbang (p = 0.5)
binom.test(media_sosial, total, p = 0.5, alternative = "greater")
##
## Exact binomial test
##
## data: media_sosial and total
## number of successes = 11, number of trials = 15, p-value = 0.05923
## alternative hypothesis: true probability of success is greater than 0.5
## 95 percent confidence interval:
## 0.4892481 1.0000000
## sample estimates:
## probability of success
## 0.7333333
#ika p-value < 0.05, maka ada kecenderungan signifikan bahwa audiens lebih memilih media sosial dibandingkan media konvensional.
# No 3
# Data dalam bentuk matriks
tabel <- matrix(c(18, 12, 5, 15,
14, 10, 18, 8,
8, 5, 25, 2),
nrow = 3, byrow = TRUE)
# nama baris dan kolom
rownames(tabel) <- c("Generasi Z", "Milenial", "Generasi X")
colnames(tabel) <- c("Instagram", "Twitter", "Facebook", "TikTok")
print(tabel)
## Instagram Twitter Facebook TikTok
## Generasi Z 18 12 5 15
## Milenial 14 10 18 8
## Generasi X 8 5 25 2
# Uji Chi-Square
chisq.test(tabel)
##
## Pearson's Chi-squared test
##
## data: tabel
## X-squared = 29.404, df = 6, p-value = 5.102e-05
#Jika p-value < 0.05, maka terdapat hubungan yang signifikan antara generasi dan pilihan platform media sosial.