Deskripsi Data

Data yang saya gunakan dari nilai raport pengetahuan untuk dari salah satu kelas yang ada di SD Negeri Pakulaut 01, kemudian data saya di rata-ratakan terlebih dahulu, bertujuan untuk mengetahui kemajuan pembelajaran offline dengan online

Data Yang saya gunakan link data yang sudah rata rata : https://drive.google.com/file/d/1aC4-1OJ2jk5uKBg_g0razXhRs-dKuZs3/view?usp=sharing

link Data dari SD :https://drive.google.com/file/d/1GWGyKMn2CkKZQjPoyJGDFwbprPI7kpZC/view?usp=sharing

Proses Pengerjaan

  1. Siapkan data menggunakan perintah library (readxl)
library(readxl)
## Warning: package 'readxl' was built under R version 4.0.3
Data <- read_excel("D:/TUGAS KULIYAH/Data.xlsx")
View(Data)

#mengurangi 1 kolom

Data = Data[,-1]
Data
## # A tibble: 38 x 2
##    `Ta 2018/2019` `Ta 2019/2020`
##             <dbl>          <dbl>
##  1             87             85
##  2             81             84
##  3             94             92
##  4             84             85
##  5             79             75
##  6             95             88
##  7             93             93
##  8             94             94
##  9             93             88
## 10             96             95
## # ... with 28 more rows
a = c(t(as.matrix(Data)))
a
##  [1] 87 85 81 84 94 92 84 85 79 75 95 88 93 93 94 94 93 88 96 95 88 80 91 92 93
## [26] 91 77 76 93 92 77 78 86 81 84 78 86 80 85 82 82 84 78 79 91 89 92 84 86 85
## [51] 95 90 79 82 84 81 90 86 83 84 87 86 86 86 89 85 79 74 88 87 88 86 91 87 86
## [76] 83

#Buat variabel baru untuk kategori, level treatment, dan data treatment.

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

#Buat factor level sesuai anggota variabel r, gunakan 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  OFFLINE ONLINE  OFFLINE
## [28] ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE 
## [37] OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE
## [46] ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE 
## [55] OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE
## [64] ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE  OFFLINE ONLINE 
## [73] OFFLINE ONLINE  OFFLINE ONLINE 
## Levels: OFFLINE ONLINE

#Gunakan fungsi aov untuk uji Anova, kemudian print out hasilnya menggunakan fungsi summary.

nilai = aov(a~tm)
summary(nilai)
##             Df Sum Sq Mean Sq F value Pr(>F)  
## tm           1   90.6   90.64   3.093 0.0827 .
## Residuals   74 2168.3   29.30                 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1