ass14a.R

PlotA=c(-2,-2,-1,-1,0,0,1,1,2,2)


sd(PlotA)

## [1] 1.491

mean(PlotA)

## [1] 0

range(PlotA)

## [1] -2  2

PlotB=c(-2,-1,-1,0,0,0,0,1,1,2)

sd(PlotB)

## [1] 1.155

mean(PlotB)

## [1] 0

range(PlotB)

## [1] -2  2

library(UsingR)

## Loading required package: MASS
## Loading required package: HistData
## Loading required package: Hmisc
## Loading required package: grid
## Loading required package: lattice
## Loading required package: survival
## Loading required package: splines
## Loading required package: Formula
## 
## Attaching package: 'Hmisc'
## 
## The following objects are masked from 'package:base':
## 
##     format.pval, round.POSIXt, trunc.POSIXt, units
## 
## Loading required package: aplpack
## Loading required package: tcltk
## Loading required package: quantreg
## Loading required package: SparseM
## 
## Attaching package: 'SparseM'
## 
## The following object is masked from 'package:base':
## 
##     backsolve
## 
## 
## Attaching package: 'quantreg'
## 
## The following object is masked from 'package:Hmisc':
## 
##     latex
## 
## The following object is masked from 'package:survival':
## 
##     untangle.specials
## 
## 
## Attaching package: 'UsingR'
## 
## The following object is masked from 'package:survival':
## 
##     cancer

par(mfrow=c(2,2))
DOTplot(PlotA)
DOTplot(PlotB)