Uji validitas dilakukan untuk mengetahui ketepatan item pertanyaan dalam kuesioner (Amanda et al., 2019). Ketepatan data yang dikumpulkan dapat mencakup area investigasi yang sebenarnya (Anggraini et al., 2022). Dasar pengambilan keputusan dalam uji validitas yaitu (Al Hakim et al., 2021):
Apabila nilai r_hitung > r_tabel, maka item pertanyaan berkorelasi signifikan terhadap skor keseluruhan yang diperoleh. Artinya, item kuesioner dinyatakan valid.
Apabilai nilai r_hitung < r_tabel, maka item pertanyaan tidak berkorelasi signifikan terhadap skor keseluruhan yang diperoleh. Artinya, item kuesioner dinyatakan tidak valid.
library(readxl)
spkp123 <- read_excel("G:/My Drive/RStudio sofitahnia/Validitas dan Reliabilitas/spkp123.xlsx")
View(spkp123)
spkp123## # A tibble: 30 × 11
## Responden U1 U2 U3 U4 U5 U6 U7 U8 U9 Total
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 3 3 3 3 3 3 3 3 3 27
## 2 2 4 4 4 4 3 3 4 4 4 34
## 3 3 4 4 4 4 4 4 4 4 4 36
## 4 4 3 3 3 3 4 4 3 4 4 31
## 5 5 4 4 4 4 4 4 4 4 4 36
## 6 6 4 3 3 3 3 3 3 3 3 28
## 7 7 3 3 3 3 3 3 3 3 3 27
## 8 8 4 4 4 4 4 4 4 4 4 36
## 9 9 4 4 3 3 3 3 4 4 4 32
## 10 10 4 3 3 3 3 3 3 3 3 28
## # ℹ 20 more rowshead(spkp123)## # A tibble: 6 × 11
## Responden U1 U2 U3 U4 U5 U6 U7 U8 U9 Total
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 3 3 3 3 3 3 3 3 3 27
## 2 2 4 4 4 4 3 3 4 4 4 34
## 3 3 4 4 4 4 4 4 4 4 4 36
## 4 4 3 3 3 3 4 4 3 4 4 31
## 5 5 4 4 4 4 4 4 4 4 4 36
## 6 6 4 3 3 3 3 3 3 3 3 28Uji validitas menggunakan teknik korelasi bivariate pearson yaitu dengan mengkorelasikan setiap nilai item pertanyaan dengan skor total item kuesioner (Janna & Herianto, 2021).
library(dplyr)## Warning: package 'dplyr' was built under R version 4.3.1##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionvalid<-cor(select(spkp123, U1, U2, U3, U4, U5, U6, U7, U8, U9, Total), method = "pearson")
valid## U1 U2 U3 U4 U5 U6 U7
## U1 1.0000000 0.5345225 0.3546041 0.2786580 0.1867545 0.2362278 0.5345225
## U2 0.5345225 1.0000000 0.8164966 0.7399401 0.4472136 0.2828427 0.4666667
## U3 0.3546041 0.8164966 1.0000000 0.7963908 0.3423266 0.4330127 0.4082483
## U4 0.2786580 0.7399401 0.7963908 1.0000000 0.4136391 0.2378257 0.3363364
## U5 0.1867545 0.4472136 0.3423266 0.4136391 1.0000000 0.5533986 0.1118034
## U6 0.2362278 0.2828427 0.4330127 0.2378257 0.5533986 1.0000000 0.4242641
## U7 0.5345225 0.4666667 0.4082483 0.3363364 0.1118034 0.4242641 1.0000000
## U8 0.6681531 0.4666667 0.4082483 0.2018018 0.1118034 0.4242641 0.6000000
## U9 0.4008919 0.4666667 0.5443311 0.3363364 0.2236068 0.7071068 0.7333333
## Total 0.6530259 0.8179176 0.7946295 0.6804260 0.5498333 0.6735274 0.7143837
## U8 U9 Total
## U1 0.6681531 0.4008919 0.6530259
## U2 0.4666667 0.4666667 0.8179176
## U3 0.4082483 0.5443311 0.7946295
## U4 0.2018018 0.3363364 0.6804260
## U5 0.1118034 0.2236068 0.5498333
## U6 0.4242641 0.7071068 0.6735274
## U7 0.6000000 0.7333333 0.7143837
## U8 1.0000000 0.7333333 0.7143837
## U9 0.7333333 1.0000000 0.7972108
## Total 0.7143837 0.7972108 1.0000000Selanjutnya dapat dicari nilai r_tabel dengan taraf signifikasi 0.05 dan df= 28.
n=30
t_tabel=2.048
df=n-2
r_tabel=t_tabel/(sqrt(df+t_tabel^2))
r_tabel## [1] 0.3609445Diperoleh nilai r_tabel adalah 0.3609.
Dari perhitungan dengan bivariate pearson, diperoleh bahwa nilai r_hitung pada skor total seluruhnya > r_tabel. Artinya 9 item pertanyaan dinyatakan valid.
Uji reliabilitas adalah pengujian pengujian yang menunjukkan sejauh mana kuesioner dapat dipercaya dan diandalkan (Amanda et al., 2019). Apabila suatu kuesioner dilakukan pengukuran berkali-kali dan menghasilkan pengukuran yang sama, maka kuesioner dikatakan reliabel. Sebagai alat ukur, kuesioer harus memiliki reliabilitas yang tinggi. Dasar pengambilan keputusan dalam uji reliabilitas yaitu (Anggraini et al., 2022):
Apabila hasil koefisien alpha > 0.6, maka item pertanyaan dinyatakan reliable.
Apabilai hasil koefisien alpha < 0.6, maka item pertanyaan dinyatakan tidak reliable.
library(readxl)
dataspkp123 <- read_excel("G:/My Drive/RStudio sofitahnia/Validitas dan Reliabilitas/dataspkp123.xlsx")
View(dataspkp123)
head(dataspkp123)## # A tibble: 6 × 9
## U1 U2 U3 U4 U5 U6 U7 U8 U9
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 3 3 3 3 3 3 3 3 3
## 2 4 4 4 4 3 3 4 4 4
## 3 4 4 4 4 4 4 4 4 4
## 4 3 3 3 3 4 4 3 4 4
## 5 4 4 4 4 4 4 4 4 4
## 6 4 3 3 3 3 3 3 3 3Uji reliabilitas menggunakan teknik cronbach’s alpha dengan jumlah sample 30.
library(ltm) ## Loading required package: MASS##
## Attaching package: 'MASS'## The following object is masked from 'package:dplyr':
##
## select## Loading required package: msm## Loading required package: polycorcronbach.alpha(dataspkp123)##
## Cronbach's alpha for the 'dataspkp123' data-set
##
## Items: 9
## Sample units: 30
## alpha: 0.874Diperoleh nilai cronbach’s alpha adalah 0.874 > 0.6 . Sehingga item pertanyaan dinyatakan reliabel.
Al Hakim, R., Mustika, I., & Yuliani, W. (2021). Validitas Dan Reliabilitas Angket Motivasi Berprestasi. FOKUS (Kajian Bimbingan & Konseling Dalam Pendidikan), 4(4), 263. https://doi.org/10.22460/fokus.v4i4.7249
Amanda, L., Yanuar, F., & Devianto, D. (2019). Uji Validitas dan Reliabilitas Tingkat Partisipasi Politik Masyarakat Kota Padang. Jurnal Matematika UNAND, 8(1), 179. https://doi.org/10.25077/jmu.8.1.179-188.2019
Anggraini, F. D. P., Aprianti, A., Setyawati, V. A. V., & Hartanto, A. A. (2022). Pembelajaran Statistika Menggunakan Software SPSS untuk Uji Validitas dan Reliabilitas. Jurnal Basicedu, 6(4), 6491–6504. https://doi.org/10.31004/basicedu.v6i4.3206