Penerapan Fungsi R

Data

#Buat data berisi 5 baris dan 5 kolom
data <- data.frame( 
  Name = c("Alice", "Bob", "Charlie", "Davin", "Eva"),
  Age = c(25, 30, 22, 35, 28),
  City = c("Jakarta", "Bekasi", "Palembang", "Tangerang", "Surabaya"),
  Salary = c(6000000, 8000000, 5500000, 9000000, 7800000),
  Married = c(TRUE, FALSE, TRUE, TRUE, FALSE)
); data

##      Name Age      City  Salary Married
## 1   Alice  25   Jakarta 6000000    TRUE
## 2     Bob  30    Bekasi 8000000   FALSE
## 3 Charlie  22 Palembang 5500000    TRUE
## 4   Davin  35 Tangerang 9000000    TRUE
## 5     Eva  28  Surabaya 7800000   FALSE

#Ambil data numerik dan beri nama dengan data1
data1 <- data[, c(2 ,4)]; data1

##   Age  Salary
## 1  25 6000000
## 2  30 8000000
## 3  22 5500000
## 4  35 9000000
## 5  28 7800000

Plot

#Buat Scatter Plot dari data1 untuk menunjukkan hubungan antara Usia dengan Gaji
plot(data1$Age, data1$Salary, main = "Scatter Plot", xlab = "Age", ylab = "Salary", col = "red"); plot

## function (x, y, ...) 
## UseMethod("plot")
## <bytecode: 0x000002917e5388d0>
## <environment: namespace:base>

lm_model <- lm(data1$Salary ~ data1$Age)
abline(lm_model, col = "blue")

Korelasi

#Cari korelasi dari data1
cor(data1)

##              Age    Salary
## Age    1.0000000 0.9671886
## Salary 0.9671886 1.0000000