Assignment27b.R

data=read.delim("exer10_20.dat",header=TRUE)

str(data)

## 'data.frame':    45 obs. of  1 variable:
##  $ lengths: num  19.6 20.1 20.6 20.9 21.6 ...

attach(data)

mean(lengths)

## [1] 22.3

sd(lengths)

## [1] 0.9206

qt(.975,44)

## [1] 2.015

hist(lengths,main="Length of Cuckoo Eggs")

qqnorm(lengths)
qqline(lengths)

data=read.delim("exer10_21.dat",header=TRUE)

str(data)

## 'data.frame':    20 obs. of  1 variable:
##  $ lostvalu: int  883 447 207 627 214 313 844 253 587 217 ...

attach(data)

mean(lostvalu)

## [1] 555.2

x=c(883,313,768,805,447,844,1064,443,207,253,549,649,627,587,833,554,214,217,277,570)

mean(x)

## [1] 555.2

sd(x)

## [1] 256.9

qt(.975,19)

## [1] 2.093

hist(lostvalu,prob=TRUE,main="Pickpocket Offenses")

qqnorm(lostvalu)
qqline(lostvalu)

data=read.delim("exer10_22.dat",header=TRUE)

attach(data)

mean(advertis)

## [1] 16.8

sd(advertis)

## [1] 4.25

qt(.975,19)

## [1] 2.093

mean(mail)

## [1] 24.1

sd(mail)

## [1] 6.206

hist(advertis,main="Amount of Advertisements")
qqline(advertis)

qqnorm(advertis)

hist(mail,main="Amount of Mail")
qqline(mail)

qqnorm(mail)