HR database

Let us use the HR database dowloaded from kaggle page.
An description of the database is also available.

rm(list=ls())

adot <- read.csv("data/HRDataset_v14.csv")
smetny_kos <- attach(adot)
head(adot)

NA

Now, I want to make some experimental regression

attach(adot)
fit <- lm(Salary ~ +1 + Absences + EmpSatisfaction, data=adot)


library(broom)
library(knitr)

# fit linear regression model


# extract coefficients and standard errors
tidy_fit <- tidy(fit)

# create kable table
kable(tidy_fit, caption = "Summary of linear regression model")

Summary of linear regression model

term	estimate	std.error	statistic	p.value
(Intercept)	59464.5707	6591.0625	9.0220007	0.0000000
Absences	335.7299	244.3873	1.3737619	0.1705146
EmpSatisfaction	1572.7169	1573.0701	0.9997755	0.3182040

NA
NA
NA
NA
NA