Basic Statistics (Oct 4, 2018)

First-Fourth Moment of Business Decision

library(e1071)
city <- read.csv("C:\\Users\\samy_\\Desktop\\R_Machine Learning DataSets\\bigcity.csv")
attach(city)

mean(u)

## [1] 103.1429

median(u)

## [1] 64

var(u)

## [1] 10900.42

sd(u)

## [1] 104.4051

skewness(u)

## [1] 2.119076

kurtosis(u)

## [1] 4.207945

range_city <- max(u) - min(u)
print(paste('Range = ', range_city))

## [1] "Range =  505"

Summary of Statistics

summary(city)

##        X            u               x        
##  Min.   : 1   Min.   :  2.0   Min.   : 46.0  
##  1st Qu.:13   1st Qu.: 43.0   1st Qu.: 58.0  
##  Median :25   Median : 64.0   Median : 79.0  
##  Mean   :25   Mean   :103.1   Mean   :127.8  
##  3rd Qu.:37   3rd Qu.:120.0   3rd Qu.:130.0  
##  Max.   :49   Max.   :507.0   Max.   :634.0

Plots

barplot(u)

hist(u)

boxplot(u)