Ergasia No.4

bank <- read.csv(“bank-full.csv”, sep = “;”, stringsAsFactors = FALSE)

str(bank) summary(bank)

mean(bank\(age) median(bank\)age) sd(bank\(age) var(bank\)age) range(bank$age)

numeric_vars <- bank[, sapply(bank, is.numeric)] cor(numeric_vars)

plot(bank\(age, bank\)duration, xlab = “Age”, ylab = “Call Duration”, main = “Age vs Call Duration”)

boxplot(bank$age)

hist(bank$duration, breaks = 40)

barplot(table(bank$job), las = 2)