1. LOAD LIBRARY & DATA

Sys.setenv(RGL_USE_NULL = TRUE)

if(!require(heplots)) install.packages(“heplots”) if(!require(car)) install.packages(“car”)

library(heplots) library(car)

data_sleep <- read.csv(“Downloads/student_sleep_patterns.csv”) names(data_sleep)

2. ANALISIS MANOVA

model_mancova <- lm( cbind(Sleep_Duration, Sleep_Quality) ~ University_Year + Study_Hours, data = data_sleep )

Menampilkan statistik MANOVA

print(“— HASIL MANCOVA —”) summary(Anova(model_mancova))

3. ANALISIS MANCOVA

Menambahkan Study_Hours sebagai kovariat

model_mancova <- lm( cbind(Sleep_Duration, Sleep_Quality) ~ University_Year + Study_Hours, data = data_sleep ) library(car)

print(“— HASIL MANCOVA —”) summary(Anova(model_mancova))

4. VISUALISASI HE PLOT

Membagi layar jadi 2 (Kiri MANOVA, Kanan MANCOVA)

par(mfrow=c(1,2))

model_manova <- manova( cbind(Sleep_Duration, Sleep_Quality) ~ University_Year, data = data_sleep )

library(heplots)

Plot untuk MANOVA

heplot(model_manova, main=“HE Plot: MANOVA”, sub=“Pengaruh Tahun Universitas”, fill=TRUE, col=c(“red”, “blue”))

Plot untuk MANCOVA

heplot(model_mancova, main=“HE Plot: MANCOVA”, sub=“Kontrol: Study Hours”, fill=TRUE, col=c(“darkgreen”, “blue”, “red”))

Mengembalikan setting layar ke normal

par(mfrow=c(1,1))

1. Mulai proses penyimpanan (Membuka ‘pintu’ file)

png(“HE_Plot_Laporan_Modul2.png”, width = 1200, height = 600, res = 150)

2. Gambar lagi HE Plot-nya (harus dijalankan ulang di dalam perintah png)

par(mfrow=c(1,2))

heplot(model_manova, main=“HE Plot: MANOVA”, fill=TRUE, col=c(“red”, “blue”))

heplot(model_mancova, main=“HE Plot: MANCOVA”, fill=TRUE, col=c(“darkgreen”, “blue”, “red”))

3. Selesaikan penyimpanan (Menutup ‘pintu’ file)

dev.off()

print(“Gambar telah tersimpan dengan nama: HE_Plot_Laporan_Modul2.png”)

shapiro.test(data\(Sleep_Duration) shapiro.test(data\)Sleep_Quality) if(!require(heplots)) install.packages(“heplots”) boxM(cbind(data\(Sleep_Duration, data\)Sleep_Quality), data$University_Year)

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.