Assignment

level - 1

Q9_a Solution

library(readxl)
library(e1071)

## Warning: package 'e1071' was built under R version 3.5.1

getwd()

## [1] "E:/R Markdown"

Skewness and Kurtosis

Car <- read.csv("E:\\Data Science\\data science\\assignments\\Basic Stats\\Level-1\\Q9_a.csv")

attach(Car)
skewness(speed)

## [1] -0.1105533

skewness(dist)

## [1] 0.7591268

qqplot(speed, dist)

plot(speed, dist)

Q9_b Solution

Skewness and Kurtosis

Car <- read.csv("E:\\Data Science\\data science\\assignments\\Basic Stats\\Level-1\\Q9_b.csv")

attach(Car)
skewness(SP)

## [1] 1.552258

skewness(WT)

## [1] -0.5921721

qqplot(SP,WT)

plot(SP,WT)

# Performance of Student

Performance <- read.csv("E:\\Data Science\\data science\\assignments\\Basic Stats\\Level-1\\Q12.csv")

attach(Performance)

mean(score)

## [1] 41

median(score)

## [1] 40.5

var(score)

## [1] 25.52941

sd(score)

## [1] 5.052664

qqplot(score, Tests)

plot(score, Tests)