# July 14 R Basics

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


1-pnorm(75,72,6)

## [1] 0.3085375

windows()
qqnorm(log(Cars$HP))

qqline(log(Cars$HP))

windows()

qnorm(0.975)

## [1] 1.959964

qnorm(0.995)

## [1] 2.575829

qnorm(0.95)

## [1] 1.644854

qt(0.975,199)

## [1] 1.971957