Deskripsi Data

saya Akan melakukan Perbandingan dari tahun 2018 dengan 2019, data yang saya gunakan data Raport siswa Akutansi SMK AN NUR SLAWI, tujuanya saya ingin membandingan data dari tahun 2018 dengan tahun 2019,saya ingin melihat perkembangannya

Data Siswa Akutansi SMK AN NUR SLAWI LINK : https://drive.google.com/file/d/1jsm0NX8DkXMu0gXhIhWEWDIL0wNpge-i/view?usp=sharing

Proses Pengerjaan

pertama export terlebih dahulu dengan library(readxl), Kemudian tampilkan datanya dengan perintah berikut

library(readxl)
## Warning: package 'readxl' was built under R version 4.0.3
Data_nilai <- read_excel("D:/Aku/Ayip/Data_nilai.xlsx")
View(Data_nilai)

kemudian urutkan menggunakan fungsi t(matrik Transpose)agar nilai berurutan

a = c(t(as.matrix(Data_nilai)))
a
##  [1] 74 70 72 70 79 75 78 75 87 85 79 75 87 85 79 75 78 75 77 75 78 75 87 85

lalu buat variabel baru unrtuk kategori, level treatment dan data treatment

f = c("OFFLINE", "ONLINE")
k = 2 #treatment levels
n = 12 #data tiap treatment

buat faktor level sesuai angguta variabel r, dengan menggunakan fungsi gl

tm = gl(k, 1, n*k, factor(f))
tm
##  [1] OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE
## [10] ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE 
## [19] OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE 
## Levels: OFFLINE ONLINE

yang terakhir menggunakan fungsi aov untuk menguji anova, kemudian tampilkan dengan fungsi summary

av = aov(a~tm)
summary(av)
##             Df Sum Sq Mean Sq F value Pr(>F)
## tm           1   51.0   51.04   1.918   0.18
## Residuals   22  585.6   26.62

Kesimpulan

Dari Hari pengujian menggunakan anova dapat disimpulkan karena p-value (0,18)lebih besar dari nilai signifikan (0,05) maka disimpulkan bahwa nilai pada semua kelompok (data nilai) bernilai sama