Assignment28a.R

data=read.delim("exer11_10.dat")

str(data)

## 'data.frame':    6 obs. of  1 variable:
##  $ diff: int  2 1 -1 2 3 -1

attach(data)

hist(diff,main="Difference in Lost working Hours")

qqnorm(diff)
qqline(diff)

data=read.delim("exer11_11.dat")

str(data)

## 'data.frame':    7 obs. of  1 variable:
##  $ diff: int  6 3 -3 1 4 -2 5

attach(data)

## The following object is masked from data (pos = 3):
## 
##     diff

hist(diff,col="blue",main="Difference in IQ levels")

qqnorm(diff)
qqline(diff)

data=read.delim("exer11_12.dat")

attach(data)

## The following object is masked from data (pos = 3):
## 
##     diff
## 
## The following object is masked from data (pos = 4):
## 
##     diff

hist(diff,main="Difference in Preperation Times")

qqnorm(diff)
qqline(diff)

data=read.delim("exer11_13.dat")

attach(data)

hist(diff,main="Difference in Weights")

qqnorm(diff)
qqline(diff)