http://rmarkdown.rstudio.com.

-) data yang digunakan untuk pengujian 1 saya mengambil nilai ketrampilan danpengetahuan dari smp3 brebes tahun ajaran 2020/2021 -) untuk mengetahui mana yang lebih bagus anatar nilai ketampilan dengan pengetahuan -) saya mengambil nilai ratarata dari kelas 8E smp3 brebes -) dengan menggunkanan level (0.5),maka dilakukan pengujian apakah nilai raport antara pengetahuan dengan ketrampilan sama atau berbeda

-)langkah langkah pengerjaan -saya mengambil nilai dari smp3 brebes 2020/2021 (https://drive.google.com/file/d/1jUZi7eLeGHgrW0VI7SnA5RU59scT98aZ/view?usp=sharing)

Nilai rata rata siswa/siswi ketrampilan dan pengetahuan kelas 8E semester 1 semua mata pelajaran

library(readxl)
## Warning: package 'readxl' was built under R version 4.0.3
data = read_excel("perbandingan.xlsx")
## New names:
## * `` -> ...1
View(data)

meringkas atau memperkecil data

data = data[,-1]
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
data
## # A tibble: 11 x 2
##    PENGETAHUAN KETRAMPILAN
##          <dbl>       <dbl>
##  1          82          82
##  2          80          81
##  3          80          82
##  4          77          77
##  5          80          80
##  6          79          79
##  7          78          78
##  8          80          80
##  9          79          79
## 10          78          83
## 11          77          77
a = c(t(as.matrix(data)))
a
##  [1] 82 82 80 81 80 82 77 77 80 80 79 79 78 78 80 80 79 79 78 83 77 77

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

f = c("PENGETAHUAN", "KETRAMPILAN")
k = 2 #treatment levels
n = 11 #data tiap treatment
tm = gl(k, 1, n*k, factor(f))
tm
##  [1] PENGETAHUAN KETRAMPILAN PENGETAHUAN KETRAMPILAN PENGETAHUAN KETRAMPILAN
##  [7] PENGETAHUAN KETRAMPILAN PENGETAHUAN KETRAMPILAN PENGETAHUAN KETRAMPILAN
## [13] PENGETAHUAN KETRAMPILAN PENGETAHUAN KETRAMPILAN PENGETAHUAN KETRAMPILAN
## [19] PENGETAHUAN KETRAMPILAN PENGETAHUAN KETRAMPILAN
## Levels: PENGETAHUAN KETRAMPILAN

#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   2.91   2.909   0.901  0.354
## Residuals   20  64.55   3.227

##penjelasan hasil pengujian anova = nilai f value lebih besar dibandingkan dengan probabilitas brarti kita dapat artikan nilai pengetahuan lebih besar dari nilai ketrampilan

##dapat kita simpulkan bahwa pembelajaran dengan menggunakan metode pengetahuan lebih mempengaruhi dari pada pembelajaran ketrampilan