Klasifikasi: Analisis Diskriminan vs Regresi Logistik Ordinal dengan Dataset Student Performance
Siti Muftiah Ummatun (23031554162)
Nurma Aulia Azizah (23031554183)
Bernicca Olivia Sullivani (23031554176)
Husain Fahd Salimul Aqil (23031554172)
2025-05-20
install.packages(c(“readxl”, “MASS”, “ordinal”, “caret”, “GGally”, “dplyr”, “fastDummies”, “rstatix”, “biotools”))
library(readxl) library(MASS) library(ordinal) library(caret) library(GGally) library(dplyr) library(fastDummies) library(biotools)
baca dataset
library(readxl)## Warning: package 'readxl' was built under R version 4.4.3student_performance_data <- read_excel("students_Performance_data_set.xlsx")preprosesing
Cek tipe objek:
class(data)## [1] "function"cek missing value
summary(student_performance_data)## University Admission year Gender Age
## Length:1194 Length:1194 Length:1194
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
## H.S.C passing year Program Current Semester
## Min. :2012 Length:1194 Min. : 1.000
## 1st Qu.:2019 Class :character 1st Qu.: 3.000
## Median :2020 Mode :character Median : 7.000
## Mean :2019 Mean : 6.539
## 3rd Qu.:2020 3rd Qu.:10.000
## Max. :2028 Max. :24.000
## Do you have meritorious scholarship ? Do you use University transportation?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## How many hour do you study daily?
## Length:1194
## Class :character
## Mode :character
##
##
##
## How many times do you seat for study in a day?
## Min. :0.000
## 1st Qu.:1.000
## Median :2.000
## Mean :1.941
## 3rd Qu.:2.000
## Max. :7.000
## What is your preferable learning mode? Do you use smart phone?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Do you have personal Computer?
## Length:1194
## Class :character
## Mode :character
##
##
##
## How many hour do you spent daily in social media?
## Length:1194
## Class :character
## Mode :character
##
##
##
## Status of your English language proficiency Average attendance on class
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Did you ever fall in probation? Did you ever got suspension?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Do you attend in teacher consultancy for any kind of academical problems?
## Length:1194
## Class :character
## Mode :character
##
##
##
## What are the skills do you have ?
## Length:1194
## Class :character
## Mode :character
##
##
##
## How many hour do you spent daily on your skill development?
## Length:1194
## Class :character
## Mode :character
##
##
##
## What is you interested area? What is your relationship status?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Are you engaged with any co-curriculum activities?
## Length:1194
## Class :character
## Mode :character
##
##
##
## With whom you are living with? Do you have any health issues?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## What was your previous SGPA? Do you have any physical disabilities?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## What is your current CGPA? How many Credit did you have completed?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## What is your monthly family income?
## Length:1194
## Class :character
## Mode :character
##
##
## anyNA(student_performance_data)## [1] FALSEMengisi atau menghapus nilai hilang (contoh hapus)
data_clean <- na.omit(student_performance_data) mengidentifikasi dan menghapus outlier pada kolom
numerik Age, Reading_Score,
Writing_Score, Math_Score, dan
Study_Hours
library(dplyr)
# Ubah nama objek dari data ke df
df <- read_excel("Students_Performance_data_set.xlsx")
num_cols <- c("Age",
"How many hour do you study daily?",
"Average attendance on class",
"What was your previous SGPA?",
"What is your current CGPA?",
"How many Credit did you have completed?")
# Konversi ke numerik
df_clean <- df %>%
mutate(across(all_of(num_cols), ~as.numeric(.)))## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `across(all_of(num_cols), ~as.numeric(.))`.
## Caused by warning:
## ! NAs introduced by coercion# Hilangkan outlier dari setiap kolom numerik menggunakan IQR
df_no_outliers <- df_clean %>%
filter(across(all_of(num_cols), ~ {
Q1 <- quantile(., 0.25, na.rm = TRUE)
Q3 <- quantile(., 0.75, na.rm = TRUE)
IQR <- Q3 - Q1
. >= (Q1 - 1.5 * IQR) & . <= (Q3 + 1.5 * IQR)
}))## Warning: Using `across()` in `filter()` was deprecated in dplyr 1.0.8.
## ℹ Please use `if_any()` or `if_all()` instead.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.# Ringkasan hasil
summary(df_no_outliers)## University Admission year Gender Age
## Length:1077 Length:1077 Min. :18.00
## Class :character Class :character 1st Qu.:20.00
## Mode :character Mode :character Median :21.00
## Mean :21.31
## 3rd Qu.:22.00
## Max. :25.00
## H.S.C passing year Program Current Semester
## Min. :2013 Length:1077 Min. : 1.000
## 1st Qu.:2019 Class :character 1st Qu.: 3.000
## Median :2020 Mode :character Median : 7.000
## Mean :2019 Mean : 6.657
## 3rd Qu.:2020 3rd Qu.:10.000
## Max. :2028 Max. :24.000
## Do you have meritorious scholarship ? Do you use University transportation?
## Length:1077 Length:1077
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## How many hour do you study daily?
## Min. :0.000
## 1st Qu.:2.000
## Median :3.000
## Mean :3.021
## 3rd Qu.:4.000
## Max. :7.000
## How many times do you seat for study in a day?
## Min. :0.00
## 1st Qu.:1.00
## Median :2.00
## Mean :1.93
## 3rd Qu.:2.00
## Max. :7.00
## What is your preferable learning mode? Do you use smart phone?
## Length:1077 Length:1077
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Do you have personal Computer?
## Length:1077
## Class :character
## Mode :character
##
##
##
## How many hour do you spent daily in social media?
## Length:1077
## Class :character
## Mode :character
##
##
##
## Status of your English language proficiency Average attendance on class
## Length:1077 Min. : 50.00
## Class :character 1st Qu.: 85.00
## Mode :character Median : 95.00
## Mean : 89.82
## 3rd Qu.:100.00
## Max. :100.00
## Did you ever fall in probation? Did you ever got suspension?
## Length:1077 Length:1077
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Do you attend in teacher consultancy for any kind of academical problems?
## Length:1077
## Class :character
## Mode :character
##
##
##
## What are the skills do you have ?
## Length:1077
## Class :character
## Mode :character
##
##
##
## How many hour do you spent daily on your skill development?
## Length:1077
## Class :character
## Mode :character
##
##
##
## What is you interested area? What is your relationship status?
## Length:1077 Length:1077
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Are you engaged with any co-curriculum activities?
## Length:1077
## Class :character
## Mode :character
##
##
##
## With whom you are living with? Do you have any health issues?
## Length:1077 Length:1077
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## What was your previous SGPA? Do you have any physical disabilities?
## Min. :1.05 Length:1077
## 1st Qu.:2.36 Class :character
## Median :2.68 Mode :character
## Mean :2.79
## 3rd Qu.:3.39
## Max. :4.00
## What is your current CGPA? How many Credit did you have completed?
## Min. :1.750 Min. : 0.00
## 1st Qu.:2.980 1st Qu.: 23.00
## Median :3.270 Median : 84.00
## Mean :3.292 Mean : 73.97
## 3rd Qu.:3.700 3rd Qu.:119.00
## Max. :4.000 Max. :145.00
## What is your monthly family income?
## Length:1077
## Class :character
## Mode :character
##
##
## Normalisasi / Standarisasi (misal semua numerik di-normalisasi dengan z-score / standar)
library(dplyr)
num_cols <- c("Age",
"How many hour do you study daily?",
"Average attendance on class",
"What was your previous SGPA?",
"What is your current CGPA?",
"How many Credit did you have completed?")
# Pastikan kolom numeric sudah dikonversi dengan aman
data_clean <- data_clean %>%
mutate(across(all_of(num_cols), ~as.numeric(.)))## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `across(all_of(num_cols), ~as.numeric(.))`.
## Caused by warning:
## ! NAs introduced by coercion# Standarisasi (z-score)
data_scaled <- data_clean %>%
mutate(across(all_of(num_cols), ~ (. - mean(., na.rm = TRUE)) / sd(., na.rm = TRUE)))Encoding Variabel Kategorikal
# Cek kolom kategori (misal yang bukan numerik)
cat_cols <- names(data_clean)[sapply(data_clean, class) %in% c("character", "factor")]
# Ubah ke faktor jika belum
data_clean <- data_clean %>%
mutate(across(all_of(cat_cols), as.factor))
# One-hot encoding
data_encoded <- fastDummies::dummy_cols(data_clean, select_columns = cat_cols, remove_first_dummy = TRUE, remove_selected_columns = TRUE)Cek Duplikat Data
# Cek ada berapa baris duplikat
sum(duplicated(data_clean))## [1] 0# hapus duplikat
data_no_duplicates <- data_clean %>% distinct()EDA
Struktur data
str(data)## function (..., list = character(), package = NULL, lib.loc = NULL, verbose = getOption("verbose"),
## envir = .GlobalEnv, overwrite = TRUE)Statistik deskriptif
summary(student_performance_data)## University Admission year Gender Age
## Length:1194 Length:1194 Length:1194
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
## H.S.C passing year Program Current Semester
## Min. :2012 Length:1194 Min. : 1.000
## 1st Qu.:2019 Class :character 1st Qu.: 3.000
## Median :2020 Mode :character Median : 7.000
## Mean :2019 Mean : 6.539
## 3rd Qu.:2020 3rd Qu.:10.000
## Max. :2028 Max. :24.000
## Do you have meritorious scholarship ? Do you use University transportation?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## How many hour do you study daily?
## Length:1194
## Class :character
## Mode :character
##
##
##
## How many times do you seat for study in a day?
## Min. :0.000
## 1st Qu.:1.000
## Median :2.000
## Mean :1.941
## 3rd Qu.:2.000
## Max. :7.000
## What is your preferable learning mode? Do you use smart phone?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Do you have personal Computer?
## Length:1194
## Class :character
## Mode :character
##
##
##
## How many hour do you spent daily in social media?
## Length:1194
## Class :character
## Mode :character
##
##
##
## Status of your English language proficiency Average attendance on class
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Did you ever fall in probation? Did you ever got suspension?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Do you attend in teacher consultancy for any kind of academical problems?
## Length:1194
## Class :character
## Mode :character
##
##
##
## What are the skills do you have ?
## Length:1194
## Class :character
## Mode :character
##
##
##
## How many hour do you spent daily on your skill development?
## Length:1194
## Class :character
## Mode :character
##
##
##
## What is you interested area? What is your relationship status?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Are you engaged with any co-curriculum activities?
## Length:1194
## Class :character
## Mode :character
##
##
##
## With whom you are living with? Do you have any health issues?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## What was your previous SGPA? Do you have any physical disabilities?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## What is your current CGPA? How many Credit did you have completed?
## Length:1194 Length:1194
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## What is your monthly family income?
## Length:1194
## Class :character
## Mode :character
##
##
## Korelasi numerik
# Pastikan library dimuat
library(dplyr)
library(GGally)## Warning: package 'GGally' was built under R version 4.4.3## Loading required package: ggplot2## Warning: package 'ggplot2' was built under R version 4.4.3## Registered S3 method overwritten by 'GGally':
## method from
## +.gg ggplot2# Pastikan semua kolom numerik bertipe numeric
num_cols <- c("Age",
"How many hour do you study daily?",
"Average attendance on class",
"What was your previous SGPA?",
"What is your current CGPA?",
"How many Credit did you have completed?")
# Konversi ke numeric jika belum
df_clean <- df %>%
mutate(across(all_of(num_cols), ~ as.numeric(.)))## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `across(all_of(num_cols), ~as.numeric(.))`.
## Caused by warning:
## ! NAs introduced by coercion# Seleksi kolom numerik
data_numeric <- df_clean %>% select(all_of(num_cols))
# Pair plot
ggpairs(data_numeric)## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removing 1 row that contained a missing value## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removing 1 row that contained a missing value## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_point()`).
## Removed 1 row containing missing values or values outside the scale range
## (`geom_point()`).## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_density()`).## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removing 1 row that contained a missing value
## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removing 1 row that contained a missing value
## Warning in ggally_statistic(data = data, mapping = mapping, na.rm = na.rm, :
## Removing 1 row that contained a missing value## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_point()`).
## Removed 1 row containing missing values or values outside the scale range
## (`geom_point()`).
## Removed 1 row containing missing values or values outside the scale range
## (`geom_point()`).
Distribusi Variabel Kategorikal
library(ggplot2)
library(rlang)
cat_vars <- c(
'Do you have meritorious scholarship ?',
'Do you use smart phone?',
'Do you have personal Computer?',
'Do you have any health issues?',
'Do you have any physical disabilities?'
)
for (col in cat_vars) {
print(
ggplot(df, aes(x = !!sym(col))) +
geom_bar(fill = "skyblue") +
labs(title = paste("Distribusi:", col), x = col, y = "Jumlah")
)
}
Untuk Variabel Numerik:
library(ggplot2)
library(rlang)
library(dplyr)
# Daftar variabel numerik
num_vars <- c(
'How many hour do you study daily?',
'How many times do you seat for study in a day?',
'How many hour do you spent daily in social media?',
'Average attendance on class'
)
# Pastikan semua variabel numerik bertipe numeric
df <- df %>%
mutate(across(all_of(num_vars), ~ as.numeric(.)))## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `across(all_of(num_vars), ~as.numeric(.))`.
## Caused by warning:
## ! NAs introduced by coercion# Plot histogram untuk setiap variabel numerik
for (col in num_vars) {
print(
ggplot(df, aes(x = !!sym(col))) +
geom_histogram(fill = "lightgreen", color = "black", bins = 20) +
labs(title = paste("Distribusi:", col), x = col, y = "Frekuensi")
)
}
## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_bin()`).
persiapan data
data <- read_excel("Students_Performance_data_set.xlsx")Konversi ke numeric
data$CGPA_num <- data$`What is your current CGPA?` |>
gsub(",", ".", x = _) |> # ubah koma ke titik (jika ada)
gsub("[^0-9.]", "", x = _) |> # hapus karakter selain angka & titik
as.numeric()Buat kategori CGPA (Low, Medium, High)
data$CGPA_cat <- cut(
data$CGPA_num,
breaks = c(-Inf, 3.0, 3.5, Inf),
labels = c("Low", "Medium", "High"),
right = FALSE,
include.lowest = TRUE
)modeling ordinal logistic regresion
library(MASS)## Warning: package 'MASS' was built under R version 4.4.3##
## Attaching package: 'MASS'## The following object is masked from 'package:rstatix':
##
## select## The following object is masked from 'package:dplyr':
##
## select# daftar fitur
fitur <- c(
"Do you attend in teacher consultancy for any kind of academical problems?",
"How many hour do you study daily?",
"How many times do you seat for study in a day?",
"Do you use smart phone?",
"Do you have personal Computer?",
"How many hour do you spent daily in social media?",
"Average attendance on class",
"Do you have any health issues?",
"Do you have any physical disabilities?"
)
# buat formula
formula_ordinal <- as.formula(
paste("CGPA_cat ~", paste(sprintf("`%s`", fitur), collapse = " + "))
)
# bangun model
model_logit <- polr(formula_ordinal, data = data, Hess = TRUE)
# ringkasan model
summary(model_logit)## Warning in sqrt(diag(vc)): NaNs produced## Call:
## polr(formula = formula_ordinal, data = data, Hess = TRUE)
##
## Coefficients:
## Value
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes -0.17617
## `How many hour do you study daily?`1 -0.91767
## `How many hour do you study daily?`10 -1.20414
## `How many hour do you study daily?`13 14.89612
## `How many hour do you study daily?`2 -1.09799
## `How many hour do you study daily?`3 -1.27720
## `How many hour do you study daily?`4 -1.20116
## `How many hour do you study daily?`5 -0.58393
## `How many hour do you study daily?`6 -1.18157
## `How many hour do you study daily?`7 -1.03430
## `How many hour do you study daily?`8 -1.21688
## `How many hour do you study daily?`9 -0.25224
## `How many times do you seat for study in a day?` 0.07410
## `Do you use smart phone?`Yes 0.65190
## `Do you have personal Computer?`Yes 0.13059
## `How many hour do you spent daily in social media?`1 0.04545
## `How many hour do you spent daily in social media?`10 -0.10652
## `How many hour do you spent daily in social media?`11 -1.01871
## `How many hour do you spent daily in social media?`12 -0.81551
## `How many hour do you spent daily in social media?`15 -0.87817
## `How many hour do you spent daily in social media?`16 -32.06258
## `How many hour do you spent daily in social media?`2 0.04153
## `How many hour do you spent daily in social media?`20 -33.21641
## `How many hour do you spent daily in social media?`3 -0.04337
## `How many hour do you spent daily in social media?`4 -0.12055
## `How many hour do you spent daily in social media?`5 -0.31151
## `How many hour do you spent daily in social media?`6 -0.16268
## `How many hour do you spent daily in social media?`7 -0.73165
## `How many hour do you spent daily in social media?`8 -0.17113
## `How many hour do you spent daily in social media?`9 -1.05850
## `Average attendance on class`10 14.13999
## `Average attendance on class`100 0.54365
## `Average attendance on class`2 -1.16795
## `Average attendance on class`23 -32.90903
## `Average attendance on class`24 -32.91416
## `Average attendance on class`30 -32.87114
## `Average attendance on class`31 -32.70377
## `Average attendance on class`32 -0.08037
## `Average attendance on class`34 -33.00677
## `Average attendance on class`35 -2.35677
## `Average attendance on class`37 17.57917
## `Average attendance on class`40 -33.01786
## `Average attendance on class`41 16.29220
## `Average attendance on class`42 -33.19295
## `Average attendance on class`43 0.99493
## `Average attendance on class`45 -1.58003
## `Average attendance on class`46 0.57173
## `Average attendance on class`47 13.71488
## `Average attendance on class`5 -0.02061
## `Average attendance on class`50 -2.00163
## `Average attendance on class`51 14.76339
## `Average attendance on class`52 -0.10666
## `Average attendance on class`53 14.09655
## `Average attendance on class`54 -0.11906
## `Average attendance on class`55 0.33774
## `Average attendance on class`56 -0.82503
## `Average attendance on class`57 -1.09057
## `Average attendance on class`60 -1.53111
## `Average attendance on class`62 -33.00792
## `Average attendance on class`63 -33.10761
## `Average attendance on class`64 13.79048
## `Average attendance on class`65 -0.09538
## `Average attendance on class`66 -0.04953
## `Average attendance on class`67 -0.97488
## `Average attendance on class`68 1.20825
## `Average attendance on class`70 0.04113
## `Average attendance on class`71 0.64621
## `Average attendance on class`72 14.00961
## `Average attendance on class`73 -1.11980
## `Average attendance on class`75 -0.39659
## `Average attendance on class`76 -0.22330
## `Average attendance on class`77 -1.66250
## `Average attendance on class`78 -0.40466
## `Average attendance on class`79 1.16381
## `Average attendance on class`80 -0.42305
## `Average attendance on class`81 -32.96452
## `Average attendance on class`82 -0.00915
## `Average attendance on class`83 -33.26500
## `Average attendance on class`84 -33.01973
## `Average attendance on class`85 -0.06381
## `Average attendance on class`86 -0.28361
## `Average attendance on class`87 0.53531
## `Average attendance on class`88 -0.02182
## `Average attendance on class`89 -1.77169
## `Average attendance on class`90 0.20947
## `Average attendance on class`91 -1.36685
## `Average attendance on class`92 -0.04819
## `Average attendance on class`93 -0.36645
## `Average attendance on class`94 15.44938
## `Average attendance on class`94-98 -0.26742
## `Average attendance on class`95 0.27949
## `Average attendance on class`96 0.93982
## `Average attendance on class`97 0.13276
## `Average attendance on class`98 0.53312
## `Average attendance on class`99 0.67360
## `Do you have any health issues?`no -22.21924
## `Do you have any health issues?`No -23.27381
## `Do you have any health issues?`Yes -23.15278
## `Do you have any physical disabilities?`Yes -0.99125
## Std. Error
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes 1.164e-01
## `How many hour do you study daily?`1 7.978e-01
## `How many hour do you study daily?`10 1.879e+00
## `How many hour do you study daily?`13 6.308e-07
## `How many hour do you study daily?`2 7.924e-01
## `How many hour do you study daily?`3 7.941e-01
## `How many hour do you study daily?`4 8.007e-01
## `How many hour do you study daily?`5 8.094e-01
## `How many hour do you study daily?`6 8.268e-01
## `How many hour do you study daily?`7 9.112e-01
## `How many hour do you study daily?`8 9.202e-01
## `How many hour do you study daily?`9 1.216e+00
## `How many times do you seat for study in a day?` 7.132e-02
## `Do you use smart phone?`Yes 4.875e-01
## `Do you have personal Computer?`Yes 2.111e-01
## `How many hour do you spent daily in social media?`1 1.176e+00
## `How many hour do you spent daily in social media?`10 1.283e+00
## `How many hour do you spent daily in social media?`11 1.748e+00
## `How many hour do you spent daily in social media?`12 1.347e+00
## `How many hour do you spent daily in social media?`15 1.596e+00
## `How many hour do you spent daily in social media?`16 NaN
## `How many hour do you spent daily in social media?`2 1.174e+00
## `How many hour do you spent daily in social media?`20 2.014e-13
## `How many hour do you spent daily in social media?`3 1.175e+00
## `How many hour do you spent daily in social media?`4 1.183e+00
## `How many hour do you spent daily in social media?`5 1.187e+00
## `How many hour do you spent daily in social media?`6 1.196e+00
## `How many hour do you spent daily in social media?`7 1.204e+00
## `How many hour do you spent daily in social media?`8 1.222e+00
## `How many hour do you spent daily in social media?`9 1.347e+00
## `Average attendance on class`10 2.694e-04
## `Average attendance on class`100 1.555e+00
## `Average attendance on class`2 2.026e+00
## `Average attendance on class`23 8.750e-13
## `Average attendance on class`24 8.851e-13
## `Average attendance on class`30 2.625e-12
## `Average attendance on class`31 7.029e-13
## `Average attendance on class`32 2.184e+00
## `Average attendance on class`34 1.786e-12
## `Average attendance on class`35 1.916e+00
## `Average attendance on class`37 3.046e-05
## `Average attendance on class`40 5.534e-13
## `Average attendance on class`41 2.895e-05
## `Average attendance on class`42 5.294e-12
## `Average attendance on class`43 2.008e+00
## `Average attendance on class`45 1.966e+00
## `Average attendance on class`46 1.831e+00
## `Average attendance on class`47 3.205e-04
## `Average attendance on class`5 2.239e+00
## `Average attendance on class`50 1.646e+00
## `Average attendance on class`51 9.913e-05
## `Average attendance on class`52 2.210e+00
## `Average attendance on class`53 2.001e-04
## `Average attendance on class`54 1.897e+00
## `Average attendance on class`55 1.849e+00
## `Average attendance on class`56 1.835e+00
## `Average attendance on class`57 2.049e+00
## `Average attendance on class`60 1.670e+00
## `Average attendance on class`62 1.739e-12
## `Average attendance on class`63 1.621e-12
## `Average attendance on class`64 2.637e-04
## `Average attendance on class`65 1.889e+00
## `Average attendance on class`66 2.199e+00
## `Average attendance on class`67 1.740e+00
## `Average attendance on class`68 1.785e+00
## `Average attendance on class`70 1.575e+00
## `Average attendance on class`71 2.208e+00
## `Average attendance on class`72 2.611e-04
## `Average attendance on class`73 2.022e+00
## `Average attendance on class`75 1.627e+00
## `Average attendance on class`76 1.780e+00
## `Average attendance on class`77 1.761e+00
## `Average attendance on class`78 1.684e+00
## `Average attendance on class`79 1.806e+00
## `Average attendance on class`80 1.564e+00
## `Average attendance on class`81 9.385e-13
## `Average attendance on class`82 2.180e+00
## `Average attendance on class`83 8.086e-13
## `Average attendance on class`84 8.587e-13
## `Average attendance on class`85 1.583e+00
## `Average attendance on class`86 1.690e+00
## `Average attendance on class`87 1.620e+00
## `Average attendance on class`88 1.583e+00
## `Average attendance on class`89 1.777e+00
## `Average attendance on class`90 1.559e+00
## `Average attendance on class`91 2.055e+00
## `Average attendance on class`92 1.758e+00
## `Average attendance on class`93 2.186e+00
## `Average attendance on class`94 7.996e-05
## `Average attendance on class`94-98 2.190e+00
## `Average attendance on class`95 1.562e+00
## `Average attendance on class`96 1.665e+00
## `Average attendance on class`97 1.606e+00
## `Average attendance on class`98 1.573e+00
## `Average attendance on class`99 1.578e+00
## `Do you have any health issues?`no 1.143e+00
## `Do you have any health issues?`No 6.381e-01
## `Do you have any health issues?`Yes 6.463e-01
## `Do you have any physical disabilities?`Yes 3.890e-01
## t value
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes -1.514e+00
## `How many hour do you study daily?`1 -1.150e+00
## `How many hour do you study daily?`10 -6.409e-01
## `How many hour do you study daily?`13 2.361e+07
## `How many hour do you study daily?`2 -1.386e+00
## `How many hour do you study daily?`3 -1.608e+00
## `How many hour do you study daily?`4 -1.500e+00
## `How many hour do you study daily?`5 -7.215e-01
## `How many hour do you study daily?`6 -1.429e+00
## `How many hour do you study daily?`7 -1.135e+00
## `How many hour do you study daily?`8 -1.322e+00
## `How many hour do you study daily?`9 -2.074e-01
## `How many times do you seat for study in a day?` 1.039e+00
## `Do you use smart phone?`Yes 1.337e+00
## `Do you have personal Computer?`Yes 6.186e-01
## `How many hour do you spent daily in social media?`1 3.863e-02
## `How many hour do you spent daily in social media?`10 -8.300e-02
## `How many hour do you spent daily in social media?`11 -5.828e-01
## `How many hour do you spent daily in social media?`12 -6.056e-01
## `How many hour do you spent daily in social media?`15 -5.503e-01
## `How many hour do you spent daily in social media?`16 NaN
## `How many hour do you spent daily in social media?`2 3.539e-02
## `How many hour do you spent daily in social media?`20 -1.649e+14
## `How many hour do you spent daily in social media?`3 -3.690e-02
## `How many hour do you spent daily in social media?`4 -1.019e-01
## `How many hour do you spent daily in social media?`5 -2.624e-01
## `How many hour do you spent daily in social media?`6 -1.360e-01
## `How many hour do you spent daily in social media?`7 -6.078e-01
## `How many hour do you spent daily in social media?`8 -1.401e-01
## `How many hour do you spent daily in social media?`9 -7.856e-01
## `Average attendance on class`10 5.249e+04
## `Average attendance on class`100 3.497e-01
## `Average attendance on class`2 -5.765e-01
## `Average attendance on class`23 -3.761e+13
## `Average attendance on class`24 -3.719e+13
## `Average attendance on class`30 -1.252e+13
## `Average attendance on class`31 -4.653e+13
## `Average attendance on class`32 -3.680e-02
## `Average attendance on class`34 -1.848e+13
## `Average attendance on class`35 -1.230e+00
## `Average attendance on class`37 5.771e+05
## `Average attendance on class`40 -5.967e+13
## `Average attendance on class`41 5.627e+05
## `Average attendance on class`42 -6.269e+12
## `Average attendance on class`43 4.955e-01
## `Average attendance on class`45 -8.035e-01
## `Average attendance on class`46 3.122e-01
## `Average attendance on class`47 4.279e+04
## `Average attendance on class`5 -9.206e-03
## `Average attendance on class`50 -1.216e+00
## `Average attendance on class`51 1.489e+05
## `Average attendance on class`52 -4.827e-02
## `Average attendance on class`53 7.045e+04
## `Average attendance on class`54 -6.275e-02
## `Average attendance on class`55 1.827e-01
## `Average attendance on class`56 -4.497e-01
## `Average attendance on class`57 -5.321e-01
## `Average attendance on class`60 -9.170e-01
## `Average attendance on class`62 -1.898e+13
## `Average attendance on class`63 -2.042e+13
## `Average attendance on class`64 5.230e+04
## `Average attendance on class`65 -5.049e-02
## `Average attendance on class`66 -2.253e-02
## `Average attendance on class`67 -5.601e-01
## `Average attendance on class`68 6.767e-01
## `Average attendance on class`70 2.611e-02
## `Average attendance on class`71 2.926e-01
## `Average attendance on class`72 5.367e+04
## `Average attendance on class`73 -5.539e-01
## `Average attendance on class`75 -2.437e-01
## `Average attendance on class`76 -1.255e-01
## `Average attendance on class`77 -9.442e-01
## `Average attendance on class`78 -2.403e-01
## `Average attendance on class`79 6.443e-01
## `Average attendance on class`80 -2.705e-01
## `Average attendance on class`81 -3.513e+13
## `Average attendance on class`82 -4.197e-03
## `Average attendance on class`83 -4.114e+13
## `Average attendance on class`84 -3.846e+13
## `Average attendance on class`85 -4.030e-02
## `Average attendance on class`86 -1.678e-01
## `Average attendance on class`87 3.305e-01
## `Average attendance on class`88 -1.379e-02
## `Average attendance on class`89 -9.971e-01
## `Average attendance on class`90 1.344e-01
## `Average attendance on class`91 -6.650e-01
## `Average attendance on class`92 -2.741e-02
## `Average attendance on class`93 -1.677e-01
## `Average attendance on class`94 1.932e+05
## `Average attendance on class`94-98 -1.221e-01
## `Average attendance on class`95 1.789e-01
## `Average attendance on class`96 5.644e-01
## `Average attendance on class`97 8.268e-02
## `Average attendance on class`98 3.389e-01
## `Average attendance on class`99 4.269e-01
## `Do you have any health issues?`no -1.944e+01
## `Do you have any health issues?`No -3.647e+01
## `Do you have any health issues?`Yes -3.582e+01
## `Do you have any physical disabilities?`Yes -2.548e+00
##
## Intercepts:
## Value Std. Error t value
## Low|Medium -2.446230e+01 1.661100e+00 -1.472690e+01
## Medium|High -2.285650e+01 1.661200e+00 -1.375880e+01
##
## Residual Deviance: 2409.728
## AIC: 2611.728Uji parsial (wad test)
# Ambil koefisien dan t value
coefs <- coef(summary(model_logit))## Warning in sqrt(diag(vc)): NaNs produced# Hitung p-value dari t value menggunakan distribusi normal
p_values <- 2 * pnorm(abs(coefs[, "t value"]), lower.tail = FALSE)
# Gabungkan hasil
hasil_wald <- cbind(coefs, "p value" = p_values)
print(hasil_wald)## Value
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes -0.176173510
## `How many hour do you study daily?`1 -0.917673260
## `How many hour do you study daily?`10 -1.204138362
## `How many hour do you study daily?`13 14.896124348
## `How many hour do you study daily?`2 -1.097985541
## `How many hour do you study daily?`3 -1.277203313
## `How many hour do you study daily?`4 -1.201155021
## `How many hour do you study daily?`5 -0.583928778
## `How many hour do you study daily?`6 -1.181567933
## `How many hour do you study daily?`7 -1.034297724
## `How many hour do you study daily?`8 -1.216876590
## `How many hour do you study daily?`9 -0.252240554
## `How many times do you seat for study in a day?` 0.074098814
## `Do you use smart phone?`Yes 0.651896982
## `Do you have personal Computer?`Yes 0.130592911
## `How many hour do you spent daily in social media?`1 0.045449589
## `How many hour do you spent daily in social media?`10 -0.106524622
## `How many hour do you spent daily in social media?`11 -1.018712653
## `How many hour do you spent daily in social media?`12 -0.815508516
## `How many hour do you spent daily in social media?`15 -0.878174103
## `How many hour do you spent daily in social media?`16 -32.062582308
## `How many hour do you spent daily in social media?`2 0.041534889
## `How many hour do you spent daily in social media?`20 -33.216405806
## `How many hour do you spent daily in social media?`3 -0.043374505
## `How many hour do you spent daily in social media?`4 -0.120552729
## `How many hour do you spent daily in social media?`5 -0.311509005
## `How many hour do you spent daily in social media?`6 -0.162679852
## `How many hour do you spent daily in social media?`7 -0.731647868
## `How many hour do you spent daily in social media?`8 -0.171130330
## `How many hour do you spent daily in social media?`9 -1.058504216
## `Average attendance on class`10 14.139988399
## `Average attendance on class`100 0.543650728
## `Average attendance on class`2 -1.167945212
## `Average attendance on class`23 -32.909025174
## `Average attendance on class`24 -32.914161444
## `Average attendance on class`30 -32.871143271
## `Average attendance on class`31 -32.703774245
## `Average attendance on class`32 -0.080365886
## `Average attendance on class`34 -33.006769720
## `Average attendance on class`35 -2.356769955
## `Average attendance on class`37 17.579174142
## `Average attendance on class`40 -33.017857846
## `Average attendance on class`41 16.292199037
## `Average attendance on class`42 -33.192950232
## `Average attendance on class`43 0.994932967
## `Average attendance on class`45 -1.580033257
## `Average attendance on class`46 0.571732770
## `Average attendance on class`47 13.714875034
## `Average attendance on class`5 -0.020608617
## `Average attendance on class`50 -2.001627818
## `Average attendance on class`51 14.763394123
## `Average attendance on class`52 -0.106656573
## `Average attendance on class`53 14.096553841
## `Average attendance on class`54 -0.119062404
## `Average attendance on class`55 0.337742064
## `Average attendance on class`56 -0.825031820
## `Average attendance on class`57 -1.090570884
## `Average attendance on class`60 -1.531110213
## `Average attendance on class`62 -33.007922405
## `Average attendance on class`63 -33.107605145
## `Average attendance on class`64 13.790482985
## `Average attendance on class`65 -0.095379588
## `Average attendance on class`66 -0.049528938
## `Average attendance on class`67 -0.974880605
## `Average attendance on class`68 1.208245092
## `Average attendance on class`70 0.041133780
## `Average attendance on class`71 0.646206773
## `Average attendance on class`72 14.009607799
## `Average attendance on class`73 -1.119797947
## `Average attendance on class`75 -0.396587559
## `Average attendance on class`76 -0.223303612
## `Average attendance on class`77 -1.662504580
## `Average attendance on class`78 -0.404660018
## `Average attendance on class`79 1.163809948
## `Average attendance on class`80 -0.423046643
## `Average attendance on class`81 -32.964523479
## `Average attendance on class`82 -0.009150148
## `Average attendance on class`83 -33.264998343
## `Average attendance on class`84 -33.019728672
## `Average attendance on class`85 -0.063805993
## `Average attendance on class`86 -0.283606115
## `Average attendance on class`87 0.535311135
## `Average attendance on class`88 -0.021818415
## `Average attendance on class`89 -1.771694378
## `Average attendance on class`90 0.209465962
## `Average attendance on class`91 -1.366851476
## `Average attendance on class`92 -0.048191957
## `Average attendance on class`93 -0.366449900
## `Average attendance on class`94 15.449375550
## `Average attendance on class`94-98 -0.267423770
## `Average attendance on class`95 0.279494694
## `Average attendance on class`96 0.939815946
## `Average attendance on class`97 0.132763383
## `Average attendance on class`98 0.533120988
## `Average attendance on class`99 0.673599753
## `Do you have any health issues?`no -22.219241678
## `Do you have any health issues?`No -23.273813051
## `Do you have any health issues?`Yes -23.152781889
## `Do you have any physical disabilities?`Yes -0.991245146
## Low|Medium -24.462287319
## Medium|High -22.856487618
## Std. Error
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes 1.163796e-01
## `How many hour do you study daily?`1 7.977959e-01
## `How many hour do you study daily?`10 1.878838e+00
## `How many hour do you study daily?`13 6.308474e-07
## `How many hour do you study daily?`2 7.924048e-01
## `How many hour do you study daily?`3 7.940659e-01
## `How many hour do you study daily?`4 8.007339e-01
## `How many hour do you study daily?`5 8.093797e-01
## `How many hour do you study daily?`6 8.268172e-01
## `How many hour do you study daily?`7 9.112493e-01
## `How many hour do you study daily?`8 9.201526e-01
## `How many hour do you study daily?`9 1.216100e+00
## `How many times do you seat for study in a day?` 7.132421e-02
## `Do you use smart phone?`Yes 4.874827e-01
## `Do you have personal Computer?`Yes 2.111183e-01
## `How many hour do you spent daily in social media?`1 1.176423e+00
## `How many hour do you spent daily in social media?`10 1.283488e+00
## `How many hour do you spent daily in social media?`11 1.747820e+00
## `How many hour do you spent daily in social media?`12 1.346529e+00
## `How many hour do you spent daily in social media?`15 1.595702e+00
## `How many hour do you spent daily in social media?`16 NaN
## `How many hour do you spent daily in social media?`2 1.173581e+00
## `How many hour do you spent daily in social media?`20 2.014406e-13
## `How many hour do you spent daily in social media?`3 1.175434e+00
## `How many hour do you spent daily in social media?`4 1.183336e+00
## `How many hour do you spent daily in social media?`5 1.187256e+00
## `How many hour do you spent daily in social media?`6 1.196460e+00
## `How many hour do you spent daily in social media?`7 1.203726e+00
## `How many hour do you spent daily in social media?`8 1.221843e+00
## `How many hour do you spent daily in social media?`9 1.347336e+00
## `Average attendance on class`10 2.693733e-04
## `Average attendance on class`100 1.554640e+00
## `Average attendance on class`2 2.025877e+00
## `Average attendance on class`23 8.750102e-13
## `Average attendance on class`24 8.850909e-13
## `Average attendance on class`30 2.625175e-12
## `Average attendance on class`31 7.028846e-13
## `Average attendance on class`32 2.183623e+00
## `Average attendance on class`34 1.785789e-12
## `Average attendance on class`35 1.915812e+00
## `Average attendance on class`37 3.046058e-05
## `Average attendance on class`40 5.533637e-13
## `Average attendance on class`41 2.895220e-05
## `Average attendance on class`42 5.294497e-12
## `Average attendance on class`43 2.008069e+00
## `Average attendance on class`45 1.966467e+00
## `Average attendance on class`46 1.831446e+00
## `Average attendance on class`47 3.205062e-04
## `Average attendance on class`5 2.238528e+00
## `Average attendance on class`50 1.646202e+00
## `Average attendance on class`51 9.913173e-05
## `Average attendance on class`52 2.209720e+00
## `Average attendance on class`53 2.001029e-04
## `Average attendance on class`54 1.897342e+00
## `Average attendance on class`55 1.848680e+00
## `Average attendance on class`56 1.834629e+00
## `Average attendance on class`57 2.049435e+00
## `Average attendance on class`60 1.669711e+00
## `Average attendance on class`62 1.739221e-12
## `Average attendance on class`63 1.621245e-12
## `Average attendance on class`64 2.636953e-04
## `Average attendance on class`65 1.888941e+00
## `Average attendance on class`66 2.198589e+00
## `Average attendance on class`67 1.740497e+00
## `Average attendance on class`68 1.785459e+00
## `Average attendance on class`70 1.575119e+00
## `Average attendance on class`71 2.208287e+00
## `Average attendance on class`72 2.610518e-04
## `Average attendance on class`73 2.021589e+00
## `Average attendance on class`75 1.627376e+00
## `Average attendance on class`76 1.779868e+00
## `Average attendance on class`77 1.760676e+00
## `Average attendance on class`78 1.683988e+00
## `Average attendance on class`79 1.806431e+00
## `Average attendance on class`80 1.564180e+00
## `Average attendance on class`81 9.384879e-13
## `Average attendance on class`82 2.179908e+00
## `Average attendance on class`83 8.086485e-13
## `Average attendance on class`84 8.586507e-13
## `Average attendance on class`85 1.583377e+00
## `Average attendance on class`86 1.689859e+00
## `Average attendance on class`87 1.619570e+00
## `Average attendance on class`88 1.582607e+00
## `Average attendance on class`89 1.776769e+00
## `Average attendance on class`90 1.558503e+00
## `Average attendance on class`91 2.055392e+00
## `Average attendance on class`92 1.758183e+00
## `Average attendance on class`93 2.185687e+00
## `Average attendance on class`94 7.995989e-05
## `Average attendance on class`94-98 2.190471e+00
## `Average attendance on class`95 1.562285e+00
## `Average attendance on class`96 1.665084e+00
## `Average attendance on class`97 1.605733e+00
## `Average attendance on class`98 1.572951e+00
## `Average attendance on class`99 1.577963e+00
## `Do you have any health issues?`no 1.143038e+00
## `Do you have any health issues?`No 6.381108e-01
## `Do you have any health issues?`Yes 6.462995e-01
## `Do you have any physical disabilities?`Yes 3.890301e-01
## Low|Medium 1.661064e+00
## Medium|High 1.661229e+00
## t value
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes -1.513784e+00
## `How many hour do you study daily?`1 -1.150261e+00
## `How many hour do you study daily?`10 -6.408953e-01
## `How many hour do you study daily?`13 2.361288e+07
## `How many hour do you study daily?`2 -1.385637e+00
## `How many hour do you study daily?`3 -1.608435e+00
## `How many hour do you study daily?`4 -1.500068e+00
## `How many hour do you study daily?`5 -7.214522e-01
## `How many hour do you study daily?`6 -1.429056e+00
## `How many hour do you study daily?`7 -1.135033e+00
## `How many hour do you study daily?`8 -1.322473e+00
## `How many hour do you study daily?`9 -2.074177e-01
## `How many times do you seat for study in a day?` 1.038901e+00
## `Do you use smart phone?`Yes 1.337272e+00
## `Do you have personal Computer?`Yes 6.185769e-01
## `How many hour do you spent daily in social media?`1 3.863372e-02
## `How many hour do you spent daily in social media?`10 -8.299617e-02
## `How many hour do you spent daily in social media?`11 -5.828477e-01
## `How many hour do you spent daily in social media?`12 -6.056377e-01
## `How many hour do you spent daily in social media?`15 -5.503370e-01
## `How many hour do you spent daily in social media?`16 NaN
## `How many hour do you spent daily in social media?`2 3.539159e-02
## `How many hour do you spent daily in social media?`20 -1.648943e+14
## `How many hour do you spent daily in social media?`3 -3.690084e-02
## `How many hour do you spent daily in social media?`4 -1.018753e-01
## `How many hour do you spent daily in social media?`5 -2.623772e-01
## `How many hour do you spent daily in social media?`6 -1.359677e-01
## `How many hour do you spent daily in social media?`7 -6.078193e-01
## `How many hour do you spent daily in social media?`8 -1.400592e-01
## `How many hour do you spent daily in social media?`9 -7.856275e-01
## `Average attendance on class`10 5.249217e+04
## `Average attendance on class`100 3.496955e-01
## `Average attendance on class`2 -5.765135e-01
## `Average attendance on class`23 -3.760988e+13
## `Average attendance on class`24 -3.718732e+13
## `Average attendance on class`30 -1.252151e+13
## `Average attendance on class`31 -4.652794e+13
## `Average attendance on class`32 -3.680393e-02
## `Average attendance on class`34 -1.848301e+13
## `Average attendance on class`35 -1.230167e+00
## `Average attendance on class`37 5.771123e+05
## `Average attendance on class`40 -5.966755e+13
## `Average attendance on class`41 5.627275e+05
## `Average attendance on class`42 -6.269330e+12
## `Average attendance on class`43 4.954674e-01
## `Average attendance on class`45 -8.034885e-01
## `Average attendance on class`46 3.121756e-01
## `Average attendance on class`47 4.279130e+04
## `Average attendance on class`5 -9.206325e-03
## `Average attendance on class`50 -1.215906e+00
## `Average attendance on class`51 1.489270e+05
## `Average attendance on class`52 -4.826700e-02
## `Average attendance on class`53 7.044651e+04
## `Average attendance on class`54 -6.275220e-02
## `Average attendance on class`55 1.826936e-01
## `Average attendance on class`56 -4.496996e-01
## `Average attendance on class`57 -5.321324e-01
## `Average attendance on class`60 -9.169914e-01
## `Average attendance on class`62 -1.897857e+13
## `Average attendance on class`63 -2.042109e+13
## `Average attendance on class`64 5.229705e+04
## `Average attendance on class`65 -5.049369e-02
## `Average attendance on class`66 -2.252760e-02
## `Average attendance on class`67 -5.601161e-01
## `Average attendance on class`68 6.767138e-01
## `Average attendance on class`70 2.611471e-02
## `Average attendance on class`71 2.926281e-01
## `Average attendance on class`72 5.366601e+04
## `Average attendance on class`73 -5.539198e-01
## `Average attendance on class`75 -2.436976e-01
## `Average attendance on class`76 -1.254608e-01
## `Average attendance on class`77 -9.442420e-01
## `Average attendance on class`78 -2.402987e-01
## `Average attendance on class`79 6.442594e-01
## `Average attendance on class`80 -2.704591e-01
## `Average attendance on class`81 -3.512514e+13
## `Average attendance on class`82 -4.197493e-03
## `Average attendance on class`83 -4.113653e+13
## `Average attendance on class`84 -3.845537e+13
## `Average attendance on class`85 -4.029741e-02
## `Average attendance on class`86 -1.678282e-01
## `Average attendance on class`87 3.305266e-01
## `Average attendance on class`88 -1.378638e-02
## `Average attendance on class`89 -9.971437e-01
## `Average attendance on class`90 1.344020e-01
## `Average attendance on class`91 -6.650078e-01
## `Average attendance on class`92 -2.741009e-02
## `Average attendance on class`93 -1.676589e-01
## `Average attendance on class`94 1.932141e+05
## `Average attendance on class`94-98 -1.220851e-01
## `Average attendance on class`95 1.789012e-01
## `Average attendance on class`96 5.644256e-01
## `Average attendance on class`97 8.268085e-02
## `Average attendance on class`98 3.389304e-01
## `Average attendance on class`99 4.268793e-01
## `Do you have any health issues?`no -1.943876e+01
## `Do you have any health issues?`No -3.647300e+01
## `Do you have any health issues?`Yes -3.582361e+01
## `Do you have any physical disabilities?`Yes -2.547991e+00
## Low|Medium -1.472687e+01
## Medium|High -1.375878e+01
## p value
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes 1.300807e-01
## `How many hour do you study daily?`1 2.500365e-01
## `How many hour do you study daily?`10 5.215907e-01
## `How many hour do you study daily?`13 0.000000e+00
## `How many hour do you study daily?`2 1.658577e-01
## `How many hour do you study daily?`3 1.077400e-01
## `How many hour do you study daily?`4 1.335969e-01
## `How many hour do you study daily?`5 4.706313e-01
## `How many hour do you study daily?`6 1.529882e-01
## `How many hour do you study daily?`7 2.563617e-01
## `How many hour do you study daily?`8 1.860108e-01
## `How many hour do you study daily?`9 8.356837e-01
## `How many times do you seat for study in a day?` 2.988506e-01
## `Do you use smart phone?`Yes 1.811339e-01
## `Do you have personal Computer?`Yes 5.361952e-01
## `How many hour do you spent daily in social media?`1 9.691824e-01
## `How many hour do you spent daily in social media?`10 9.338546e-01
## `How many hour do you spent daily in social media?`11 5.599959e-01
## `How many hour do you spent daily in social media?`12 5.447554e-01
## `How many hour do you spent daily in social media?`15 5.820882e-01
## `How many hour do you spent daily in social media?`16 NaN
## `How many hour do you spent daily in social media?`2 9.717675e-01
## `How many hour do you spent daily in social media?`20 0.000000e+00
## `How many hour do you spent daily in social media?`3 9.705641e-01
## `How many hour do you spent daily in social media?`4 9.188556e-01
## `How many hour do you spent daily in social media?`5 7.930306e-01
## `How many hour do you spent daily in social media?`6 8.918468e-01
## `How many hour do you spent daily in social media?`7 5.433073e-01
## `How many hour do you spent daily in social media?`8 8.886132e-01
## `How many hour do you spent daily in social media?`9 4.320857e-01
## `Average attendance on class`10 0.000000e+00
## `Average attendance on class`100 7.265672e-01
## `Average attendance on class`2 5.642681e-01
## `Average attendance on class`23 0.000000e+00
## `Average attendance on class`24 0.000000e+00
## `Average attendance on class`30 0.000000e+00
## `Average attendance on class`31 0.000000e+00
## `Average attendance on class`32 9.706413e-01
## `Average attendance on class`34 0.000000e+00
## `Average attendance on class`35 2.186344e-01
## `Average attendance on class`37 0.000000e+00
## `Average attendance on class`40 0.000000e+00
## `Average attendance on class`41 0.000000e+00
## `Average attendance on class`42 0.000000e+00
## `Average attendance on class`43 6.202702e-01
## `Average attendance on class`45 4.216924e-01
## `Average attendance on class`46 7.549071e-01
## `Average attendance on class`47 0.000000e+00
## `Average attendance on class`5 9.926545e-01
## `Average attendance on class`50 2.240206e-01
## `Average attendance on class`51 0.000000e+00
## `Average attendance on class`52 9.615035e-01
## `Average attendance on class`53 0.000000e+00
## `Average attendance on class`54 9.499638e-01
## `Average attendance on class`55 8.550384e-01
## `Average attendance on class`56 6.529270e-01
## `Average attendance on class`57 5.946343e-01
## `Average attendance on class`60 3.591471e-01
## `Average attendance on class`62 0.000000e+00
## `Average attendance on class`63 0.000000e+00
## `Average attendance on class`64 0.000000e+00
## `Average attendance on class`65 9.597290e-01
## `Average attendance on class`66 9.820271e-01
## `Average attendance on class`67 5.754002e-01
## `Average attendance on class`68 4.985876e-01
## `Average attendance on class`70 9.791658e-01
## `Average attendance on class`71 7.698065e-01
## `Average attendance on class`72 0.000000e+00
## `Average attendance on class`73 5.796337e-01
## `Average attendance on class`75 8.074650e-01
## `Average attendance on class`76 9.001588e-01
## `Average attendance on class`77 3.450460e-01
## `Average attendance on class`78 8.100987e-01
## `Average attendance on class`79 5.194072e-01
## `Average attendance on class`80 7.868071e-01
## `Average attendance on class`81 0.000000e+00
## `Average attendance on class`82 9.966509e-01
## `Average attendance on class`83 0.000000e+00
## `Average attendance on class`84 0.000000e+00
## `Average attendance on class`85 9.678560e-01
## `Average attendance on class`86 8.667184e-01
## `Average attendance on class`87 7.410021e-01
## `Average attendance on class`88 9.890004e-01
## `Average attendance on class`89 3.186948e-01
## `Average attendance on class`90 8.930847e-01
## `Average attendance on class`91 5.060455e-01
## `Average attendance on class`92 9.781326e-01
## `Average attendance on class`93 8.668516e-01
## `Average attendance on class`94 0.000000e+00
## `Average attendance on class`94-98 9.028316e-01
## `Average attendance on class`95 8.580153e-01
## `Average attendance on class`96 5.724645e-01
## `Average attendance on class`97 9.341053e-01
## `Average attendance on class`98 7.346621e-01
## `Average attendance on class`99 6.694672e-01
## `Do you have any health issues?`no 3.628552e-84
## `Do you have any health issues?`No 2.972223e-291
## `Do you have any health issues?`Yes 4.738038e-281
## `Do you have any physical disabilities?`Yes 1.083453e-02
## Low|Medium 4.332868e-49
## Medium|High 4.510525e-43uji serentak (likelihood test)
# Model null hanya intercept
model_null <- update(model_logit, . ~ 1)
# Bandingkan model null dengan model lengkap
anova_result <- anova(model_null, model_logit)
print(anova_result)## Likelihood ratio tests of ordinal regression models
##
## Response: CGPA_cat
## Model
## 1 1
## 2 `Do you attend in teacher consultancy for any kind of academical problems?` + `How many hour do you study daily?` + `How many times do you seat for study in a day?` + `Do you use smart phone?` + `Do you have personal Computer?` + `How many hour do you spent daily in social media?` + `Average attendance on class` + `Do you have any health issues?` + `Do you have any physical disabilities?`
## Resid. df Resid. Dev Test Df LR stat. Pr(Chi)
## 1 1192 2613.398
## 2 1093 2409.728 1 vs 2 99 203.6696 3.110119e-09prediksi dan akurasi
# Prediksi kelas CGPA_cat
prediksi <- predict(model_logit, newdata = data)
# Hitung akurasi prediksi
akurasi <- mean(as.character(prediksi) == as.character(data$CGPA_cat))
print(paste("Akurasi:", round(akurasi * 100, 2), "%"))## [1] "Akurasi: 48.41 %"interpretasi
# Koefisien dan standard error
coefs <- coef(summary(model_logit))## Warning in sqrt(diag(vc)): NaNs producedest <- coefs[, "Value"]
se <- coefs[, "Std. Error"]
# Hitung CI 95%
lower <- exp(est - 1.96 * se)
upper <- exp(est + 1.96 * se)
or <- exp(est)
hasil_or <- data.frame(
OR = or,
Lower_95_CI = lower,
Upper_95_CI = upper
)
print(hasil_or)## OR
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes 8.384725e-01
## `How many hour do you study daily?`1 3.994474e-01
## `How many hour do you study daily?`10 2.999503e-01
## `How many hour do you study daily?`13 2.946488e+06
## `How many hour do you study daily?`2 3.335423e-01
## `How many hour do you study daily?`3 2.788160e-01
## `How many hour do you study daily?`4 3.008465e-01
## `How many hour do you study daily?`5 5.577030e-01
## `How many hour do you study daily?`6 3.067973e-01
## `How many hour do you study daily?`7 3.554759e-01
## `How many hour do you study daily?`8 2.961537e-01
## `How many hour do you study daily?`9 7.770578e-01
## `How many times do you seat for study in a day?` 1.076913e+00
## `Do you use smart phone?`Yes 1.919178e+00
## `Do you have personal Computer?`Yes 1.139504e+00
## `How many hour do you spent daily in social media?`1 1.046498e+00
## `How many hour do you spent daily in social media?`10 8.989529e-01
## `How many hour do you spent daily in social media?`11 3.610594e-01
## `How many hour do you spent daily in social media?`12 4.424143e-01
## `How many hour do you spent daily in social media?`15 4.155410e-01
## `How many hour do you spent daily in social media?`16 1.189590e-14
## `How many hour do you spent daily in social media?`2 1.042410e+00
## `How many hour do you spent daily in social media?`20 3.752306e-15
## `How many hour do you spent daily in social media?`3 9.575527e-01
## `How many hour do you spent daily in social media?`4 8.864303e-01
## `How many hour do you spent daily in social media?`5 7.323410e-01
## `How many hour do you spent daily in social media?`6 8.498632e-01
## `How many hour do you spent daily in social media?`7 4.811155e-01
## `How many hour do you spent daily in social media?`8 8.427117e-01
## `How many hour do you spent daily in social media?`9 3.469744e-01
## `Average attendance on class`10 1.383308e+06
## `Average attendance on class`100 1.722283e+00
## `Average attendance on class`2 3.110053e-01
## `Average attendance on class`23 5.102605e-15
## `Average attendance on class`24 5.076464e-15
## `Average attendance on class`30 5.299609e-15
## `Average attendance on class`31 6.265148e-15
## `Average attendance on class`32 9.227787e-01
## `Average attendance on class`34 4.627453e-15
## `Average attendance on class`35 9.472570e-02
## `Average attendance on class`37 4.310606e+07
## `Average attendance on class`40 4.576427e-15
## `Average attendance on class`41 1.190179e+07
## `Average attendance on class`42 3.841359e-15
## `Average attendance on class`43 2.704543e+00
## `Average attendance on class`45 2.059682e-01
## `Average attendance on class`46 1.771334e+00
## `Average attendance on class`47 9.042626e+05
## `Average attendance on class`5 9.796023e-01
## `Average attendance on class`50 1.351152e-01
## `Average attendance on class`51 2.580243e+06
## `Average attendance on class`52 8.988343e-01
## `Average attendance on class`53 1.324511e+06
## `Average attendance on class`54 8.877524e-01
## `Average attendance on class`55 1.401779e+00
## `Average attendance on class`56 4.382210e-01
## `Average attendance on class`57 3.360246e-01
## `Average attendance on class`60 2.162954e-01
## `Average attendance on class`62 4.622122e-15
## `Average attendance on class`63 4.183596e-15
## `Average attendance on class`64 9.752830e+05
## `Average attendance on class`65 9.090278e-01
## `Average attendance on class`66 9.516776e-01
## `Average attendance on class`67 3.772374e-01
## `Average attendance on class`68 3.347605e+00
## `Average attendance on class`70 1.041991e+00
## `Average attendance on class`71 1.908289e+00
## `Average attendance on class`72 1.214214e+06
## `Average attendance on class`73 3.263457e-01
## `Average attendance on class`75 6.726114e-01
## `Average attendance on class`76 7.998720e-01
## `Average attendance on class`77 1.896634e-01
## `Average attendance on class`78 6.672036e-01
## `Average attendance on class`79 3.202110e+00
## `Average attendance on class`80 6.550481e-01
## `Average attendance on class`81 4.827134e-15
## `Average attendance on class`82 9.908916e-01
## `Average attendance on class`83 3.574331e-15
## `Average attendance on class`84 4.567873e-15
## `Average attendance on class`85 9.381870e-01
## `Average attendance on class`86 7.530632e-01
## `Average attendance on class`87 1.707980e+00
## `Average attendance on class`88 9.784179e-01
## `Average attendance on class`89 1.700446e-01
## `Average attendance on class`90 1.233019e+00
## `Average attendance on class`91 2.549083e-01
## `Average attendance on class`92 9.529508e-01
## `Average attendance on class`93 6.931909e-01
## `Average attendance on class`94 5.123639e+06
## `Average attendance on class`94-98 7.653487e-01
## `Average attendance on class`95 1.322461e+00
## `Average attendance on class`96 2.559510e+00
## `Average attendance on class`97 1.141980e+00
## `Average attendance on class`98 1.704243e+00
## `Average attendance on class`99 1.961285e+00
## `Do you have any health issues?`no 2.240299e-10
## `Do you have any health issues?`No 7.803895e-11
## `Do you have any health issues?`Yes 8.807945e-11
## `Do you have any physical disabilities?`Yes 3.711143e-01
## Low|Medium 2.377736e-11
## Medium|High 1.184550e-10
## Lower_95_CI
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes 6.674589e-01
## `How many hour do you study daily?`1 8.362998e-02
## `How many hour do you study daily?`10 7.546580e-03
## `How many hour do you study daily?`13 2.946484e+06
## `How many hour do you study daily?`2 7.057362e-02
## `How many hour do you study daily?`3 5.880241e-02
## `How many hour do you study daily?`4 6.262483e-02
## `How many hour do you study daily?`5 1.141419e-01
## `How many hour do you study daily?`6 6.068070e-02
## `How many hour do you study daily?`7 5.958530e-02
## `How many hour do you study daily?`8 4.878289e-02
## `How many hour do you study daily?`9 7.166193e-02
## `How many times do you seat for study in a day?` 9.364149e-01
## `Do you use smart phone?`Yes 7.381788e-01
## `Do you have personal Computer?`Yes 7.533698e-01
## `How many hour do you spent daily in social media?`1 1.043151e-01
## `How many hour do you spent daily in social media?`10 7.264563e-02
## `How many hour do you spent daily in social media?`11 1.174369e-02
## `How many hour do you spent daily in social media?`12 3.159663e-02
## `How many hour do you spent daily in social media?`15 1.821061e-02
## `How many hour do you spent daily in social media?`16 NaN
## `How many hour do you spent daily in social media?`2 1.044880e-01
## `How many hour do you spent daily in social media?`20 3.752306e-15
## `How many hour do you spent daily in social media?`3 9.563418e-02
## `How many hour do you spent daily in social media?`4 8.717036e-02
## `How many hour do you spent daily in social media?`5 7.146616e-02
## `How many hour do you spent daily in social media?`6 8.145201e-02
## `How many hour do you spent daily in social media?`7 4.545871e-02
## `How many hour do you spent daily in social media?`8 7.684672e-02
## `How many hour do you spent daily in social media?`9 2.474127e-02
## `Average attendance on class`10 1.382578e+06
## `Average attendance on class`100 8.180275e-02
## `Average attendance on class`2 5.865526e-03
## `Average attendance on class`23 5.102605e-15
## `Average attendance on class`24 5.076464e-15
## `Average attendance on class`30 5.299609e-15
## `Average attendance on class`31 6.265148e-15
## `Average attendance on class`32 1.277499e-02
## `Average attendance on class`34 4.627453e-15
## `Average attendance on class`35 2.216641e-03
## `Average attendance on class`37 4.310349e+07
## `Average attendance on class`40 4.576427e-15
## `Average attendance on class`41 1.190111e+07
## `Average attendance on class`42 3.841359e-15
## `Average attendance on class`43 5.281906e-02
## `Average attendance on class`45 4.364256e-03
## `Average attendance on class`46 4.890371e-02
## `Average attendance on class`47 9.036947e+05
## `Average attendance on class`5 1.217801e-02
## `Average attendance on class`50 5.363254e-03
## `Average attendance on class`51 2.579742e+06
## `Average attendance on class`52 1.182300e-02
## `Average attendance on class`53 1.323992e+06
## `Average attendance on class`54 2.153979e-02
## `Average attendance on class`55 3.741545e-02
## `Average attendance on class`56 1.202336e-02
## `Average attendance on class`57 6.051410e-03
## `Average attendance on class`60 8.199002e-03
## `Average attendance on class`62 4.622122e-15
## `Average attendance on class`63 4.183596e-15
## `Average attendance on class`64 9.747791e+05
## `Average attendance on class`65 2.242220e-02
## `Average attendance on class`66 1.279420e-02
## `Average attendance on class`67 1.244725e-02
## `Average attendance on class`68 1.011394e-01
## `Average attendance on class`70 4.754397e-02
## `Average attendance on class`71 2.517167e-02
## `Average attendance on class`72 1.213593e+06
## `Average attendance on class`73 6.206788e-03
## `Average attendance on class`75 2.770218e-02
## `Average attendance on class`76 2.443241e-02
## `Average attendance on class`77 6.015413e-03
## `Average attendance on class`78 2.459343e-02
## `Average attendance on class`79 9.284775e-02
## `Average attendance on class`80 3.053632e-02
## `Average attendance on class`81 4.827134e-15
## `Average attendance on class`82 1.381819e-02
## `Average attendance on class`83 3.574331e-15
## `Average attendance on class`84 4.567873e-15
## `Average attendance on class`85 4.212032e-02
## `Average attendance on class`86 2.744063e-02
## `Average attendance on class`87 7.142933e-02
## `Average attendance on class`88 4.399289e-02
## `Average attendance on class`89 5.225722e-03
## `Average attendance on class`90 5.812266e-02
## `Average attendance on class`91 4.537318e-03
## `Average attendance on class`92 3.037211e-02
## `Average attendance on class`93 9.557809e-03
## `Average attendance on class`94 5.122836e+06
## `Average attendance on class`94-98 1.045425e-02
## `Average attendance on class`95 6.187842e-02
## `Average attendance on class`96 9.790591e-02
## `Average attendance on class`97 4.907166e-02
## `Average attendance on class`98 7.809236e-02
## `Average attendance on class`99 8.899211e-02
## `Do you have any health issues?`no 2.384142e-11
## `Do you have any health issues?`No 2.234295e-11
## `Do you have any health issues?`Yes 2.481609e-11
## `Do you have any physical disabilities?`Yes 1.731245e-01
## Low|Medium 9.167207e-13
## Medium|High 4.565486e-12
## Upper_95_CI
## `Do you attend in teacher consultancy for any kind of academical problems?`Yes 1.053303e+00
## `How many hour do you study daily?`1 1.907907e+00
## `How many hour do you study daily?`10 1.192198e+01
## `How many hour do you study daily?`13 2.946491e+06
## `How many hour do you study daily?`2 1.576375e+00
## `How many hour do you study daily?`3 1.322027e+00
## `How many hour do you study daily?`4 1.445252e+00
## `How many hour do you study daily?`5 2.724965e+00
## `How many hour do you study daily?`6 1.551145e+00
## `How many hour do you study daily?`7 2.120710e+00
## `How many hour do you study daily?`8 1.797906e+00
## `How many hour do you study daily?`9 8.425936e+00
## `How many times do you seat for study in a day?` 1.238492e+00
## `Do you use smart phone?`Yes 4.989637e+00
## `Do you have personal Computer?`Yes 1.723548e+00
## `How many hour do you spent daily in social media?`1 1.049856e+01
## `How many hour do you spent daily in social media?`10 1.112409e+01
## `How many hour do you spent daily in social media?`11 1.110077e+01
## `How many hour do you spent daily in social media?`12 6.194661e+00
## `How many hour do you spent daily in social media?`15 9.482070e+00
## `How many hour do you spent daily in social media?`16 NaN
## `How many hour do you spent daily in social media?`2 1.039945e+01
## `How many hour do you spent daily in social media?`20 3.752306e-15
## `How many hour do you spent daily in social media?`3 9.587652e+00
## `How many hour do you spent daily in social media?`4 9.014059e+00
## `How many hour do you spent daily in social media?`5 7.504578e+00
## `How many hour do you spent daily in social media?`6 8.867399e+00
## `How many hour do you spent daily in social media?`7 5.091920e+00
## `How many hour do you spent daily in social media?`8 9.241294e+00
## `How many hour do you spent daily in social media?`9 4.866010e+00
## `Average attendance on class`10 1.384039e+06
## `Average attendance on class`100 3.626111e+01
## `Average attendance on class`2 1.649031e+01
## `Average attendance on class`23 5.102605e-15
## `Average attendance on class`24 5.076464e-15
## `Average attendance on class`30 5.299609e-15
## `Average attendance on class`31 6.265148e-15
## `Average attendance on class`32 6.665530e+01
## `Average attendance on class`34 4.627453e-15
## `Average attendance on class`35 4.047998e+00
## `Average attendance on class`37 4.310863e+07
## `Average attendance on class`40 4.576427e-15
## `Average attendance on class`41 1.190246e+07
## `Average attendance on class`42 3.841359e-15
## `Average attendance on class`43 1.384832e+02
## `Average attendance on class`45 9.720540e+00
## `Average attendance on class`46 6.415920e+01
## `Average attendance on class`47 9.048308e+05
## `Average attendance on class`5 7.879947e+01
## `Average attendance on class`50 3.403924e+00
## `Average attendance on class`51 2.580744e+06
## `Average attendance on class`52 6.833316e+01
## `Average attendance on class`53 1.325031e+06
## `Average attendance on class`54 3.658831e+01
## `Average attendance on class`55 5.251798e+01
## `Average attendance on class`56 1.597205e+01
## `Average attendance on class`57 1.865888e+01
## `Average attendance on class`60 5.706024e+00
## `Average attendance on class`62 4.622122e-15
## `Average attendance on class`63 4.183596e-15
## `Average attendance on class`64 9.757872e+05
## `Average attendance on class`65 3.685328e+01
## `Average attendance on class`66 7.078913e+01
## `Average attendance on class`67 1.143289e+01
## `Average attendance on class`68 1.108021e+02
## `Average attendance on class`70 2.283668e+01
## `Average attendance on class`71 1.446692e+02
## `Average attendance on class`72 1.214836e+06
## `Average attendance on class`73 1.715888e+01
## `Average attendance on class`75 1.633106e+01
## `Average attendance on class`76 2.618633e+01
## `Average attendance on class`77 5.980003e+00
## `Average attendance on class`78 1.810080e+01
## `Average attendance on class`79 1.104336e+02
## `Average attendance on class`80 1.405173e+01
## `Average attendance on class`81 4.827134e-15
## `Average attendance on class`82 7.105608e+01
## `Average attendance on class`83 3.574331e-15
## `Average attendance on class`84 4.567873e-15
## `Average attendance on class`85 2.089715e+01
## `Average attendance on class`86 2.066659e+01
## `Average attendance on class`87 4.084029e+01
## `Average attendance on class`88 2.176037e+01
## `Average attendance on class`89 5.533240e+00
## `Average attendance on class`90 2.615738e+01
## `Average attendance on class`91 1.432085e+01
## `Average attendance on class`92 2.989965e+01
## `Average attendance on class`93 5.027445e+01
## `Average attendance on class`94 5.124442e+06
## `Average attendance on class`94-98 5.603066e+01
## `Average attendance on class`95 2.826356e+01
## `Average attendance on class`96 6.691213e+01
## `Average attendance on class`97 2.657578e+01
## `Average attendance on class`98 3.719242e+01
## `Average attendance on class`99 4.322448e+01
## `Do you have any health issues?`no 2.105134e-09
## `Do you have any health issues?`No 2.725726e-10
## `Do you have any health issues?`Yes 3.126193e-10
## `Do you have any physical disabilities?`Yes 7.955305e-01
## Low|Medium 6.167231e-10
## Medium|High 3.073407e-09persiapan data sebelum modeling lda
# Contoh fitur yang kamu punya
fitur <- c(
"Do you attend in teacher consultancy for any kind of academical problems?",
"How many hour do you study daily?",
"How many times do you seat for study in a day?",
"Do you use smart phone?",
"Do you have personal Computer?",
"How many hour do you spent daily in social media?",
"Average attendance on class",
"Do you have any health issues?",
"Do you have any physical disabilities?"
)
# Ubah tipe data predictor yang harus numeric jadi numeric
data$`How many hour do you study daily?` <- as.numeric(data$`How many hour do you study daily?`)
data$`How many hour do you spent daily in social media?` <- as.numeric(data$`How many hour do you spent daily in social media?`)
data$`Average attendance on class` <- as.numeric(data$`Average attendance on class`)## Warning: NAs introduced by coerciondata$`How many times do you seat for study in a day?` <- as.numeric(data$`How many times do you seat for study in a day?`)
# Ubah variabel target jadi faktor
data$CGPA_cat <- factor(data$CGPA_cat, levels = c("Low", "Medium", "High"))
# Buang baris yang ada NA di kolom yang dipakai
data_clean <- na.omit(data[, c(fitur, "CGPA_cat")])
# Pastikan tidak ada NA
sum(is.na(data_clean)) # harus 0## [1] 0model LDA
library(MASS)
# Buat formula
formula_lda <- as.formula(
paste("CGPA_cat ~", paste(sprintf("`%s`", fitur), collapse = " + "))
)
# Bangun model LDA
model_lda <- lda(formula_lda, data = data_clean)
summary(model_lda)## Length Class Mode
## prior 3 -none- numeric
## counts 3 -none- numeric
## means 33 -none- numeric
## scaling 22 -none- numeric
## lev 3 -none- character
## svd 2 -none- numeric
## N 1 -none- numeric
## call 3 -none- call
## terms 3 terms call
## xlevels 5 -none- list###2. Filter kolom numerik saja ke dalam fitur
fitur <- names(data_clean)[sapply(data_clean, is.numeric)]uji asumsi normalitas
normality_test <- data_clean %>%
group_by(CGPA_cat) %>%
summarise(across(all_of(fitur), ~ shapiro_test(.x)$p, .names = "p_{col}"))## Warning: There were 12 warnings in `summarise()`.
## The first warning was:
## ℹ In argument: `across(all_of(fitur), ~shapiro_test(.x)$p, .names =
## "p_{col}")`.
## ℹ In group 1: `CGPA_cat = Low`.
## Caused by warning:
## ! Unknown or uninitialised column: `p`.
## ℹ Run `dplyr::last_dplyr_warnings()` to see the 11 remaining warnings.print(normality_test)## # A tibble: 3 × 1
## CGPA_cat
## <fct>
## 1 Low
## 2 Medium
## 3 HighUji homogenitas matriks kovarian (Box’s M Test)
library(biotools)## Warning: package 'biotools' was built under R version 4.4.3## ---
## biotools version 4.3box_m_test <- boxM(data_clean[, fitur], data_clean$CGPA_cat)
print(box_m_test)##
## Box's M-test for Homogeneity of Covariance Matrices
##
## data: data_clean[, fitur]
## Chi-Sq (approx.) = 142.68, df = 20, p-value < 2.2e-16evaluasi akurasi
# Prediksi kelas dengan model LDA
prediksi <- predict(model_lda, data_clean)$class
# Akurasi
akurasi <- mean(prediksi == data_clean$CGPA_cat)
print(paste("Akurasi:", round(akurasi * 100, 2), "%"))## [1] "Akurasi: 44.68 %"