search

micresh / data-analytics-2019-KubSTU

0 stars 2 forks source link

LR-1 #54

Open micresh opened 4 years ago

micresh commented 4 years ago

https://github.com/micresh/data-analytics-2019-KubSTU/tree/master/lr1

AndreySIS commented 4 years ago

install.packages() install.packages(c("psych","dplyr","ggplot2")) library("psych")#

library("psych")# library("lmtest")# library("ggplot2")# library("dplyr")# library("MASS")#

train <- read.csv("С:/lr1/train.csv", header = TRUE, sep = ",") help(train) age <- train[["Age"]] newAge <- ifelse(age == mean(age), 0, age) newAge <- ifelse(newAge > mean(age), 1, -1) summary(age) hist(age, col = "blue", main = "Гистограмма абсолютных частот столбца Age (плата за проезд)", xlab = "Диапозон значений") hist(age, col = "red", main = "Гистограмма плотности распределения столбца Age (плата за проезд)", xlab = "Диапозон значений", freq = FALSE)