search

micresh / data-analytics-2019-KubSTU

0 stars 2 forks source link

LR-1 #38

Open micresh opened 4 years ago

micresh commented 4 years ago

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

arsen4ik98 commented 4 years ago

rost <- c(160,175,155,190,NA) ves <- c(NA,70,48,85,60) df <- data.frame(rost,ves) df df[3,1]

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

library("psych")# library("lmtest")# library("ggplot2")# library("dplyr")# library("MASS")# help(cars) d<- cars# glimpse(d) head(d) tail(d) describe(d) qplot (data=d,dist,xlab="Длина тормозного пути (футы)",ylab="Число автомобилей", main="Данные по автомобилям 1920х") hist(d$dist,probability = TRUE,col = "grey")

train <- read.csv("D:/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)