Trust In Science 1
Roihan
2024-07-03
library(readxl)## Warning: package 'readxl' was built under R version 4.4.1pilot1 <- read_xlsx("C:/Users/user/Documents/Scientific Fact Survey I.xlsx")
survey1 <- complete.cases(pilot1)
survey_complete1 <- pilot1[survey1, ]
head(survey_complete1)## # A tibble: 6 × 49
## `Nama Lengkap` Sains sangat bermanfaat untuk…¹ Ada banyak kebutuhan…²
## <chr> <dbl> <dbl>
## 1 Titi Nur Hidayati 4 4
## 2 Salma Rizkia Rahmadani 5 5
## 3 arifa satya qothrunada 4 4
## 4 Dyah Ayu Nur Aini 4 4
## 5 Khailla Septi Anggraini 5 5
## 6 ANNISA WAHYU APRIANI 4 4
## # ℹ abbreviated names:
## # ¹`Sains sangat bermanfaat untuk memecahkan permasalahan sehari hari.`,
## # ²`Ada banyak kebutuhan untuk menggunakan ilmu sains dalam kebanyakan pekerjaan.`
## # ℹ 46 more variables:
## # `Kebanyakan orang harus mempelajari sedikit tentang sains.` <dbl>,
## # `Sains adalah sesuatu yang membantu untuk memahami dunia saat ini.` <dbl>,
## # `Sains sangat penting bagi pembangunan nasional.` <dbl>, …summary(survey_complete1)## Nama Lengkap
## Length:40
## Class :character
## Mode :character
##
##
##
## Sains sangat bermanfaat untuk memecahkan permasalahan sehari hari.
## Min. :3.0
## 1st Qu.:4.0
## Median :4.0
## Mean :4.2
## 3rd Qu.:4.0
## Max. :5.0
## Ada banyak kebutuhan untuk menggunakan ilmu sains dalam kebanyakan pekerjaan.
## Min. :3.0
## 1st Qu.:4.0
## Median :4.0
## Mean :4.1
## 3rd Qu.:4.0
## Max. :5.0
## Kebanyakan orang harus mempelajari sedikit tentang sains.
## Min. :1
## 1st Qu.:4
## Median :4
## Mean :4
## 3rd Qu.:5
## Max. :5
## Sains adalah sesuatu yang membantu untuk memahami dunia saat ini.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.275
## 3rd Qu.:5.000
## Max. :5.000
## Sains sangat penting bagi pembangunan nasional.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.275
## 3rd Qu.:5.000
## Max. :5.000
## Pentingnya mengetahui ilmu pengetahuan agar dapat memperoleh pekerjaan yang baik.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.325
## 3rd Qu.:5.000
## Max. :5.000
## Kita dapat menjalani kehidupan sehari-hari dengan sempurna dengan sains.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.775
## 3rd Qu.:4.000
## Max. :5.000
## Kebanyakan ide dalam sains bermanfaat.
## Min. :2.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.075
## 3rd Qu.:5.000
## Max. :5.000
## Zodiak dapat digunakan sebagai patokan utama dalam memahami kepribadian seseorang.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.625
## 3rd Qu.:4.000
## Max. :5.000
## Seorang introvert sama sekali tidak bisa melakukan interaksi sosial dengan baik.
## Min. :2.00
## 1st Qu.:3.00
## Median :4.00
## Mean :3.55
## 3rd Qu.:4.00
## Max. :5.00
## Individu yang sering berubah-ubah pikiran pasti memiliki kepribadian ganda.
## Min. :1.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.525
## 3rd Qu.:4.000
## Max. :5.000
## Individu yang tidak bisa melakukan operasi matematika pasti memiliki keterlambatan perkembangan mental.
## Min. :1.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.675
## 3rd Qu.:4.000
## Max. :5.000
## Mendengarkan musik klasik dan Mozart pada anak-anak dapat meningkatkan IQ dan kemampuan kognitif mereka.
## Min. :2.000
## 1st Qu.:2.000
## Median :3.000
## Mean :2.675
## 3rd Qu.:3.000
## Max. :4.000
## IQ dan Bakat individu dapat dideteksi melalui tes fingerprint.
## Min. :1.0
## 1st Qu.:3.0
## Median :3.0
## Mean :3.4
## 3rd Qu.:4.0
## Max. :5.0
## Eksorsisme dapat menyembuhkan Down Syndrome.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.275
## 3rd Qu.:4.000
## Max. :5.000
## Ukuran dan bentuk kepala dapat menjadi prediktor bakat dan IQ seseorang.
## Min. :1.0
## 1st Qu.:3.0
## Median :4.0
## Mean :3.5
## 3rd Qu.:4.0
## Max. :5.0
## Psikologi hanyalah pseudoscience.
## Min. :2.0
## 1st Qu.:3.0
## Median :3.0
## Mean :3.4
## 3rd Qu.:4.0
## Max. :5.0
## Genetika tidak memengaruhi kondisi psikologis individu.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.225
## 3rd Qu.:4.000
## Max. :5.000
## Minum air dingin menyebabkan haid tidak lancer.
## Min. :1.000
## 1st Qu.:4.000
## Median :4.000
## Mean :3.825
## 3rd Qu.:4.000
## Max. :5.000
## Mandi malam bisa menyebabkan rematik.
## Min. :2.0
## 1st Qu.:3.0
## Median :4.0
## Mean :3.5
## 3rd Qu.:4.0
## Max. :5.0
## Makan nasi yang disimpan dalam temperature dingin dapat menurunkan risiko diabetes tipe 2, gangguan pencernaan, dan jumlah diet glikemik.
## Min. :2.00
## 1st Qu.:2.00
## Median :3.00
## Mean :2.85
## 3rd Qu.:3.00
## Max. :4.00
## Berolahraga dengan teratur dapat meregulasi dan menurunkan tingkat kecemasan.
## Min. :1.000
## 1st Qu.:2.000
## Median :2.000
## Mean :2.175
## 3rd Qu.:2.000
## Max. :4.000
## Golongan darah seseorang menentukan karakteristik kepribadiannya.
## Min. :1.0
## 1st Qu.:3.0
## Median :3.0
## Mean :3.4
## 3rd Qu.:4.0
## Max. :5.0
## Ada anggapan bahwa vaksin merupakan sesuatu yang tidak aman karena prinsip vaksin yang memasukkan virus lemah ke dalam tubuh manusia.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.500
## Mean :3.275
## 3rd Qu.:4.000
## Max. :4.000
## Nano spray menjaga wajah tampak awet muda.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.225
## 3rd Qu.:4.000
## Max. :5.000
## Mengkonsumsi semut jepang bisa menyembuhkan diabetes.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.325
## 3rd Qu.:4.000
## Max. :5.000
## Minum soda tidak baik untuk Perempuan karena akan menganggu ovarium.
## Min. :1.000
## 1st Qu.:2.000
## Median :3.000
## Mean :2.725
## 3rd Qu.:3.000
## Max. :5.000
## Bulu kucing merupakan sumber virus toksoplasmosit.
## Min. :2.00
## 1st Qu.:2.00
## Median :3.00
## Mean :2.95
## 3rd Qu.:3.00
## Max. :5.00
## Thermo scanner berbahaya karena memancarkan radiasi ke obyek yang akan diukur lalu menerima pantulan radiasi yang dipancarkan kembali dari obyek.
## Min. :2.0
## 1st Qu.:2.0
## Median :3.0
## Mean :2.9
## 3rd Qu.:3.0
## Max. :5.0
## Warga Desa Mojorembun Temukan Dua Batu Meteorit, ukuran batu yang besar, berwarna hitam, tidak ada pori-porinya, mulus, dan menempel saat magnet didekatkan.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :2.925
## 3rd Qu.:3.000
## Max. :4.000
## menara pemancar jaringan telekomunikasi 5G memancarkan radiasi yang dapat membahayakan tubuh manusia.
## Min. :2
## 1st Qu.:3
## Median :3
## Mean :3
## 3rd Qu.:3
## Max. :4
## ahli fisika Heinz von Foerster dari Universitas Illinois, Amerika Serikat, yang menyatakan bahwa kiamat bumi akan terjadi pada 2026 mendatang. Foerster mengatakan, bahwa prediksinya ini didasarkan pada model matematika yang memperhitungkan berbagai faktor, termasuk pertumbuhan populasi, konsumsi sumber daya alam, dan polusi lingkungan.
## Min. :1.00
## 1st Qu.:3.00
## Median :3.00
## Mean :3.35
## 3rd Qu.:4.00
## Max. :5.00
## Albert Einstein ilmuan yang gagal dalam fisika.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.375
## 3rd Qu.:4.000
## Max. :4.000
## jika kita menjatuhkan kubus besi ke dalam lubang hitam, tidak akan ada cara untuk mengetahui apa yang terjadi dengan benda tersebut.
## Min. :1.00
## 1st Qu.:2.00
## Median :3.00
## Mean :2.65
## 3rd Qu.:3.00
## Max. :4.00
## Ketika memegang gagang kayu pengaduk sayur tangan jadinya panas.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.525
## 3rd Qu.:4.000
## Max. :5.000
## Teleskop radio terbesar di dunia bisa mencari petunjuk tentang asal-usul alam semesta.
## Min. :2.00
## 1st Qu.:3.00
## Median :3.00
## Mean :3.05
## 3rd Qu.:3.00
## Max. :5.00
## Kita Bisa Menjelajah Lebih Cepat dari Cahaya.
## Min. :1.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.525
## 3rd Qu.:4.000
## Max. :5.000
## Jarak dan perpindahan dua hal yang sama.
## Min. :2.0
## 1st Qu.:3.0
## Median :4.0
## Mean :3.6
## 3rd Qu.:4.0
## Max. :5.0
## Setiap segitiga memiliki 3 sisi dan memiliki luas. Statistik selalu akurat.
## Min. :1.000 Min. :2.000
## 1st Qu.:2.000 1st Qu.:2.750
## Median :2.000 Median :3.000
## Mean :2.175 Mean :2.975
## 3rd Qu.:3.000 3rd Qu.:3.000
## Max. :4.000 Max. :5.000
## Teorema Pythagoras hanya berlaku untuk Segitiga Siku-Siku.
## Min. :1.000
## 1st Qu.:2.000
## Median :2.000
## Mean :2.475
## 3rd Qu.:3.000
## Max. :4.000
## Semua Matematika hanya tentang Angka. Bilangan bulat lebih mudah dicari.
## Min. :2.000 Min. :1.000
## 1st Qu.:3.000 1st Qu.:2.000
## Median :4.000 Median :2.000
## Mean :3.775 Mean :2.425
## 3rd Qu.:4.000 3rd Qu.:3.000
## Max. :5.000 Max. :4.000
## Matematika tidak berguna dalam kehidupan sehari-hari
## Min. :2.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.125
## 3rd Qu.:5.000
## Max. :5.000
## 1+1 selalu menghasilkan 2 di setiap konteks operasi matematika.
## Min. :1.00
## 1st Qu.:2.00
## Median :2.50
## Mean :2.65
## 3rd Qu.:3.00
## Max. :4.00
## Semakin besar sampel, semakin baik.
## Min. :1.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.075
## 3rd Qu.:4.000
## Max. :4.000
## Statistik tidak bisa digunakan untuk memanipulasi.
## Min. :1.00
## 1st Qu.:2.00
## Median :3.00
## Mean :2.95
## 3rd Qu.:4.00
## Max. :4.00
## Regresi linear selalu cocok untuk semua data.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.025
## 3rd Qu.:3.000
## Max. :5.000# Menghitung mean pada kolom 2-9
sikap <- rowMeans(survey_complete1[, 2:9], na.rm = TRUE)
# Menghitung mean pada kolom 10-49
kerentanan <- rowMeans(survey_complete1[, 10:49], na.rm = TRUE)
# Menggabungkan hasil mean menjadi satu kolom setiap barisnya
result1 <- cbind(sikap, kerentanan)
head(result1)## sikap kerentanan
## [1,] 3.750 3.100
## [2,] 5.000 3.050
## [3,] 4.000 2.975
## [4,] 4.375 3.425
## [5,] 5.000 3.200
## [6,] 3.750 2.375# Mengubah matriks menjadi data frame
hasil1 <- as.data.frame(result1)
p1 <- lm(sikap ~ kerentanan, data = hasil1)
summary(p1)##
## Call:
## lm(formula = sikap ~ kerentanan, data = hasil1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.2563 -0.2499 -0.1178 0.3305 0.8782
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.95680 0.51408 7.697 2.86e-09 ***
## kerentanan 0.05411 0.16108 0.336 0.739
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.4085 on 38 degrees of freedom
## Multiple R-squared: 0.002961, Adjusted R-squared: -0.02328
## F-statistic: 0.1129 on 1 and 38 DF, p-value: 0.7388plot(hasil1$sikap,hasil1$kerentanan,pch=16,xlab="Sikap",ylab="Kerentanan")
abline(p1,col="red")
anova(p1)## Analysis of Variance Table
##
## Response: sikap
## Df Sum Sq Mean Sq F value Pr(>F)
## kerentanan 1 0.0188 0.018829 0.1129 0.7388
## Residuals 38 6.3402 0.166846