#Tugas Statistik Nama : Nur Asni Masita Dewi Nim: A0212421194

Tugas Mencari 1 Kasus Regresi Yang Bisa Dipake Dibidang Ilmu Masing-masing

Kasus Regresi Dibidang Ilmu Manjemen

🎯 Kasus: Pengaruh Jam Lembur terhadap Produktivitas Karyawan Deskripsi: Manajer ingin mengetahui apakah jam lembur (dalam jam per minggu) berpengaruh terhadap produktivitas (jumlah unit kerja selesai per minggu) dari 10 karyawan.

📊 Data Asli (Hipotetik namun realistis)

Karyawan	Jam_Lembur	Produktivitas
A	2	45
B	4	49
C	6	58
D	3	47
E	5	54
F	1	43
G	7	60
H	2	46
I	4	50
J	6	56

# Data
jam_lembur <- c(2, 4, 6, 3, 5, 1, 7, 2, 4, 6)
produktivitas <- c(45, 49, 58, 47, 54, 43, 60, 46, 50, 56)

# Membuat data frame
data <- data.frame(jam_lembur, produktivitas)

# Melihat data
print(data)

   jam_lembur produktivitas
1           2            45
2           4            49
3           6            58
4           3            47
5           5            54
6           1            43
7           7            60
8           2            46
9           4            50
10          6            56

# Model regresi linier
model <- lm(produktivitas ~ jam_lembur, data = data)

# Hasil model
summary(model)

Call:
lm(formula = produktivitas ~ jam_lembur, data = data)

Residuals:
    Min      1Q  Median      3Q     Max 
-1.8000 -0.7444  0.1444  0.7833  1.4222 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  39.2444     0.7894   49.72 2.97e-11 ***
jam_lembur    2.8889     0.1783   16.20 2.12e-07 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 1.07 on 8 degrees of freedom
Multiple R-squared:  0.9704,    Adjusted R-squared:  0.9667 
F-statistic: 262.5 on 1 and 8 DF,  p-value: 2.116e-07

# Visualisasi
plot(data$jam_lembur, data$produktivitas,
     main = "Regresi: Jam Lembur vs Produktivitas",
     xlab = "Jam Lembur", ylab = "Produktivitas",
     pch = 19, col = "blue")
abline(model, col = "red", lwd = 2)