Project 1

Cars <- read.csv("E:/New Volume/Downloads/Datasets_BA 2/Cars.csv")

dim(Cars) # dimensions of dataset

## [1] 81  5

class(Cars)

## [1] "data.frame"

Baiscs of STATS

colnames(Cars)

## [1] "HP"  "MPG" "VOL" "SP"  "WT"

head(Cars,2)

##   HP      MPG VOL       SP       WT
## 1 49 53.70068  89 104.1854 28.76206
## 2 55 50.01340  92 105.4613 30.46683

tail(Cars)

##     HP      MPG VOL       SP       WT
## 76 175 18.76284 129 132.8642 42.77822
## 77 322 36.90000  50 169.5985 16.13295
## 78 238 19.19789 115 150.5766 37.92311
## 79 263 34.00000  50 151.5985 15.76963
## 80 295 19.83373 119 167.9445 39.42310
## 81 236 12.10126 107 139.8408 34.94861

First MOments of BD

mean(Cars$HP)

## [1] 117.4691

attach(Cars)
mean(HP)

## [1] 117.4691

median(HP)

## [1] 100

library(LaplacesDemon)
Mode(HP)

## [1] 92

# Second Moment of B.D

var(HP)

## [1] 3261.952

sd(HP)

## [1] 57.1135

range(HP)

## [1]  49 322

range = max(HP) - min(HP)
range

## [1] 273

 summary(Cars)

##        HP             MPG             VOL               SP        
##  Min.   : 49.0   Min.   :12.10   Min.   : 50.00   Min.   : 99.56  
##  1st Qu.: 84.0   1st Qu.:27.86   1st Qu.: 89.00   1st Qu.:113.83  
##  Median :100.0   Median :35.15   Median :101.00   Median :118.21  
##  Mean   :117.5   Mean   :34.42   Mean   : 98.77   Mean   :121.54  
##  3rd Qu.:140.0   3rd Qu.:39.53   3rd Qu.:113.00   3rd Qu.:126.40  
##  Max.   :322.0   Max.   :53.70   Max.   :160.00   Max.   :169.60  
##        WT       
##  Min.   :15.71  
##  1st Qu.:29.59  
##  Median :32.73  
##  Mean   :32.41  
##  3rd Qu.:37.39  
##  Max.   :53.00

windows()
 
 barplot(VOL)

hist(VOL)

library(moments)
skewness(VOL)

## [1] -0.5792105

kurtosis(VOL)

## [1] 3.791227