The Book of R

chapter 1

Introduction

1.1 Obtaining and Installing R from CRAN Ris available for Windows, OS X, and Linux/Unix platforms. You can find the main collection of R resources online at the Comprehensive R #Archive Network (CRAN). If you go to the R project website at http:// www.r-project.org/, you can navigate to your local CRAN mirror and down load the installer relevant to your operating system. Section A.1 provides

step-by-step instructions for installing the base distribution of R.

1.2 Opening R for the First Time NOTE R is known as a high-level programming language. Level refers to the level of abstraction away from the fundamental details of computer execution. That is, a low level language will require you to do things such as manually manage the machine’s memory allotments, but with a high-level language like R, you’re fortunately spared these technicalities.

1.2.1 Console and Editor Panes options(prompt=“R>”)

1.2.2 Comments we use (#) fpr comment

1.2.3 Working Directory

## getwd()
## setwd()

1.2.4 Installing and Loading R Packages

library(“MASS”)

install.packages(“ks”)

update.packages()

1.2.5 Help Files and Function Documentation ?mean ??“mean”

1.2.6 Third-Party Editors Use of any third-party editor, including RStudio, is by and large a personal choice. In this book, I simply assume use of the typical base R GUI application.

1.3 Saving Work and Exiting R 1.3.1 Workspaces q() 1.3.2 Scripts

1.4 Conventions

1.4.1 Coding for (myitem in 5:7)

Chapter 2

# Exercise 2.1
#a
#6a+42/3^(4.2-3.62)=29.50556
#Given That a=2.3
#6*(2.3)+42/3^(4.2-3.62)=29.50556

#given the value
a <- 2.3
(6 * a + 42) / (3^(4.2 - 3.62))
## [1] 29.50556
#Therefore the equation is true when a=2.3
# Whichof the following squares negative 4 and adds 2 to the result?
(-4)^2+2
## [1] 18
-4^2+2
## [1] -14
(-4)^(2+2)
## [1] 256
-4^(2+2)
## [1] -256
#b
#therefore (i) is the correct option 

#c
# Using R, how would you calculate the square root of half of the average of the numbers 25.2, 15, 16.44, 15.3, and 18.6?
number <- c(25.5, 15, 16.44, 15.3, 18.6)
average <- mean(number)
half_average <- average/2
result <- sqrt(half_average)
result
## [1] 3.013967
sqrt((mean(c(25.5, 15, 16.44, 15.3, 18.6))*0.5))
## [1] 3.013967
# this write a code line for question b

#d
#Find loge 03.
log(0.3)
## [1] -1.203973
x<-log2(0.3)/log2(10)
x
## [1] -0.5228787
log10(0.3)
## [1] -0.5228787
#e
exp(-1.203973)
## [1] 0.2999999
#f
#Identify R’s representation of -000000000423546322 when printing this number to the console

-0.00000000423546322
## [1] -4.235463e-09
x <- -0.00000000423546322
print(x)
## [1] -4.235463e-09
# Exercise 2.2
#a
#Create an object that stores the value 3^2*4^(1/8).
x <- 3^2
y <- 4^(1/8)
x*y
## [1] 10.70286
#b
#Overwrite your object in (a) by itself divided by 2.33. Print the result to the console.
z <- x*y
z
## [1] 10.70286
b <- z/2.33
b
## [1] 4.593504
#c
# Create a new object with the value 82 10 13.
a <- -8.2
b <- 10^(-13)
c <- a*b
c
## [1] -8.2e-13
#d
# Print directly to the console the result of multiplying (b) by (c)
print(b*c)
## [1] -8.2e-26
#Exercise 2.3
#a
# Create and store a sequence of values from 5 to 11 that progresses in steps of 0.3
myseq1 <- seq(from=5,to=-11,by=-0.3)
myseq1
##  [1]   5.0   4.7   4.4   4.1   3.8   3.5   3.2   2.9   2.6   2.3   2.0   1.7
## [13]   1.4   1.1   0.8   0.5   0.2  -0.1  -0.4  -0.7  -1.0  -1.3  -1.6  -1.9
## [25]  -2.2  -2.5  -2.8  -3.1  -3.4  -3.7  -4.0  -4.3  -4.6  -4.9  -5.2  -5.5
## [37]  -5.8  -6.1  -6.4  -6.7  -7.0  -7.3  -7.6  -7.9  -8.2  -8.5  -8.8  -9.1
## [49]  -9.4  -9.7 -10.0 -10.3 -10.6 -10.9
#b
# Overwrite the object from (above) using the same sequence with the order reversed.
# Step 1: Create the sequence
myseq1 <- rev(myseq1)
myseq1
##  [1] -10.9 -10.6 -10.3 -10.0  -9.7  -9.4  -9.1  -8.8  -8.5  -8.2  -7.9  -7.6
## [13]  -7.3  -7.0  -6.7  -6.4  -6.1  -5.8  -5.5  -5.2  -4.9  -4.6  -4.3  -4.0
## [25]  -3.7  -3.4  -3.1  -2.8  -2.5  -2.2  -1.9  -1.6  -1.3  -1.0  -0.7  -0.4
## [37]  -0.1   0.2   0.5   0.8   1.1   1.4   1.7   2.0   2.3   2.6   2.9   3.2
## [49]   3.5   3.8   4.1   4.4   4.7   5.0
#c
# Repeat the vector c(-1,3,-5,7,-9) twice, with each element repeated 10 times, and store the result. Display the result sorted from largest to smallest.
vec <- rep(x=c(-1,3,-5,7,-9),times=2,each=10)
vec
##   [1] -1 -1 -1 -1 -1 -1 -1 -1 -1 -1  3  3  3  3  3  3  3  3  3  3 -5 -5 -5 -5 -5
##  [26] -5 -5 -5 -5 -5  7  7  7  7  7  7  7  7  7  7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9
##  [51] -1 -1 -1 -1 -1 -1 -1 -1 -1 -1  3  3  3  3  3  3  3  3  3  3 -5 -5 -5 -5 -5
##  [76] -5 -5 -5 -5 -5  7  7  7  7  7  7  7  7  7  7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9
sort(vec,decreasing=TRUE)
##   [1]  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  3  3  3  3  3
##  [26]  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1
##  [51] -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5
##  [76] -5 -5 -5 -5 -5 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9
length(vec)
## [1] 100
#d
#Create and store a vector that contains, in any configuration, the
#following:
#i
#Asequence of integers from 6 to 12 (inclusive)
A <- seq(from=6,to=12)
A
## [1]  6  7  8  9 10 11 12
B <- rep(x=c(5.3),times=3)
B
## [1] 5.3 5.3 5.3
foo <- -3
foo
## [1] -3
D <- seq(from=102,to=100,length.out=9)
D
## [1] 102.00 101.75 101.50 101.25 101.00 100.75 100.50 100.25 100.00
bay <- c(A,B,foo,D)
bay
##  [1]   6.00   7.00   8.00   9.00  10.00  11.00  12.00   5.30   5.30   5.30
## [11]  -3.00 102.00 101.75 101.50 101.25 101.00 100.75 100.50 100.25 100.00
#e
#Confirmthat the length of the vector created in (d) is 20.
length(bay)
## [1] 20
#Exercise 2.4

#a
vec <- c(seq(3,6,length=5),rep(c(2,-5.1,-33),times=2),(7/42)+2)
vec
##  [1]   3.000000   3.750000   4.500000   5.250000   6.000000   2.000000
##  [7]  -5.100000 -33.000000   2.000000  -5.100000 -33.000000   2.166667
#b
ends <- c(vec[1],vec[length(vec)])
ends
## [1] 3.000000 2.166667
ends1 <- c(vec[1],vec[12])
ends1
## [1] 3.000000 2.166667
#c
C <- vec[2:(length(vec)-1)]
C
##  [1]   3.75   4.50   5.25   6.00   2.00  -5.10 -33.00   2.00  -5.10 -33.00
#d
recon <- c(ends[1],C,ends[2])
recon
##  [1]   3.000000   3.750000   4.500000   5.250000   6.000000   2.000000
##  [7]  -5.100000 -33.000000   2.000000  -5.100000 -33.000000   2.166667
#e
vec <- sort(vec,decreasing=FALSE)
vec
##  [1] -33.000000 -33.000000  -5.100000  -5.100000   2.000000   2.000000
##  [7]   2.166667   3.000000   3.750000   4.500000   5.250000   6.000000
#f, colon operator  method 
f <- vec[length(vec):1]
f
##  [1]   6.000000   5.250000   4.500000   3.750000   3.000000   2.166667
##  [7]   2.000000   2.000000  -5.100000  -5.100000 -33.000000 -33.000000
sort(vec,decreasing=TRUE)
##  [1]   6.000000   5.250000   4.500000   3.750000   3.000000   2.166667
##  [7]   2.000000   2.000000  -5.100000  -5.100000 -33.000000 -33.000000
#g
vec2 <- rep(C[c(3,6,length(C))],times=c(3,4,1))
vec2
## [1]   5.25   5.25   5.25  -5.10  -5.10  -5.10  -5.10 -33.00
#h
new_b <- vec
new_b
##  [1] -33.000000 -33.000000  -5.100000  -5.100000   2.000000   2.000000
##  [7]   2.166667   3.000000   3.750000   4.500000   5.250000   6.000000
new_b[c(1,5:7,length(new_b))] <- c(99,98,97,96,95)
new_b
##  [1]  99.00 -33.00  -5.10  -5.10  98.00  97.00  96.00   3.00   3.75   4.50
## [11]   5.25  95.00
#Exercise 2.5
#a
x <- c(2,0.5,1,2,0.5,1,2,0.5,1)
x
## [1] 2.0 0.5 1.0 2.0 0.5 1.0 2.0 0.5 1.0
vec1 <- x[1:3]
vec1
## [1] 2.0 0.5 1.0
length(vec1)
## [1] 3
#b
f <- c(45,77,20,19,101,120,212)
f
## [1]  45  77  20  19 101 120 212
C <- (5/9)*(f-32)
C
## [1]   7.222222  25.000000  -6.666667  -7.222222  38.333333  48.888889 100.000000
#c
b_vec <- c(2,4,6)
b_vec
## [1] 2 4 6
f_vec <- c(1,2)
f_vec
## [1] 1 2
result <- c(b_vec)*rep(f_vec,times=1,each =3)
result
## [1]  2  4  6  4  8 12
#d
result[2:5] <- c(-0.1,-100)
result
## [1]    2.0   -0.1 -100.0   -0.1 -100.0   12.0

chapter 3

#Exercise 3.1

#a
A <- matrix(data=c(4.3,3.1,8.2,8.2,3.2,0.9,1.6,6.5),nrow=4,ncol=2,byrow=T)
A
##      [,1] [,2]
## [1,]  4.3  3.1
## [2,]  8.2  8.2
## [3,]  3.2  0.9
## [4,]  1.6  6.5
#b
rmove <- A[-1,]
rmove
##      [,1] [,2]
## [1,]  8.2  8.2
## [2,]  3.2  0.9
## [3,]  1.6  6.5
dim(rmove)
## [1] 3 2
#c
A[,2] <- sort(A[,2])
A
##      [,1] [,2]
## [1,]  4.3  0.9
## [2,]  8.2  3.1
## [3,]  3.2  6.5
## [4,]  1.6  8.2
#d
B <- A[-4,2,drop=F]
B
##      [,1]
## [1,]  0.9
## [2,]  3.1
## [3,]  6.5
d <- matrix(A[-4,-1],ncol=1)
d
##      [,1]
## [1,]  0.9
## [2,]  3.1
## [3,]  6.5
#e
B <- A[c(3,4),c(1,2)]
B
##      [,1] [,2]
## [1,]  3.2  6.5
## [2,]  1.6  8.2
e <- A[3:4,,drop=F]
e
##      [,1] [,2]
## [1,]  3.2  6.5
## [2,]  1.6  8.2
#f
A[c(4,2),c(1,2)] <- -(1/2)
A
##      [,1] [,2]
## [1,]  4.3  0.9
## [2,] -0.5 -0.5
## [3,]  3.2  6.5
## [4,] -0.5 -0.5
#Exercise3.2

#a
A <- cbind(c(1,2,7),c(2,4,6))
A
##      [,1] [,2]
## [1,]    1    2
## [2,]    2    4
## [3,]    7    6
B <- cbind(c(10,30,50),c(20,40,60))
B
##      [,1] [,2]
## [1,]   10   20
## [2,]   30   40
## [3,]   50   60
A-B
##      [,1] [,2]
## [1,]   -9  -18
## [2,]  -28  -36
## [3,]  -43  -54
result <- 2/7/(A-B)
result
##              [,1]         [,2]
## [1,] -0.031746032 -0.015873016
## [2,] -0.010204082 -0.007936508
## [3,] -0.006644518 -0.005291005
#b
A <- cbind(c(1,2,7))
A
##      [,1]
## [1,]    1
## [2,]    2
## [3,]    7
B <- cbind(c(3,4,8))
B
##      [,1]
## [1,]    3
## [2,]    4
## [3,]    8
#i
#A%*%B
#ii
t(A)
##      [,1] [,2] [,3]
## [1,]    1    2    7
#t(A)%*%B
#iii
#t(B)%*%(A%*%t(A))
#iv
#(A%*%t(A)%*%t(B))
#v
d <- (B%*%t(B))+(A%*%t(A))-100*diag(x=3)
d  
##      [,1] [,2] [,3]
## [1,]  -90   14   31
## [2,]   14  -80   46
## [3,]   31   46   13
solve(d)  
##              [,1]         [,2]        [,3]
## [1,] -0.007923676  0.003123274 0.007843334
## [2,]  0.003123274 -0.005350239 0.011483806
## [3,]  0.007843334  0.011483806 0.017584735
#c
A <- diag(x=4)
A
##      [,1] [,2] [,3] [,4]
## [1,]    1    0    0    0
## [2,]    0    1    0    0
## [3,]    0    0    1    0
## [4,]    0    0    0    1
t(A)%*%A-diag(x=4)
##      [,1] [,2] [,3] [,4]
## [1,]    0    0    0    0
## [2,]    0    0    0    0
## [3,]    0    0    0    0
## [4,]    0    0    0    0
#Exercise 3.3

#a
my_AR <- array(data=4.8:0.1,dim=c(4,2,6))
my_AR
## , , 1
## 
##      [,1] [,2]
## [1,]  4.8  0.8
## [2,]  3.8  4.8
## [3,]  2.8  3.8
## [4,]  1.8  2.8
## 
## , , 2
## 
##      [,1] [,2]
## [1,]  1.8  2.8
## [2,]  0.8  1.8
## [3,]  4.8  0.8
## [4,]  3.8  4.8
## 
## , , 3
## 
##      [,1] [,2]
## [1,]  3.8  4.8
## [2,]  2.8  3.8
## [3,]  1.8  2.8
## [4,]  0.8  1.8
## 
## , , 4
## 
##      [,1] [,2]
## [1,]  0.8  1.8
## [2,]  4.8  0.8
## [3,]  3.8  4.8
## [4,]  2.8  3.8
## 
## , , 5
## 
##      [,1] [,2]
## [1,]  2.8  3.8
## [2,]  1.8  2.8
## [3,]  0.8  1.8
## [4,]  4.8  0.8
## 
## , , 6
## 
##      [,1] [,2]
## [1,]  4.8  0.8
## [2,]  3.8  4.8
## [3,]  2.8  3.8
## [4,]  1.8  2.8
#b
Ex_val <- my_AR[c(4,1),2,]
Ex_val
##      [,1] [,2] [,3] [,4] [,5] [,6]
## [1,]  2.8  4.8  1.8  3.8  0.8  2.8
## [2,]  0.8  2.8  4.8  1.8  3.8  0.8
#c
Sec_row <- Ex_val[2,]
Sec_row
## [1] 0.8 2.8 4.8 1.8 3.8 0.8
Rp_val <- rep(Sec_row,times=4)
Rp_val
##  [1] 0.8 2.8 4.8 1.8 3.8 0.8 0.8 2.8 4.8 1.8 3.8 0.8 0.8 2.8 4.8 1.8 3.8 0.8 0.8
## [20] 2.8 4.8 1.8 3.8 0.8
Nw_AR <- array(Rp_val,dim=c(2,2,2,3))
Nw_AR
## , , 1, 1
## 
##      [,1] [,2]
## [1,]  0.8  4.8
## [2,]  2.8  1.8
## 
## , , 2, 1
## 
##      [,1] [,2]
## [1,]  3.8  0.8
## [2,]  0.8  2.8
## 
## , , 1, 2
## 
##      [,1] [,2]
## [1,]  4.8  3.8
## [2,]  1.8  0.8
## 
## , , 2, 2
## 
##      [,1] [,2]
## [1,]  0.8  4.8
## [2,]  2.8  1.8
## 
## , , 1, 3
## 
##      [,1] [,2]
## [1,]  3.8  0.8
## [2,]  0.8  2.8
## 
## , , 2, 3
## 
##      [,1] [,2]
## [1,]  4.8  3.8
## [2,]  1.8  0.8
my_Nw_AR <- my_AR[,,-6]
my_Nw_AR
## , , 1
## 
##      [,1] [,2]
## [1,]  4.8  0.8
## [2,]  3.8  4.8
## [3,]  2.8  3.8
## [4,]  1.8  2.8
## 
## , , 2
## 
##      [,1] [,2]
## [1,]  1.8  2.8
## [2,]  0.8  1.8
## [3,]  4.8  0.8
## [4,]  3.8  4.8
## 
## , , 3
## 
##      [,1] [,2]
## [1,]  3.8  4.8
## [2,]  2.8  3.8
## [3,]  1.8  2.8
## [4,]  0.8  1.8
## 
## , , 4
## 
##      [,1] [,2]
## [1,]  0.8  1.8
## [2,]  4.8  0.8
## [3,]  3.8  4.8
## [4,]  2.8  3.8
## 
## , , 5
## 
##      [,1] [,2]
## [1,]  2.8  3.8
## [2,]  1.8  2.8
## [3,]  0.8  1.8
## [4,]  4.8  0.8
my_Nw_AR[c(2,4),2,c(1,3,5)] <- -99
my_Nw_AR
## , , 1
## 
##      [,1]  [,2]
## [1,]  4.8   0.8
## [2,]  3.8 -99.0
## [3,]  2.8   3.8
## [4,]  1.8 -99.0
## 
## , , 2
## 
##      [,1] [,2]
## [1,]  1.8  2.8
## [2,]  0.8  1.8
## [3,]  4.8  0.8
## [4,]  3.8  4.8
## 
## , , 3
## 
##      [,1]  [,2]
## [1,]  3.8   4.8
## [2,]  2.8 -99.0
## [3,]  1.8   2.8
## [4,]  0.8 -99.0
## 
## , , 4
## 
##      [,1] [,2]
## [1,]  0.8  1.8
## [2,]  4.8  0.8
## [3,]  3.8  4.8
## [4,]  2.8  3.8
## 
## , , 5
## 
##      [,1]  [,2]
## [1,]  2.8   3.8
## [2,]  1.8 -99.0
## [3,]  0.8   1.8
## [4,]  4.8 -99.0

chapter 4

# Exercise 4.1

#a
vec <- c(6,9,7,3,6,7,9,6,3,6,6,7,1,9,1)
vec
##  [1] 6 9 7 3 6 7 9 6 3 6 6 7 1 9 1
#i
vec[vec==6]
## [1] 6 6 6 6 6
#ii
vec[vec>=6]
##  [1] 6 9 7 6 7 9 6 6 6 7 9
#iii
vec[vec<(6+2)]
##  [1] 6 7 3 6 7 6 3 6 6 7 1 1
#iv
vec[vec!=6]
##  [1] 9 7 3 7 9 3 7 1 9 1
#b
vec2 <- vec[c(-1,-2,-3)]
vec2
##  [1] 3 6 7 9 6 3 6 6 7 1 9 1
AR <- array(vec2,dim=c(2,2,3))
AR
## , , 1
## 
##      [,1] [,2]
## [1,]    3    7
## [2,]    6    9
## 
## , , 2
## 
##      [,1] [,2]
## [1,]    6    6
## [2,]    3    6
## 
## , , 3
## 
##      [,1] [,2]
## [1,]    7    9
## [2,]    1    1
#i
AR[6/2+4]
## [1] 6
#ii
AR_NW <- array(vec2,dim=c(2,2,3))*2
AR_NW
## , , 1
## 
##      [,1] [,2]
## [1,]    6   14
## [2,]   12   18
## 
## , , 2
## 
##      [,1] [,2]
## [1,]   12   12
## [2,]    6   12
## 
## , , 3
## 
##      [,1] [,2]
## [1,]   14   18
## [2,]    2    2
AR_NW[6/2+4]
## [1] 12
#c
A <- diag(x=10)
A
##       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
##  [1,]    1    0    0    0    0    0    0    0    0     0
##  [2,]    0    1    0    0    0    0    0    0    0     0
##  [3,]    0    0    1    0    0    0    0    0    0     0
##  [4,]    0    0    0    1    0    0    0    0    0     0
##  [5,]    0    0    0    0    1    0    0    0    0     0
##  [6,]    0    0    0    0    0    1    0    0    0     0
##  [7,]    0    0    0    0    0    0    1    0    0     0
##  [8,]    0    0    0    0    0    0    0    1    0     0
##  [9,]    0    0    0    0    0    0    0    0    1     0
## [10,]    0    0    0    0    0    0    0    0    0     1
#d
AR[any=TRUE]
##  [1] 3 6 7 9 6 3 6 6 7 1 9 1
AR[all=TRUE]
##  [1] 3 6 7 9 6 3 6 6 7 1 9 1
#e
A[any=TRUE]
##   [1] 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0
##  [38] 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
##  [75] 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1
#Exercise4.2

#a
foo <- (c(7,1,7,10,5,9,10,3,10,8))
foo
##  [1]  7  1  7 10  5  9 10  3 10  8
foo[foo>5|foo==2]
## [1]  7  7 10  9 10 10  8
#b
bar <- c(8,8,4,4,5,1,5,6,6,8)
bar
##  [1] 8 8 4 4 5 1 5 6 6 8
bar[bar<=6&bar!=4]
## [1] 5 1 5 6 6
#c
intersect(foo,bar)
## [1] 1 5 8
#d
baz <- c(foo+bar)
baz
##  [1] 15  9 11 14 10 10 15  9 16 16
baz[baz>=14&baz!=15]
## [1] 14 16 16
bay <- c(baz/foo)
bay
##  [1] 2.142857 9.000000 1.571429 1.400000 2.000000 1.111111 1.500000 3.000000
##  [9] 1.600000 2.000000
bay[bay>4|bay<=2]
## [1] 9.000000 1.571429 1.400000 2.000000 1.111111 1.500000 1.600000 2.000000
#e
foo>5|foo==2
##  [1]  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE
#Exercise4.3

#a
foo <- c(7,5,6,1,2,10,8,3,8,2)
foo
##  [1]  7  5  6  1  2 10  8  3  8  2
#i
bar <- foo[foo>=5]
bar
## [1]  7  5  6 10  8  8
#ii
foo[foo<5]
## [1] 1 2 3 2
#b
baz <- matrix(data=bar,nrow=2,ncol=3,byrow=T)
baz
##      [,1] [,2] [,3]
## [1,]    7    5    6
## [2,]   10    8    8
#i
baz[baz==8] <- baz[1,2]^2
baz
##      [,1] [,2] [,3]
## [1,]    7    5    6
## [2,]   10   25   25
#ii
baz[baz<=25&baz>4]
## [1]  7 10  5 25  6 25
#c
qux <- c(10,5,1,4,7,4,3,3,1,3,4,3,1,7,8,3,7,3)
qux 
##  [1] 10  5  1  4  7  4  3  3  1  3  4  3  1  7  8  3  7  3
AR_qux <- array(qux,dim=c(3,2,3))
AR_qux 
## , , 1
## 
##      [,1] [,2]
## [1,]   10    4
## [2,]    5    7
## [3,]    1    4
## 
## , , 2
## 
##      [,1] [,2]
## [1,]    3    3
## [2,]    3    4
## [3,]    1    3
## 
## , , 3
## 
##      [,1] [,2]
## [1,]    1    3
## [2,]    7    7
## [3,]    8    3
#i
bar <- which(AR_qux==3|AR_qux==4,arr.ind=TRUE)
bar
##       dim1 dim2 dim3
##  [1,]    1    2    1
##  [2,]    3    2    1
##  [3,]    1    1    2
##  [4,]    2    1    2
##  [5,]    1    2    2
##  [6,]    2    2    2
##  [7,]    3    2    2
##  [8,]    1    2    3
##  [9,]    3    2    3
#ii
qux[qux<3|qux>=7] <- 100
qux
##  [1] 100   5 100   4 100   4   3   3 100   3   4   3 100 100 100   3 100   3
#d
foo[c(FALSE,TRUE)]
## [1]  5  1 10  3  2
foo[c(0,1)]
## [1] 7
#Exercise 4.4

#a
cat("\"The quick brown fox\n \tjumped over\n \t\tthe lazy dogs\"")
## "The quick brown fox
##      jumped over
##          the lazy dogs"
#b
num1 <- 4
num1
## [1] 4
num2 <- 0.75
num2
## [1] 0.75
paste("The result of multiplying",num1,"by",num2,"is",3)
## [1] "The result of multiplying 4 by 0.75 is 3"
#c
sub("tdavies","tafa","/Users/tdavies/Documents/RBook/")
## [1] "/Users/tafa/Documents/RBook/"
#d
#i
bar <- "if a woodchuck could chuck wood"
bar
## [1] "if a woodchuck could chuck wood"
#ii
gsub("wood","metal","if a woodchuck could chuck wood")
## [1] "if a metalchuck could chuck metal"
#e
bay <- "Two 6-packs for $12.99"
bay
## [1] "Two 6-packs for $12.99"
#i
substr(bay,start=5,stop=10)=="6-pack"
## [1] TRUE
#ii
sub(pattern="12.99",replacement="10.99",x=bay)
## [1] "Two 6-packs for $10.99"
#Exercise 4.5
#a
sex <- rep("M",20)
sex
##  [1] "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M"
## [20] "M"
sex[c(1,5,6,7,12,14,15,16)] <- "F"
sex
##  [1] "F" "M" "M" "M" "F" "F" "F" "M" "M" "M" "M" "F" "M" "F" "F" "F" "M" "M" "M"
## [20] "M"
party <- rep("New Zealand", 20)
party
##  [1] "New Zealand" "New Zealand" "New Zealand" "New Zealand" "New Zealand"
##  [6] "New Zealand" "New Zealand" "New Zealand" "New Zealand" "New Zealand"
## [11] "New Zealand" "New Zealand" "New Zealand" "New Zealand" "New Zealand"
## [16] "New Zealand" "New Zealand" "New Zealand" "New Zealand" "New Zealand"
party[c(1,4,12,15,16,19)] <- "Labour"
party
##  [1] "Labour"      "New Zealand" "New Zealand" "Labour"      "New Zealand"
##  [6] "New Zealand" "New Zealand" "New Zealand" "New Zealand" "New Zealand"
## [11] "New Zealand" "Labour"      "New Zealand" "New Zealand" "Labour"     
## [16] "Labour"      "New Zealand" "New Zealand" "Labour"      "New Zealand"
party[c(6,9,11)] <- "Greens"
party
##  [1] "Labour"      "New Zealand" "New Zealand" "Labour"      "New Zealand"
##  [6] "Greens"      "New Zealand" "New Zealand" "Greens"      "New Zealand"
## [11] "Greens"      "Labour"      "New Zealand" "New Zealand" "Labour"     
## [16] "Labour"      "New Zealand" "New Zealand" "Labour"      "New Zealand"
party[c(10,20)] <- "Other"
party
##  [1] "Labour"      "New Zealand" "New Zealand" "Labour"      "New Zealand"
##  [6] "Greens"      "New Zealand" "New Zealand" "Greens"      "Other"      
## [11] "Greens"      "Labour"      "New Zealand" "New Zealand" "Labour"     
## [16] "Labour"      "New Zealand" "New Zealand" "Labour"      "Other"
party[c(2,3,5,7,8,13,14,17,18)] <- "National" 
party
##  [1] "Labour"   "National" "National" "Labour"   "National" "Greens"  
##  [7] "National" "National" "Greens"   "Other"    "Greens"   "Labour"  
## [13] "National" "National" "Labour"   "Labour"   "National" "National"
## [19] "Labour"   "Other"
#b
sex.fac <- factor(sex)
sex.fac
##  [1] F M M M F F F M M M M F M F F F M M M M
## Levels: F M
party.fac <- factor(party)
party.fac
##  [1] Labour   National National Labour   National Greens   National National
##  [9] Greens   Other    Greens   Labour   National National Labour   Labour  
## [17] National National Labour   Other   
## Levels: Greens Labour National Other
levels(sex.fac)
## [1] "F" "M"
levels(party.fac)
## [1] "Greens"   "Labour"   "National" "Other"
#c
party.fac[sex.fac=="M"]
##  [1] National National Labour   National Greens   Other    Greens   National
##  [9] National National Labour   Other   
## Levels: Greens Labour National Other
sex.fac[party.fac=="National"]
## [1] M M F F M M F M M
## Levels: F M
New_party <- c("National", "Maori", "Maori", "Labour", "Greens", "Labour")
New_party
## [1] "National" "Maori"    "Maori"    "Labour"   "Greens"   "Labour"
New_sex <- c("M", "M", "F", "F", "F", "M")
New_sex
## [1] "M" "M" "F" "F" "F" "M"
New_party.fac <- factor(New_party)
New_party.fac
## [1] National Maori    Maori    Labour   Greens   Labour  
## Levels: Greens Labour Maori National
New_sex.fac <- factor(New_sex)
New_sex.fac
## [1] M M F F F M
## Levels: F M
all_party <- c(party.fac,New_party.fac)
all_party
##  [1] Labour   National National Labour   National Greens   National National
##  [9] Greens   Other    Greens   Labour   National National Labour   Labour  
## [17] National National Labour   Other    National Maori    Maori    Labour  
## [25] Greens   Labour  
## Levels: Greens Labour National Other Maori
all_sex <- c(sex.fac,New_sex.fac)
all_sex
##  [1] F M M M F F F M M M M F M F F F M M M M M M F F F M
## Levels: F M
#e
Reslt <- c(93,55,29,100,52,84,56,0,33,52,35,53,46,40,40,56,45,64,31,10,29,40,95,18,61)
Reslt
##  [1]  93  55  29 100  52  84  56   0  33  52  35  53  46  40  40  56  45  64  31
## [20]  10  29  40  95  18  61
br <- c(0,30,70,100)
br
## [1]   0  30  70 100
cut(x=Reslt,breaks=br,include.lowest=T)
##  [1] (70,100] (30,70]  [0,30]   (70,100] (30,70]  (70,100] (30,70]  [0,30]  
##  [9] (30,70]  (30,70]  (30,70]  (30,70]  (30,70]  (30,70]  (30,70]  (30,70] 
## [17] (30,70]  (30,70]  (30,70]  [0,30]   [0,30]   (30,70]  (70,100] [0,30]  
## [25] (30,70] 
## Levels: [0,30] (30,70] (70,100]
Extract <- Reslt[all_party=="Labour"]
Extract
## [1]  93 100  53  40  56  31  18  NA
Extract <- Reslt[all_party=="National"]
Extract
##  [1] 55 29 52 56  0 46 40 45 64 29

Chapter 5

#Exercise5.1
#a
my_list <- list(
  seq_20=seq(-4,4,length.out=20),
  log_mat=matrix(c(F,T,T,T,F,T,T,F,F),nrow=3,ncol=3,byrow=F),words=c("don","quixote"),
  levels=factor(c("LOW","MED","LOW","MED","MED","HIGH"))
)
my_list
## $seq_20
##  [1] -4.0000000 -3.5789474 -3.1578947 -2.7368421 -2.3157895 -1.8947368
##  [7] -1.4736842 -1.0526316 -0.6315789 -0.2105263  0.2105263  0.6315789
## [13]  1.0526316  1.4736842  1.8947368  2.3157895  2.7368421  3.1578947
## [19]  3.5789474  4.0000000
## 
## $log_mat
##       [,1]  [,2]  [,3]
## [1,] FALSE  TRUE  TRUE
## [2,]  TRUE FALSE FALSE
## [3,]  TRUE  TRUE FALSE
## 
## $words
## [1] "don"     "quixote"
## 
## $levels
## [1] LOW  MED  LOW  MED  MED  HIGH
## Levels: HIGH LOW MED
#i
extract.r <- my_list$log_mat[c(2,1), c(2,3)]
extract.r
##       [,1]  [,2]
## [1,] FALSE FALSE
## [2,]  TRUE  TRUE
#ii
my_list$words <- sub("don", "Don", my_list$words)
my_list$words
## [1] "Don"     "quixote"
my_list$words <- sub("quixote", "Quixote", my_list$words)
my_list$words
## [1] "Don"     "Quixote"
cat("\"Windmills! ATTACK!\"-\\Don Quixote/-\n")
## "Windmills! ATTACK!"-\Don Quixote/-
#iii
seq_20 <- seq(-4,4,length.out=20)
seq_20
##  [1] -4.0000000 -3.5789474 -3.1578947 -2.7368421 -2.3157895 -1.8947368
##  [7] -1.4736842 -1.0526316 -0.6315789 -0.2105263  0.2105263  0.6315789
## [13]  1.0526316  1.4736842  1.8947368  2.3157895  2.7368421  3.1578947
## [19]  3.5789474  4.0000000
seq_20[seq_20>1]
## [1] 1.052632 1.473684 1.894737 2.315789 2.736842 3.157895 3.578947 4.000000
#iv
fvec <- factor(c("LOW","MED","LOW","MED","MED","HIGH"))
fvec
## [1] LOW  MED  LOW  MED  MED  HIGH
## Levels: HIGH LOW MED
which(fvec=="MED")
## [1] 2 4 5
#b
nums_vec <- c(3,2.1,3.3,4,1.5,4.9)
nums_vec
## [1] 3.0 2.1 3.3 4.0 1.5 4.9
my_lists <- list(
  facs=fvec,
  nums=nums_vec,
  oldlist=my_list[1:3]
)
my_lists
## $facs
## [1] LOW  MED  LOW  MED  MED  HIGH
## Levels: HIGH LOW MED
## 
## $nums
## [1] 3.0 2.1 3.3 4.0 1.5 4.9
## 
## $oldlist
## $oldlist$seq_20
##  [1] -4.0000000 -3.5789474 -3.1578947 -2.7368421 -2.3157895 -1.8947368
##  [7] -1.4736842 -1.0526316 -0.6315789 -0.2105263  0.2105263  0.6315789
## [13]  1.0526316  1.4736842  1.8947368  2.3157895  2.7368421  3.1578947
## [19]  3.5789474  4.0000000
## 
## $oldlist$log_mat
##       [,1]  [,2]  [,3]
## [1,] FALSE  TRUE  TRUE
## [2,]  TRUE FALSE FALSE
## [3,]  TRUE  TRUE FALSE
## 
## $oldlist$words
## [1] "Don"     "Quixote"
#i
extract.e <- my_lists$facs[my_lists$nums>=3]
extract.e
## [1] LOW  LOW  MED  HIGH
## Levels: HIGH LOW MED
#ii
flags <- my_lists$oldlist$log_mat[,3]
flags
## [1]  TRUE FALSE FALSE
my_lists$flags <- rep(flags,2)
my_lists$flag
## [1]  TRUE FALSE FALSE  TRUE FALSE FALSE
#iii
flags_log_n <- my_lists$nums[!my_lists$flags]
flags_log_n
## [1] 2.1 3.3 1.5 4.9
#iv
my_lists$oldlist$words <- "Don Quixote"
my_lists$oldlist$words
## [1] "Don Quixote"
my_lists
## $facs
## [1] LOW  MED  LOW  MED  MED  HIGH
## Levels: HIGH LOW MED
## 
## $nums
## [1] 3.0 2.1 3.3 4.0 1.5 4.9
## 
## $oldlist
## $oldlist$seq_20
##  [1] -4.0000000 -3.5789474 -3.1578947 -2.7368421 -2.3157895 -1.8947368
##  [7] -1.4736842 -1.0526316 -0.6315789 -0.2105263  0.2105263  0.6315789
## [13]  1.0526316  1.4736842  1.8947368  2.3157895  2.7368421  3.1578947
## [19]  3.5789474  4.0000000
## 
## $oldlist$log_mat
##       [,1]  [,2]  [,3]
## [1,] FALSE  TRUE  TRUE
## [2,]  TRUE FALSE FALSE
## [3,]  TRUE  TRUE FALSE
## 
## $oldlist$words
## [1] "Don Quixote"
## 
## 
## $flags
## [1]  TRUE FALSE FALSE  TRUE FALSE FALSE
#Exercise 5.2
#a
dframe <- data.frame(
  person = c("Stan","Francine","Steve","Roger","Haylay","Klaus"),
  sex = factor(c("M","F","M","M","F","M")),
  funny = c("High","Med","Low","High","Med","Med")
)
dframe
##     person sex funny
## 1     Stan   M  High
## 2 Francine   F   Med
## 3    Steve   M   Low
## 4    Roger   M  High
## 5   Haylay   F   Med
## 6    Klaus   M   Med
#b
age <- c(41,41,15,1600,21,60)
age
## [1]   41   41   15 1600   21   60
dframe <- cbind(dframe,age)
dframe
##     person sex funny  age
## 1     Stan   M  High   41
## 2 Francine   F   Med   41
## 3    Steve   M   Low   15
## 4    Roger   M  High 1600
## 5   Haylay   F   Med   21
## 6    Klaus   M   Med   60
# Step C: Reorder columns
dframe <- dframe[,c(1,4,2,3)]
dframe
##     person  age sex funny
## 1     Stan   41   M  High
## 2 Francine   41   F   Med
## 3    Steve   15   M   Low
## 4    Roger 1600   M  High
## 5   Haylay   21   F   Med
## 6    Klaus   60   M   Med
#d
mydata <- data.frame(
  person = c("Peter", "Lois", "Meg", "Chris", "Stewie"),
  age = c(42, 40, 17, 14, 1),
  sex = factor(c("M", "F", "F", "M", "M"))
)

mydata
##   person age sex
## 1  Peter  42   M
## 2   Lois  40   F
## 3    Meg  17   F
## 4  Chris  14   M
## 5 Stewie   1   M
mydata[3:5,3]
## [1] F M M
## Levels: F M
mydata[,c(3,1)]
##   sex person
## 1   M  Peter
## 2   F   Lois
## 3   F    Meg
## 4   M  Chris
## 5   M Stewie
newrecord <- data.frame(person="Brian",age=7,
                        sex=factor("M",levels=levels(mydata$sex)))
newrecord
##   person age sex
## 1  Brian   7   M
mydata1 <- rbind(mydata,newrecord)
mydata1
##   person age sex
## 1  Peter  42   M
## 2   Lois  40   F
## 3    Meg  17   F
## 4  Chris  14   M
## 5 Stewie   1   M
## 6  Brian   7   M
funny <- c("High","High","Low","Med","High","Med")
funny
## [1] "High" "High" "Low"  "Med"  "High" "Med"
funny <- factor(x=funny,levels=c("Low","Med","High"))
funny
## [1] High High Low  Med  High Med 
## Levels: Low Med High
funny <- factor(x=funny)
funny
## [1] High High Low  Med  High Med 
## Levels: Low Med High
mydata0 <- cbind(mydata1,funny)
mydata0
##   person age sex funny
## 1  Peter  42   M  High
## 2   Lois  40   F  High
## 3    Meg  17   F   Low
## 4  Chris  14   M   Med
## 5 Stewie   1   M  High
## 6  Brian   7   M   Med
mydata0$age.mon <- mydata0$age*12
mydata0
##   person age sex funny age.mon
## 1  Peter  42   M  High     504
## 2   Lois  40   F  High     480
## 3    Meg  17   F   Low     204
## 4  Chris  14   M   Med     168
## 5 Stewie   1   M  High      12
## 6  Brian   7   M   Med      84
mydata0$sex=="M"
## [1]  TRUE FALSE FALSE  TRUE  TRUE  TRUE
mydata0[mydata0$sex=="M",]
##   person age sex funny age.mon
## 1  Peter  42   M  High     504
## 4  Chris  14   M   Med     168
## 5 Stewie   1   M  High      12
## 6  Brian   7   M   Med      84
mydata0[mydata0$sex=="M",-3]
##   person age funny age.mon
## 1  Peter  42  High     504
## 4  Chris  14   Med     168
## 5 Stewie   1  High      12
## 6  Brian   7   Med      84
mydata0[mydata0$age>10|mydata0$funny=="High",]
##   person age sex funny age.mon
## 1  Peter  42   M  High     504
## 2   Lois  40   F  High     480
## 3    Meg  17   F   Low     204
## 4  Chris  14   M   Med     168
## 5 Stewie   1   M  High      12
mydata0[mydata0$age>45,]
## [1] person  age     sex     funny   age.mon
## <0 rows> (or 0-length row.names)
mydata2 <- mydata0[,-5]
mydata2
##   person age sex funny
## 1  Peter  42   M  High
## 2   Lois  40   F  High
## 3    Meg  17   F   Low
## 4  Chris  14   M   Med
## 5 Stewie   1   M  High
## 6  Brian   7   M   Med
#e
mydataframe <- rbind(dframe,mydata2) 
mydataframe
##      person  age sex funny
## 1      Stan   41   M  High
## 2  Francine   41   F   Med
## 3     Steve   15   M   Low
## 4     Roger 1600   M  High
## 5    Haylay   21   F   Med
## 6     Klaus   60   M   Med
## 7     Peter   42   M  High
## 8      Lois   40   F  High
## 9       Meg   17   F   Low
## 10    Chris   14   M   Med
## 11   Stewie    1   M  High
## 12    Brian    7   M   Med
#f
mydataframe[mydataframe$sex=="F"&(mydataframe$funny=="Med"|mydataframe$funny=="High"),c(1,2)]
##     person age
## 2 Francine  41
## 5   Haylay  21
## 8     Lois  40
#g
mydataframe[substr(mydataframe$person,start=1,stop=1)=="S",]
##    person age sex funny
## 1    Stan  41   M  High
## 3   Steve  15   M   Low
## 11 Stewie   1   M  High

Chapter 6

# Exercise 6.1
#a
foo <- c(13563,-14156,-14319,16981,12921,11979,9568,8833,-12968,
         8133)
foo
##  [1]  13563 -14156 -14319  16981  12921  11979   9568   8833 -12968   8133
#i  Output all elements of foo that, when raised to a power of 75,
#are NOT infinite.
foo[is.finite(foo^75)]
## [1] 11979  9568  8833  8133
#ii  Return the elements of foo, excluding those that result in
#negative infinity when raised to a power of 75.
foo[foo^75!=-Inf]
## [1] 13563 16981 12921 11979  9568  8833  8133
#b
bar <- matrix(data=c(77875.40,-35466.25,-39803.81,27551.45,
                     -73333.85,55976.34,23764.30,36599.69,
                     76694.82,-36478.88,-70585.69,47032.00),nrow=3,ncol=4)
bar
##           [,1]      [,2]     [,3]      [,4]
## [1,]  77875.40  27551.45 23764.30 -36478.88
## [2,] -35466.25 -73333.85 36599.69 -70585.69
## [3,] -39803.81  55976.34 76694.82  47032.00
#i
con_spec <- bar^65/Inf
con_spec
##      [,1] [,2] [,3] [,4]
## [1,]  NaN    0    0    0
## [2,]    0  NaN    0  NaN
## [3,]    0  NaN  NaN    0
bar[is.nan(con_spec)]
## [1]  77875.40 -73333.85  55976.34  76694.82 -70585.69
#ii
val <- bar^67+Inf
val
##      [,1] [,2] [,3] [,4]
## [1,]  Inf  Inf  Inf  Inf
## [2,]  Inf  NaN  Inf  NaN
## [3,]  Inf  Inf  Inf  Inf
bar[!is.nan(bar^67+Inf)]
##  [1]  77875.40 -35466.25 -39803.81  27551.45  55976.34  23764.30  36599.69
##  [8]  76694.82 -36478.88  47032.00
bar[bar^67!=-Inf]
##  [1]  77875.40 -35466.25 -39803.81  27551.45  55976.34  23764.30  36599.69
##  [8]  76694.82 -36478.88  47032.00
identical(
  bar[!is.nan(bar^67+Inf)],
    bar[bar^67!=-Inf])
## [1] TRUE
#iii
idf_val <- bar^67
idf_val
##                [,1]          [,2]          [,3]          [,4]
## [1,]            Inf 3.088011e+297 1.538072e+293 -4.53712e+305
## [2,] -6.880550e+304          -Inf 5.662214e+305          -Inf
## [3,] -1.566575e+308           Inf           Inf           Inf
bar[is.finite(idf_val)|idf_val==-Inf]
## [1] -35466.25 -39803.81  27551.45 -73333.85  23764.30  36599.69 -36478.88
## [8] -70585.69
# Exercise 6.2
foo <- c(4.3,2.2,NULL,2.4,NaN,3.3,3.1,NULL,3.4,NA)
foo
## [1] 4.3 2.2 2.4 NaN 3.3 3.1 3.4  NA
#i
length(foo)
## [1] 8
length(foo)==length(foo)
## [1] TRUE
#ii
which(x=is.na(x=foo))
## [1] 4 8
#iii
which(x=is.null(x=foo))
## integer(0)
#iv
is.na(x=foo[8])+4/NULL
## numeric(0)
is.na(x=foo[8])+4/NA
## [1] NA
#b
Lists <- list(c(7,7,NA,3,NA,1,1,5,NA))
Lists
## [[1]]
## [1]  7  7 NA  3 NA  1  1  5 NA
#i
lists <- list(alpha=c(7,7,NA,3,NA,1,1,5,NA))
lists
## $alpha
## [1]  7  7 NA  3 NA  1  1  5 NA
#ii
"beta" %in% names(list)
## [1] FALSE
#iii
lists$beta <- which(x=is.na(x=lists$alpha))
lists
## $alpha
## [1]  7  7 NA  3 NA  1  1  5 NA
## 
## $beta
## [1] 3 5 9
# Exercise 6.3
foo <- array(data=1:36,dim=c(3,3,4))
foo                         
## , , 1
## 
##      [,1] [,2] [,3]
## [1,]    1    4    7
## [2,]    2    5    8
## [3,]    3    6    9
## 
## , , 2
## 
##      [,1] [,2] [,3]
## [1,]   10   13   16
## [2,]   11   14   17
## [3,]   12   15   18
## 
## , , 3
## 
##      [,1] [,2] [,3]
## [1,]   19   22   25
## [2,]   20   23   26
## [3,]   21   24   27
## 
## , , 4
## 
##      [,1] [,2] [,3]
## [1,]   28   31   34
## [2,]   29   32   35
## [3,]   30   33   36
class(foo)                  #Explicitly
## [1] "array"
bar <- as.vector(foo)
bar                        
##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
## [26] 26 27 28 29 30 31 32 33 34 35 36
class(bar)                  #Explicitly
## [1] "integer"
baz <- as.character(bar)
baz
##  [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10" "11" "12" "13" "14" "15"
## [16] "16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30"
## [31] "31" "32" "33" "34" "35" "36"
class(baz)                  #Explicitly
## [1] "character"
qux <- as.factor(baz)
qux                         
##  [1] 1  2  3  4  5  6  7  8  9  10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
## [26] 26 27 28 29 30 31 32 33 34 35 36
## 36 Levels: 1 10 11 12 13 14 15 16 17 18 19 2 20 21 22 23 24 25 26 27 28 ... 9
class(qux)                  #Explicitly
## [1] "factor"
quux <- bar+c(-0.1,0.1)
quux
##  [1]  0.9  2.1  2.9  4.1  4.9  6.1  6.9  8.1  8.9 10.1 10.9 12.1 12.9 14.1 14.9
## [16] 16.1 16.9 18.1 18.9 20.1 20.9 22.1 22.9 24.1 24.9 26.1 26.9 28.1 28.9 30.1
## [31] 30.9 32.1 32.9 34.1 34.9 36.1
class(quux)                 #Implicitly
## [1] "numeric"
#b
is.numeric(foo)+is.integer(foo)
## [1] 2
the_sum <- c(
  is.numeric(foo)  + is.integer(foo),
  is.numeric(bar)  + is.integer(bar),
  is.numeric(baz)  + is.integer(baz),
  is.numeric(qux)  + is.integer(qux),
  is.numeric(quux) + is.integer(quux)
)
the_sum
## [1] 2 2 0 0 1
the_factor <- factor(the_sum)
the_factor
## [1] 2 2 0 0 1
## Levels: 0 1 2
to_numeric <- as.numeric(the_factor)
to_numeric
## [1] 3 3 1 1 2
#c
my_mat <- matrix(data=2:13,nrow=3,ncol=4,byrow=FALSE)
my_mat
##      [,1] [,2] [,3] [,4]
## [1,]    2    5    8   11
## [2,]    3    6    9   12
## [3,]    4    7   10   13
as_char <- as.character(my_mat)
as_char
##  [1] "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10" "11" "12" "13"
#d
the_mat <- matrix(data=c(34,0,1,23,1,2,33,1,1,42,0,1,41,0,2),nrow=5,ncol=3,byrow=T)
the_mat
##      [,1] [,2] [,3]
## [1,]   34    0    1
## [2,]   23    1    2
## [3,]   33    1    1
## [4,]   42    0    1
## [5,]   41    0    2
#i
the_dataf <- data.frame(the_mat)
the_dataf
##   X1 X2 X3
## 1 34  0  1
## 2 23  1  2
## 3 33  1  1
## 4 42  0  1
## 5 41  0  2
#ii
the_dataf$X2 <- as.logical(the_dataf$X2)
the_dataf$X2
## [1] FALSE  TRUE  TRUE FALSE FALSE
the_dataf$X3 <- as.factor(the_dataf$X3)
the_dataf$X3
## [1] 1 2 1 1 2
## Levels: 1 2

Chapter 7

# chapter 7


#Title and Axis Labels
plot(foo,bar,type="b",main="My lovely plot",xlab="x axis label",
     ylab="location y")

plot(foo,bar,type="b",main="My lovely plot\ntitle on two lines",xlab="",
     ylab="")

#Color
plot(foo,bar,type="b",main="My lovely plot",xlab="",ylab="",col=2)

plot(foo,bar,type="b",main="My lovely plot",xlab="",ylab="",col="seagreen4")

plot(foo,bar,type="b",main="My lovely plot",xlab="",ylab="",col="green")

plot(foo,bar,type="b",main="My lovely plot",xlab="",ylab="",col="purple")

#Line and Point Appearances
plot(foo,bar,type="b",main="My lovely plot",xlab="",ylab="",
     col=4,pch=8,lty=2,cex=2.3,lwd=3.3)

plot(foo,bar,type="b",main="My lovely plot",xlab="",ylab="",
     col=6,pch=15,lty=3,cex=0.7,lwd=2)

#Plotting Region Limits
plot(foo,bar,type="b",main="My lovely plot",xlab="",ylab="",
     col=4,pch=8,lty=2,cex=2.3,lwd=3.3,xlim=c(-10,5),ylim=c(-3,3))

plot(foo,bar,type="b",main="My lovely plot",xlab="",ylab="",
     col=6,pch=15,lty=3,cex=0.7,lwd=2,xlim=c(3,5),ylim=c(-0.5,0.2))

#Adding Points, Lines, and Text to an Existing Plot

# points Adds points
#lines, abline, segments Adds lines
#text Writes text
#arrows Adds arrows
#legend Adds a legend

x <- 1:20
x
##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20
y <- c(-1.49,3.37,2.59,-2.78,-3.94,-0.92,6.43,8.51,3.41,-8.23,-12.01,-6.58,2.87,14.12,9.63,-4.58,-14.78,-11.67,1.17,15.62)
y
##  [1]  -1.49   3.37   2.59  -2.78  -3.94  -0.92   6.43   8.51   3.41  -8.23
## [11] -12.01  -6.58   2.87  14.12   9.63  -4.58 -14.78 -11.67   1.17  15.62
plot(x,y,type="n",main="")
abline(h=c(-5,5),col="red",lty=2,lwd=2)
segments(x0=c(5,15),y0=c(-5,-5),x1=c(5,15),y1=c(5,5),col="red",lty=3,
         lwd=2)
points(x[y>=5],y[y>=5],pch=4,col="darkmagenta",cex=2)
points(x[y<=-5],y[y<=-5],pch=3,col="darkgreen",cex=2)
points(x[(x>=5&x<=15)&(y>-5&y<5)],y[(x>=5&x<=15)&(y>-5&y<5)],pch=19,
       col="blue")
points(x[(x<5|x>15)&(y>-5&y<5)],y[(x<5|x>15)&(y>-5&y<5)])
lines(x,y,lty=4)
arrows(x0=8,y0=14,x1=11,y1=2.5)
text(x=8,y=15,labels="sweet spot")
legend("bottomleft",
       legend=c("overall process","sweet","standard",
                "too big","too small","sweet y range","sweet x range"),
       pch=c(NA,19,1,4,3,NA,NA),lty=c(4,NA,NA,NA,NA,2,3),
       col=c("black","blue","black","darkmagenta","darkgreen","red","red"),
       lwd=c(1,NA,NA,NA,NA,2,2),pt.cex=c(NA,1,1,2,2,NA,NA))

#Exercise 7.1
#1
x <- -3:3
y <- 7:13
plot(x,y,type="n",main="")
abline(h=c(7,13),col=8,lty=2,lwd=2)
abline(v=c(-3,3),col=8,lty=2,lwd=2)
arrows(x0=-2.5,y0=7.5,x1=-1,y1=9.5,col=8,lwd=1,length=0.15,angle=30)
arrows(x0=-2.5,y0=10,x1=-1,y1=10,col=8,lwd=1,length=0.15,angle=30)
arrows(x0=-2.5,y0=12.5,x1=-1,y1=10.5,col=8,lwd=1,length=0.15,angle=30)
arrows(x0=2.5,y0=7.5,x1=1,y1=9.5,col=8,lwd=1,length=0.15,angle=30)
arrows(x0=2.5,y0=10,x1=1,y1=10,col=8,lwd=1,length=0.15,angle=30)
arrows(x0=2.5,y0=12.5,x1=1,y1=10.5,col=8,lwd=1,length=0.15,angle=30)
text(x=0,y=10,labels="SOMETHING\nPROFOUND",cex=1)

#2
weight <- c(55,85,75,42,93,63,58,75,89,67)
weight
##  [1] 55 85 75 42 93 63 58 75 89 67
height <- c(161,185,174,154,188,178,170,167,181,178)
height
##  [1] 161 185 174 154 188 178 170 167 181 178
sex <- c("Female","Male","Male","Female","Male","Male","Female","Male","Male","Female")
sex
##  [1] "Female" "Male"   "Male"   "Female" "Male"   "Male"   "Female" "Male"  
##  [9] "Male"   "Female"
data <- data.frame(Weight=weight,Height=height,sex=sex)
data
##    Weight Height    sex
## 1      55    161 Female
## 2      85    185   Male
## 3      75    174   Male
## 4      42    154 Female
## 5      93    188   Male
## 6      63    178   Male
## 7      58    170 Female
## 8      75    167   Male
## 9      89    181   Male
## 10     67    178 Female
Male <- sex=="Male"
Female <- sex=="Female"
plot(weight[Male],height[Male],pch=16,col="blue",
     xlab = "Weight(kg)", ylab = "Height(cm)",
     main = "ISAAC PLOT", xlim = c(40, 100), ylim = c(150, 190))
points(weight[Female], height[Female], pch = 17, col = "red")
legend("bottomright", legend = c("Male", "Female"),
       col = c("blue", "red"), pch = c(16, 17))

#The ggplot2 Package
#A Quick Plot with qplot
library("ggplot2")
## Warning: package 'ggplot2' was built under R version 4.5.1
foo <- c(1.1,2,3.5,3.9,4.2)
bar <- c(2,2.2,-1.3,0,0.2)
qplot(foo,bar)
## Warning: `qplot()` was deprecated in ggplot2 3.4.0.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

qplot(foo,bar,main="My lovely qplot",xlab="x axis label",ylab="location y")

baz <- plot(foo,bar)

baz
## NULL
qux <- qplot(foo,bar)
qux

# 7.4.2 Setting Appearance Constants with Geoms
qplot(foo,bar,geom="blank") + geom_point() + geom_line()

qplot(foo,bar,geom="blank") + geom_point(size=3,shape=6,color="blue") +
  geom_line(color="red",linetype=2)

myqplot <- qplot(foo,bar,geom="blank") + geom_line(color="red",linetype=2)
myqplot + geom_point(size=3,shape=3,color="blue")

myqplot + geom_point(size=3,shape=7,color="blue")

# 7.4.3 Aesthetic Mapping with Geoms
x <- 1:20
y <- c(-1.49,3.37,2.59,-2.78,-3.94,-0.92,6.43,8.51,3.41,-8.23,
       -12.01,-6.58,2.87,14.12,9.63,-4.58,-14.78,-11.67,1.17,15.62)
ptype <- rep(NA,length(x=x))
ptype[y>=5] <- "too_big"
ptype[y<=-5] <- "too_small"
ptype[(x>=5&x<=15)&(y>-5&y<5)] <- "sweet"
ptype[(x<5|x>15)&(y>-5&y<5)] <- "standard"
ptype <- factor(x=ptype)
ptype
##  [1] standard  standard  standard  standard  sweet     sweet     too_big  
##  [8] too_big   sweet     too_small too_small too_small sweet     too_big  
## [15] too_big   standard  too_small too_small standard  too_big  
## Levels: standard sweet too_big too_small
qplot(x,y,color=ptype,shape=ptype)

qplot(x,y,color=ptype,shape=ptype) + geom_point(size=4) +
  geom_line(mapping=aes(group=1),color="black",lty=2) +
  geom_hline(mapping=aes(yintercept=c(-5,5)),color="red") +
  geom_segment(mapping=aes(x=5,y=-5,xend=5,yend=5),color="red",lty=3) +
  geom_segment(mapping=aes(x=15,y=-5,xend=15,yend=5),color="red",lty=3)

#Exercise7.2

data <- data.frame(
  Weight = weight,
  Height = height,
  Sex = factor(sex))
data
##    Weight Height    Sex
## 1      55    161 Female
## 2      85    185   Male
## 3      75    174   Male
## 4      42    154 Female
## 5      93    188   Male
## 6      63    178   Male
## 7      58    170 Female
## 8      75    167   Male
## 9      89    181   Male
## 10     67    178 Female
ggplot(data, aes(x = Weight, y = Height, color = Sex, shape = Sex)) +
  geom_point(size = 3) +
  labs(title = "ISAAC PLOT",
       x = "Weight (kg)", y = "Height (cm)") +
  scale_color_manual(values = c("Female" = "red", "Male" = "blue")) +
  theme_minimal()

Chapter 8

# Chapter 8
#Exercise 8.1
quakes
##         lat   long depth mag stations
## 1    -20.42 181.62   562 4.8       41
## 2    -20.62 181.03   650 4.2       15
## 3    -26.00 184.10    42 5.4       43
## 4    -17.97 181.66   626 4.1       19
## 5    -20.42 181.96   649 4.0       11
## 6    -19.68 184.31   195 4.0       12
## 7    -11.70 166.10    82 4.8       43
## 8    -28.11 181.93   194 4.4       15
## 9    -28.74 181.74   211 4.7       35
## 10   -17.47 179.59   622 4.3       19
## 11   -21.44 180.69   583 4.4       13
## 12   -12.26 167.00   249 4.6       16
## 13   -18.54 182.11   554 4.4       19
## 14   -21.00 181.66   600 4.4       10
## 15   -20.70 169.92   139 6.1       94
## 16   -15.94 184.95   306 4.3       11
## 17   -13.64 165.96    50 6.0       83
## 18   -17.83 181.50   590 4.5       21
## 19   -23.50 179.78   570 4.4       13
## 20   -22.63 180.31   598 4.4       18
## 21   -20.84 181.16   576 4.5       17
## 22   -10.98 166.32   211 4.2       12
## 23   -23.30 180.16   512 4.4       18
## 24   -30.20 182.00   125 4.7       22
## 25   -19.66 180.28   431 5.4       57
## 26   -17.94 181.49   537 4.0       15
## 27   -14.72 167.51   155 4.6       18
## 28   -16.46 180.79   498 5.2       79
## 29   -20.97 181.47   582 4.5       25
## 30   -19.84 182.37   328 4.4       17
## 31   -22.58 179.24   553 4.6       21
## 32   -16.32 166.74    50 4.7       30
## 33   -15.55 185.05   292 4.8       42
## 34   -23.55 180.80   349 4.0       10
## 35   -16.30 186.00    48 4.5       10
## 36   -25.82 179.33   600 4.3       13
## 37   -18.73 169.23   206 4.5       17
## 38   -17.64 181.28   574 4.6       17
## 39   -17.66 181.40   585 4.1       17
## 40   -18.82 169.33   230 4.4       11
## 41   -37.37 176.78   263 4.7       34
## 42   -15.31 186.10    96 4.6       32
## 43   -24.97 179.82   511 4.4       23
## 44   -15.49 186.04    94 4.3       26
## 45   -19.23 169.41   246 4.6       27
## 46   -30.10 182.30    56 4.9       34
## 47   -26.40 181.70   329 4.5       24
## 48   -11.77 166.32    70 4.4       18
## 49   -24.12 180.08   493 4.3       21
## 50   -18.97 185.25   129 5.1       73
## 51   -18.75 182.35   554 4.2       13
## 52   -19.26 184.42   223 4.0       15
## 53   -22.75 173.20    46 4.6       26
## 54   -21.37 180.67   593 4.3       13
## 55   -20.10 182.16   489 4.2       16
## 56   -19.85 182.13   562 4.4       31
## 57   -22.70 181.00   445 4.5       17
## 58   -22.06 180.60   584 4.0       11
## 59   -17.80 181.35   535 4.4       23
## 60   -24.20 179.20   530 4.3       12
## 61   -20.69 181.55   582 4.7       35
## 62   -21.16 182.40   260 4.1       12
## 63   -13.82 172.38   613 5.0       61
## 64   -11.49 166.22    84 4.6       32
## 65   -20.68 181.41   593 4.9       40
## 66   -17.10 184.93   286 4.7       25
## 67   -20.14 181.60   587 4.1       13
## 68   -21.96 179.62   627 5.0       45
## 69   -20.42 181.86   530 4.5       27
## 70   -15.46 187.81    40 5.5       91
## 71   -15.31 185.80   152 4.0       11
## 72   -19.86 184.35   201 4.5       30
## 73   -11.55 166.20    96 4.3       14
## 74   -23.74 179.99   506 5.2       75
## 75   -17.70 181.23   546 4.4       35
## 76   -23.54 180.04   564 4.3       15
## 77   -19.21 184.70   197 4.1       11
## 78   -12.11 167.06   265 4.5       23
## 79   -21.81 181.71   323 4.2       15
## 80   -28.98 181.11   304 5.3       60
## 81   -34.02 180.21    75 5.2       65
## 82   -23.84 180.99   367 4.5       27
## 83   -19.57 182.38   579 4.6       38
## 84   -20.12 183.40   284 4.3       15
## 85   -17.70 181.70   450 4.0       11
## 86   -19.66 184.31   170 4.3       15
## 87   -21.50 170.50   117 4.7       32
## 88   -23.64 179.96   538 4.5       26
## 89   -15.43 186.30   123 4.2       16
## 90   -15.41 186.44    69 4.3       42
## 91   -15.48 167.53   128 5.1       61
## 92   -13.36 167.06   236 4.7       22
## 93   -20.64 182.02   497 5.2       64
## 94   -19.72 169.71   271 4.2       14
## 95   -15.44 185.26   224 4.2       21
## 96   -19.73 182.40   375 4.0       18
## 97   -27.24 181.11   365 4.5       21
## 98   -18.16 183.41   306 5.2       54
## 99   -13.66 166.54    50 5.1       45
## 100  -24.57 179.92   484 4.7       33
## 101  -16.98 185.61   108 4.1       12
## 102  -26.20 178.41   583 4.6       25
## 103  -21.88 180.39   608 4.7       30
## 104  -33.00 181.60    72 4.7       22
## 105  -21.33 180.69   636 4.6       29
## 106  -19.44 183.50   293 4.2       15
## 107  -34.89 180.60    42 4.4       25
## 108  -20.24 169.49   100 4.6       22
## 109  -22.55 185.90    42 5.7       76
## 110  -36.95 177.81   146 5.0       35
## 111  -15.75 185.23   280 4.5       28
## 112  -16.85 182.31   388 4.2       14
## 113  -19.06 182.45   477 4.0       16
## 114  -26.11 178.30   617 4.8       39
## 115  -26.20 178.35   606 4.4       21
## 116  -26.13 178.31   609 4.2       25
## 117  -13.66 172.23    46 5.3       67
## 118  -13.47 172.29    64 4.7       14
## 119  -14.60 167.40   178 4.8       52
## 120  -18.96 169.48   248 4.2       13
## 121  -14.65 166.97    82 4.8       28
## 122  -19.90 178.90    81 4.3       11
## 123  -22.05 180.40   606 4.7       27
## 124  -19.22 182.43   571 4.5       23
## 125  -31.24 180.60   328 4.4       18
## 126  -17.93 167.89    49 5.1       43
## 127  -19.30 183.84   517 4.2       21
## 128  -26.53 178.57   600 5.0       69
## 129  -27.72 181.70    94 4.8       59
## 130  -19.19 183.51   307 4.3       19
## 131  -17.43 185.43   189 4.5       22
## 132  -17.05 181.22   527 4.2       24
## 133  -19.52 168.98    63 4.5       21
## 134  -23.71 180.30   510 4.6       30
## 135  -21.30 180.82   624 4.3       14
## 136  -16.24 168.02    53 4.7       12
## 137  -16.14 187.32    42 5.1       68
## 138  -23.95 182.80   199 4.6       14
## 139  -25.20 182.60   149 4.9       31
## 140  -18.84 184.16   210 4.2       17
## 141  -12.66 169.46   658 4.6       43
## 142  -20.65 181.40   582 4.0       14
## 143  -13.23 167.10   220 5.0       46
## 144  -29.91 181.43   205 4.4       34
## 145  -14.31 173.50   614 4.2       23
## 146  -20.10 184.40   186 4.2       10
## 147  -17.80 185.17    97 4.4       22
## 148  -21.27 173.49    48 4.9       42
## 149  -23.58 180.17   462 5.3       63
## 150  -17.90 181.50   573 4.0       19
## 151  -23.34 184.50    56 5.7      106
## 152  -15.56 167.62   127 6.4      122
## 153  -23.83 182.56   229 4.3       24
## 154  -11.80 165.80   112 4.2       20
## 155  -15.54 167.68   140 4.7       16
## 156  -20.65 181.32   597 4.7       39
## 157  -11.75 166.07    69 4.2       14
## 158  -24.81 180.00   452 4.3       19
## 159  -20.90 169.84    93 4.9       31
## 160  -11.34 166.24   103 4.6       30
## 161  -17.98 180.50   626 4.1       19
## 162  -24.34 179.52   504 4.8       34
## 163  -13.86 167.16   202 4.6       30
## 164  -35.56 180.20    42 4.6       32
## 165  -35.48 179.90    59 4.8       35
## 166  -34.20 179.43    40 5.0       37
## 167  -26.00 182.12   205 5.6       98
## 168  -19.89 183.84   244 5.3       73
## 169  -23.43 180.00   553 4.7       41
## 170  -18.89 169.42   239 4.5       27
## 171  -17.82 181.83   640 4.3       24
## 172  -25.68 180.34   434 4.6       41
## 173  -20.20 180.90   627 4.1       11
## 174  -15.20 184.68    99 4.1       14
## 175  -15.03 182.29   399 4.1       10
## 176  -32.22 180.20   216 5.7       90
## 177  -22.64 180.64   544 5.0       50
## 178  -17.42 185.16   206 4.5       22
## 179  -17.84 181.48   542 4.1       20
## 180  -15.02 184.24   339 4.6       27
## 181  -18.04 181.75   640 4.5       47
## 182  -24.60 183.50    67 4.3       25
## 183  -19.88 184.30   161 4.4       17
## 184  -20.30 183.00   375 4.2       15
## 185  -20.45 181.85   534 4.1       14
## 186  -17.67 187.09    45 4.9       62
## 187  -22.30 181.90   309 4.3       11
## 188  -19.85 181.85   576 4.9       54
## 189  -24.27 179.88   523 4.6       24
## 190  -15.85 185.13   290 4.6       29
## 191  -20.02 184.09   234 5.3       71
## 192  -18.56 169.31   223 4.7       35
## 193  -17.87 182.00   569 4.6       12
## 194  -24.08 179.50   605 4.1       21
## 195  -32.20 179.61   422 4.6       41
## 196  -20.36 181.19   637 4.2       23
## 197  -23.85 182.53   204 4.6       27
## 198  -24.00 182.75   175 4.5       14
## 199  -20.41 181.74   538 4.3       31
## 200  -17.72 180.30   595 5.2       74
## 201  -19.67 182.18   360 4.3       23
## 202  -17.70 182.20   445 4.0       12
## 203  -16.23 183.59   367 4.7       35
## 204  -26.72 183.35   190 4.5       36
## 205  -12.95 169.09   629 4.5       19
## 206  -21.97 182.32   261 4.3       13
## 207  -21.96 180.54   603 5.2       66
## 208  -20.32 181.69   508 4.5       14
## 209  -30.28 180.62   350 4.7       32
## 210  -20.20 182.30   533 4.2       11
## 211  -30.66 180.13   411 4.7       42
## 212  -16.17 184.10   338 4.3       13
## 213  -28.25 181.71   226 4.1       19
## 214  -20.47 185.68    93 5.4       85
## 215  -23.55 180.27   535 4.3       22
## 216  -20.94 181.58   573 4.3       21
## 217  -26.67 182.40   186 4.2       17
## 218  -18.13 181.52   618 4.6       41
## 219  -20.21 183.83   242 4.4       29
## 220  -18.31 182.39   342 4.2       14
## 221  -16.52 185.70    90 4.7       30
## 222  -22.36 171.65   130 4.6       39
## 223  -22.43 184.48    65 4.9       48
## 224  -20.37 182.10   397 4.2       22
## 225  -23.77 180.16   505 4.5       26
## 226  -13.65 166.66    71 4.9       52
## 227  -21.55 182.90   207 4.2       18
## 228  -16.24 185.75   154 4.5       22
## 229  -23.73 182.53   232 5.0       55
## 230  -22.34 171.52   106 5.0       43
## 231  -19.40 180.94   664 4.7       34
## 232  -24.64 180.81   397 4.3       24
## 233  -16.00 182.82   431 4.4       16
## 234  -19.62 185.35    57 4.9       31
## 235  -23.84 180.13   525 4.5       15
## 236  -23.54 179.93   574 4.0       12
## 237  -28.23 182.68    74 4.4       20
## 238  -21.68 180.63   617 5.0       63
## 239  -13.44 166.53    44 4.7       27
## 240  -24.96 180.22   470 4.8       41
## 241  -20.08 182.74   298 4.5       33
## 242  -24.36 182.84   148 4.1       16
## 243  -14.70 166.00    48 5.3       16
## 244  -18.20 183.68   107 4.8       52
## 245  -16.65 185.51   218 5.0       52
## 246  -18.11 181.67   597 4.6       28
## 247  -17.95 181.65   619 4.3       26
## 248  -15.50 186.90    46 4.7       18
## 249  -23.36 180.01   553 5.3       61
## 250  -19.15 169.50   150 4.2       12
## 251  -10.97 166.26   180 4.7       26
## 252  -14.85 167.24    97 4.5       26
## 253  -17.80 181.38   587 5.1       47
## 254  -22.50 170.40   106 4.9       38
## 255  -29.10 182.10   179 4.4       19
## 256  -20.32 180.88   680 4.2       22
## 257  -16.09 184.89   304 4.6       34
## 258  -19.18 169.33   254 4.7       35
## 259  -23.81 179.36   521 4.2       23
## 260  -23.79 179.89   526 4.9       43
## 261  -19.02 184.23   270 5.1       72
## 262  -20.90 181.51   548 4.7       32
## 263  -19.06 169.01   158 4.4       10
## 264  -17.88 181.47   562 4.4       27
## 265  -19.41 183.05   300 4.2       16
## 266  -26.17 184.20    65 4.9       37
## 267  -14.95 167.24   130 4.6       16
## 268  -18.73 168.80    82 4.4       14
## 269  -20.21 182.37   482 4.6       37
## 270  -21.29 180.85   607 4.5       23
## 271  -19.76 181.41   105 4.4       15
## 272  -22.09 180.38   590 4.9       35
## 273  -23.80 179.90   498 4.1       12
## 274  -20.16 181.99   504 4.2       11
## 275  -22.13 180.38   577 5.7      104
## 276  -17.44 181.40   529 4.6       25
## 277  -23.33 180.18   528 5.0       59
## 278  -24.78 179.22   492 4.3       16
## 279  -22.00 180.52   561 4.5       19
## 280  -19.13 182.51   579 5.2       56
## 281  -30.72 180.10   413 4.4       22
## 282  -22.32 180.54   565 4.2       12
## 283  -16.45 177.77   138 4.6       17
## 284  -17.70 185.00   383 4.0       10
## 285  -17.95 184.68   260 4.4       21
## 286  -24.40 179.85   522 4.7       29
## 287  -19.30 180.60   671 4.2       16
## 288  -21.13 185.32   123 4.7       36
## 289  -18.07 181.57   572 4.5       26
## 290  -20.60 182.28   529 5.0       50
## 291  -18.48 181.49   641 5.0       49
## 292  -13.34 166.20    67 4.8       18
## 293  -20.92 181.50   546 4.6       31
## 294  -25.31 179.69   507 4.6       35
## 295  -15.24 186.21   158 5.0       57
## 296  -16.40 185.86   148 5.0       47
## 297  -24.57 178.40   562 5.6       80
## 298  -17.94 181.51   601 4.0       16
## 299  -30.64 181.20   175 4.0       16
## 300  -18.64 169.32   260 4.6       23
## 301  -13.09 169.28   654 4.4       22
## 302  -19.68 184.14   242 4.8       40
## 303  -16.44 185.74   126 4.7       30
## 304  -21.09 181.38   555 4.6       15
## 305  -14.99 171.39   637 4.3       21
## 306  -23.30 179.70   500 4.7       29
## 307  -17.68 181.36   515 4.1       19
## 308  -22.00 180.53   583 4.9       20
## 309  -21.38 181.39   501 4.6       36
## 310  -32.62 181.50    55 4.8       26
## 311  -13.05 169.58   644 4.9       68
## 312  -12.93 169.63   641 5.1       57
## 313  -18.60 181.91   442 5.4       82
## 314  -21.34 181.41   464 4.5       21
## 315  -21.48 183.78   200 4.9       54
## 316  -17.40 181.02   479 4.4       14
## 317  -17.32 181.03   497 4.1       13
## 318  -18.77 169.24   218 5.3       53
## 319  -26.16 179.50   492 4.5       25
## 320  -12.59 167.10   325 4.9       26
## 321  -14.82 167.32   123 4.8       28
## 322  -21.79 183.48   210 5.2       69
## 323  -19.83 182.04   575 4.4       23
## 324  -29.50 182.31   129 4.4       14
## 325  -12.49 166.36    74 4.9       55
## 326  -26.10 182.30    49 4.4       11
## 327  -21.04 181.20   483 4.2       10
## 328  -10.78 165.77    93 4.6       20
## 329  -20.76 185.77   118 4.6       15
## 330  -11.41 166.24    83 5.3       55
## 331  -19.10 183.87    61 5.3       42
## 332  -23.91 180.00   534 4.5       11
## 333  -27.33 182.60    42 4.4       11
## 334  -12.25 166.60   219 5.0       28
## 335  -23.49 179.07   544 5.1       58
## 336  -27.18 182.18    56 4.5       14
## 337  -25.80 182.10    68 4.5       26
## 338  -27.19 182.18    69 5.4       68
## 339  -27.27 182.38    45 4.5       16
## 340  -27.10 182.18    43 4.7       17
## 341  -27.22 182.28    65 4.2       14
## 342  -27.38 181.70    80 4.8       13
## 343  -27.27 182.50    51 4.5       13
## 344  -27.54 182.50    68 4.3       12
## 345  -27.20 182.39    69 4.3       14
## 346  -27.71 182.47   103 4.3       11
## 347  -27.60 182.40    61 4.6       11
## 348  -27.38 182.39    69 4.5       12
## 349  -21.54 185.48    51 5.0       29
## 350  -27.21 182.43    55 4.6       10
## 351  -28.96 182.61    54 4.6       15
## 352  -12.01 166.29    59 4.9       27
## 353  -17.46 181.32   573 4.1       17
## 354  -30.17 182.02    56 5.5       68
## 355  -27.27 182.36    65 4.7       21
## 356  -17.79 181.32   587 5.0       49
## 357  -22.19 171.40   150 5.1       49
## 358  -17.10 182.68   403 5.5       82
## 359  -27.18 182.53    60 4.6       21
## 360  -11.64 166.47   130 4.7       19
## 361  -17.98 181.58   590 4.2       14
## 362  -16.90 185.72   135 4.0       22
## 363  -21.98 179.60   583 5.4       67
## 364  -32.14 179.90   406 4.3       19
## 365  -18.80 169.21   221 4.4       16
## 366  -26.78 183.61    40 4.6       22
## 367  -20.43 182.37   502 5.1       48
## 368  -18.30 183.20   103 4.5       14
## 369  -15.83 182.51   423 4.2       21
## 370  -23.44 182.93   158 4.1       20
## 371  -23.73 179.99   527 5.1       49
## 372  -19.89 184.08   219 5.4      105
## 373  -17.59 181.09   536 5.1       61
## 374  -19.77 181.40   630 5.1       54
## 375  -20.31 184.06   249 4.4       21
## 376  -15.33 186.75    48 5.7      123
## 377  -18.20 181.60   553 4.4       14
## 378  -15.36 186.66   112 5.1       57
## 379  -15.29 186.42   153 4.6       31
## 380  -15.36 186.71   130 5.5       95
## 381  -16.24 167.95   188 5.1       68
## 382  -13.47 167.14   226 4.4       26
## 383  -25.50 182.82   124 5.0       25
## 384  -14.32 167.33   204 5.0       49
## 385  -20.04 182.01   605 5.1       49
## 386  -28.83 181.66   221 5.1       63
## 387  -17.82 181.49   573 4.2       14
## 388  -27.23 180.98   401 4.5       39
## 389  -10.72 165.99   195 4.0       14
## 390  -27.00 183.88    56 4.9       36
## 391  -20.36 186.16   102 4.3       21
## 392  -27.17 183.68    44 4.8       27
## 393  -20.94 181.26   556 4.4       21
## 394  -17.46 181.90   417 4.2       14
## 395  -21.04 181.20   591 4.9       45
## 396  -23.70 179.60   646 4.2       21
## 397  -17.72 181.42   565 5.3       89
## 398  -15.87 188.13    52 5.0       30
## 399  -17.84 181.30   535 5.7      112
## 400  -13.45 170.30   641 5.3       93
## 401  -30.80 182.16    41 4.7       24
## 402  -11.63 166.14   109 4.6       36
## 403  -30.40 181.40    40 4.3       17
## 404  -26.18 178.59   548 5.4       65
## 405  -15.70 184.50   118 4.4       30
## 406  -17.95 181.50   593 4.3       16
## 407  -20.51 182.30   492 4.3       23
## 408  -15.36 167.51   123 4.7       28
## 409  -23.61 180.23   475 4.4       26
## 410  -33.20 181.60   153 4.2       21
## 411  -17.68 186.80   112 4.5       35
## 412  -22.24 184.56    99 4.8       57
## 413  -20.07 169.14    66 4.8       37
## 414  -25.04 180.10   481 4.3       15
## 415  -21.50 185.20   139 4.4       15
## 416  -14.28 167.26   211 5.1       51
## 417  -14.43 167.26   151 4.4       17
## 418  -32.70 181.70   211 4.4       40
## 419  -34.10 181.80   246 4.3       23
## 420  -19.70 186.20    47 4.8       19
## 421  -24.19 180.38   484 4.3       27
## 422  -26.60 182.77   119 4.5       29
## 423  -17.04 186.80    70 4.1       22
## 424  -22.10 179.71   579 5.1       58
## 425  -32.60 180.90    57 4.7       44
## 426  -33.00 182.40   176 4.6       28
## 427  -20.58 181.24   602 4.7       44
## 428  -20.61 182.60   488 4.6       12
## 429  -19.47 169.15   149 4.4       15
## 430  -17.47 180.96   546 4.2       23
## 431  -18.40 183.40   343 4.1       10
## 432  -23.33 180.26   530 4.7       22
## 433  -18.55 182.23   563 4.0       17
## 434  -26.16 178.47   537 4.8       33
## 435  -21.80 183.20   325 4.4       19
## 436  -27.63 182.93    80 4.3       14
## 437  -18.89 169.48   259 4.4       21
## 438  -20.30 182.30   476 4.5       10
## 439  -20.56 182.04   499 4.5       29
## 440  -16.10 185.32   257 4.7       30
## 441  -12.66 166.37   165 4.3       18
## 442  -21.05 184.68   136 4.7       29
## 443  -17.97 168.52   146 4.8       33
## 444  -19.83 182.54   524 4.6       14
## 445  -22.55 183.81    82 5.1       68
## 446  -22.28 183.52    90 4.7       19
## 447  -15.72 185.64   138 4.3       21
## 448  -20.85 181.59   499 5.1       91
## 449  -21.11 181.50   538 5.5      104
## 450  -25.31 180.15   467 4.5       25
## 451  -26.46 182.50   184 4.3       11
## 452  -24.09 179.68   538 4.3       21
## 453  -16.96 167.70    45 4.7       23
## 454  -23.19 182.80   237 4.3       18
## 455  -20.81 184.70   162 4.3       20
## 456  -15.03 167.32   136 4.6       20
## 457  -18.06 181.59   604 4.5       23
## 458  -19.00 185.60   107 4.5       15
## 459  -23.53 179.99   538 5.4       87
## 460  -18.18 180.63   639 4.6       39
## 461  -15.66 186.80    45 4.4       11
## 462  -18.00 180.62   636 5.0      100
## 463  -18.08 180.70   628 5.2       72
## 464  -18.05 180.86   632 4.4       15
## 465  -29.90 181.16   215 5.1       51
## 466  -20.90 181.90   556 4.4       17
## 467  -15.61 167.50   135 4.4       21
## 468  -16.03 185.43   297 4.8       25
## 469  -17.68 181.11   568 4.4       22
## 470  -31.94 180.57   168 4.7       39
## 471  -19.14 184.36   269 4.7       31
## 472  -18.00 185.48   143 4.4       29
## 473  -16.95 185.94    95 4.3       12
## 474  -10.79 166.06   142 5.0       40
## 475  -20.83 185.90   104 4.5       19
## 476  -32.90 181.60   169 4.6       27
## 477  -37.93 177.47    65 5.4       65
## 478  -29.09 183.20    54 4.6       23
## 479  -23.56 180.23   474 4.5       13
## 480  -19.60 185.20   125 4.4       13
## 481  -21.39 180.68   617 4.5       18
## 482  -14.85 184.87   294 4.1       10
## 483  -22.70 183.30   180 4.0       13
## 484  -32.42 181.21    47 4.9       39
## 485  -17.90 181.30   593 4.1       13
## 486  -23.58 183.40    94 5.2       79
## 487  -34.40 180.50   201 4.4       41
## 488  -17.61 181.20   537 4.1       11
## 489  -21.07 181.13   594 4.9       43
## 490  -13.84 170.62   638 4.6       20
## 491  -30.24 181.63    80 4.5       17
## 492  -18.49 169.04   211 4.8       30
## 493  -23.45 180.23   520 4.2       19
## 494  -16.04 183.54   384 4.2       23
## 495  -17.14 185.31   223 4.1       15
## 496  -22.54 172.91    54 5.5       71
## 497  -15.90 185.30    57 4.4       19
## 498  -30.04 181.20    49 4.8       20
## 499  -24.03 180.22   508 4.2       23
## 500  -18.89 184.46   242 4.8       36
## 501  -16.51 187.10    62 4.9       46
## 502  -20.10 186.30    63 4.6       19
## 503  -21.06 183.81   203 4.5       34
## 504  -13.07 166.87   132 4.4       24
## 505  -23.46 180.09   543 4.6       28
## 506  -19.41 182.30   589 4.2       19
## 507  -11.81 165.98    51 4.7       28
## 508  -11.76 165.96    45 4.4       51
## 509  -12.08 165.76    63 4.5       51
## 510  -25.59 180.02   485 4.9       48
## 511  -26.54 183.63    66 4.7       34
## 512  -20.90 184.28    58 5.5       92
## 513  -16.99 187.00    70 4.7       30
## 514  -23.46 180.17   541 4.6       32
## 515  -17.81 181.82   598 4.1       14
## 516  -15.17 187.20    50 4.7       28
## 517  -11.67 166.02   102 4.6       21
## 518  -20.75 184.52   144 4.3       25
## 519  -19.50 186.90    58 4.4       20
## 520  -26.18 179.79   460 4.7       44
## 521  -20.66 185.77    69 4.3       25
## 522  -19.22 182.54   570 4.1       22
## 523  -24.68 183.33    70 4.7       30
## 524  -15.43 167.38   137 4.5       16
## 525  -32.45 181.15    41 5.5       81
## 526  -21.31 180.84   586 4.5       17
## 527  -15.44 167.18   140 4.6       44
## 528  -13.26 167.01   213 5.1       70
## 529  -15.26 183.13   393 4.4       28
## 530  -33.57 180.80    51 4.7       35
## 531  -15.77 167.01    64 5.5       73
## 532  -15.79 166.83    45 4.6       39
## 533  -21.00 183.20   296 4.0       16
## 534  -16.28 166.94    50 4.6       24
## 535  -23.28 184.60    44 4.8       34
## 536  -16.10 167.25    68 4.7       36
## 537  -17.70 181.31   549 4.7       33
## 538  -15.96 166.69   150 4.2       20
## 539  -15.95 167.34    47 5.4       87
## 540  -17.56 181.59   543 4.6       34
## 541  -15.90 167.42    40 5.5       86
## 542  -15.29 166.90   100 4.2       15
## 543  -15.86 166.85    85 4.5       22
## 544  -16.20 166.80    98 4.5       21
## 545  -15.71 166.91    58 4.8       20
## 546  -16.45 167.54   125 4.6       18
## 547  -11.54 166.18    89 5.4       80
## 548  -19.61 181.91   590 4.6       34
## 549  -15.61 187.15    49 5.0       30
## 550  -21.16 181.41   543 4.3       17
## 551  -20.65 182.22   506 4.3       24
## 552  -20.33 168.71    40 4.8       38
## 553  -15.08 166.62    42 4.7       23
## 554  -23.28 184.61    76 4.7       36
## 555  -23.44 184.60    63 4.8       27
## 556  -23.12 184.42   104 4.2       17
## 557  -23.65 184.46    93 4.2       16
## 558  -22.91 183.95    64 5.9      118
## 559  -22.06 180.47   587 4.6       28
## 560  -13.56 166.49    83 4.5       25
## 561  -17.99 181.57   579 4.9       49
## 562  -23.92 184.47    40 4.7       17
## 563  -30.69 182.10    62 4.9       25
## 564  -21.92 182.80   273 5.3       78
## 565  -25.04 180.97   393 4.2       21
## 566  -19.92 183.91   264 4.2       23
## 567  -27.75 182.26   174 4.5       18
## 568  -17.71 181.18   574 5.2       67
## 569  -19.60 183.84   309 4.5       23
## 570  -34.68 179.82    75 5.6       79
## 571  -14.46 167.26   195 5.2       87
## 572  -18.85 187.55    44 4.8       35
## 573  -17.02 182.41   420 4.5       29
## 574  -20.41 186.51    63 5.0       28
## 575  -18.18 182.04   609 4.4       26
## 576  -16.49 187.80    40 4.5       18
## 577  -17.74 181.31   575 4.6       42
## 578  -20.49 181.69   559 4.5       24
## 579  -18.51 182.64   405 5.2       74
## 580  -27.28 183.40    70 5.1       54
## 581  -15.90 167.16    41 4.8       42
## 582  -20.57 181.33   605 4.3       18
## 583  -11.25 166.36   130 5.1       55
## 584  -20.04 181.87   577 4.7       19
## 585  -20.89 181.25   599 4.6       20
## 586  -16.62 186.74    82 4.8       51
## 587  -20.09 168.75    50 4.6       23
## 588  -24.96 179.87   480 4.4       25
## 589  -20.95 181.42   559 4.6       27
## 590  -23.31 179.27   566 5.1       49
## 591  -20.95 181.06   611 4.3       20
## 592  -21.58 181.90   409 4.4       19
## 593  -13.62 167.15   209 4.7       30
## 594  -12.72 166.28    70 4.8       47
## 595  -21.79 185.00    74 4.1       15
## 596  -20.48 169.76   134 4.6       33
## 597  -12.84 166.78   150 4.9       35
## 598  -17.02 182.93   406 4.0       17
## 599  -23.89 182.39   243 4.7       32
## 600  -23.07 184.03    89 4.7       32
## 601  -27.98 181.96    53 5.2       89
## 602  -28.10 182.25    68 4.6       18
## 603  -21.24 180.81   605 4.6       34
## 604  -21.24 180.86   615 4.9       23
## 605  -19.89 174.46   546 5.7       99
## 606  -32.82 179.80   176 4.7       26
## 607  -22.00 185.50    52 4.4       18
## 608  -21.57 185.62    66 4.9       38
## 609  -24.50 180.92   377 4.8       43
## 610  -33.03 180.20   186 4.6       27
## 611  -30.09 182.40    51 4.4       18
## 612  -22.75 170.99    67 4.8       35
## 613  -17.99 168.98   234 4.7       28
## 614  -19.60 181.87   597 4.2       18
## 615  -15.65 186.26    64 5.1       54
## 616  -17.78 181.53   511 4.8       56
## 617  -22.04 184.91    47 4.9       47
## 618  -20.06 168.69    49 5.1       49
## 619  -18.07 181.54   546 4.3       28
## 620  -12.85 165.67    75 4.4       30
## 621  -33.29 181.30    60 4.7       33
## 622  -34.63 179.10   278 4.7       24
## 623  -24.18 179.02   550 5.3       86
## 624  -23.78 180.31   518 5.1       71
## 625  -22.37 171.50   116 4.9       38
## 626  -23.97 179.91   518 4.5       23
## 627  -34.12 181.75    75 4.7       41
## 628  -25.25 179.86   491 4.2       23
## 629  -22.87 172.65    56 5.1       50
## 630  -18.48 182.37   376 4.8       57
## 631  -21.46 181.02   584 4.2       18
## 632  -28.56 183.47    48 4.8       56
## 633  -28.56 183.59    53 4.4       20
## 634  -21.30 180.92   617 4.5       26
## 635  -20.08 183.22   294 4.3       18
## 636  -18.82 182.21   417 5.6      129
## 637  -19.51 183.97   280 4.0       16
## 638  -12.05 167.39   332 5.0       36
## 639  -17.40 186.54    85 4.2       28
## 640  -23.93 180.18   525 4.6       31
## 641  -21.23 181.09   613 4.6       18
## 642  -16.23 167.91   182 4.5       28
## 643  -28.15 183.40    57 5.0       32
## 644  -20.81 185.01    79 4.7       42
## 645  -20.72 181.41   595 4.6       36
## 646  -23.29 184.00   164 4.8       50
## 647  -38.46 176.03   148 4.6       44
## 648  -15.48 186.73    82 4.4       17
## 649  -37.03 177.52   153 5.6       87
## 650  -20.48 181.38   556 4.2       13
## 651  -18.12 181.88   649 5.4       88
## 652  -18.17 181.98   651 4.8       43
## 653  -11.40 166.07    93 5.6       94
## 654  -23.10 180.12   533 4.4       27
## 655  -14.28 170.34   642 4.7       29
## 656  -22.87 171.72    47 4.6       27
## 657  -17.59 180.98   548 5.1       79
## 658  -27.60 182.10   154 4.6       22
## 659  -17.94 180.60   627 4.5       29
## 660  -17.88 180.58   622 4.2       23
## 661  -30.01 180.80   286 4.8       43
## 662  -19.19 182.30   390 4.9       48
## 663  -18.14 180.87   624 5.5      105
## 664  -23.46 180.11   539 5.0       41
## 665  -18.44 181.04   624 4.2       21
## 666  -18.21 180.87   631 5.2       69
## 667  -18.26 180.98   631 4.8       36
## 668  -15.85 184.83   299 4.4       30
## 669  -23.82 180.09   498 4.8       40
## 670  -18.60 184.28   255 4.4       31
## 671  -17.80 181.32   539 4.1       12
## 672  -10.78 166.10   195 4.9       45
## 673  -18.12 181.71   594 4.6       24
## 674  -19.34 182.62   573 4.5       32
## 675  -15.34 167.10   128 5.3       18
## 676  -24.97 182.85   137 4.8       40
## 677  -15.97 186.08   143 4.6       41
## 678  -23.47 180.24   511 4.8       37
## 679  -23.11 179.15   564 4.7       17
## 680  -20.54 181.66   559 4.9       50
## 681  -18.92 169.37   248 5.3       60
## 682  -20.16 184.27   210 4.4       27
## 683  -25.48 180.94   390 4.6       33
## 684  -18.19 181.74   616 4.3       17
## 685  -15.35 186.40    98 4.4       17
## 686  -18.69 169.10   218 4.2       27
## 687  -18.89 181.24   655 4.1       14
## 688  -17.61 183.32   356 4.2       15
## 689  -20.93 181.54   564 5.0       64
## 690  -17.60 181.50   548 4.1       10
## 691  -17.96 181.40   655 4.3       20
## 692  -18.80 182.41   385 5.2       67
## 693  -20.61 182.44   518 4.2       10
## 694  -20.74 181.53   598 4.5       36
## 695  -25.23 179.86   476 4.4       29
## 696  -23.90 179.90   579 4.4       16
## 697  -18.07 181.58   603 5.0       65
## 698  -15.43 185.19   249 4.0       11
## 699  -14.30 167.32   208 4.8       25
## 700  -18.04 181.57   587 5.0       51
## 701  -13.90 167.18   221 4.2       21
## 702  -17.64 177.01   545 5.2       91
## 703  -17.98 181.51   586 5.2       68
## 704  -25.00 180.00   488 4.5       10
## 705  -19.45 184.48   246 4.3       15
## 706  -16.11 187.48    61 4.5       19
## 707  -23.73 179.98   524 4.6       11
## 708  -17.74 186.78   104 5.1       71
## 709  -21.56 183.23   271 4.4       36
## 710  -20.97 181.72   487 4.3       16
## 711  -15.45 186.73    83 4.7       37
## 712  -15.93 167.91   183 5.6      109
## 713  -21.47 185.86    55 4.9       46
## 714  -21.44 170.45   166 5.1       22
## 715  -22.16 180.49   586 4.6       13
## 716  -13.36 172.76   618 4.4       18
## 717  -21.22 181.51   524 4.8       49
## 718  -26.10 182.50   133 4.2       17
## 719  -18.35 185.27   201 4.7       57
## 720  -17.20 182.90   383 4.1       11
## 721  -22.42 171.40    86 4.7       33
## 722  -17.91 181.48   555 4.0       17
## 723  -26.53 178.30   605 4.9       43
## 724  -26.50 178.29   609 5.0       50
## 725  -16.31 168.08   204 4.5       16
## 726  -18.76 169.71   287 4.4       23
## 727  -17.10 182.80   390 4.0       14
## 728  -19.28 182.78   348 4.5       30
## 729  -23.50 180.00   550 4.7       23
## 730  -21.26 181.69   487 4.4       20
## 731  -17.97 181.48   578 4.7       43
## 732  -26.02 181.20   361 4.7       32
## 733  -30.30 180.80   275 4.0       14
## 734  -24.89 179.67   498 4.2       14
## 735  -14.57 167.24   162 4.5       18
## 736  -15.40 186.87    78 4.7       44
## 737  -22.06 183.95   134 4.5       17
## 738  -25.14 178.42   554 4.1       15
## 739  -20.30 181.40   608 4.6       13
## 740  -25.28 181.17   367 4.3       25
## 741  -20.63 181.61   599 4.6       30
## 742  -19.02 186.83    45 5.2       65
## 743  -22.10 185.30    50 4.6       22
## 744  -38.59 175.70   162 4.7       36
## 745  -19.30 183.00   302 5.0       65
## 746  -31.03 181.59    57 5.2       49
## 747  -30.51 181.30   203 4.4       20
## 748  -22.55 183.34    66 4.6       18
## 749  -22.14 180.64   591 4.5       18
## 750  -25.60 180.30   440 4.0       12
## 751  -18.04 181.84   611 4.2       20
## 752  -21.29 185.77    57 5.3       69
## 753  -21.08 180.85   627 5.9      119
## 754  -20.64 169.66    89 4.9       42
## 755  -24.41 180.03   500 4.5       34
## 756  -12.16 167.03   264 4.4       14
## 757  -17.10 185.90   127 5.4       75
## 758  -21.13 185.60    85 5.3       86
## 759  -12.34 167.43    50 5.1       47
## 760  -16.43 186.73    75 4.1       20
## 761  -20.70 184.30   182 4.3       17
## 762  -21.18 180.92   619 4.5       18
## 763  -17.78 185.33   223 4.1       10
## 764  -21.57 183.86   156 5.1       70
## 765  -13.70 166.75    46 5.3       71
## 766  -12.27 167.41    50 4.5       29
## 767  -19.10 184.52   230 4.1       16
## 768  -19.85 184.51   184 4.4       26
## 769  -11.37 166.55   188 4.7       24
## 770  -20.70 186.30    80 4.0       10
## 771  -20.24 185.10    86 5.1       61
## 772  -16.40 182.73   391 4.0       16
## 773  -19.60 184.53   199 4.3       21
## 774  -21.63 180.77   592 4.3       21
## 775  -21.60 180.50   595 4.0       22
## 776  -21.77 181.00   618 4.1       10
## 777  -21.80 183.60   213 4.4       17
## 778  -21.05 180.90   616 4.3       10
## 779  -10.80 165.80   175 4.2       12
## 780  -17.90 181.50   589 4.0       12
## 781  -22.26 171.44    83 4.5       25
## 782  -22.33 171.46   119 4.7       32
## 783  -24.04 184.85    70 5.0       48
## 784  -20.40 186.10    74 4.3       22
## 785  -15.00 184.62    40 5.1       54
## 786  -27.87 183.40    87 4.7       34
## 787  -14.12 166.64    63 5.3       69
## 788  -23.61 180.27   537 5.0       63
## 789  -21.56 185.50    47 4.5       29
## 790  -21.19 181.58   490 5.0       77
## 791  -18.07 181.65   593 4.1       16
## 792  -26.00 178.43   644 4.9       27
## 793  -20.21 181.90   576 4.1       16
## 794  -28.00 182.00   199 4.0       16
## 795  -20.74 180.70   589 4.4       27
## 796  -31.80 180.60   178 4.5       19
## 797  -18.91 169.46   248 4.4       33
## 798  -20.45 182.10   500 4.5       37
## 799  -22.90 183.80    71 4.3       19
## 800  -18.11 181.63   568 4.3       36
## 801  -23.80 184.70    42 5.0       36
## 802  -23.42 180.21   510 4.5       37
## 803  -23.20 184.80    97 4.5       13
## 804  -12.93 169.52   663 4.4       30
## 805  -21.14 181.06   625 4.5       35
## 806  -19.13 184.97   210 4.1       22
## 807  -21.08 181.30   557 4.9       78
## 808  -20.07 181.75   582 4.7       27
## 809  -20.90 182.02   402 4.3       18
## 810  -25.04 179.84   474 4.6       32
## 811  -21.85 180.89   577 4.6       43
## 812  -19.34 186.59    56 5.2       49
## 813  -15.83 167.10    43 4.5       19
## 814  -23.73 183.00   118 4.3       11
## 815  -18.10 181.72   544 4.6       52
## 816  -22.12 180.49   532 4.0       14
## 817  -15.39 185.10   237 4.5       39
## 818  -16.21 186.52   111 4.8       30
## 819  -21.75 180.67   595 4.6       30
## 820  -22.10 180.40   603 4.1       11
## 821  -24.97 179.54   505 4.9       50
## 822  -19.36 186.36   100 4.7       40
## 823  -22.14 179.62   587 4.1       23
## 824  -21.48 182.44   364 4.3       20
## 825  -18.54 168.93   100 4.4       17
## 826  -21.62 182.40   350 4.0       12
## 827  -13.40 166.90   228 4.8       15
## 828  -15.50 185.30    93 4.4       25
## 829  -15.67 185.23    66 4.4       34
## 830  -21.78 183.11   225 4.6       21
## 831  -30.63 180.90   334 4.2       28
## 832  -15.70 185.10    70 4.1       15
## 833  -19.20 184.37   220 4.2       18
## 834  -19.70 182.44   397 4.0       12
## 835  -19.40 182.29   326 4.1       15
## 836  -15.85 185.90   121 4.1       17
## 837  -17.38 168.63   209 4.7       29
## 838  -24.33 179.97   510 4.8       44
## 839  -20.89 185.26    54 5.1       44
## 840  -18.97 169.44   242 5.0       41
## 841  -17.99 181.62   574 4.8       38
## 842  -15.80 185.25    82 4.4       39
## 843  -25.42 182.65   102 5.0       36
## 844  -21.60 169.90    43 5.2       56
## 845  -26.06 180.05   432 4.2       19
## 846  -17.56 181.23   580 4.1       16
## 847  -25.63 180.26   464 4.8       60
## 848  -25.46 179.98   479 4.5       27
## 849  -22.23 180.48   581 5.0       54
## 850  -21.55 181.39   513 5.1       81
## 851  -15.18 185.93    77 4.1       16
## 852  -13.79 166.56    68 4.7       41
## 853  -15.18 167.23    71 5.2       59
## 854  -18.78 186.72    68 4.8       48
## 855  -17.90 181.41   586 4.5       33
## 856  -18.50 185.40   243 4.0       11
## 857  -14.82 171.17   658 4.7       49
## 858  -15.65 185.17   315 4.1       15
## 859  -30.01 181.15   210 4.3       17
## 860  -13.16 167.24   278 4.3       17
## 861  -21.03 180.78   638 4.0       14
## 862  -21.40 180.78   615 4.7       51
## 863  -17.93 181.89   567 4.1       27
## 864  -20.87 181.70   560 4.2       13
## 865  -12.01 166.66    99 4.8       36
## 866  -19.10 169.63   266 4.8       31
## 867  -22.85 181.37   397 4.2       15
## 868  -17.08 185.96   180 4.2       29
## 869  -21.14 174.21    40 5.7       78
## 870  -12.23 167.02   242 6.0      132
## 871  -20.91 181.57   530 4.2       20
## 872  -11.38 167.05   133 4.5       32
## 873  -11.02 167.01    62 4.9       36
## 874  -22.09 180.58   580 4.4       22
## 875  -17.80 181.20   530 4.0       15
## 876  -18.94 182.43   566 4.3       20
## 877  -18.85 182.20   501 4.2       23
## 878  -21.91 181.28   548 4.5       30
## 879  -22.03 179.77   587 4.8       31
## 880  -18.10 181.63   592 4.4       28
## 881  -18.40 184.84   221 4.2       18
## 882  -21.20 181.40   560 4.2       12
## 883  -12.00 166.20    94 5.0       31
## 884  -11.70 166.30   139 4.2       15
## 885  -26.72 182.69   162 5.2       64
## 886  -24.39 178.98   562 4.5       30
## 887  -19.64 169.50   204 4.6       35
## 888  -21.35 170.04    56 5.0       22
## 889  -22.82 184.52    49 5.0       52
## 890  -38.28 177.10   100 5.4       71
## 891  -12.57 167.11   231 4.8       28
## 892  -22.24 180.28   601 4.2       21
## 893  -13.80 166.53    42 5.5       70
## 894  -21.07 183.78   180 4.3       25
## 895  -17.74 181.25   559 4.1       16
## 896  -23.87 180.15   524 4.4       22
## 897  -21.29 185.80    69 4.9       74
## 898  -22.20 180.58   594 4.5       45
## 899  -15.24 185.11   262 4.9       56
## 900  -17.82 181.27   538 4.0       33
## 901  -32.14 180.00   331 4.5       27
## 902  -19.30 185.86    48 5.0       40
## 903  -33.09 180.94    47 4.9       47
## 904  -20.18 181.62   558 4.5       31
## 905  -17.46 181.42   524 4.2       16
## 906  -17.44 181.33   545 4.2       37
## 907  -24.71 179.85   477 4.2       34
## 908  -21.53 170.52   129 5.2       30
## 909  -19.17 169.53   268 4.3       21
## 910  -28.05 182.39   117 5.1       43
## 911  -23.39 179.97   541 4.6       50
## 912  -22.33 171.51   112 4.6       14
## 913  -15.28 185.98   162 4.4       36
## 914  -20.27 181.51   609 4.4       32
## 915  -10.96 165.97    76 4.9       64
## 916  -21.52 169.75    61 5.1       40
## 917  -19.57 184.47   202 4.2       28
## 918  -23.08 183.45    90 4.7       30
## 919  -25.06 182.80   133 4.0       14
## 920  -17.85 181.44   589 5.6      115
## 921  -15.99 167.95   190 5.3       81
## 922  -20.56 184.41   138 5.0       82
## 923  -17.98 181.61   598 4.3       27
## 924  -18.40 181.77   600 4.1       11
## 925  -27.64 182.22   162 5.1       67
## 926  -20.99 181.02   626 4.5       36
## 927  -14.86 167.32   137 4.9       22
## 928  -29.33 182.72    57 5.4       61
## 929  -25.81 182.54   201 4.7       40
## 930  -14.10 166.01    69 4.8       29
## 931  -17.63 185.13   219 4.5       28
## 932  -23.47 180.21   553 4.2       23
## 933  -23.92 180.21   524 4.6       50
## 934  -20.88 185.18    51 4.6       28
## 935  -20.25 184.75   107 5.6      121
## 936  -19.33 186.16    44 5.4      110
## 937  -18.14 181.71   574 4.0       20
## 938  -22.41 183.99   128 5.2       72
## 939  -20.77 181.16   568 4.2       12
## 940  -17.95 181.73   583 4.7       57
## 941  -20.83 181.01   622 4.3       15
## 942  -27.84 182.10   193 4.8       27
## 943  -19.94 182.39   544 4.6       30
## 944  -23.60 183.99   118 5.4       88
## 945  -23.70 184.13    51 4.8       27
## 946  -30.39 182.40    63 4.6       22
## 947  -18.98 182.32   442 4.2       22
## 948  -27.89 182.92    87 5.5       67
## 949  -23.50 184.90    61 4.7       16
## 950  -23.73 184.49    60 4.7       35
## 951  -17.93 181.62   561 4.5       32
## 952  -35.94 178.52   138 5.5       78
## 953  -18.68 184.50   174 4.5       34
## 954  -23.47 179.95   543 4.1       21
## 955  -23.49 180.06   530 4.0       23
## 956  -23.85 180.26   497 4.3       32
## 957  -27.08 183.44    63 4.7       27
## 958  -20.88 184.95    82 4.9       50
## 959  -20.97 181.20   605 4.5       31
## 960  -21.71 183.58   234 4.7       55
## 961  -23.90 184.60    41 4.5       22
## 962  -15.78 167.44    40 4.8       42
## 963  -12.57 166.72   137 4.3       20
## 964  -19.69 184.23   223 4.1       23
## 965  -22.04 183.95   109 5.4       61
## 966  -17.99 181.59   595 4.1       26
## 967  -23.50 180.13   512 4.8       40
## 968  -21.40 180.74   613 4.2       20
## 969  -15.86 166.98    60 4.8       25
## 970  -23.95 184.64    43 5.4       45
## 971  -25.79 182.38   172 4.4       14
## 972  -23.75 184.50    54 5.2       74
## 973  -24.10 184.50    68 4.7       23
## 974  -18.56 169.05   217 4.9       35
## 975  -23.30 184.68   102 4.9       27
## 976  -17.03 185.74   178 4.2       32
## 977  -20.77 183.71   251 4.4       47
## 978  -28.10 183.50    42 4.4       17
## 979  -18.83 182.26   575 4.3       11
## 980  -23.00 170.70    43 4.9       20
## 981  -20.82 181.67   577 5.0       67
## 982  -22.95 170.56    42 4.7       21
## 983  -28.22 183.60    75 4.9       49
## 984  -27.99 183.50    71 4.3       22
## 985  -15.54 187.15    60 4.5       17
## 986  -12.37 166.93   291 4.2       16
## 987  -22.33 171.66   125 5.2       51
## 988  -22.70 170.30    69 4.8       27
## 989  -17.86 181.30   614 4.0       12
## 990  -16.00 184.53   108 4.7       33
## 991  -20.73 181.42   575 4.3       18
## 992  -15.45 181.42   409 4.3       27
## 993  -20.05 183.86   243 4.9       65
## 994  -17.95 181.37   642 4.0       17
## 995  -17.70 188.10    45 4.2       10
## 996  -25.93 179.54   470 4.4       22
## 997  -12.28 167.06   248 4.7       35
## 998  -20.13 184.20   244 4.5       34
## 999  -17.40 187.80    40 4.5       14
## 1000 -21.59 170.56   165 6.0      119
q5 <- subset(quakes,mag>=5)
q5
##         lat   long depth mag stations
## 3    -26.00 184.10    42 5.4       43
## 15   -20.70 169.92   139 6.1       94
## 17   -13.64 165.96    50 6.0       83
## 25   -19.66 180.28   431 5.4       57
## 28   -16.46 180.79   498 5.2       79
## 50   -18.97 185.25   129 5.1       73
## 63   -13.82 172.38   613 5.0       61
## 68   -21.96 179.62   627 5.0       45
## 70   -15.46 187.81    40 5.5       91
## 74   -23.74 179.99   506 5.2       75
## 80   -28.98 181.11   304 5.3       60
## 81   -34.02 180.21    75 5.2       65
## 91   -15.48 167.53   128 5.1       61
## 93   -20.64 182.02   497 5.2       64
## 98   -18.16 183.41   306 5.2       54
## 99   -13.66 166.54    50 5.1       45
## 109  -22.55 185.90    42 5.7       76
## 110  -36.95 177.81   146 5.0       35
## 117  -13.66 172.23    46 5.3       67
## 126  -17.93 167.89    49 5.1       43
## 128  -26.53 178.57   600 5.0       69
## 137  -16.14 187.32    42 5.1       68
## 143  -13.23 167.10   220 5.0       46
## 149  -23.58 180.17   462 5.3       63
## 151  -23.34 184.50    56 5.7      106
## 152  -15.56 167.62   127 6.4      122
## 166  -34.20 179.43    40 5.0       37
## 167  -26.00 182.12   205 5.6       98
## 168  -19.89 183.84   244 5.3       73
## 176  -32.22 180.20   216 5.7       90
## 177  -22.64 180.64   544 5.0       50
## 191  -20.02 184.09   234 5.3       71
## 200  -17.72 180.30   595 5.2       74
## 207  -21.96 180.54   603 5.2       66
## 214  -20.47 185.68    93 5.4       85
## 229  -23.73 182.53   232 5.0       55
## 230  -22.34 171.52   106 5.0       43
## 238  -21.68 180.63   617 5.0       63
## 243  -14.70 166.00    48 5.3       16
## 245  -16.65 185.51   218 5.0       52
## 249  -23.36 180.01   553 5.3       61
## 253  -17.80 181.38   587 5.1       47
## 261  -19.02 184.23   270 5.1       72
## 275  -22.13 180.38   577 5.7      104
## 277  -23.33 180.18   528 5.0       59
## 280  -19.13 182.51   579 5.2       56
## 290  -20.60 182.28   529 5.0       50
## 291  -18.48 181.49   641 5.0       49
## 295  -15.24 186.21   158 5.0       57
## 296  -16.40 185.86   148 5.0       47
## 297  -24.57 178.40   562 5.6       80
## 312  -12.93 169.63   641 5.1       57
## 313  -18.60 181.91   442 5.4       82
## 318  -18.77 169.24   218 5.3       53
## 322  -21.79 183.48   210 5.2       69
## 330  -11.41 166.24    83 5.3       55
## 331  -19.10 183.87    61 5.3       42
## 334  -12.25 166.60   219 5.0       28
## 335  -23.49 179.07   544 5.1       58
## 338  -27.19 182.18    69 5.4       68
## 349  -21.54 185.48    51 5.0       29
## 354  -30.17 182.02    56 5.5       68
## 356  -17.79 181.32   587 5.0       49
## 357  -22.19 171.40   150 5.1       49
## 358  -17.10 182.68   403 5.5       82
## 363  -21.98 179.60   583 5.4       67
## 367  -20.43 182.37   502 5.1       48
## 371  -23.73 179.99   527 5.1       49
## 372  -19.89 184.08   219 5.4      105
## 373  -17.59 181.09   536 5.1       61
## 374  -19.77 181.40   630 5.1       54
## 376  -15.33 186.75    48 5.7      123
## 378  -15.36 186.66   112 5.1       57
## 380  -15.36 186.71   130 5.5       95
## 381  -16.24 167.95   188 5.1       68
## 383  -25.50 182.82   124 5.0       25
## 384  -14.32 167.33   204 5.0       49
## 385  -20.04 182.01   605 5.1       49
## 386  -28.83 181.66   221 5.1       63
## 397  -17.72 181.42   565 5.3       89
## 398  -15.87 188.13    52 5.0       30
## 399  -17.84 181.30   535 5.7      112
## 400  -13.45 170.30   641 5.3       93
## 404  -26.18 178.59   548 5.4       65
## 416  -14.28 167.26   211 5.1       51
## 424  -22.10 179.71   579 5.1       58
## 445  -22.55 183.81    82 5.1       68
## 448  -20.85 181.59   499 5.1       91
## 449  -21.11 181.50   538 5.5      104
## 459  -23.53 179.99   538 5.4       87
## 462  -18.00 180.62   636 5.0      100
## 463  -18.08 180.70   628 5.2       72
## 465  -29.90 181.16   215 5.1       51
## 474  -10.79 166.06   142 5.0       40
## 477  -37.93 177.47    65 5.4       65
## 486  -23.58 183.40    94 5.2       79
## 496  -22.54 172.91    54 5.5       71
## 512  -20.90 184.28    58 5.5       92
## 525  -32.45 181.15    41 5.5       81
## 528  -13.26 167.01   213 5.1       70
## 531  -15.77 167.01    64 5.5       73
## 539  -15.95 167.34    47 5.4       87
## 541  -15.90 167.42    40 5.5       86
## 547  -11.54 166.18    89 5.4       80
## 549  -15.61 187.15    49 5.0       30
## 558  -22.91 183.95    64 5.9      118
## 564  -21.92 182.80   273 5.3       78
## 568  -17.71 181.18   574 5.2       67
## 570  -34.68 179.82    75 5.6       79
## 571  -14.46 167.26   195 5.2       87
## 574  -20.41 186.51    63 5.0       28
## 579  -18.51 182.64   405 5.2       74
## 580  -27.28 183.40    70 5.1       54
## 583  -11.25 166.36   130 5.1       55
## 590  -23.31 179.27   566 5.1       49
## 601  -27.98 181.96    53 5.2       89
## 605  -19.89 174.46   546 5.7       99
## 615  -15.65 186.26    64 5.1       54
## 618  -20.06 168.69    49 5.1       49
## 623  -24.18 179.02   550 5.3       86
## 624  -23.78 180.31   518 5.1       71
## 629  -22.87 172.65    56 5.1       50
## 636  -18.82 182.21   417 5.6      129
## 638  -12.05 167.39   332 5.0       36
## 643  -28.15 183.40    57 5.0       32
## 649  -37.03 177.52   153 5.6       87
## 651  -18.12 181.88   649 5.4       88
## 653  -11.40 166.07    93 5.6       94
## 657  -17.59 180.98   548 5.1       79
## 663  -18.14 180.87   624 5.5      105
## 664  -23.46 180.11   539 5.0       41
## 666  -18.21 180.87   631 5.2       69
## 675  -15.34 167.10   128 5.3       18
## 681  -18.92 169.37   248 5.3       60
## 689  -20.93 181.54   564 5.0       64
## 692  -18.80 182.41   385 5.2       67
## 697  -18.07 181.58   603 5.0       65
## 700  -18.04 181.57   587 5.0       51
## 702  -17.64 177.01   545 5.2       91
## 703  -17.98 181.51   586 5.2       68
## 708  -17.74 186.78   104 5.1       71
## 712  -15.93 167.91   183 5.6      109
## 714  -21.44 170.45   166 5.1       22
## 724  -26.50 178.29   609 5.0       50
## 742  -19.02 186.83    45 5.2       65
## 745  -19.30 183.00   302 5.0       65
## 746  -31.03 181.59    57 5.2       49
## 752  -21.29 185.77    57 5.3       69
## 753  -21.08 180.85   627 5.9      119
## 757  -17.10 185.90   127 5.4       75
## 758  -21.13 185.60    85 5.3       86
## 759  -12.34 167.43    50 5.1       47
## 764  -21.57 183.86   156 5.1       70
## 765  -13.70 166.75    46 5.3       71
## 771  -20.24 185.10    86 5.1       61
## 783  -24.04 184.85    70 5.0       48
## 785  -15.00 184.62    40 5.1       54
## 787  -14.12 166.64    63 5.3       69
## 788  -23.61 180.27   537 5.0       63
## 790  -21.19 181.58   490 5.0       77
## 801  -23.80 184.70    42 5.0       36
## 812  -19.34 186.59    56 5.2       49
## 839  -20.89 185.26    54 5.1       44
## 840  -18.97 169.44   242 5.0       41
## 843  -25.42 182.65   102 5.0       36
## 844  -21.60 169.90    43 5.2       56
## 849  -22.23 180.48   581 5.0       54
## 850  -21.55 181.39   513 5.1       81
## 853  -15.18 167.23    71 5.2       59
## 869  -21.14 174.21    40 5.7       78
## 870  -12.23 167.02   242 6.0      132
## 883  -12.00 166.20    94 5.0       31
## 885  -26.72 182.69   162 5.2       64
## 888  -21.35 170.04    56 5.0       22
## 889  -22.82 184.52    49 5.0       52
## 890  -38.28 177.10   100 5.4       71
## 893  -13.80 166.53    42 5.5       70
## 902  -19.30 185.86    48 5.0       40
## 908  -21.53 170.52   129 5.2       30
## 910  -28.05 182.39   117 5.1       43
## 916  -21.52 169.75    61 5.1       40
## 920  -17.85 181.44   589 5.6      115
## 921  -15.99 167.95   190 5.3       81
## 922  -20.56 184.41   138 5.0       82
## 925  -27.64 182.22   162 5.1       67
## 928  -29.33 182.72    57 5.4       61
## 935  -20.25 184.75   107 5.6      121
## 936  -19.33 186.16    44 5.4      110
## 938  -22.41 183.99   128 5.2       72
## 944  -23.60 183.99   118 5.4       88
## 948  -27.89 182.92    87 5.5       67
## 952  -35.94 178.52   138 5.5       78
## 965  -22.04 183.95   109 5.4       61
## 970  -23.95 184.64    43 5.4       45
## 972  -23.75 184.50    54 5.2       74
## 981  -20.82 181.67   577 5.0       67
## 987  -22.33 171.66   125 5.2       51
## 1000 -21.59 170.56   165 6.0      119
write.table(q5,file="/Users/USER/Downloads/q5.txt",
            sep="!",row.names=FALSE)

q5.dframe <- read.table("/Users/USER/Downloads/q5.txt",sep="!",header=TRUE)
q5.dframe
##        lat   long depth mag stations
## 1   -26.00 184.10    42 5.4       43
## 2   -20.70 169.92   139 6.1       94
## 3   -13.64 165.96    50 6.0       83
## 4   -19.66 180.28   431 5.4       57
## 5   -16.46 180.79   498 5.2       79
## 6   -18.97 185.25   129 5.1       73
## 7   -13.82 172.38   613 5.0       61
## 8   -21.96 179.62   627 5.0       45
## 9   -15.46 187.81    40 5.5       91
## 10  -23.74 179.99   506 5.2       75
## 11  -28.98 181.11   304 5.3       60
## 12  -34.02 180.21    75 5.2       65
## 13  -15.48 167.53   128 5.1       61
## 14  -20.64 182.02   497 5.2       64
## 15  -18.16 183.41   306 5.2       54
## 16  -13.66 166.54    50 5.1       45
## 17  -22.55 185.90    42 5.7       76
## 18  -36.95 177.81   146 5.0       35
## 19  -13.66 172.23    46 5.3       67
## 20  -17.93 167.89    49 5.1       43
## 21  -26.53 178.57   600 5.0       69
## 22  -16.14 187.32    42 5.1       68
## 23  -13.23 167.10   220 5.0       46
## 24  -23.58 180.17   462 5.3       63
## 25  -23.34 184.50    56 5.7      106
## 26  -15.56 167.62   127 6.4      122
## 27  -34.20 179.43    40 5.0       37
## 28  -26.00 182.12   205 5.6       98
## 29  -19.89 183.84   244 5.3       73
## 30  -32.22 180.20   216 5.7       90
## 31  -22.64 180.64   544 5.0       50
## 32  -20.02 184.09   234 5.3       71
## 33  -17.72 180.30   595 5.2       74
## 34  -21.96 180.54   603 5.2       66
## 35  -20.47 185.68    93 5.4       85
## 36  -23.73 182.53   232 5.0       55
## 37  -22.34 171.52   106 5.0       43
## 38  -21.68 180.63   617 5.0       63
## 39  -14.70 166.00    48 5.3       16
## 40  -16.65 185.51   218 5.0       52
## 41  -23.36 180.01   553 5.3       61
## 42  -17.80 181.38   587 5.1       47
## 43  -19.02 184.23   270 5.1       72
## 44  -22.13 180.38   577 5.7      104
## 45  -23.33 180.18   528 5.0       59
## 46  -19.13 182.51   579 5.2       56
## 47  -20.60 182.28   529 5.0       50
## 48  -18.48 181.49   641 5.0       49
## 49  -15.24 186.21   158 5.0       57
## 50  -16.40 185.86   148 5.0       47
## 51  -24.57 178.40   562 5.6       80
## 52  -12.93 169.63   641 5.1       57
## 53  -18.60 181.91   442 5.4       82
## 54  -18.77 169.24   218 5.3       53
## 55  -21.79 183.48   210 5.2       69
## 56  -11.41 166.24    83 5.3       55
## 57  -19.10 183.87    61 5.3       42
## 58  -12.25 166.60   219 5.0       28
## 59  -23.49 179.07   544 5.1       58
## 60  -27.19 182.18    69 5.4       68
## 61  -21.54 185.48    51 5.0       29
## 62  -30.17 182.02    56 5.5       68
## 63  -17.79 181.32   587 5.0       49
## 64  -22.19 171.40   150 5.1       49
## 65  -17.10 182.68   403 5.5       82
## 66  -21.98 179.60   583 5.4       67
## 67  -20.43 182.37   502 5.1       48
## 68  -23.73 179.99   527 5.1       49
## 69  -19.89 184.08   219 5.4      105
## 70  -17.59 181.09   536 5.1       61
## 71  -19.77 181.40   630 5.1       54
## 72  -15.33 186.75    48 5.7      123
## 73  -15.36 186.66   112 5.1       57
## 74  -15.36 186.71   130 5.5       95
## 75  -16.24 167.95   188 5.1       68
## 76  -25.50 182.82   124 5.0       25
## 77  -14.32 167.33   204 5.0       49
## 78  -20.04 182.01   605 5.1       49
## 79  -28.83 181.66   221 5.1       63
## 80  -17.72 181.42   565 5.3       89
## 81  -15.87 188.13    52 5.0       30
## 82  -17.84 181.30   535 5.7      112
## 83  -13.45 170.30   641 5.3       93
## 84  -26.18 178.59   548 5.4       65
## 85  -14.28 167.26   211 5.1       51
## 86  -22.10 179.71   579 5.1       58
## 87  -22.55 183.81    82 5.1       68
## 88  -20.85 181.59   499 5.1       91
## 89  -21.11 181.50   538 5.5      104
## 90  -23.53 179.99   538 5.4       87
## 91  -18.00 180.62   636 5.0      100
## 92  -18.08 180.70   628 5.2       72
## 93  -29.90 181.16   215 5.1       51
## 94  -10.79 166.06   142 5.0       40
## 95  -37.93 177.47    65 5.4       65
## 96  -23.58 183.40    94 5.2       79
## 97  -22.54 172.91    54 5.5       71
## 98  -20.90 184.28    58 5.5       92
## 99  -32.45 181.15    41 5.5       81
## 100 -13.26 167.01   213 5.1       70
## 101 -15.77 167.01    64 5.5       73
## 102 -15.95 167.34    47 5.4       87
## 103 -15.90 167.42    40 5.5       86
## 104 -11.54 166.18    89 5.4       80
## 105 -15.61 187.15    49 5.0       30
## 106 -22.91 183.95    64 5.9      118
## 107 -21.92 182.80   273 5.3       78
## 108 -17.71 181.18   574 5.2       67
## 109 -34.68 179.82    75 5.6       79
## 110 -14.46 167.26   195 5.2       87
## 111 -20.41 186.51    63 5.0       28
## 112 -18.51 182.64   405 5.2       74
## 113 -27.28 183.40    70 5.1       54
## 114 -11.25 166.36   130 5.1       55
## 115 -23.31 179.27   566 5.1       49
## 116 -27.98 181.96    53 5.2       89
## 117 -19.89 174.46   546 5.7       99
## 118 -15.65 186.26    64 5.1       54
## 119 -20.06 168.69    49 5.1       49
## 120 -24.18 179.02   550 5.3       86
## 121 -23.78 180.31   518 5.1       71
## 122 -22.87 172.65    56 5.1       50
## 123 -18.82 182.21   417 5.6      129
## 124 -12.05 167.39   332 5.0       36
## 125 -28.15 183.40    57 5.0       32
## 126 -37.03 177.52   153 5.6       87
## 127 -18.12 181.88   649 5.4       88
## 128 -11.40 166.07    93 5.6       94
## 129 -17.59 180.98   548 5.1       79
## 130 -18.14 180.87   624 5.5      105
## 131 -23.46 180.11   539 5.0       41
## 132 -18.21 180.87   631 5.2       69
## 133 -15.34 167.10   128 5.3       18
## 134 -18.92 169.37   248 5.3       60
## 135 -20.93 181.54   564 5.0       64
## 136 -18.80 182.41   385 5.2       67
## 137 -18.07 181.58   603 5.0       65
## 138 -18.04 181.57   587 5.0       51
## 139 -17.64 177.01   545 5.2       91
## 140 -17.98 181.51   586 5.2       68
## 141 -17.74 186.78   104 5.1       71
## 142 -15.93 167.91   183 5.6      109
## 143 -21.44 170.45   166 5.1       22
## 144 -26.50 178.29   609 5.0       50
## 145 -19.02 186.83    45 5.2       65
## 146 -19.30 183.00   302 5.0       65
## 147 -31.03 181.59    57 5.2       49
## 148 -21.29 185.77    57 5.3       69
## 149 -21.08 180.85   627 5.9      119
## 150 -17.10 185.90   127 5.4       75
## 151 -21.13 185.60    85 5.3       86
## 152 -12.34 167.43    50 5.1       47
## 153 -21.57 183.86   156 5.1       70
## 154 -13.70 166.75    46 5.3       71
## 155 -20.24 185.10    86 5.1       61
## 156 -24.04 184.85    70 5.0       48
## 157 -15.00 184.62    40 5.1       54
## 158 -14.12 166.64    63 5.3       69
## 159 -23.61 180.27   537 5.0       63
## 160 -21.19 181.58   490 5.0       77
## 161 -23.80 184.70    42 5.0       36
## 162 -19.34 186.59    56 5.2       49
## 163 -20.89 185.26    54 5.1       44
## 164 -18.97 169.44   242 5.0       41
## 165 -25.42 182.65   102 5.0       36
## 166 -21.60 169.90    43 5.2       56
## 167 -22.23 180.48   581 5.0       54
## 168 -21.55 181.39   513 5.1       81
## 169 -15.18 167.23    71 5.2       59
## 170 -21.14 174.21    40 5.7       78
## 171 -12.23 167.02   242 6.0      132
## 172 -12.00 166.20    94 5.0       31
## 173 -26.72 182.69   162 5.2       64
## 174 -21.35 170.04    56 5.0       22
## 175 -22.82 184.52    49 5.0       52
## 176 -38.28 177.10   100 5.4       71
## 177 -13.80 166.53    42 5.5       70
## 178 -19.30 185.86    48 5.0       40
## 179 -21.53 170.52   129 5.2       30
## 180 -28.05 182.39   117 5.1       43
## 181 -21.52 169.75    61 5.1       40
## 182 -17.85 181.44   589 5.6      115
## 183 -15.99 167.95   190 5.3       81
## 184 -20.56 184.41   138 5.0       82
## 185 -27.64 182.22   162 5.1       67
## 186 -29.33 182.72    57 5.4       61
## 187 -20.25 184.75   107 5.6      121
## 188 -19.33 186.16    44 5.4      110
## 189 -22.41 183.99   128 5.2       72
## 190 -23.60 183.99   118 5.4       88
## 191 -27.89 182.92    87 5.5       67
## 192 -35.94 178.52   138 5.5       78
## 193 -22.04 183.95   109 5.4       61
## 194 -23.95 184.64    43 5.4       45
## 195 -23.75 184.50    54 5.2       74
## 196 -20.82 181.67   577 5.0       67
## 197 -22.33 171.66   125 5.2       51
## 198 -21.59 170.56   165 6.0      119
#b
library(car)
## Warning: package 'car' was built under R version 4.5.1
## Loading required package: carData
## Warning: package 'carData' was built under R version 4.5.1
Duncan
##                    type income education prestige
## accountant         prof     62        86       82
## pilot              prof     72        76       83
## architect          prof     75        92       90
## author             prof     55        90       76
## chemist            prof     64        86       90
## minister           prof     21        84       87
## professor          prof     64        93       93
## dentist            prof     80       100       90
## reporter             wc     67        87       52
## engineer           prof     72        86       88
## undertaker         prof     42        74       57
## lawyer             prof     76        98       89
## physician          prof     76        97       97
## welfare.worker     prof     41        84       59
## teacher            prof     48        91       73
## conductor            wc     76        34       38
## contractor         prof     53        45       76
## factory.owner      prof     60        56       81
## store.manager      prof     42        44       45
## banker             prof     78        82       92
## bookkeeper           wc     29        72       39
## mail.carrier         wc     48        55       34
## insurance.agent      wc     55        71       41
## store.clerk          wc     29        50       16
## carpenter            bc     21        23       33
## electrician          bc     47        39       53
## RR.engineer          bc     81        28       67
## machinist            bc     36        32       57
## auto.repairman       bc     22        22       26
## plumber              bc     44        25       29
## gas.stn.attendant    bc     15        29       10
## coal.miner           bc      7         7       15
## streetcar.motorman   bc     42        26       19
## taxi.driver          bc      9        19       10
## truck.driver         bc     21        15       13
## machine.operator     bc     21        20       24
## barber               bc     16        26       20
## bartender            bc     16        28        7
## shoe.shiner          bc      9        17        3
## cook                 bc     14        22       16
## soda.clerk           bc     12        30        6
## watchman             bc     17        25       11
## janitor              bc      7        20        8
## policeman            bc     34        47       41
## waiter               bc      8        32       10
?Duncan
## starting httpd help server ...
##  done
head(Duncan)
##            type income education prestige
## accountant prof     62        86       82
## pilot      prof     72        76       83
## architect  prof     75        92       90
## author     prof     55        90       76
## chemist    prof     64        86       90
## minister   prof     21        84       87
Duncan$education
##  [1]  86  76  92  90  86  84  93 100  87  86  74  98  97  84  91  34  45  56  44
## [20]  82  72  55  71  50  23  39  28  32  22  25  29   7  26  19  15  20  26  28
## [39]  17  22  30  25  20  47  32
Duncan$income
##  [1] 62 72 75 55 64 21 64 80 67 72 42 76 76 41 48 76 53 60 42 78 29 48 55 29 21
## [26] 47 81 36 22 44 15  7 42  9 21 21 16 16  9 14 12 17  7 34  8
plot(Duncan$education,Duncan$income,
     xlim=c(0,100),ylim=c(0,100),
     xlab="Education",ylab="Income",pch=16)

point_col <- ifelse(Duncan$prestige <= 80, "black", "blue")
plot(Duncan$education,Duncan$prestige,
     xlim=c(0,100),ylim=c(0,100),
     xlab="Education",ylab="prestige",
     col=point_col,pch=16)
# ii
legend("topleft",legend=c("presrige<=80","prestige>80"),col=c("black","blue"),pch=16)

png(file="/Users/USER/Downloads/the_car_plot.png",width=500,height=500)

#c
exer <- list(quakes,q5.dframe,Duncan)
exer
## [[1]]
##         lat   long depth mag stations
## 1    -20.42 181.62   562 4.8       41
## 2    -20.62 181.03   650 4.2       15
## 3    -26.00 184.10    42 5.4       43
## 4    -17.97 181.66   626 4.1       19
## 5    -20.42 181.96   649 4.0       11
## 6    -19.68 184.31   195 4.0       12
## 7    -11.70 166.10    82 4.8       43
## 8    -28.11 181.93   194 4.4       15
## 9    -28.74 181.74   211 4.7       35
## 10   -17.47 179.59   622 4.3       19
## 11   -21.44 180.69   583 4.4       13
## 12   -12.26 167.00   249 4.6       16
## 13   -18.54 182.11   554 4.4       19
## 14   -21.00 181.66   600 4.4       10
## 15   -20.70 169.92   139 6.1       94
## 16   -15.94 184.95   306 4.3       11
## 17   -13.64 165.96    50 6.0       83
## 18   -17.83 181.50   590 4.5       21
## 19   -23.50 179.78   570 4.4       13
## 20   -22.63 180.31   598 4.4       18
## 21   -20.84 181.16   576 4.5       17
## 22   -10.98 166.32   211 4.2       12
## 23   -23.30 180.16   512 4.4       18
## 24   -30.20 182.00   125 4.7       22
## 25   -19.66 180.28   431 5.4       57
## 26   -17.94 181.49   537 4.0       15
## 27   -14.72 167.51   155 4.6       18
## 28   -16.46 180.79   498 5.2       79
## 29   -20.97 181.47   582 4.5       25
## 30   -19.84 182.37   328 4.4       17
## 31   -22.58 179.24   553 4.6       21
## 32   -16.32 166.74    50 4.7       30
## 33   -15.55 185.05   292 4.8       42
## 34   -23.55 180.80   349 4.0       10
## 35   -16.30 186.00    48 4.5       10
## 36   -25.82 179.33   600 4.3       13
## 37   -18.73 169.23   206 4.5       17
## 38   -17.64 181.28   574 4.6       17
## 39   -17.66 181.40   585 4.1       17
## 40   -18.82 169.33   230 4.4       11
## 41   -37.37 176.78   263 4.7       34
## 42   -15.31 186.10    96 4.6       32
## 43   -24.97 179.82   511 4.4       23
## 44   -15.49 186.04    94 4.3       26
## 45   -19.23 169.41   246 4.6       27
## 46   -30.10 182.30    56 4.9       34
## 47   -26.40 181.70   329 4.5       24
## 48   -11.77 166.32    70 4.4       18
## 49   -24.12 180.08   493 4.3       21
## 50   -18.97 185.25   129 5.1       73
## 51   -18.75 182.35   554 4.2       13
## 52   -19.26 184.42   223 4.0       15
## 53   -22.75 173.20    46 4.6       26
## 54   -21.37 180.67   593 4.3       13
## 55   -20.10 182.16   489 4.2       16
## 56   -19.85 182.13   562 4.4       31
## 57   -22.70 181.00   445 4.5       17
## 58   -22.06 180.60   584 4.0       11
## 59   -17.80 181.35   535 4.4       23
## 60   -24.20 179.20   530 4.3       12
## 61   -20.69 181.55   582 4.7       35
## 62   -21.16 182.40   260 4.1       12
## 63   -13.82 172.38   613 5.0       61
## 64   -11.49 166.22    84 4.6       32
## 65   -20.68 181.41   593 4.9       40
## 66   -17.10 184.93   286 4.7       25
## 67   -20.14 181.60   587 4.1       13
## 68   -21.96 179.62   627 5.0       45
## 69   -20.42 181.86   530 4.5       27
## 70   -15.46 187.81    40 5.5       91
## 71   -15.31 185.80   152 4.0       11
## 72   -19.86 184.35   201 4.5       30
## 73   -11.55 166.20    96 4.3       14
## 74   -23.74 179.99   506 5.2       75
## 75   -17.70 181.23   546 4.4       35
## 76   -23.54 180.04   564 4.3       15
## 77   -19.21 184.70   197 4.1       11
## 78   -12.11 167.06   265 4.5       23
## 79   -21.81 181.71   323 4.2       15
## 80   -28.98 181.11   304 5.3       60
## 81   -34.02 180.21    75 5.2       65
## 82   -23.84 180.99   367 4.5       27
## 83   -19.57 182.38   579 4.6       38
## 84   -20.12 183.40   284 4.3       15
## 85   -17.70 181.70   450 4.0       11
## 86   -19.66 184.31   170 4.3       15
## 87   -21.50 170.50   117 4.7       32
## 88   -23.64 179.96   538 4.5       26
## 89   -15.43 186.30   123 4.2       16
## 90   -15.41 186.44    69 4.3       42
## 91   -15.48 167.53   128 5.1       61
## 92   -13.36 167.06   236 4.7       22
## 93   -20.64 182.02   497 5.2       64
## 94   -19.72 169.71   271 4.2       14
## 95   -15.44 185.26   224 4.2       21
## 96   -19.73 182.40   375 4.0       18
## 97   -27.24 181.11   365 4.5       21
## 98   -18.16 183.41   306 5.2       54
## 99   -13.66 166.54    50 5.1       45
## 100  -24.57 179.92   484 4.7       33
## 101  -16.98 185.61   108 4.1       12
## 102  -26.20 178.41   583 4.6       25
## 103  -21.88 180.39   608 4.7       30
## 104  -33.00 181.60    72 4.7       22
## 105  -21.33 180.69   636 4.6       29
## 106  -19.44 183.50   293 4.2       15
## 107  -34.89 180.60    42 4.4       25
## 108  -20.24 169.49   100 4.6       22
## 109  -22.55 185.90    42 5.7       76
## 110  -36.95 177.81   146 5.0       35
## 111  -15.75 185.23   280 4.5       28
## 112  -16.85 182.31   388 4.2       14
## 113  -19.06 182.45   477 4.0       16
## 114  -26.11 178.30   617 4.8       39
## 115  -26.20 178.35   606 4.4       21
## 116  -26.13 178.31   609 4.2       25
## 117  -13.66 172.23    46 5.3       67
## 118  -13.47 172.29    64 4.7       14
## 119  -14.60 167.40   178 4.8       52
## 120  -18.96 169.48   248 4.2       13
## 121  -14.65 166.97    82 4.8       28
## 122  -19.90 178.90    81 4.3       11
## 123  -22.05 180.40   606 4.7       27
## 124  -19.22 182.43   571 4.5       23
## 125  -31.24 180.60   328 4.4       18
## 126  -17.93 167.89    49 5.1       43
## 127  -19.30 183.84   517 4.2       21
## 128  -26.53 178.57   600 5.0       69
## 129  -27.72 181.70    94 4.8       59
## 130  -19.19 183.51   307 4.3       19
## 131  -17.43 185.43   189 4.5       22
## 132  -17.05 181.22   527 4.2       24
## 133  -19.52 168.98    63 4.5       21
## 134  -23.71 180.30   510 4.6       30
## 135  -21.30 180.82   624 4.3       14
## 136  -16.24 168.02    53 4.7       12
## 137  -16.14 187.32    42 5.1       68
## 138  -23.95 182.80   199 4.6       14
## 139  -25.20 182.60   149 4.9       31
## 140  -18.84 184.16   210 4.2       17
## 141  -12.66 169.46   658 4.6       43
## 142  -20.65 181.40   582 4.0       14
## 143  -13.23 167.10   220 5.0       46
## 144  -29.91 181.43   205 4.4       34
## 145  -14.31 173.50   614 4.2       23
## 146  -20.10 184.40   186 4.2       10
## 147  -17.80 185.17    97 4.4       22
## 148  -21.27 173.49    48 4.9       42
## 149  -23.58 180.17   462 5.3       63
## 150  -17.90 181.50   573 4.0       19
## 151  -23.34 184.50    56 5.7      106
## 152  -15.56 167.62   127 6.4      122
## 153  -23.83 182.56   229 4.3       24
## 154  -11.80 165.80   112 4.2       20
## 155  -15.54 167.68   140 4.7       16
## 156  -20.65 181.32   597 4.7       39
## 157  -11.75 166.07    69 4.2       14
## 158  -24.81 180.00   452 4.3       19
## 159  -20.90 169.84    93 4.9       31
## 160  -11.34 166.24   103 4.6       30
## 161  -17.98 180.50   626 4.1       19
## 162  -24.34 179.52   504 4.8       34
## 163  -13.86 167.16   202 4.6       30
## 164  -35.56 180.20    42 4.6       32
## 165  -35.48 179.90    59 4.8       35
## 166  -34.20 179.43    40 5.0       37
## 167  -26.00 182.12   205 5.6       98
## 168  -19.89 183.84   244 5.3       73
## 169  -23.43 180.00   553 4.7       41
## 170  -18.89 169.42   239 4.5       27
## 171  -17.82 181.83   640 4.3       24
## 172  -25.68 180.34   434 4.6       41
## 173  -20.20 180.90   627 4.1       11
## 174  -15.20 184.68    99 4.1       14
## 175  -15.03 182.29   399 4.1       10
## 176  -32.22 180.20   216 5.7       90
## 177  -22.64 180.64   544 5.0       50
## 178  -17.42 185.16   206 4.5       22
## 179  -17.84 181.48   542 4.1       20
## 180  -15.02 184.24   339 4.6       27
## 181  -18.04 181.75   640 4.5       47
## 182  -24.60 183.50    67 4.3       25
## 183  -19.88 184.30   161 4.4       17
## 184  -20.30 183.00   375 4.2       15
## 185  -20.45 181.85   534 4.1       14
## 186  -17.67 187.09    45 4.9       62
## 187  -22.30 181.90   309 4.3       11
## 188  -19.85 181.85   576 4.9       54
## 189  -24.27 179.88   523 4.6       24
## 190  -15.85 185.13   290 4.6       29
## 191  -20.02 184.09   234 5.3       71
## 192  -18.56 169.31   223 4.7       35
## 193  -17.87 182.00   569 4.6       12
## 194  -24.08 179.50   605 4.1       21
## 195  -32.20 179.61   422 4.6       41
## 196  -20.36 181.19   637 4.2       23
## 197  -23.85 182.53   204 4.6       27
## 198  -24.00 182.75   175 4.5       14
## 199  -20.41 181.74   538 4.3       31
## 200  -17.72 180.30   595 5.2       74
## 201  -19.67 182.18   360 4.3       23
## 202  -17.70 182.20   445 4.0       12
## 203  -16.23 183.59   367 4.7       35
## 204  -26.72 183.35   190 4.5       36
## 205  -12.95 169.09   629 4.5       19
## 206  -21.97 182.32   261 4.3       13
## 207  -21.96 180.54   603 5.2       66
## 208  -20.32 181.69   508 4.5       14
## 209  -30.28 180.62   350 4.7       32
## 210  -20.20 182.30   533 4.2       11
## 211  -30.66 180.13   411 4.7       42
## 212  -16.17 184.10   338 4.3       13
## 213  -28.25 181.71   226 4.1       19
## 214  -20.47 185.68    93 5.4       85
## 215  -23.55 180.27   535 4.3       22
## 216  -20.94 181.58   573 4.3       21
## 217  -26.67 182.40   186 4.2       17
## 218  -18.13 181.52   618 4.6       41
## 219  -20.21 183.83   242 4.4       29
## 220  -18.31 182.39   342 4.2       14
## 221  -16.52 185.70    90 4.7       30
## 222  -22.36 171.65   130 4.6       39
## 223  -22.43 184.48    65 4.9       48
## 224  -20.37 182.10   397 4.2       22
## 225  -23.77 180.16   505 4.5       26
## 226  -13.65 166.66    71 4.9       52
## 227  -21.55 182.90   207 4.2       18
## 228  -16.24 185.75   154 4.5       22
## 229  -23.73 182.53   232 5.0       55
## 230  -22.34 171.52   106 5.0       43
## 231  -19.40 180.94   664 4.7       34
## 232  -24.64 180.81   397 4.3       24
## 233  -16.00 182.82   431 4.4       16
## 234  -19.62 185.35    57 4.9       31
## 235  -23.84 180.13   525 4.5       15
## 236  -23.54 179.93   574 4.0       12
## 237  -28.23 182.68    74 4.4       20
## 238  -21.68 180.63   617 5.0       63
## 239  -13.44 166.53    44 4.7       27
## 240  -24.96 180.22   470 4.8       41
## 241  -20.08 182.74   298 4.5       33
## 242  -24.36 182.84   148 4.1       16
## 243  -14.70 166.00    48 5.3       16
## 244  -18.20 183.68   107 4.8       52
## 245  -16.65 185.51   218 5.0       52
## 246  -18.11 181.67   597 4.6       28
## 247  -17.95 181.65   619 4.3       26
## 248  -15.50 186.90    46 4.7       18
## 249  -23.36 180.01   553 5.3       61
## 250  -19.15 169.50   150 4.2       12
## 251  -10.97 166.26   180 4.7       26
## 252  -14.85 167.24    97 4.5       26
## 253  -17.80 181.38   587 5.1       47
## 254  -22.50 170.40   106 4.9       38
## 255  -29.10 182.10   179 4.4       19
## 256  -20.32 180.88   680 4.2       22
## 257  -16.09 184.89   304 4.6       34
## 258  -19.18 169.33   254 4.7       35
## 259  -23.81 179.36   521 4.2       23
## 260  -23.79 179.89   526 4.9       43
## 261  -19.02 184.23   270 5.1       72
## 262  -20.90 181.51   548 4.7       32
## 263  -19.06 169.01   158 4.4       10
## 264  -17.88 181.47   562 4.4       27
## 265  -19.41 183.05   300 4.2       16
## 266  -26.17 184.20    65 4.9       37
## 267  -14.95 167.24   130 4.6       16
## 268  -18.73 168.80    82 4.4       14
## 269  -20.21 182.37   482 4.6       37
## 270  -21.29 180.85   607 4.5       23
## 271  -19.76 181.41   105 4.4       15
## 272  -22.09 180.38   590 4.9       35
## 273  -23.80 179.90   498 4.1       12
## 274  -20.16 181.99   504 4.2       11
## 275  -22.13 180.38   577 5.7      104
## 276  -17.44 181.40   529 4.6       25
## 277  -23.33 180.18   528 5.0       59
## 278  -24.78 179.22   492 4.3       16
## 279  -22.00 180.52   561 4.5       19
## 280  -19.13 182.51   579 5.2       56
## 281  -30.72 180.10   413 4.4       22
## 282  -22.32 180.54   565 4.2       12
## 283  -16.45 177.77   138 4.6       17
## 284  -17.70 185.00   383 4.0       10
## 285  -17.95 184.68   260 4.4       21
## 286  -24.40 179.85   522 4.7       29
## 287  -19.30 180.60   671 4.2       16
## 288  -21.13 185.32   123 4.7       36
## 289  -18.07 181.57   572 4.5       26
## 290  -20.60 182.28   529 5.0       50
## 291  -18.48 181.49   641 5.0       49
## 292  -13.34 166.20    67 4.8       18
## 293  -20.92 181.50   546 4.6       31
## 294  -25.31 179.69   507 4.6       35
## 295  -15.24 186.21   158 5.0       57
## 296  -16.40 185.86   148 5.0       47
## 297  -24.57 178.40   562 5.6       80
## 298  -17.94 181.51   601 4.0       16
## 299  -30.64 181.20   175 4.0       16
## 300  -18.64 169.32   260 4.6       23
## 301  -13.09 169.28   654 4.4       22
## 302  -19.68 184.14   242 4.8       40
## 303  -16.44 185.74   126 4.7       30
## 304  -21.09 181.38   555 4.6       15
## 305  -14.99 171.39   637 4.3       21
## 306  -23.30 179.70   500 4.7       29
## 307  -17.68 181.36   515 4.1       19
## 308  -22.00 180.53   583 4.9       20
## 309  -21.38 181.39   501 4.6       36
## 310  -32.62 181.50    55 4.8       26
## 311  -13.05 169.58   644 4.9       68
## 312  -12.93 169.63   641 5.1       57
## 313  -18.60 181.91   442 5.4       82
## 314  -21.34 181.41   464 4.5       21
## 315  -21.48 183.78   200 4.9       54
## 316  -17.40 181.02   479 4.4       14
## 317  -17.32 181.03   497 4.1       13
## 318  -18.77 169.24   218 5.3       53
## 319  -26.16 179.50   492 4.5       25
## 320  -12.59 167.10   325 4.9       26
## 321  -14.82 167.32   123 4.8       28
## 322  -21.79 183.48   210 5.2       69
## 323  -19.83 182.04   575 4.4       23
## 324  -29.50 182.31   129 4.4       14
## 325  -12.49 166.36    74 4.9       55
## 326  -26.10 182.30    49 4.4       11
## 327  -21.04 181.20   483 4.2       10
## 328  -10.78 165.77    93 4.6       20
## 329  -20.76 185.77   118 4.6       15
## 330  -11.41 166.24    83 5.3       55
## 331  -19.10 183.87    61 5.3       42
## 332  -23.91 180.00   534 4.5       11
## 333  -27.33 182.60    42 4.4       11
## 334  -12.25 166.60   219 5.0       28
## 335  -23.49 179.07   544 5.1       58
## 336  -27.18 182.18    56 4.5       14
## 337  -25.80 182.10    68 4.5       26
## 338  -27.19 182.18    69 5.4       68
## 339  -27.27 182.38    45 4.5       16
## 340  -27.10 182.18    43 4.7       17
## 341  -27.22 182.28    65 4.2       14
## 342  -27.38 181.70    80 4.8       13
## 343  -27.27 182.50    51 4.5       13
## 344  -27.54 182.50    68 4.3       12
## 345  -27.20 182.39    69 4.3       14
## 346  -27.71 182.47   103 4.3       11
## 347  -27.60 182.40    61 4.6       11
## 348  -27.38 182.39    69 4.5       12
## 349  -21.54 185.48    51 5.0       29
## 350  -27.21 182.43    55 4.6       10
## 351  -28.96 182.61    54 4.6       15
## 352  -12.01 166.29    59 4.9       27
## 353  -17.46 181.32   573 4.1       17
## 354  -30.17 182.02    56 5.5       68
## 355  -27.27 182.36    65 4.7       21
## 356  -17.79 181.32   587 5.0       49
## 357  -22.19 171.40   150 5.1       49
## 358  -17.10 182.68   403 5.5       82
## 359  -27.18 182.53    60 4.6       21
## 360  -11.64 166.47   130 4.7       19
## 361  -17.98 181.58   590 4.2       14
## 362  -16.90 185.72   135 4.0       22
## 363  -21.98 179.60   583 5.4       67
## 364  -32.14 179.90   406 4.3       19
## 365  -18.80 169.21   221 4.4       16
## 366  -26.78 183.61    40 4.6       22
## 367  -20.43 182.37   502 5.1       48
## 368  -18.30 183.20   103 4.5       14
## 369  -15.83 182.51   423 4.2       21
## 370  -23.44 182.93   158 4.1       20
## 371  -23.73 179.99   527 5.1       49
## 372  -19.89 184.08   219 5.4      105
## 373  -17.59 181.09   536 5.1       61
## 374  -19.77 181.40   630 5.1       54
## 375  -20.31 184.06   249 4.4       21
## 376  -15.33 186.75    48 5.7      123
## 377  -18.20 181.60   553 4.4       14
## 378  -15.36 186.66   112 5.1       57
## 379  -15.29 186.42   153 4.6       31
## 380  -15.36 186.71   130 5.5       95
## 381  -16.24 167.95   188 5.1       68
## 382  -13.47 167.14   226 4.4       26
## 383  -25.50 182.82   124 5.0       25
## 384  -14.32 167.33   204 5.0       49
## 385  -20.04 182.01   605 5.1       49
## 386  -28.83 181.66   221 5.1       63
## 387  -17.82 181.49   573 4.2       14
## 388  -27.23 180.98   401 4.5       39
## 389  -10.72 165.99   195 4.0       14
## 390  -27.00 183.88    56 4.9       36
## 391  -20.36 186.16   102 4.3       21
## 392  -27.17 183.68    44 4.8       27
## 393  -20.94 181.26   556 4.4       21
## 394  -17.46 181.90   417 4.2       14
## 395  -21.04 181.20   591 4.9       45
## 396  -23.70 179.60   646 4.2       21
## 397  -17.72 181.42   565 5.3       89
## 398  -15.87 188.13    52 5.0       30
## 399  -17.84 181.30   535 5.7      112
## 400  -13.45 170.30   641 5.3       93
## 401  -30.80 182.16    41 4.7       24
## 402  -11.63 166.14   109 4.6       36
## 403  -30.40 181.40    40 4.3       17
## 404  -26.18 178.59   548 5.4       65
## 405  -15.70 184.50   118 4.4       30
## 406  -17.95 181.50   593 4.3       16
## 407  -20.51 182.30   492 4.3       23
## 408  -15.36 167.51   123 4.7       28
## 409  -23.61 180.23   475 4.4       26
## 410  -33.20 181.60   153 4.2       21
## 411  -17.68 186.80   112 4.5       35
## 412  -22.24 184.56    99 4.8       57
## 413  -20.07 169.14    66 4.8       37
## 414  -25.04 180.10   481 4.3       15
## 415  -21.50 185.20   139 4.4       15
## 416  -14.28 167.26   211 5.1       51
## 417  -14.43 167.26   151 4.4       17
## 418  -32.70 181.70   211 4.4       40
## 419  -34.10 181.80   246 4.3       23
## 420  -19.70 186.20    47 4.8       19
## 421  -24.19 180.38   484 4.3       27
## 422  -26.60 182.77   119 4.5       29
## 423  -17.04 186.80    70 4.1       22
## 424  -22.10 179.71   579 5.1       58
## 425  -32.60 180.90    57 4.7       44
## 426  -33.00 182.40   176 4.6       28
## 427  -20.58 181.24   602 4.7       44
## 428  -20.61 182.60   488 4.6       12
## 429  -19.47 169.15   149 4.4       15
## 430  -17.47 180.96   546 4.2       23
## 431  -18.40 183.40   343 4.1       10
## 432  -23.33 180.26   530 4.7       22
## 433  -18.55 182.23   563 4.0       17
## 434  -26.16 178.47   537 4.8       33
## 435  -21.80 183.20   325 4.4       19
## 436  -27.63 182.93    80 4.3       14
## 437  -18.89 169.48   259 4.4       21
## 438  -20.30 182.30   476 4.5       10
## 439  -20.56 182.04   499 4.5       29
## 440  -16.10 185.32   257 4.7       30
## 441  -12.66 166.37   165 4.3       18
## 442  -21.05 184.68   136 4.7       29
## 443  -17.97 168.52   146 4.8       33
## 444  -19.83 182.54   524 4.6       14
## 445  -22.55 183.81    82 5.1       68
## 446  -22.28 183.52    90 4.7       19
## 447  -15.72 185.64   138 4.3       21
## 448  -20.85 181.59   499 5.1       91
## 449  -21.11 181.50   538 5.5      104
## 450  -25.31 180.15   467 4.5       25
## 451  -26.46 182.50   184 4.3       11
## 452  -24.09 179.68   538 4.3       21
## 453  -16.96 167.70    45 4.7       23
## 454  -23.19 182.80   237 4.3       18
## 455  -20.81 184.70   162 4.3       20
## 456  -15.03 167.32   136 4.6       20
## 457  -18.06 181.59   604 4.5       23
## 458  -19.00 185.60   107 4.5       15
## 459  -23.53 179.99   538 5.4       87
## 460  -18.18 180.63   639 4.6       39
## 461  -15.66 186.80    45 4.4       11
## 462  -18.00 180.62   636 5.0      100
## 463  -18.08 180.70   628 5.2       72
## 464  -18.05 180.86   632 4.4       15
## 465  -29.90 181.16   215 5.1       51
## 466  -20.90 181.90   556 4.4       17
## 467  -15.61 167.50   135 4.4       21
## 468  -16.03 185.43   297 4.8       25
## 469  -17.68 181.11   568 4.4       22
## 470  -31.94 180.57   168 4.7       39
## 471  -19.14 184.36   269 4.7       31
## 472  -18.00 185.48   143 4.4       29
## 473  -16.95 185.94    95 4.3       12
## 474  -10.79 166.06   142 5.0       40
## 475  -20.83 185.90   104 4.5       19
## 476  -32.90 181.60   169 4.6       27
## 477  -37.93 177.47    65 5.4       65
## 478  -29.09 183.20    54 4.6       23
## 479  -23.56 180.23   474 4.5       13
## 480  -19.60 185.20   125 4.4       13
## 481  -21.39 180.68   617 4.5       18
## 482  -14.85 184.87   294 4.1       10
## 483  -22.70 183.30   180 4.0       13
## 484  -32.42 181.21    47 4.9       39
## 485  -17.90 181.30   593 4.1       13
## 486  -23.58 183.40    94 5.2       79
## 487  -34.40 180.50   201 4.4       41
## 488  -17.61 181.20   537 4.1       11
## 489  -21.07 181.13   594 4.9       43
## 490  -13.84 170.62   638 4.6       20
## 491  -30.24 181.63    80 4.5       17
## 492  -18.49 169.04   211 4.8       30
## 493  -23.45 180.23   520 4.2       19
## 494  -16.04 183.54   384 4.2       23
## 495  -17.14 185.31   223 4.1       15
## 496  -22.54 172.91    54 5.5       71
## 497  -15.90 185.30    57 4.4       19
## 498  -30.04 181.20    49 4.8       20
## 499  -24.03 180.22   508 4.2       23
## 500  -18.89 184.46   242 4.8       36
## 501  -16.51 187.10    62 4.9       46
## 502  -20.10 186.30    63 4.6       19
## 503  -21.06 183.81   203 4.5       34
## 504  -13.07 166.87   132 4.4       24
## 505  -23.46 180.09   543 4.6       28
## 506  -19.41 182.30   589 4.2       19
## 507  -11.81 165.98    51 4.7       28
## 508  -11.76 165.96    45 4.4       51
## 509  -12.08 165.76    63 4.5       51
## 510  -25.59 180.02   485 4.9       48
## 511  -26.54 183.63    66 4.7       34
## 512  -20.90 184.28    58 5.5       92
## 513  -16.99 187.00    70 4.7       30
## 514  -23.46 180.17   541 4.6       32
## 515  -17.81 181.82   598 4.1       14
## 516  -15.17 187.20    50 4.7       28
## 517  -11.67 166.02   102 4.6       21
## 518  -20.75 184.52   144 4.3       25
## 519  -19.50 186.90    58 4.4       20
## 520  -26.18 179.79   460 4.7       44
## 521  -20.66 185.77    69 4.3       25
## 522  -19.22 182.54   570 4.1       22
## 523  -24.68 183.33    70 4.7       30
## 524  -15.43 167.38   137 4.5       16
## 525  -32.45 181.15    41 5.5       81
## 526  -21.31 180.84   586 4.5       17
## 527  -15.44 167.18   140 4.6       44
## 528  -13.26 167.01   213 5.1       70
## 529  -15.26 183.13   393 4.4       28
## 530  -33.57 180.80    51 4.7       35
## 531  -15.77 167.01    64 5.5       73
## 532  -15.79 166.83    45 4.6       39
## 533  -21.00 183.20   296 4.0       16
## 534  -16.28 166.94    50 4.6       24
## 535  -23.28 184.60    44 4.8       34
## 536  -16.10 167.25    68 4.7       36
## 537  -17.70 181.31   549 4.7       33
## 538  -15.96 166.69   150 4.2       20
## 539  -15.95 167.34    47 5.4       87
## 540  -17.56 181.59   543 4.6       34
## 541  -15.90 167.42    40 5.5       86
## 542  -15.29 166.90   100 4.2       15
## 543  -15.86 166.85    85 4.5       22
## 544  -16.20 166.80    98 4.5       21
## 545  -15.71 166.91    58 4.8       20
## 546  -16.45 167.54   125 4.6       18
## 547  -11.54 166.18    89 5.4       80
## 548  -19.61 181.91   590 4.6       34
## 549  -15.61 187.15    49 5.0       30
## 550  -21.16 181.41   543 4.3       17
## 551  -20.65 182.22   506 4.3       24
## 552  -20.33 168.71    40 4.8       38
## 553  -15.08 166.62    42 4.7       23
## 554  -23.28 184.61    76 4.7       36
## 555  -23.44 184.60    63 4.8       27
## 556  -23.12 184.42   104 4.2       17
## 557  -23.65 184.46    93 4.2       16
## 558  -22.91 183.95    64 5.9      118
## 559  -22.06 180.47   587 4.6       28
## 560  -13.56 166.49    83 4.5       25
## 561  -17.99 181.57   579 4.9       49
## 562  -23.92 184.47    40 4.7       17
## 563  -30.69 182.10    62 4.9       25
## 564  -21.92 182.80   273 5.3       78
## 565  -25.04 180.97   393 4.2       21
## 566  -19.92 183.91   264 4.2       23
## 567  -27.75 182.26   174 4.5       18
## 568  -17.71 181.18   574 5.2       67
## 569  -19.60 183.84   309 4.5       23
## 570  -34.68 179.82    75 5.6       79
## 571  -14.46 167.26   195 5.2       87
## 572  -18.85 187.55    44 4.8       35
## 573  -17.02 182.41   420 4.5       29
## 574  -20.41 186.51    63 5.0       28
## 575  -18.18 182.04   609 4.4       26
## 576  -16.49 187.80    40 4.5       18
## 577  -17.74 181.31   575 4.6       42
## 578  -20.49 181.69   559 4.5       24
## 579  -18.51 182.64   405 5.2       74
## 580  -27.28 183.40    70 5.1       54
## 581  -15.90 167.16    41 4.8       42
## 582  -20.57 181.33   605 4.3       18
## 583  -11.25 166.36   130 5.1       55
## 584  -20.04 181.87   577 4.7       19
## 585  -20.89 181.25   599 4.6       20
## 586  -16.62 186.74    82 4.8       51
## 587  -20.09 168.75    50 4.6       23
## 588  -24.96 179.87   480 4.4       25
## 589  -20.95 181.42   559 4.6       27
## 590  -23.31 179.27   566 5.1       49
## 591  -20.95 181.06   611 4.3       20
## 592  -21.58 181.90   409 4.4       19
## 593  -13.62 167.15   209 4.7       30
## 594  -12.72 166.28    70 4.8       47
## 595  -21.79 185.00    74 4.1       15
## 596  -20.48 169.76   134 4.6       33
## 597  -12.84 166.78   150 4.9       35
## 598  -17.02 182.93   406 4.0       17
## 599  -23.89 182.39   243 4.7       32
## 600  -23.07 184.03    89 4.7       32
## 601  -27.98 181.96    53 5.2       89
## 602  -28.10 182.25    68 4.6       18
## 603  -21.24 180.81   605 4.6       34
## 604  -21.24 180.86   615 4.9       23
## 605  -19.89 174.46   546 5.7       99
## 606  -32.82 179.80   176 4.7       26
## 607  -22.00 185.50    52 4.4       18
## 608  -21.57 185.62    66 4.9       38
## 609  -24.50 180.92   377 4.8       43
## 610  -33.03 180.20   186 4.6       27
## 611  -30.09 182.40    51 4.4       18
## 612  -22.75 170.99    67 4.8       35
## 613  -17.99 168.98   234 4.7       28
## 614  -19.60 181.87   597 4.2       18
## 615  -15.65 186.26    64 5.1       54
## 616  -17.78 181.53   511 4.8       56
## 617  -22.04 184.91    47 4.9       47
## 618  -20.06 168.69    49 5.1       49
## 619  -18.07 181.54   546 4.3       28
## 620  -12.85 165.67    75 4.4       30
## 621  -33.29 181.30    60 4.7       33
## 622  -34.63 179.10   278 4.7       24
## 623  -24.18 179.02   550 5.3       86
## 624  -23.78 180.31   518 5.1       71
## 625  -22.37 171.50   116 4.9       38
## 626  -23.97 179.91   518 4.5       23
## 627  -34.12 181.75    75 4.7       41
## 628  -25.25 179.86   491 4.2       23
## 629  -22.87 172.65    56 5.1       50
## 630  -18.48 182.37   376 4.8       57
## 631  -21.46 181.02   584 4.2       18
## 632  -28.56 183.47    48 4.8       56
## 633  -28.56 183.59    53 4.4       20
## 634  -21.30 180.92   617 4.5       26
## 635  -20.08 183.22   294 4.3       18
## 636  -18.82 182.21   417 5.6      129
## 637  -19.51 183.97   280 4.0       16
## 638  -12.05 167.39   332 5.0       36
## 639  -17.40 186.54    85 4.2       28
## 640  -23.93 180.18   525 4.6       31
## 641  -21.23 181.09   613 4.6       18
## 642  -16.23 167.91   182 4.5       28
## 643  -28.15 183.40    57 5.0       32
## 644  -20.81 185.01    79 4.7       42
## 645  -20.72 181.41   595 4.6       36
## 646  -23.29 184.00   164 4.8       50
## 647  -38.46 176.03   148 4.6       44
## 648  -15.48 186.73    82 4.4       17
## 649  -37.03 177.52   153 5.6       87
## 650  -20.48 181.38   556 4.2       13
## 651  -18.12 181.88   649 5.4       88
## 652  -18.17 181.98   651 4.8       43
## 653  -11.40 166.07    93 5.6       94
## 654  -23.10 180.12   533 4.4       27
## 655  -14.28 170.34   642 4.7       29
## 656  -22.87 171.72    47 4.6       27
## 657  -17.59 180.98   548 5.1       79
## 658  -27.60 182.10   154 4.6       22
## 659  -17.94 180.60   627 4.5       29
## 660  -17.88 180.58   622 4.2       23
## 661  -30.01 180.80   286 4.8       43
## 662  -19.19 182.30   390 4.9       48
## 663  -18.14 180.87   624 5.5      105
## 664  -23.46 180.11   539 5.0       41
## 665  -18.44 181.04   624 4.2       21
## 666  -18.21 180.87   631 5.2       69
## 667  -18.26 180.98   631 4.8       36
## 668  -15.85 184.83   299 4.4       30
## 669  -23.82 180.09   498 4.8       40
## 670  -18.60 184.28   255 4.4       31
## 671  -17.80 181.32   539 4.1       12
## 672  -10.78 166.10   195 4.9       45
## 673  -18.12 181.71   594 4.6       24
## 674  -19.34 182.62   573 4.5       32
## 675  -15.34 167.10   128 5.3       18
## 676  -24.97 182.85   137 4.8       40
## 677  -15.97 186.08   143 4.6       41
## 678  -23.47 180.24   511 4.8       37
## 679  -23.11 179.15   564 4.7       17
## 680  -20.54 181.66   559 4.9       50
## 681  -18.92 169.37   248 5.3       60
## 682  -20.16 184.27   210 4.4       27
## 683  -25.48 180.94   390 4.6       33
## 684  -18.19 181.74   616 4.3       17
## 685  -15.35 186.40    98 4.4       17
## 686  -18.69 169.10   218 4.2       27
## 687  -18.89 181.24   655 4.1       14
## 688  -17.61 183.32   356 4.2       15
## 689  -20.93 181.54   564 5.0       64
## 690  -17.60 181.50   548 4.1       10
## 691  -17.96 181.40   655 4.3       20
## 692  -18.80 182.41   385 5.2       67
## 693  -20.61 182.44   518 4.2       10
## 694  -20.74 181.53   598 4.5       36
## 695  -25.23 179.86   476 4.4       29
## 696  -23.90 179.90   579 4.4       16
## 697  -18.07 181.58   603 5.0       65
## 698  -15.43 185.19   249 4.0       11
## 699  -14.30 167.32   208 4.8       25
## 700  -18.04 181.57   587 5.0       51
## 701  -13.90 167.18   221 4.2       21
## 702  -17.64 177.01   545 5.2       91
## 703  -17.98 181.51   586 5.2       68
## 704  -25.00 180.00   488 4.5       10
## 705  -19.45 184.48   246 4.3       15
## 706  -16.11 187.48    61 4.5       19
## 707  -23.73 179.98   524 4.6       11
## 708  -17.74 186.78   104 5.1       71
## 709  -21.56 183.23   271 4.4       36
## 710  -20.97 181.72   487 4.3       16
## 711  -15.45 186.73    83 4.7       37
## 712  -15.93 167.91   183 5.6      109
## 713  -21.47 185.86    55 4.9       46
## 714  -21.44 170.45   166 5.1       22
## 715  -22.16 180.49   586 4.6       13
## 716  -13.36 172.76   618 4.4       18
## 717  -21.22 181.51   524 4.8       49
## 718  -26.10 182.50   133 4.2       17
## 719  -18.35 185.27   201 4.7       57
## 720  -17.20 182.90   383 4.1       11
## 721  -22.42 171.40    86 4.7       33
## 722  -17.91 181.48   555 4.0       17
## 723  -26.53 178.30   605 4.9       43
## 724  -26.50 178.29   609 5.0       50
## 725  -16.31 168.08   204 4.5       16
## 726  -18.76 169.71   287 4.4       23
## 727  -17.10 182.80   390 4.0       14
## 728  -19.28 182.78   348 4.5       30
## 729  -23.50 180.00   550 4.7       23
## 730  -21.26 181.69   487 4.4       20
## 731  -17.97 181.48   578 4.7       43
## 732  -26.02 181.20   361 4.7       32
## 733  -30.30 180.80   275 4.0       14
## 734  -24.89 179.67   498 4.2       14
## 735  -14.57 167.24   162 4.5       18
## 736  -15.40 186.87    78 4.7       44
## 737  -22.06 183.95   134 4.5       17
## 738  -25.14 178.42   554 4.1       15
## 739  -20.30 181.40   608 4.6       13
## 740  -25.28 181.17   367 4.3       25
## 741  -20.63 181.61   599 4.6       30
## 742  -19.02 186.83    45 5.2       65
## 743  -22.10 185.30    50 4.6       22
## 744  -38.59 175.70   162 4.7       36
## 745  -19.30 183.00   302 5.0       65
## 746  -31.03 181.59    57 5.2       49
## 747  -30.51 181.30   203 4.4       20
## 748  -22.55 183.34    66 4.6       18
## 749  -22.14 180.64   591 4.5       18
## 750  -25.60 180.30   440 4.0       12
## 751  -18.04 181.84   611 4.2       20
## 752  -21.29 185.77    57 5.3       69
## 753  -21.08 180.85   627 5.9      119
## 754  -20.64 169.66    89 4.9       42
## 755  -24.41 180.03   500 4.5       34
## 756  -12.16 167.03   264 4.4       14
## 757  -17.10 185.90   127 5.4       75
## 758  -21.13 185.60    85 5.3       86
## 759  -12.34 167.43    50 5.1       47
## 760  -16.43 186.73    75 4.1       20
## 761  -20.70 184.30   182 4.3       17
## 762  -21.18 180.92   619 4.5       18
## 763  -17.78 185.33   223 4.1       10
## 764  -21.57 183.86   156 5.1       70
## 765  -13.70 166.75    46 5.3       71
## 766  -12.27 167.41    50 4.5       29
## 767  -19.10 184.52   230 4.1       16
## 768  -19.85 184.51   184 4.4       26
## 769  -11.37 166.55   188 4.7       24
## 770  -20.70 186.30    80 4.0       10
## 771  -20.24 185.10    86 5.1       61
## 772  -16.40 182.73   391 4.0       16
## 773  -19.60 184.53   199 4.3       21
## 774  -21.63 180.77   592 4.3       21
## 775  -21.60 180.50   595 4.0       22
## 776  -21.77 181.00   618 4.1       10
## 777  -21.80 183.60   213 4.4       17
## 778  -21.05 180.90   616 4.3       10
## 779  -10.80 165.80   175 4.2       12
## 780  -17.90 181.50   589 4.0       12
## 781  -22.26 171.44    83 4.5       25
## 782  -22.33 171.46   119 4.7       32
## 783  -24.04 184.85    70 5.0       48
## 784  -20.40 186.10    74 4.3       22
## 785  -15.00 184.62    40 5.1       54
## 786  -27.87 183.40    87 4.7       34
## 787  -14.12 166.64    63 5.3       69
## 788  -23.61 180.27   537 5.0       63
## 789  -21.56 185.50    47 4.5       29
## 790  -21.19 181.58   490 5.0       77
## 791  -18.07 181.65   593 4.1       16
## 792  -26.00 178.43   644 4.9       27
## 793  -20.21 181.90   576 4.1       16
## 794  -28.00 182.00   199 4.0       16
## 795  -20.74 180.70   589 4.4       27
## 796  -31.80 180.60   178 4.5       19
## 797  -18.91 169.46   248 4.4       33
## 798  -20.45 182.10   500 4.5       37
## 799  -22.90 183.80    71 4.3       19
## 800  -18.11 181.63   568 4.3       36
## 801  -23.80 184.70    42 5.0       36
## 802  -23.42 180.21   510 4.5       37
## 803  -23.20 184.80    97 4.5       13
## 804  -12.93 169.52   663 4.4       30
## 805  -21.14 181.06   625 4.5       35
## 806  -19.13 184.97   210 4.1       22
## 807  -21.08 181.30   557 4.9       78
## 808  -20.07 181.75   582 4.7       27
## 809  -20.90 182.02   402 4.3       18
## 810  -25.04 179.84   474 4.6       32
## 811  -21.85 180.89   577 4.6       43
## 812  -19.34 186.59    56 5.2       49
## 813  -15.83 167.10    43 4.5       19
## 814  -23.73 183.00   118 4.3       11
## 815  -18.10 181.72   544 4.6       52
## 816  -22.12 180.49   532 4.0       14
## 817  -15.39 185.10   237 4.5       39
## 818  -16.21 186.52   111 4.8       30
## 819  -21.75 180.67   595 4.6       30
## 820  -22.10 180.40   603 4.1       11
## 821  -24.97 179.54   505 4.9       50
## 822  -19.36 186.36   100 4.7       40
## 823  -22.14 179.62   587 4.1       23
## 824  -21.48 182.44   364 4.3       20
## 825  -18.54 168.93   100 4.4       17
## 826  -21.62 182.40   350 4.0       12
## 827  -13.40 166.90   228 4.8       15
## 828  -15.50 185.30    93 4.4       25
## 829  -15.67 185.23    66 4.4       34
## 830  -21.78 183.11   225 4.6       21
## 831  -30.63 180.90   334 4.2       28
## 832  -15.70 185.10    70 4.1       15
## 833  -19.20 184.37   220 4.2       18
## 834  -19.70 182.44   397 4.0       12
## 835  -19.40 182.29   326 4.1       15
## 836  -15.85 185.90   121 4.1       17
## 837  -17.38 168.63   209 4.7       29
## 838  -24.33 179.97   510 4.8       44
## 839  -20.89 185.26    54 5.1       44
## 840  -18.97 169.44   242 5.0       41
## 841  -17.99 181.62   574 4.8       38
## 842  -15.80 185.25    82 4.4       39
## 843  -25.42 182.65   102 5.0       36
## 844  -21.60 169.90    43 5.2       56
## 845  -26.06 180.05   432 4.2       19
## 846  -17.56 181.23   580 4.1       16
## 847  -25.63 180.26   464 4.8       60
## 848  -25.46 179.98   479 4.5       27
## 849  -22.23 180.48   581 5.0       54
## 850  -21.55 181.39   513 5.1       81
## 851  -15.18 185.93    77 4.1       16
## 852  -13.79 166.56    68 4.7       41
## 853  -15.18 167.23    71 5.2       59
## 854  -18.78 186.72    68 4.8       48
## 855  -17.90 181.41   586 4.5       33
## 856  -18.50 185.40   243 4.0       11
## 857  -14.82 171.17   658 4.7       49
## 858  -15.65 185.17   315 4.1       15
## 859  -30.01 181.15   210 4.3       17
## 860  -13.16 167.24   278 4.3       17
## 861  -21.03 180.78   638 4.0       14
## 862  -21.40 180.78   615 4.7       51
## 863  -17.93 181.89   567 4.1       27
## 864  -20.87 181.70   560 4.2       13
## 865  -12.01 166.66    99 4.8       36
## 866  -19.10 169.63   266 4.8       31
## 867  -22.85 181.37   397 4.2       15
## 868  -17.08 185.96   180 4.2       29
## 869  -21.14 174.21    40 5.7       78
## 870  -12.23 167.02   242 6.0      132
## 871  -20.91 181.57   530 4.2       20
## 872  -11.38 167.05   133 4.5       32
## 873  -11.02 167.01    62 4.9       36
## 874  -22.09 180.58   580 4.4       22
## 875  -17.80 181.20   530 4.0       15
## 876  -18.94 182.43   566 4.3       20
## 877  -18.85 182.20   501 4.2       23
## 878  -21.91 181.28   548 4.5       30
## 879  -22.03 179.77   587 4.8       31
## 880  -18.10 181.63   592 4.4       28
## 881  -18.40 184.84   221 4.2       18
## 882  -21.20 181.40   560 4.2       12
## 883  -12.00 166.20    94 5.0       31
## 884  -11.70 166.30   139 4.2       15
## 885  -26.72 182.69   162 5.2       64
## 886  -24.39 178.98   562 4.5       30
## 887  -19.64 169.50   204 4.6       35
## 888  -21.35 170.04    56 5.0       22
## 889  -22.82 184.52    49 5.0       52
## 890  -38.28 177.10   100 5.4       71
## 891  -12.57 167.11   231 4.8       28
## 892  -22.24 180.28   601 4.2       21
## 893  -13.80 166.53    42 5.5       70
## 894  -21.07 183.78   180 4.3       25
## 895  -17.74 181.25   559 4.1       16
## 896  -23.87 180.15   524 4.4       22
## 897  -21.29 185.80    69 4.9       74
## 898  -22.20 180.58   594 4.5       45
## 899  -15.24 185.11   262 4.9       56
## 900  -17.82 181.27   538 4.0       33
## 901  -32.14 180.00   331 4.5       27
## 902  -19.30 185.86    48 5.0       40
## 903  -33.09 180.94    47 4.9       47
## 904  -20.18 181.62   558 4.5       31
## 905  -17.46 181.42   524 4.2       16
## 906  -17.44 181.33   545 4.2       37
## 907  -24.71 179.85   477 4.2       34
## 908  -21.53 170.52   129 5.2       30
## 909  -19.17 169.53   268 4.3       21
## 910  -28.05 182.39   117 5.1       43
## 911  -23.39 179.97   541 4.6       50
## 912  -22.33 171.51   112 4.6       14
## 913  -15.28 185.98   162 4.4       36
## 914  -20.27 181.51   609 4.4       32
## 915  -10.96 165.97    76 4.9       64
## 916  -21.52 169.75    61 5.1       40
## 917  -19.57 184.47   202 4.2       28
## 918  -23.08 183.45    90 4.7       30
## 919  -25.06 182.80   133 4.0       14
## 920  -17.85 181.44   589 5.6      115
## 921  -15.99 167.95   190 5.3       81
## 922  -20.56 184.41   138 5.0       82
## 923  -17.98 181.61   598 4.3       27
## 924  -18.40 181.77   600 4.1       11
## 925  -27.64 182.22   162 5.1       67
## 926  -20.99 181.02   626 4.5       36
## 927  -14.86 167.32   137 4.9       22
## 928  -29.33 182.72    57 5.4       61
## 929  -25.81 182.54   201 4.7       40
## 930  -14.10 166.01    69 4.8       29
## 931  -17.63 185.13   219 4.5       28
## 932  -23.47 180.21   553 4.2       23
## 933  -23.92 180.21   524 4.6       50
## 934  -20.88 185.18    51 4.6       28
## 935  -20.25 184.75   107 5.6      121
## 936  -19.33 186.16    44 5.4      110
## 937  -18.14 181.71   574 4.0       20
## 938  -22.41 183.99   128 5.2       72
## 939  -20.77 181.16   568 4.2       12
## 940  -17.95 181.73   583 4.7       57
## 941  -20.83 181.01   622 4.3       15
## 942  -27.84 182.10   193 4.8       27
## 943  -19.94 182.39   544 4.6       30
## 944  -23.60 183.99   118 5.4       88
## 945  -23.70 184.13    51 4.8       27
## 946  -30.39 182.40    63 4.6       22
## 947  -18.98 182.32   442 4.2       22
## 948  -27.89 182.92    87 5.5       67
## 949  -23.50 184.90    61 4.7       16
## 950  -23.73 184.49    60 4.7       35
## 951  -17.93 181.62   561 4.5       32
## 952  -35.94 178.52   138 5.5       78
## 953  -18.68 184.50   174 4.5       34
## 954  -23.47 179.95   543 4.1       21
## 955  -23.49 180.06   530 4.0       23
## 956  -23.85 180.26   497 4.3       32
## 957  -27.08 183.44    63 4.7       27
## 958  -20.88 184.95    82 4.9       50
## 959  -20.97 181.20   605 4.5       31
## 960  -21.71 183.58   234 4.7       55
## 961  -23.90 184.60    41 4.5       22
## 962  -15.78 167.44    40 4.8       42
## 963  -12.57 166.72   137 4.3       20
## 964  -19.69 184.23   223 4.1       23
## 965  -22.04 183.95   109 5.4       61
## 966  -17.99 181.59   595 4.1       26
## 967  -23.50 180.13   512 4.8       40
## 968  -21.40 180.74   613 4.2       20
## 969  -15.86 166.98    60 4.8       25
## 970  -23.95 184.64    43 5.4       45
## 971  -25.79 182.38   172 4.4       14
## 972  -23.75 184.50    54 5.2       74
## 973  -24.10 184.50    68 4.7       23
## 974  -18.56 169.05   217 4.9       35
## 975  -23.30 184.68   102 4.9       27
## 976  -17.03 185.74   178 4.2       32
## 977  -20.77 183.71   251 4.4       47
## 978  -28.10 183.50    42 4.4       17
## 979  -18.83 182.26   575 4.3       11
## 980  -23.00 170.70    43 4.9       20
## 981  -20.82 181.67   577 5.0       67
## 982  -22.95 170.56    42 4.7       21
## 983  -28.22 183.60    75 4.9       49
## 984  -27.99 183.50    71 4.3       22
## 985  -15.54 187.15    60 4.5       17
## 986  -12.37 166.93   291 4.2       16
## 987  -22.33 171.66   125 5.2       51
## 988  -22.70 170.30    69 4.8       27
## 989  -17.86 181.30   614 4.0       12
## 990  -16.00 184.53   108 4.7       33
## 991  -20.73 181.42   575 4.3       18
## 992  -15.45 181.42   409 4.3       27
## 993  -20.05 183.86   243 4.9       65
## 994  -17.95 181.37   642 4.0       17
## 995  -17.70 188.10    45 4.2       10
## 996  -25.93 179.54   470 4.4       22
## 997  -12.28 167.06   248 4.7       35
## 998  -20.13 184.20   244 4.5       34
## 999  -17.40 187.80    40 4.5       14
## 1000 -21.59 170.56   165 6.0      119
## 
## [[2]]
##        lat   long depth mag stations
## 1   -26.00 184.10    42 5.4       43
## 2   -20.70 169.92   139 6.1       94
## 3   -13.64 165.96    50 6.0       83
## 4   -19.66 180.28   431 5.4       57
## 5   -16.46 180.79   498 5.2       79
## 6   -18.97 185.25   129 5.1       73
## 7   -13.82 172.38   613 5.0       61
## 8   -21.96 179.62   627 5.0       45
## 9   -15.46 187.81    40 5.5       91
## 10  -23.74 179.99   506 5.2       75
## 11  -28.98 181.11   304 5.3       60
## 12  -34.02 180.21    75 5.2       65
## 13  -15.48 167.53   128 5.1       61
## 14  -20.64 182.02   497 5.2       64
## 15  -18.16 183.41   306 5.2       54
## 16  -13.66 166.54    50 5.1       45
## 17  -22.55 185.90    42 5.7       76
## 18  -36.95 177.81   146 5.0       35
## 19  -13.66 172.23    46 5.3       67
## 20  -17.93 167.89    49 5.1       43
## 21  -26.53 178.57   600 5.0       69
## 22  -16.14 187.32    42 5.1       68
## 23  -13.23 167.10   220 5.0       46
## 24  -23.58 180.17   462 5.3       63
## 25  -23.34 184.50    56 5.7      106
## 26  -15.56 167.62   127 6.4      122
## 27  -34.20 179.43    40 5.0       37
## 28  -26.00 182.12   205 5.6       98
## 29  -19.89 183.84   244 5.3       73
## 30  -32.22 180.20   216 5.7       90
## 31  -22.64 180.64   544 5.0       50
## 32  -20.02 184.09   234 5.3       71
## 33  -17.72 180.30   595 5.2       74
## 34  -21.96 180.54   603 5.2       66
## 35  -20.47 185.68    93 5.4       85
## 36  -23.73 182.53   232 5.0       55
## 37  -22.34 171.52   106 5.0       43
## 38  -21.68 180.63   617 5.0       63
## 39  -14.70 166.00    48 5.3       16
## 40  -16.65 185.51   218 5.0       52
## 41  -23.36 180.01   553 5.3       61
## 42  -17.80 181.38   587 5.1       47
## 43  -19.02 184.23   270 5.1       72
## 44  -22.13 180.38   577 5.7      104
## 45  -23.33 180.18   528 5.0       59
## 46  -19.13 182.51   579 5.2       56
## 47  -20.60 182.28   529 5.0       50
## 48  -18.48 181.49   641 5.0       49
## 49  -15.24 186.21   158 5.0       57
## 50  -16.40 185.86   148 5.0       47
## 51  -24.57 178.40   562 5.6       80
## 52  -12.93 169.63   641 5.1       57
## 53  -18.60 181.91   442 5.4       82
## 54  -18.77 169.24   218 5.3       53
## 55  -21.79 183.48   210 5.2       69
## 56  -11.41 166.24    83 5.3       55
## 57  -19.10 183.87    61 5.3       42
## 58  -12.25 166.60   219 5.0       28
## 59  -23.49 179.07   544 5.1       58
## 60  -27.19 182.18    69 5.4       68
## 61  -21.54 185.48    51 5.0       29
## 62  -30.17 182.02    56 5.5       68
## 63  -17.79 181.32   587 5.0       49
## 64  -22.19 171.40   150 5.1       49
## 65  -17.10 182.68   403 5.5       82
## 66  -21.98 179.60   583 5.4       67
## 67  -20.43 182.37   502 5.1       48
## 68  -23.73 179.99   527 5.1       49
## 69  -19.89 184.08   219 5.4      105
## 70  -17.59 181.09   536 5.1       61
## 71  -19.77 181.40   630 5.1       54
## 72  -15.33 186.75    48 5.7      123
## 73  -15.36 186.66   112 5.1       57
## 74  -15.36 186.71   130 5.5       95
## 75  -16.24 167.95   188 5.1       68
## 76  -25.50 182.82   124 5.0       25
## 77  -14.32 167.33   204 5.0       49
## 78  -20.04 182.01   605 5.1       49
## 79  -28.83 181.66   221 5.1       63
## 80  -17.72 181.42   565 5.3       89
## 81  -15.87 188.13    52 5.0       30
## 82  -17.84 181.30   535 5.7      112
## 83  -13.45 170.30   641 5.3       93
## 84  -26.18 178.59   548 5.4       65
## 85  -14.28 167.26   211 5.1       51
## 86  -22.10 179.71   579 5.1       58
## 87  -22.55 183.81    82 5.1       68
## 88  -20.85 181.59   499 5.1       91
## 89  -21.11 181.50   538 5.5      104
## 90  -23.53 179.99   538 5.4       87
## 91  -18.00 180.62   636 5.0      100
## 92  -18.08 180.70   628 5.2       72
## 93  -29.90 181.16   215 5.1       51
## 94  -10.79 166.06   142 5.0       40
## 95  -37.93 177.47    65 5.4       65
## 96  -23.58 183.40    94 5.2       79
## 97  -22.54 172.91    54 5.5       71
## 98  -20.90 184.28    58 5.5       92
## 99  -32.45 181.15    41 5.5       81
## 100 -13.26 167.01   213 5.1       70
## 101 -15.77 167.01    64 5.5       73
## 102 -15.95 167.34    47 5.4       87
## 103 -15.90 167.42    40 5.5       86
## 104 -11.54 166.18    89 5.4       80
## 105 -15.61 187.15    49 5.0       30
## 106 -22.91 183.95    64 5.9      118
## 107 -21.92 182.80   273 5.3       78
## 108 -17.71 181.18   574 5.2       67
## 109 -34.68 179.82    75 5.6       79
## 110 -14.46 167.26   195 5.2       87
## 111 -20.41 186.51    63 5.0       28
## 112 -18.51 182.64   405 5.2       74
## 113 -27.28 183.40    70 5.1       54
## 114 -11.25 166.36   130 5.1       55
## 115 -23.31 179.27   566 5.1       49
## 116 -27.98 181.96    53 5.2       89
## 117 -19.89 174.46   546 5.7       99
## 118 -15.65 186.26    64 5.1       54
## 119 -20.06 168.69    49 5.1       49
## 120 -24.18 179.02   550 5.3       86
## 121 -23.78 180.31   518 5.1       71
## 122 -22.87 172.65    56 5.1       50
## 123 -18.82 182.21   417 5.6      129
## 124 -12.05 167.39   332 5.0       36
## 125 -28.15 183.40    57 5.0       32
## 126 -37.03 177.52   153 5.6       87
## 127 -18.12 181.88   649 5.4       88
## 128 -11.40 166.07    93 5.6       94
## 129 -17.59 180.98   548 5.1       79
## 130 -18.14 180.87   624 5.5      105
## 131 -23.46 180.11   539 5.0       41
## 132 -18.21 180.87   631 5.2       69
## 133 -15.34 167.10   128 5.3       18
## 134 -18.92 169.37   248 5.3       60
## 135 -20.93 181.54   564 5.0       64
## 136 -18.80 182.41   385 5.2       67
## 137 -18.07 181.58   603 5.0       65
## 138 -18.04 181.57   587 5.0       51
## 139 -17.64 177.01   545 5.2       91
## 140 -17.98 181.51   586 5.2       68
## 141 -17.74 186.78   104 5.1       71
## 142 -15.93 167.91   183 5.6      109
## 143 -21.44 170.45   166 5.1       22
## 144 -26.50 178.29   609 5.0       50
## 145 -19.02 186.83    45 5.2       65
## 146 -19.30 183.00   302 5.0       65
## 147 -31.03 181.59    57 5.2       49
## 148 -21.29 185.77    57 5.3       69
## 149 -21.08 180.85   627 5.9      119
## 150 -17.10 185.90   127 5.4       75
## 151 -21.13 185.60    85 5.3       86
## 152 -12.34 167.43    50 5.1       47
## 153 -21.57 183.86   156 5.1       70
## 154 -13.70 166.75    46 5.3       71
## 155 -20.24 185.10    86 5.1       61
## 156 -24.04 184.85    70 5.0       48
## 157 -15.00 184.62    40 5.1       54
## 158 -14.12 166.64    63 5.3       69
## 159 -23.61 180.27   537 5.0       63
## 160 -21.19 181.58   490 5.0       77
## 161 -23.80 184.70    42 5.0       36
## 162 -19.34 186.59    56 5.2       49
## 163 -20.89 185.26    54 5.1       44
## 164 -18.97 169.44   242 5.0       41
## 165 -25.42 182.65   102 5.0       36
## 166 -21.60 169.90    43 5.2       56
## 167 -22.23 180.48   581 5.0       54
## 168 -21.55 181.39   513 5.1       81
## 169 -15.18 167.23    71 5.2       59
## 170 -21.14 174.21    40 5.7       78
## 171 -12.23 167.02   242 6.0      132
## 172 -12.00 166.20    94 5.0       31
## 173 -26.72 182.69   162 5.2       64
## 174 -21.35 170.04    56 5.0       22
## 175 -22.82 184.52    49 5.0       52
## 176 -38.28 177.10   100 5.4       71
## 177 -13.80 166.53    42 5.5       70
## 178 -19.30 185.86    48 5.0       40
## 179 -21.53 170.52   129 5.2       30
## 180 -28.05 182.39   117 5.1       43
## 181 -21.52 169.75    61 5.1       40
## 182 -17.85 181.44   589 5.6      115
## 183 -15.99 167.95   190 5.3       81
## 184 -20.56 184.41   138 5.0       82
## 185 -27.64 182.22   162 5.1       67
## 186 -29.33 182.72    57 5.4       61
## 187 -20.25 184.75   107 5.6      121
## 188 -19.33 186.16    44 5.4      110
## 189 -22.41 183.99   128 5.2       72
## 190 -23.60 183.99   118 5.4       88
## 191 -27.89 182.92    87 5.5       67
## 192 -35.94 178.52   138 5.5       78
## 193 -22.04 183.95   109 5.4       61
## 194 -23.95 184.64    43 5.4       45
## 195 -23.75 184.50    54 5.2       74
## 196 -20.82 181.67   577 5.0       67
## 197 -22.33 171.66   125 5.2       51
## 198 -21.59 170.56   165 6.0      119
## 
## [[3]]
##                    type income education prestige
## accountant         prof     62        86       82
## pilot              prof     72        76       83
## architect          prof     75        92       90
## author             prof     55        90       76
## chemist            prof     64        86       90
## minister           prof     21        84       87
## professor          prof     64        93       93
## dentist            prof     80       100       90
## reporter             wc     67        87       52
## engineer           prof     72        86       88
## undertaker         prof     42        74       57
## lawyer             prof     76        98       89
## physician          prof     76        97       97
## welfare.worker     prof     41        84       59
## teacher            prof     48        91       73
## conductor            wc     76        34       38
## contractor         prof     53        45       76
## factory.owner      prof     60        56       81
## store.manager      prof     42        44       45
## banker             prof     78        82       92
## bookkeeper           wc     29        72       39
## mail.carrier         wc     48        55       34
## insurance.agent      wc     55        71       41
## store.clerk          wc     29        50       16
## carpenter            bc     21        23       33
## electrician          bc     47        39       53
## RR.engineer          bc     81        28       67
## machinist            bc     36        32       57
## auto.repairman       bc     22        22       26
## plumber              bc     44        25       29
## gas.stn.attendant    bc     15        29       10
## coal.miner           bc      7         7       15
## streetcar.motorman   bc     42        26       19
## taxi.driver          bc      9        19       10
## truck.driver         bc     21        15       13
## machine.operator     bc     21        20       24
## barber               bc     16        26       20
## bartender            bc     16        28        7
## shoe.shiner          bc      9        17        3
## cook                 bc     14        22       16
## soda.clerk           bc     12        30        6
## watchman             bc     17        25       11
## janitor              bc      7        20        8
## policeman            bc     34        47       41
## waiter               bc      8        32       10
#i
dput(exer,file="/Users/USER/Downloads/Exercise8-1.txt")
list.of.dataframes <- dget("/Users/USER/Downloads/Exercise8-1.txt")
list.of.dataframes
## [[1]]
##         lat   long depth mag stations
## 1    -20.42 181.62   562 4.8       41
## 2    -20.62 181.03   650 4.2       15
## 3    -26.00 184.10    42 5.4       43
## 4    -17.97 181.66   626 4.1       19
## 5    -20.42 181.96   649 4.0       11
## 6    -19.68 184.31   195 4.0       12
## 7    -11.70 166.10    82 4.8       43
## 8    -28.11 181.93   194 4.4       15
## 9    -28.74 181.74   211 4.7       35
## 10   -17.47 179.59   622 4.3       19
## 11   -21.44 180.69   583 4.4       13
## 12   -12.26 167.00   249 4.6       16
## 13   -18.54 182.11   554 4.4       19
## 14   -21.00 181.66   600 4.4       10
## 15   -20.70 169.92   139 6.1       94
## 16   -15.94 184.95   306 4.3       11
## 17   -13.64 165.96    50 6.0       83
## 18   -17.83 181.50   590 4.5       21
## 19   -23.50 179.78   570 4.4       13
## 20   -22.63 180.31   598 4.4       18
## 21   -20.84 181.16   576 4.5       17
## 22   -10.98 166.32   211 4.2       12
## 23   -23.30 180.16   512 4.4       18
## 24   -30.20 182.00   125 4.7       22
## 25   -19.66 180.28   431 5.4       57
## 26   -17.94 181.49   537 4.0       15
## 27   -14.72 167.51   155 4.6       18
## 28   -16.46 180.79   498 5.2       79
## 29   -20.97 181.47   582 4.5       25
## 30   -19.84 182.37   328 4.4       17
## 31   -22.58 179.24   553 4.6       21
## 32   -16.32 166.74    50 4.7       30
## 33   -15.55 185.05   292 4.8       42
## 34   -23.55 180.80   349 4.0       10
## 35   -16.30 186.00    48 4.5       10
## 36   -25.82 179.33   600 4.3       13
## 37   -18.73 169.23   206 4.5       17
## 38   -17.64 181.28   574 4.6       17
## 39   -17.66 181.40   585 4.1       17
## 40   -18.82 169.33   230 4.4       11
## 41   -37.37 176.78   263 4.7       34
## 42   -15.31 186.10    96 4.6       32
## 43   -24.97 179.82   511 4.4       23
## 44   -15.49 186.04    94 4.3       26
## 45   -19.23 169.41   246 4.6       27
## 46   -30.10 182.30    56 4.9       34
## 47   -26.40 181.70   329 4.5       24
## 48   -11.77 166.32    70 4.4       18
## 49   -24.12 180.08   493 4.3       21
## 50   -18.97 185.25   129 5.1       73
## 51   -18.75 182.35   554 4.2       13
## 52   -19.26 184.42   223 4.0       15
## 53   -22.75 173.20    46 4.6       26
## 54   -21.37 180.67   593 4.3       13
## 55   -20.10 182.16   489 4.2       16
## 56   -19.85 182.13   562 4.4       31
## 57   -22.70 181.00   445 4.5       17
## 58   -22.06 180.60   584 4.0       11
## 59   -17.80 181.35   535 4.4       23
## 60   -24.20 179.20   530 4.3       12
## 61   -20.69 181.55   582 4.7       35
## 62   -21.16 182.40   260 4.1       12
## 63   -13.82 172.38   613 5.0       61
## 64   -11.49 166.22    84 4.6       32
## 65   -20.68 181.41   593 4.9       40
## 66   -17.10 184.93   286 4.7       25
## 67   -20.14 181.60   587 4.1       13
## 68   -21.96 179.62   627 5.0       45
## 69   -20.42 181.86   530 4.5       27
## 70   -15.46 187.81    40 5.5       91
## 71   -15.31 185.80   152 4.0       11
## 72   -19.86 184.35   201 4.5       30
## 73   -11.55 166.20    96 4.3       14
## 74   -23.74 179.99   506 5.2       75
## 75   -17.70 181.23   546 4.4       35
## 76   -23.54 180.04   564 4.3       15
## 77   -19.21 184.70   197 4.1       11
## 78   -12.11 167.06   265 4.5       23
## 79   -21.81 181.71   323 4.2       15
## 80   -28.98 181.11   304 5.3       60
## 81   -34.02 180.21    75 5.2       65
## 82   -23.84 180.99   367 4.5       27
## 83   -19.57 182.38   579 4.6       38
## 84   -20.12 183.40   284 4.3       15
## 85   -17.70 181.70   450 4.0       11
## 86   -19.66 184.31   170 4.3       15
## 87   -21.50 170.50   117 4.7       32
## 88   -23.64 179.96   538 4.5       26
## 89   -15.43 186.30   123 4.2       16
## 90   -15.41 186.44    69 4.3       42
## 91   -15.48 167.53   128 5.1       61
## 92   -13.36 167.06   236 4.7       22
## 93   -20.64 182.02   497 5.2       64
## 94   -19.72 169.71   271 4.2       14
## 95   -15.44 185.26   224 4.2       21
## 96   -19.73 182.40   375 4.0       18
## 97   -27.24 181.11   365 4.5       21
## 98   -18.16 183.41   306 5.2       54
## 99   -13.66 166.54    50 5.1       45
## 100  -24.57 179.92   484 4.7       33
## 101  -16.98 185.61   108 4.1       12
## 102  -26.20 178.41   583 4.6       25
## 103  -21.88 180.39   608 4.7       30
## 104  -33.00 181.60    72 4.7       22
## 105  -21.33 180.69   636 4.6       29
## 106  -19.44 183.50   293 4.2       15
## 107  -34.89 180.60    42 4.4       25
## 108  -20.24 169.49   100 4.6       22
## 109  -22.55 185.90    42 5.7       76
## 110  -36.95 177.81   146 5.0       35
## 111  -15.75 185.23   280 4.5       28
## 112  -16.85 182.31   388 4.2       14
## 113  -19.06 182.45   477 4.0       16
## 114  -26.11 178.30   617 4.8       39
## 115  -26.20 178.35   606 4.4       21
## 116  -26.13 178.31   609 4.2       25
## 117  -13.66 172.23    46 5.3       67
## 118  -13.47 172.29    64 4.7       14
## 119  -14.60 167.40   178 4.8       52
## 120  -18.96 169.48   248 4.2       13
## 121  -14.65 166.97    82 4.8       28
## 122  -19.90 178.90    81 4.3       11
## 123  -22.05 180.40   606 4.7       27
## 124  -19.22 182.43   571 4.5       23
## 125  -31.24 180.60   328 4.4       18
## 126  -17.93 167.89    49 5.1       43
## 127  -19.30 183.84   517 4.2       21
## 128  -26.53 178.57   600 5.0       69
## 129  -27.72 181.70    94 4.8       59
## 130  -19.19 183.51   307 4.3       19
## 131  -17.43 185.43   189 4.5       22
## 132  -17.05 181.22   527 4.2       24
## 133  -19.52 168.98    63 4.5       21
## 134  -23.71 180.30   510 4.6       30
## 135  -21.30 180.82   624 4.3       14
## 136  -16.24 168.02    53 4.7       12
## 137  -16.14 187.32    42 5.1       68
## 138  -23.95 182.80   199 4.6       14
## 139  -25.20 182.60   149 4.9       31
## 140  -18.84 184.16   210 4.2       17
## 141  -12.66 169.46   658 4.6       43
## 142  -20.65 181.40   582 4.0       14
## 143  -13.23 167.10   220 5.0       46
## 144  -29.91 181.43   205 4.4       34
## 145  -14.31 173.50   614 4.2       23
## 146  -20.10 184.40   186 4.2       10
## 147  -17.80 185.17    97 4.4       22
## 148  -21.27 173.49    48 4.9       42
## 149  -23.58 180.17   462 5.3       63
## 150  -17.90 181.50   573 4.0       19
## 151  -23.34 184.50    56 5.7      106
## 152  -15.56 167.62   127 6.4      122
## 153  -23.83 182.56   229 4.3       24
## 154  -11.80 165.80   112 4.2       20
## 155  -15.54 167.68   140 4.7       16
## 156  -20.65 181.32   597 4.7       39
## 157  -11.75 166.07    69 4.2       14
## 158  -24.81 180.00   452 4.3       19
## 159  -20.90 169.84    93 4.9       31
## 160  -11.34 166.24   103 4.6       30
## 161  -17.98 180.50   626 4.1       19
## 162  -24.34 179.52   504 4.8       34
## 163  -13.86 167.16   202 4.6       30
## 164  -35.56 180.20    42 4.6       32
## 165  -35.48 179.90    59 4.8       35
## 166  -34.20 179.43    40 5.0       37
## 167  -26.00 182.12   205 5.6       98
## 168  -19.89 183.84   244 5.3       73
## 169  -23.43 180.00   553 4.7       41
## 170  -18.89 169.42   239 4.5       27
## 171  -17.82 181.83   640 4.3       24
## 172  -25.68 180.34   434 4.6       41
## 173  -20.20 180.90   627 4.1       11
## 174  -15.20 184.68    99 4.1       14
## 175  -15.03 182.29   399 4.1       10
## 176  -32.22 180.20   216 5.7       90
## 177  -22.64 180.64   544 5.0       50
## 178  -17.42 185.16   206 4.5       22
## 179  -17.84 181.48   542 4.1       20
## 180  -15.02 184.24   339 4.6       27
## 181  -18.04 181.75   640 4.5       47
## 182  -24.60 183.50    67 4.3       25
## 183  -19.88 184.30   161 4.4       17
## 184  -20.30 183.00   375 4.2       15
## 185  -20.45 181.85   534 4.1       14
## 186  -17.67 187.09    45 4.9       62
## 187  -22.30 181.90   309 4.3       11
## 188  -19.85 181.85   576 4.9       54
## 189  -24.27 179.88   523 4.6       24
## 190  -15.85 185.13   290 4.6       29
## 191  -20.02 184.09   234 5.3       71
## 192  -18.56 169.31   223 4.7       35
## 193  -17.87 182.00   569 4.6       12
## 194  -24.08 179.50   605 4.1       21
## 195  -32.20 179.61   422 4.6       41
## 196  -20.36 181.19   637 4.2       23
## 197  -23.85 182.53   204 4.6       27
## 198  -24.00 182.75   175 4.5       14
## 199  -20.41 181.74   538 4.3       31
## 200  -17.72 180.30   595 5.2       74
## 201  -19.67 182.18   360 4.3       23
## 202  -17.70 182.20   445 4.0       12
## 203  -16.23 183.59   367 4.7       35
## 204  -26.72 183.35   190 4.5       36
## 205  -12.95 169.09   629 4.5       19
## 206  -21.97 182.32   261 4.3       13
## 207  -21.96 180.54   603 5.2       66
## 208  -20.32 181.69   508 4.5       14
## 209  -30.28 180.62   350 4.7       32
## 210  -20.20 182.30   533 4.2       11
## 211  -30.66 180.13   411 4.7       42
## 212  -16.17 184.10   338 4.3       13
## 213  -28.25 181.71   226 4.1       19
## 214  -20.47 185.68    93 5.4       85
## 215  -23.55 180.27   535 4.3       22
## 216  -20.94 181.58   573 4.3       21
## 217  -26.67 182.40   186 4.2       17
## 218  -18.13 181.52   618 4.6       41
## 219  -20.21 183.83   242 4.4       29
## 220  -18.31 182.39   342 4.2       14
## 221  -16.52 185.70    90 4.7       30
## 222  -22.36 171.65   130 4.6       39
## 223  -22.43 184.48    65 4.9       48
## 224  -20.37 182.10   397 4.2       22
## 225  -23.77 180.16   505 4.5       26
## 226  -13.65 166.66    71 4.9       52
## 227  -21.55 182.90   207 4.2       18
## 228  -16.24 185.75   154 4.5       22
## 229  -23.73 182.53   232 5.0       55
## 230  -22.34 171.52   106 5.0       43
## 231  -19.40 180.94   664 4.7       34
## 232  -24.64 180.81   397 4.3       24
## 233  -16.00 182.82   431 4.4       16
## 234  -19.62 185.35    57 4.9       31
## 235  -23.84 180.13   525 4.5       15
## 236  -23.54 179.93   574 4.0       12
## 237  -28.23 182.68    74 4.4       20
## 238  -21.68 180.63   617 5.0       63
## 239  -13.44 166.53    44 4.7       27
## 240  -24.96 180.22   470 4.8       41
## 241  -20.08 182.74   298 4.5       33
## 242  -24.36 182.84   148 4.1       16
## 243  -14.70 166.00    48 5.3       16
## 244  -18.20 183.68   107 4.8       52
## 245  -16.65 185.51   218 5.0       52
## 246  -18.11 181.67   597 4.6       28
## 247  -17.95 181.65   619 4.3       26
## 248  -15.50 186.90    46 4.7       18
## 249  -23.36 180.01   553 5.3       61
## 250  -19.15 169.50   150 4.2       12
## 251  -10.97 166.26   180 4.7       26
## 252  -14.85 167.24    97 4.5       26
## 253  -17.80 181.38   587 5.1       47
## 254  -22.50 170.40   106 4.9       38
## 255  -29.10 182.10   179 4.4       19
## 256  -20.32 180.88   680 4.2       22
## 257  -16.09 184.89   304 4.6       34
## 258  -19.18 169.33   254 4.7       35
## 259  -23.81 179.36   521 4.2       23
## 260  -23.79 179.89   526 4.9       43
## 261  -19.02 184.23   270 5.1       72
## 262  -20.90 181.51   548 4.7       32
## 263  -19.06 169.01   158 4.4       10
## 264  -17.88 181.47   562 4.4       27
## 265  -19.41 183.05   300 4.2       16
## 266  -26.17 184.20    65 4.9       37
## 267  -14.95 167.24   130 4.6       16
## 268  -18.73 168.80    82 4.4       14
## 269  -20.21 182.37   482 4.6       37
## 270  -21.29 180.85   607 4.5       23
## 271  -19.76 181.41   105 4.4       15
## 272  -22.09 180.38   590 4.9       35
## 273  -23.80 179.90   498 4.1       12
## 274  -20.16 181.99   504 4.2       11
## 275  -22.13 180.38   577 5.7      104
## 276  -17.44 181.40   529 4.6       25
## 277  -23.33 180.18   528 5.0       59
## 278  -24.78 179.22   492 4.3       16
## 279  -22.00 180.52   561 4.5       19
## 280  -19.13 182.51   579 5.2       56
## 281  -30.72 180.10   413 4.4       22
## 282  -22.32 180.54   565 4.2       12
## 283  -16.45 177.77   138 4.6       17
## 284  -17.70 185.00   383 4.0       10
## 285  -17.95 184.68   260 4.4       21
## 286  -24.40 179.85   522 4.7       29
## 287  -19.30 180.60   671 4.2       16
## 288  -21.13 185.32   123 4.7       36
## 289  -18.07 181.57   572 4.5       26
## 290  -20.60 182.28   529 5.0       50
## 291  -18.48 181.49   641 5.0       49
## 292  -13.34 166.20    67 4.8       18
## 293  -20.92 181.50   546 4.6       31
## 294  -25.31 179.69   507 4.6       35
## 295  -15.24 186.21   158 5.0       57
## 296  -16.40 185.86   148 5.0       47
## 297  -24.57 178.40   562 5.6       80
## 298  -17.94 181.51   601 4.0       16
## 299  -30.64 181.20   175 4.0       16
## 300  -18.64 169.32   260 4.6       23
## 301  -13.09 169.28   654 4.4       22
## 302  -19.68 184.14   242 4.8       40
## 303  -16.44 185.74   126 4.7       30
## 304  -21.09 181.38   555 4.6       15
## 305  -14.99 171.39   637 4.3       21
## 306  -23.30 179.70   500 4.7       29
## 307  -17.68 181.36   515 4.1       19
## 308  -22.00 180.53   583 4.9       20
## 309  -21.38 181.39   501 4.6       36
## 310  -32.62 181.50    55 4.8       26
## 311  -13.05 169.58   644 4.9       68
## 312  -12.93 169.63   641 5.1       57
## 313  -18.60 181.91   442 5.4       82
## 314  -21.34 181.41   464 4.5       21
## 315  -21.48 183.78   200 4.9       54
## 316  -17.40 181.02   479 4.4       14
## 317  -17.32 181.03   497 4.1       13
## 318  -18.77 169.24   218 5.3       53
## 319  -26.16 179.50   492 4.5       25
## 320  -12.59 167.10   325 4.9       26
## 321  -14.82 167.32   123 4.8       28
## 322  -21.79 183.48   210 5.2       69
## 323  -19.83 182.04   575 4.4       23
## 324  -29.50 182.31   129 4.4       14
## 325  -12.49 166.36    74 4.9       55
## 326  -26.10 182.30    49 4.4       11
## 327  -21.04 181.20   483 4.2       10
## 328  -10.78 165.77    93 4.6       20
## 329  -20.76 185.77   118 4.6       15
## 330  -11.41 166.24    83 5.3       55
## 331  -19.10 183.87    61 5.3       42
## 332  -23.91 180.00   534 4.5       11
## 333  -27.33 182.60    42 4.4       11
## 334  -12.25 166.60   219 5.0       28
## 335  -23.49 179.07   544 5.1       58
## 336  -27.18 182.18    56 4.5       14
## 337  -25.80 182.10    68 4.5       26
## 338  -27.19 182.18    69 5.4       68
## 339  -27.27 182.38    45 4.5       16
## 340  -27.10 182.18    43 4.7       17
## 341  -27.22 182.28    65 4.2       14
## 342  -27.38 181.70    80 4.8       13
## 343  -27.27 182.50    51 4.5       13
## 344  -27.54 182.50    68 4.3       12
## 345  -27.20 182.39    69 4.3       14
## 346  -27.71 182.47   103 4.3       11
## 347  -27.60 182.40    61 4.6       11
## 348  -27.38 182.39    69 4.5       12
## 349  -21.54 185.48    51 5.0       29
## 350  -27.21 182.43    55 4.6       10
## 351  -28.96 182.61    54 4.6       15
## 352  -12.01 166.29    59 4.9       27
## 353  -17.46 181.32   573 4.1       17
## 354  -30.17 182.02    56 5.5       68
## 355  -27.27 182.36    65 4.7       21
## 356  -17.79 181.32   587 5.0       49
## 357  -22.19 171.40   150 5.1       49
## 358  -17.10 182.68   403 5.5       82
## 359  -27.18 182.53    60 4.6       21
## 360  -11.64 166.47   130 4.7       19
## 361  -17.98 181.58   590 4.2       14
## 362  -16.90 185.72   135 4.0       22
## 363  -21.98 179.60   583 5.4       67
## 364  -32.14 179.90   406 4.3       19
## 365  -18.80 169.21   221 4.4       16
## 366  -26.78 183.61    40 4.6       22
## 367  -20.43 182.37   502 5.1       48
## 368  -18.30 183.20   103 4.5       14
## 369  -15.83 182.51   423 4.2       21
## 370  -23.44 182.93   158 4.1       20
## 371  -23.73 179.99   527 5.1       49
## 372  -19.89 184.08   219 5.4      105
## 373  -17.59 181.09   536 5.1       61
## 374  -19.77 181.40   630 5.1       54
## 375  -20.31 184.06   249 4.4       21
## 376  -15.33 186.75    48 5.7      123
## 377  -18.20 181.60   553 4.4       14
## 378  -15.36 186.66   112 5.1       57
## 379  -15.29 186.42   153 4.6       31
## 380  -15.36 186.71   130 5.5       95
## 381  -16.24 167.95   188 5.1       68
## 382  -13.47 167.14   226 4.4       26
## 383  -25.50 182.82   124 5.0       25
## 384  -14.32 167.33   204 5.0       49
## 385  -20.04 182.01   605 5.1       49
## 386  -28.83 181.66   221 5.1       63
## 387  -17.82 181.49   573 4.2       14
## 388  -27.23 180.98   401 4.5       39
## 389  -10.72 165.99   195 4.0       14
## 390  -27.00 183.88    56 4.9       36
## 391  -20.36 186.16   102 4.3       21
## 392  -27.17 183.68    44 4.8       27
## 393  -20.94 181.26   556 4.4       21
## 394  -17.46 181.90   417 4.2       14
## 395  -21.04 181.20   591 4.9       45
## 396  -23.70 179.60   646 4.2       21
## 397  -17.72 181.42   565 5.3       89
## 398  -15.87 188.13    52 5.0       30
## 399  -17.84 181.30   535 5.7      112
## 400  -13.45 170.30   641 5.3       93
## 401  -30.80 182.16    41 4.7       24
## 402  -11.63 166.14   109 4.6       36
## 403  -30.40 181.40    40 4.3       17
## 404  -26.18 178.59   548 5.4       65
## 405  -15.70 184.50   118 4.4       30
## 406  -17.95 181.50   593 4.3       16
## 407  -20.51 182.30   492 4.3       23
## 408  -15.36 167.51   123 4.7       28
## 409  -23.61 180.23   475 4.4       26
## 410  -33.20 181.60   153 4.2       21
## 411  -17.68 186.80   112 4.5       35
## 412  -22.24 184.56    99 4.8       57
## 413  -20.07 169.14    66 4.8       37
## 414  -25.04 180.10   481 4.3       15
## 415  -21.50 185.20   139 4.4       15
## 416  -14.28 167.26   211 5.1       51
## 417  -14.43 167.26   151 4.4       17
## 418  -32.70 181.70   211 4.4       40
## 419  -34.10 181.80   246 4.3       23
## 420  -19.70 186.20    47 4.8       19
## 421  -24.19 180.38   484 4.3       27
## 422  -26.60 182.77   119 4.5       29
## 423  -17.04 186.80    70 4.1       22
## 424  -22.10 179.71   579 5.1       58
## 425  -32.60 180.90    57 4.7       44
## 426  -33.00 182.40   176 4.6       28
## 427  -20.58 181.24   602 4.7       44
## 428  -20.61 182.60   488 4.6       12
## 429  -19.47 169.15   149 4.4       15
## 430  -17.47 180.96   546 4.2       23
## 431  -18.40 183.40   343 4.1       10
## 432  -23.33 180.26   530 4.7       22
## 433  -18.55 182.23   563 4.0       17
## 434  -26.16 178.47   537 4.8       33
## 435  -21.80 183.20   325 4.4       19
## 436  -27.63 182.93    80 4.3       14
## 437  -18.89 169.48   259 4.4       21
## 438  -20.30 182.30   476 4.5       10
## 439  -20.56 182.04   499 4.5       29
## 440  -16.10 185.32   257 4.7       30
## 441  -12.66 166.37   165 4.3       18
## 442  -21.05 184.68   136 4.7       29
## 443  -17.97 168.52   146 4.8       33
## 444  -19.83 182.54   524 4.6       14
## 445  -22.55 183.81    82 5.1       68
## 446  -22.28 183.52    90 4.7       19
## 447  -15.72 185.64   138 4.3       21
## 448  -20.85 181.59   499 5.1       91
## 449  -21.11 181.50   538 5.5      104
## 450  -25.31 180.15   467 4.5       25
## 451  -26.46 182.50   184 4.3       11
## 452  -24.09 179.68   538 4.3       21
## 453  -16.96 167.70    45 4.7       23
## 454  -23.19 182.80   237 4.3       18
## 455  -20.81 184.70   162 4.3       20
## 456  -15.03 167.32   136 4.6       20
## 457  -18.06 181.59   604 4.5       23
## 458  -19.00 185.60   107 4.5       15
## 459  -23.53 179.99   538 5.4       87
## 460  -18.18 180.63   639 4.6       39
## 461  -15.66 186.80    45 4.4       11
## 462  -18.00 180.62   636 5.0      100
## 463  -18.08 180.70   628 5.2       72
## 464  -18.05 180.86   632 4.4       15
## 465  -29.90 181.16   215 5.1       51
## 466  -20.90 181.90   556 4.4       17
## 467  -15.61 167.50   135 4.4       21
## 468  -16.03 185.43   297 4.8       25
## 469  -17.68 181.11   568 4.4       22
## 470  -31.94 180.57   168 4.7       39
## 471  -19.14 184.36   269 4.7       31
## 472  -18.00 185.48   143 4.4       29
## 473  -16.95 185.94    95 4.3       12
## 474  -10.79 166.06   142 5.0       40
## 475  -20.83 185.90   104 4.5       19
## 476  -32.90 181.60   169 4.6       27
## 477  -37.93 177.47    65 5.4       65
## 478  -29.09 183.20    54 4.6       23
## 479  -23.56 180.23   474 4.5       13
## 480  -19.60 185.20   125 4.4       13
## 481  -21.39 180.68   617 4.5       18
## 482  -14.85 184.87   294 4.1       10
## 483  -22.70 183.30   180 4.0       13
## 484  -32.42 181.21    47 4.9       39
## 485  -17.90 181.30   593 4.1       13
## 486  -23.58 183.40    94 5.2       79
## 487  -34.40 180.50   201 4.4       41
## 488  -17.61 181.20   537 4.1       11
## 489  -21.07 181.13   594 4.9       43
## 490  -13.84 170.62   638 4.6       20
## 491  -30.24 181.63    80 4.5       17
## 492  -18.49 169.04   211 4.8       30
## 493  -23.45 180.23   520 4.2       19
## 494  -16.04 183.54   384 4.2       23
## 495  -17.14 185.31   223 4.1       15
## 496  -22.54 172.91    54 5.5       71
## 497  -15.90 185.30    57 4.4       19
## 498  -30.04 181.20    49 4.8       20
## 499  -24.03 180.22   508 4.2       23
## 500  -18.89 184.46   242 4.8       36
## 501  -16.51 187.10    62 4.9       46
## 502  -20.10 186.30    63 4.6       19
## 503  -21.06 183.81   203 4.5       34
## 504  -13.07 166.87   132 4.4       24
## 505  -23.46 180.09   543 4.6       28
## 506  -19.41 182.30   589 4.2       19
## 507  -11.81 165.98    51 4.7       28
## 508  -11.76 165.96    45 4.4       51
## 509  -12.08 165.76    63 4.5       51
## 510  -25.59 180.02   485 4.9       48
## 511  -26.54 183.63    66 4.7       34
## 512  -20.90 184.28    58 5.5       92
## 513  -16.99 187.00    70 4.7       30
## 514  -23.46 180.17   541 4.6       32
## 515  -17.81 181.82   598 4.1       14
## 516  -15.17 187.20    50 4.7       28
## 517  -11.67 166.02   102 4.6       21
## 518  -20.75 184.52   144 4.3       25
## 519  -19.50 186.90    58 4.4       20
## 520  -26.18 179.79   460 4.7       44
## 521  -20.66 185.77    69 4.3       25
## 522  -19.22 182.54   570 4.1       22
## 523  -24.68 183.33    70 4.7       30
## 524  -15.43 167.38   137 4.5       16
## 525  -32.45 181.15    41 5.5       81
## 526  -21.31 180.84   586 4.5       17
## 527  -15.44 167.18   140 4.6       44
## 528  -13.26 167.01   213 5.1       70
## 529  -15.26 183.13   393 4.4       28
## 530  -33.57 180.80    51 4.7       35
## 531  -15.77 167.01    64 5.5       73
## 532  -15.79 166.83    45 4.6       39
## 533  -21.00 183.20   296 4.0       16
## 534  -16.28 166.94    50 4.6       24
## 535  -23.28 184.60    44 4.8       34
## 536  -16.10 167.25    68 4.7       36
## 537  -17.70 181.31   549 4.7       33
## 538  -15.96 166.69   150 4.2       20
## 539  -15.95 167.34    47 5.4       87
## 540  -17.56 181.59   543 4.6       34
## 541  -15.90 167.42    40 5.5       86
## 542  -15.29 166.90   100 4.2       15
## 543  -15.86 166.85    85 4.5       22
## 544  -16.20 166.80    98 4.5       21
## 545  -15.71 166.91    58 4.8       20
## 546  -16.45 167.54   125 4.6       18
## 547  -11.54 166.18    89 5.4       80
## 548  -19.61 181.91   590 4.6       34
## 549  -15.61 187.15    49 5.0       30
## 550  -21.16 181.41   543 4.3       17
## 551  -20.65 182.22   506 4.3       24
## 552  -20.33 168.71    40 4.8       38
## 553  -15.08 166.62    42 4.7       23
## 554  -23.28 184.61    76 4.7       36
## 555  -23.44 184.60    63 4.8       27
## 556  -23.12 184.42   104 4.2       17
## 557  -23.65 184.46    93 4.2       16
## 558  -22.91 183.95    64 5.9      118
## 559  -22.06 180.47   587 4.6       28
## 560  -13.56 166.49    83 4.5       25
## 561  -17.99 181.57   579 4.9       49
## 562  -23.92 184.47    40 4.7       17
## 563  -30.69 182.10    62 4.9       25
## 564  -21.92 182.80   273 5.3       78
## 565  -25.04 180.97   393 4.2       21
## 566  -19.92 183.91   264 4.2       23
## 567  -27.75 182.26   174 4.5       18
## 568  -17.71 181.18   574 5.2       67
## 569  -19.60 183.84   309 4.5       23
## 570  -34.68 179.82    75 5.6       79
## 571  -14.46 167.26   195 5.2       87
## 572  -18.85 187.55    44 4.8       35
## 573  -17.02 182.41   420 4.5       29
## 574  -20.41 186.51    63 5.0       28
## 575  -18.18 182.04   609 4.4       26
## 576  -16.49 187.80    40 4.5       18
## 577  -17.74 181.31   575 4.6       42
## 578  -20.49 181.69   559 4.5       24
## 579  -18.51 182.64   405 5.2       74
## 580  -27.28 183.40    70 5.1       54
## 581  -15.90 167.16    41 4.8       42
## 582  -20.57 181.33   605 4.3       18
## 583  -11.25 166.36   130 5.1       55
## 584  -20.04 181.87   577 4.7       19
## 585  -20.89 181.25   599 4.6       20
## 586  -16.62 186.74    82 4.8       51
## 587  -20.09 168.75    50 4.6       23
## 588  -24.96 179.87   480 4.4       25
## 589  -20.95 181.42   559 4.6       27
## 590  -23.31 179.27   566 5.1       49
## 591  -20.95 181.06   611 4.3       20
## 592  -21.58 181.90   409 4.4       19
## 593  -13.62 167.15   209 4.7       30
## 594  -12.72 166.28    70 4.8       47
## 595  -21.79 185.00    74 4.1       15
## 596  -20.48 169.76   134 4.6       33
## 597  -12.84 166.78   150 4.9       35
## 598  -17.02 182.93   406 4.0       17
## 599  -23.89 182.39   243 4.7       32
## 600  -23.07 184.03    89 4.7       32
## 601  -27.98 181.96    53 5.2       89
## 602  -28.10 182.25    68 4.6       18
## 603  -21.24 180.81   605 4.6       34
## 604  -21.24 180.86   615 4.9       23
## 605  -19.89 174.46   546 5.7       99
## 606  -32.82 179.80   176 4.7       26
## 607  -22.00 185.50    52 4.4       18
## 608  -21.57 185.62    66 4.9       38
## 609  -24.50 180.92   377 4.8       43
## 610  -33.03 180.20   186 4.6       27
## 611  -30.09 182.40    51 4.4       18
## 612  -22.75 170.99    67 4.8       35
## 613  -17.99 168.98   234 4.7       28
## 614  -19.60 181.87   597 4.2       18
## 615  -15.65 186.26    64 5.1       54
## 616  -17.78 181.53   511 4.8       56
## 617  -22.04 184.91    47 4.9       47
## 618  -20.06 168.69    49 5.1       49
## 619  -18.07 181.54   546 4.3       28
## 620  -12.85 165.67    75 4.4       30
## 621  -33.29 181.30    60 4.7       33
## 622  -34.63 179.10   278 4.7       24
## 623  -24.18 179.02   550 5.3       86
## 624  -23.78 180.31   518 5.1       71
## 625  -22.37 171.50   116 4.9       38
## 626  -23.97 179.91   518 4.5       23
## 627  -34.12 181.75    75 4.7       41
## 628  -25.25 179.86   491 4.2       23
## 629  -22.87 172.65    56 5.1       50
## 630  -18.48 182.37   376 4.8       57
## 631  -21.46 181.02   584 4.2       18
## 632  -28.56 183.47    48 4.8       56
## 633  -28.56 183.59    53 4.4       20
## 634  -21.30 180.92   617 4.5       26
## 635  -20.08 183.22   294 4.3       18
## 636  -18.82 182.21   417 5.6      129
## 637  -19.51 183.97   280 4.0       16
## 638  -12.05 167.39   332 5.0       36
## 639  -17.40 186.54    85 4.2       28
## 640  -23.93 180.18   525 4.6       31
## 641  -21.23 181.09   613 4.6       18
## 642  -16.23 167.91   182 4.5       28
## 643  -28.15 183.40    57 5.0       32
## 644  -20.81 185.01    79 4.7       42
## 645  -20.72 181.41   595 4.6       36
## 646  -23.29 184.00   164 4.8       50
## 647  -38.46 176.03   148 4.6       44
## 648  -15.48 186.73    82 4.4       17
## 649  -37.03 177.52   153 5.6       87
## 650  -20.48 181.38   556 4.2       13
## 651  -18.12 181.88   649 5.4       88
## 652  -18.17 181.98   651 4.8       43
## 653  -11.40 166.07    93 5.6       94
## 654  -23.10 180.12   533 4.4       27
## 655  -14.28 170.34   642 4.7       29
## 656  -22.87 171.72    47 4.6       27
## 657  -17.59 180.98   548 5.1       79
## 658  -27.60 182.10   154 4.6       22
## 659  -17.94 180.60   627 4.5       29
## 660  -17.88 180.58   622 4.2       23
## 661  -30.01 180.80   286 4.8       43
## 662  -19.19 182.30   390 4.9       48
## 663  -18.14 180.87   624 5.5      105
## 664  -23.46 180.11   539 5.0       41
## 665  -18.44 181.04   624 4.2       21
## 666  -18.21 180.87   631 5.2       69
## 667  -18.26 180.98   631 4.8       36
## 668  -15.85 184.83   299 4.4       30
## 669  -23.82 180.09   498 4.8       40
## 670  -18.60 184.28   255 4.4       31
## 671  -17.80 181.32   539 4.1       12
## 672  -10.78 166.10   195 4.9       45
## 673  -18.12 181.71   594 4.6       24
## 674  -19.34 182.62   573 4.5       32
## 675  -15.34 167.10   128 5.3       18
## 676  -24.97 182.85   137 4.8       40
## 677  -15.97 186.08   143 4.6       41
## 678  -23.47 180.24   511 4.8       37
## 679  -23.11 179.15   564 4.7       17
## 680  -20.54 181.66   559 4.9       50
## 681  -18.92 169.37   248 5.3       60
## 682  -20.16 184.27   210 4.4       27
## 683  -25.48 180.94   390 4.6       33
## 684  -18.19 181.74   616 4.3       17
## 685  -15.35 186.40    98 4.4       17
## 686  -18.69 169.10   218 4.2       27
## 687  -18.89 181.24   655 4.1       14
## 688  -17.61 183.32   356 4.2       15
## 689  -20.93 181.54   564 5.0       64
## 690  -17.60 181.50   548 4.1       10
## 691  -17.96 181.40   655 4.3       20
## 692  -18.80 182.41   385 5.2       67
## 693  -20.61 182.44   518 4.2       10
## 694  -20.74 181.53   598 4.5       36
## 695  -25.23 179.86   476 4.4       29
## 696  -23.90 179.90   579 4.4       16
## 697  -18.07 181.58   603 5.0       65
## 698  -15.43 185.19   249 4.0       11
## 699  -14.30 167.32   208 4.8       25
## 700  -18.04 181.57   587 5.0       51
## 701  -13.90 167.18   221 4.2       21
## 702  -17.64 177.01   545 5.2       91
## 703  -17.98 181.51   586 5.2       68
## 704  -25.00 180.00   488 4.5       10
## 705  -19.45 184.48   246 4.3       15
## 706  -16.11 187.48    61 4.5       19
## 707  -23.73 179.98   524 4.6       11
## 708  -17.74 186.78   104 5.1       71
## 709  -21.56 183.23   271 4.4       36
## 710  -20.97 181.72   487 4.3       16
## 711  -15.45 186.73    83 4.7       37
## 712  -15.93 167.91   183 5.6      109
## 713  -21.47 185.86    55 4.9       46
## 714  -21.44 170.45   166 5.1       22
## 715  -22.16 180.49   586 4.6       13
## 716  -13.36 172.76   618 4.4       18
## 717  -21.22 181.51   524 4.8       49
## 718  -26.10 182.50   133 4.2       17
## 719  -18.35 185.27   201 4.7       57
## 720  -17.20 182.90   383 4.1       11
## 721  -22.42 171.40    86 4.7       33
## 722  -17.91 181.48   555 4.0       17
## 723  -26.53 178.30   605 4.9       43
## 724  -26.50 178.29   609 5.0       50
## 725  -16.31 168.08   204 4.5       16
## 726  -18.76 169.71   287 4.4       23
## 727  -17.10 182.80   390 4.0       14
## 728  -19.28 182.78   348 4.5       30
## 729  -23.50 180.00   550 4.7       23
## 730  -21.26 181.69   487 4.4       20
## 731  -17.97 181.48   578 4.7       43
## 732  -26.02 181.20   361 4.7       32
## 733  -30.30 180.80   275 4.0       14
## 734  -24.89 179.67   498 4.2       14
## 735  -14.57 167.24   162 4.5       18
## 736  -15.40 186.87    78 4.7       44
## 737  -22.06 183.95   134 4.5       17
## 738  -25.14 178.42   554 4.1       15
## 739  -20.30 181.40   608 4.6       13
## 740  -25.28 181.17   367 4.3       25
## 741  -20.63 181.61   599 4.6       30
## 742  -19.02 186.83    45 5.2       65
## 743  -22.10 185.30    50 4.6       22
## 744  -38.59 175.70   162 4.7       36
## 745  -19.30 183.00   302 5.0       65
## 746  -31.03 181.59    57 5.2       49
## 747  -30.51 181.30   203 4.4       20
## 748  -22.55 183.34    66 4.6       18
## 749  -22.14 180.64   591 4.5       18
## 750  -25.60 180.30   440 4.0       12
## 751  -18.04 181.84   611 4.2       20
## 752  -21.29 185.77    57 5.3       69
## 753  -21.08 180.85   627 5.9      119
## 754  -20.64 169.66    89 4.9       42
## 755  -24.41 180.03   500 4.5       34
## 756  -12.16 167.03   264 4.4       14
## 757  -17.10 185.90   127 5.4       75
## 758  -21.13 185.60    85 5.3       86
## 759  -12.34 167.43    50 5.1       47
## 760  -16.43 186.73    75 4.1       20
## 761  -20.70 184.30   182 4.3       17
## 762  -21.18 180.92   619 4.5       18
## 763  -17.78 185.33   223 4.1       10
## 764  -21.57 183.86   156 5.1       70
## 765  -13.70 166.75    46 5.3       71
## 766  -12.27 167.41    50 4.5       29
## 767  -19.10 184.52   230 4.1       16
## 768  -19.85 184.51   184 4.4       26
## 769  -11.37 166.55   188 4.7       24
## 770  -20.70 186.30    80 4.0       10
## 771  -20.24 185.10    86 5.1       61
## 772  -16.40 182.73   391 4.0       16
## 773  -19.60 184.53   199 4.3       21
## 774  -21.63 180.77   592 4.3       21
## 775  -21.60 180.50   595 4.0       22
## 776  -21.77 181.00   618 4.1       10
## 777  -21.80 183.60   213 4.4       17
## 778  -21.05 180.90   616 4.3       10
## 779  -10.80 165.80   175 4.2       12
## 780  -17.90 181.50   589 4.0       12
## 781  -22.26 171.44    83 4.5       25
## 782  -22.33 171.46   119 4.7       32
## 783  -24.04 184.85    70 5.0       48
## 784  -20.40 186.10    74 4.3       22
## 785  -15.00 184.62    40 5.1       54
## 786  -27.87 183.40    87 4.7       34
## 787  -14.12 166.64    63 5.3       69
## 788  -23.61 180.27   537 5.0       63
## 789  -21.56 185.50    47 4.5       29
## 790  -21.19 181.58   490 5.0       77
## 791  -18.07 181.65   593 4.1       16
## 792  -26.00 178.43   644 4.9       27
## 793  -20.21 181.90   576 4.1       16
## 794  -28.00 182.00   199 4.0       16
## 795  -20.74 180.70   589 4.4       27
## 796  -31.80 180.60   178 4.5       19
## 797  -18.91 169.46   248 4.4       33
## 798  -20.45 182.10   500 4.5       37
## 799  -22.90 183.80    71 4.3       19
## 800  -18.11 181.63   568 4.3       36
## 801  -23.80 184.70    42 5.0       36
## 802  -23.42 180.21   510 4.5       37
## 803  -23.20 184.80    97 4.5       13
## 804  -12.93 169.52   663 4.4       30
## 805  -21.14 181.06   625 4.5       35
## 806  -19.13 184.97   210 4.1       22
## 807  -21.08 181.30   557 4.9       78
## 808  -20.07 181.75   582 4.7       27
## 809  -20.90 182.02   402 4.3       18
## 810  -25.04 179.84   474 4.6       32
## 811  -21.85 180.89   577 4.6       43
## 812  -19.34 186.59    56 5.2       49
## 813  -15.83 167.10    43 4.5       19
## 814  -23.73 183.00   118 4.3       11
## 815  -18.10 181.72   544 4.6       52
## 816  -22.12 180.49   532 4.0       14
## 817  -15.39 185.10   237 4.5       39
## 818  -16.21 186.52   111 4.8       30
## 819  -21.75 180.67   595 4.6       30
## 820  -22.10 180.40   603 4.1       11
## 821  -24.97 179.54   505 4.9       50
## 822  -19.36 186.36   100 4.7       40
## 823  -22.14 179.62   587 4.1       23
## 824  -21.48 182.44   364 4.3       20
## 825  -18.54 168.93   100 4.4       17
## 826  -21.62 182.40   350 4.0       12
## 827  -13.40 166.90   228 4.8       15
## 828  -15.50 185.30    93 4.4       25
## 829  -15.67 185.23    66 4.4       34
## 830  -21.78 183.11   225 4.6       21
## 831  -30.63 180.90   334 4.2       28
## 832  -15.70 185.10    70 4.1       15
## 833  -19.20 184.37   220 4.2       18
## 834  -19.70 182.44   397 4.0       12
## 835  -19.40 182.29   326 4.1       15
## 836  -15.85 185.90   121 4.1       17
## 837  -17.38 168.63   209 4.7       29
## 838  -24.33 179.97   510 4.8       44
## 839  -20.89 185.26    54 5.1       44
## 840  -18.97 169.44   242 5.0       41
## 841  -17.99 181.62   574 4.8       38
## 842  -15.80 185.25    82 4.4       39
## 843  -25.42 182.65   102 5.0       36
## 844  -21.60 169.90    43 5.2       56
## 845  -26.06 180.05   432 4.2       19
## 846  -17.56 181.23   580 4.1       16
## 847  -25.63 180.26   464 4.8       60
## 848  -25.46 179.98   479 4.5       27
## 849  -22.23 180.48   581 5.0       54
## 850  -21.55 181.39   513 5.1       81
## 851  -15.18 185.93    77 4.1       16
## 852  -13.79 166.56    68 4.7       41
## 853  -15.18 167.23    71 5.2       59
## 854  -18.78 186.72    68 4.8       48
## 855  -17.90 181.41   586 4.5       33
## 856  -18.50 185.40   243 4.0       11
## 857  -14.82 171.17   658 4.7       49
## 858  -15.65 185.17   315 4.1       15
## 859  -30.01 181.15   210 4.3       17
## 860  -13.16 167.24   278 4.3       17
## 861  -21.03 180.78   638 4.0       14
## 862  -21.40 180.78   615 4.7       51
## 863  -17.93 181.89   567 4.1       27
## 864  -20.87 181.70   560 4.2       13
## 865  -12.01 166.66    99 4.8       36
## 866  -19.10 169.63   266 4.8       31
## 867  -22.85 181.37   397 4.2       15
## 868  -17.08 185.96   180 4.2       29
## 869  -21.14 174.21    40 5.7       78
## 870  -12.23 167.02   242 6.0      132
## 871  -20.91 181.57   530 4.2       20
## 872  -11.38 167.05   133 4.5       32
## 873  -11.02 167.01    62 4.9       36
## 874  -22.09 180.58   580 4.4       22
## 875  -17.80 181.20   530 4.0       15
## 876  -18.94 182.43   566 4.3       20
## 877  -18.85 182.20   501 4.2       23
## 878  -21.91 181.28   548 4.5       30
## 879  -22.03 179.77   587 4.8       31
## 880  -18.10 181.63   592 4.4       28
## 881  -18.40 184.84   221 4.2       18
## 882  -21.20 181.40   560 4.2       12
## 883  -12.00 166.20    94 5.0       31
## 884  -11.70 166.30   139 4.2       15
## 885  -26.72 182.69   162 5.2       64
## 886  -24.39 178.98   562 4.5       30
## 887  -19.64 169.50   204 4.6       35
## 888  -21.35 170.04    56 5.0       22
## 889  -22.82 184.52    49 5.0       52
## 890  -38.28 177.10   100 5.4       71
## 891  -12.57 167.11   231 4.8       28
## 892  -22.24 180.28   601 4.2       21
## 893  -13.80 166.53    42 5.5       70
## 894  -21.07 183.78   180 4.3       25
## 895  -17.74 181.25   559 4.1       16
## 896  -23.87 180.15   524 4.4       22
## 897  -21.29 185.80    69 4.9       74
## 898  -22.20 180.58   594 4.5       45
## 899  -15.24 185.11   262 4.9       56
## 900  -17.82 181.27   538 4.0       33
## 901  -32.14 180.00   331 4.5       27
## 902  -19.30 185.86    48 5.0       40
## 903  -33.09 180.94    47 4.9       47
## 904  -20.18 181.62   558 4.5       31
## 905  -17.46 181.42   524 4.2       16
## 906  -17.44 181.33   545 4.2       37
## 907  -24.71 179.85   477 4.2       34
## 908  -21.53 170.52   129 5.2       30
## 909  -19.17 169.53   268 4.3       21
## 910  -28.05 182.39   117 5.1       43
## 911  -23.39 179.97   541 4.6       50
## 912  -22.33 171.51   112 4.6       14
## 913  -15.28 185.98   162 4.4       36
## 914  -20.27 181.51   609 4.4       32
## 915  -10.96 165.97    76 4.9       64
## 916  -21.52 169.75    61 5.1       40
## 917  -19.57 184.47   202 4.2       28
## 918  -23.08 183.45    90 4.7       30
## 919  -25.06 182.80   133 4.0       14
## 920  -17.85 181.44   589 5.6      115
## 921  -15.99 167.95   190 5.3       81
## 922  -20.56 184.41   138 5.0       82
## 923  -17.98 181.61   598 4.3       27
## 924  -18.40 181.77   600 4.1       11
## 925  -27.64 182.22   162 5.1       67
## 926  -20.99 181.02   626 4.5       36
## 927  -14.86 167.32   137 4.9       22
## 928  -29.33 182.72    57 5.4       61
## 929  -25.81 182.54   201 4.7       40
## 930  -14.10 166.01    69 4.8       29
## 931  -17.63 185.13   219 4.5       28
## 932  -23.47 180.21   553 4.2       23
## 933  -23.92 180.21   524 4.6       50
## 934  -20.88 185.18    51 4.6       28
## 935  -20.25 184.75   107 5.6      121
## 936  -19.33 186.16    44 5.4      110
## 937  -18.14 181.71   574 4.0       20
## 938  -22.41 183.99   128 5.2       72
## 939  -20.77 181.16   568 4.2       12
## 940  -17.95 181.73   583 4.7       57
## 941  -20.83 181.01   622 4.3       15
## 942  -27.84 182.10   193 4.8       27
## 943  -19.94 182.39   544 4.6       30
## 944  -23.60 183.99   118 5.4       88
## 945  -23.70 184.13    51 4.8       27
## 946  -30.39 182.40    63 4.6       22
## 947  -18.98 182.32   442 4.2       22
## 948  -27.89 182.92    87 5.5       67
## 949  -23.50 184.90    61 4.7       16
## 950  -23.73 184.49    60 4.7       35
## 951  -17.93 181.62   561 4.5       32
## 952  -35.94 178.52   138 5.5       78
## 953  -18.68 184.50   174 4.5       34
## 954  -23.47 179.95   543 4.1       21
## 955  -23.49 180.06   530 4.0       23
## 956  -23.85 180.26   497 4.3       32
## 957  -27.08 183.44    63 4.7       27
## 958  -20.88 184.95    82 4.9       50
## 959  -20.97 181.20   605 4.5       31
## 960  -21.71 183.58   234 4.7       55
## 961  -23.90 184.60    41 4.5       22
## 962  -15.78 167.44    40 4.8       42
## 963  -12.57 166.72   137 4.3       20
## 964  -19.69 184.23   223 4.1       23
## 965  -22.04 183.95   109 5.4       61
## 966  -17.99 181.59   595 4.1       26
## 967  -23.50 180.13   512 4.8       40
## 968  -21.40 180.74   613 4.2       20
## 969  -15.86 166.98    60 4.8       25
## 970  -23.95 184.64    43 5.4       45
## 971  -25.79 182.38   172 4.4       14
## 972  -23.75 184.50    54 5.2       74
## 973  -24.10 184.50    68 4.7       23
## 974  -18.56 169.05   217 4.9       35
## 975  -23.30 184.68   102 4.9       27
## 976  -17.03 185.74   178 4.2       32
## 977  -20.77 183.71   251 4.4       47
## 978  -28.10 183.50    42 4.4       17
## 979  -18.83 182.26   575 4.3       11
## 980  -23.00 170.70    43 4.9       20
## 981  -20.82 181.67   577 5.0       67
## 982  -22.95 170.56    42 4.7       21
## 983  -28.22 183.60    75 4.9       49
## 984  -27.99 183.50    71 4.3       22
## 985  -15.54 187.15    60 4.5       17
## 986  -12.37 166.93   291 4.2       16
## 987  -22.33 171.66   125 5.2       51
## 988  -22.70 170.30    69 4.8       27
## 989  -17.86 181.30   614 4.0       12
## 990  -16.00 184.53   108 4.7       33
## 991  -20.73 181.42   575 4.3       18
## 992  -15.45 181.42   409 4.3       27
## 993  -20.05 183.86   243 4.9       65
## 994  -17.95 181.37   642 4.0       17
## 995  -17.70 188.10    45 4.2       10
## 996  -25.93 179.54   470 4.4       22
## 997  -12.28 167.06   248 4.7       35
## 998  -20.13 184.20   244 4.5       34
## 999  -17.40 187.80    40 4.5       14
## 1000 -21.59 170.56   165 6.0      119
## 
## [[2]]
##        lat   long depth mag stations
## 1   -26.00 184.10    42 5.4       43
## 2   -20.70 169.92   139 6.1       94
## 3   -13.64 165.96    50 6.0       83
## 4   -19.66 180.28   431 5.4       57
## 5   -16.46 180.79   498 5.2       79
## 6   -18.97 185.25   129 5.1       73
## 7   -13.82 172.38   613 5.0       61
## 8   -21.96 179.62   627 5.0       45
## 9   -15.46 187.81    40 5.5       91
## 10  -23.74 179.99   506 5.2       75
## 11  -28.98 181.11   304 5.3       60
## 12  -34.02 180.21    75 5.2       65
## 13  -15.48 167.53   128 5.1       61
## 14  -20.64 182.02   497 5.2       64
## 15  -18.16 183.41   306 5.2       54
## 16  -13.66 166.54    50 5.1       45
## 17  -22.55 185.90    42 5.7       76
## 18  -36.95 177.81   146 5.0       35
## 19  -13.66 172.23    46 5.3       67
## 20  -17.93 167.89    49 5.1       43
## 21  -26.53 178.57   600 5.0       69
## 22  -16.14 187.32    42 5.1       68
## 23  -13.23 167.10   220 5.0       46
## 24  -23.58 180.17   462 5.3       63
## 25  -23.34 184.50    56 5.7      106
## 26  -15.56 167.62   127 6.4      122
## 27  -34.20 179.43    40 5.0       37
## 28  -26.00 182.12   205 5.6       98
## 29  -19.89 183.84   244 5.3       73
## 30  -32.22 180.20   216 5.7       90
## 31  -22.64 180.64   544 5.0       50
## 32  -20.02 184.09   234 5.3       71
## 33  -17.72 180.30   595 5.2       74
## 34  -21.96 180.54   603 5.2       66
## 35  -20.47 185.68    93 5.4       85
## 36  -23.73 182.53   232 5.0       55
## 37  -22.34 171.52   106 5.0       43
## 38  -21.68 180.63   617 5.0       63
## 39  -14.70 166.00    48 5.3       16
## 40  -16.65 185.51   218 5.0       52
## 41  -23.36 180.01   553 5.3       61
## 42  -17.80 181.38   587 5.1       47
## 43  -19.02 184.23   270 5.1       72
## 44  -22.13 180.38   577 5.7      104
## 45  -23.33 180.18   528 5.0       59
## 46  -19.13 182.51   579 5.2       56
## 47  -20.60 182.28   529 5.0       50
## 48  -18.48 181.49   641 5.0       49
## 49  -15.24 186.21   158 5.0       57
## 50  -16.40 185.86   148 5.0       47
## 51  -24.57 178.40   562 5.6       80
## 52  -12.93 169.63   641 5.1       57
## 53  -18.60 181.91   442 5.4       82
## 54  -18.77 169.24   218 5.3       53
## 55  -21.79 183.48   210 5.2       69
## 56  -11.41 166.24    83 5.3       55
## 57  -19.10 183.87    61 5.3       42
## 58  -12.25 166.60   219 5.0       28
## 59  -23.49 179.07   544 5.1       58
## 60  -27.19 182.18    69 5.4       68
## 61  -21.54 185.48    51 5.0       29
## 62  -30.17 182.02    56 5.5       68
## 63  -17.79 181.32   587 5.0       49
## 64  -22.19 171.40   150 5.1       49
## 65  -17.10 182.68   403 5.5       82
## 66  -21.98 179.60   583 5.4       67
## 67  -20.43 182.37   502 5.1       48
## 68  -23.73 179.99   527 5.1       49
## 69  -19.89 184.08   219 5.4      105
## 70  -17.59 181.09   536 5.1       61
## 71  -19.77 181.40   630 5.1       54
## 72  -15.33 186.75    48 5.7      123
## 73  -15.36 186.66   112 5.1       57
## 74  -15.36 186.71   130 5.5       95
## 75  -16.24 167.95   188 5.1       68
## 76  -25.50 182.82   124 5.0       25
## 77  -14.32 167.33   204 5.0       49
## 78  -20.04 182.01   605 5.1       49
## 79  -28.83 181.66   221 5.1       63
## 80  -17.72 181.42   565 5.3       89
## 81  -15.87 188.13    52 5.0       30
## 82  -17.84 181.30   535 5.7      112
## 83  -13.45 170.30   641 5.3       93
## 84  -26.18 178.59   548 5.4       65
## 85  -14.28 167.26   211 5.1       51
## 86  -22.10 179.71   579 5.1       58
## 87  -22.55 183.81    82 5.1       68
## 88  -20.85 181.59   499 5.1       91
## 89  -21.11 181.50   538 5.5      104
## 90  -23.53 179.99   538 5.4       87
## 91  -18.00 180.62   636 5.0      100
## 92  -18.08 180.70   628 5.2       72
## 93  -29.90 181.16   215 5.1       51
## 94  -10.79 166.06   142 5.0       40
## 95  -37.93 177.47    65 5.4       65
## 96  -23.58 183.40    94 5.2       79
## 97  -22.54 172.91    54 5.5       71
## 98  -20.90 184.28    58 5.5       92
## 99  -32.45 181.15    41 5.5       81
## 100 -13.26 167.01   213 5.1       70
## 101 -15.77 167.01    64 5.5       73
## 102 -15.95 167.34    47 5.4       87
## 103 -15.90 167.42    40 5.5       86
## 104 -11.54 166.18    89 5.4       80
## 105 -15.61 187.15    49 5.0       30
## 106 -22.91 183.95    64 5.9      118
## 107 -21.92 182.80   273 5.3       78
## 108 -17.71 181.18   574 5.2       67
## 109 -34.68 179.82    75 5.6       79
## 110 -14.46 167.26   195 5.2       87
## 111 -20.41 186.51    63 5.0       28
## 112 -18.51 182.64   405 5.2       74
## 113 -27.28 183.40    70 5.1       54
## 114 -11.25 166.36   130 5.1       55
## 115 -23.31 179.27   566 5.1       49
## 116 -27.98 181.96    53 5.2       89
## 117 -19.89 174.46   546 5.7       99
## 118 -15.65 186.26    64 5.1       54
## 119 -20.06 168.69    49 5.1       49
## 120 -24.18 179.02   550 5.3       86
## 121 -23.78 180.31   518 5.1       71
## 122 -22.87 172.65    56 5.1       50
## 123 -18.82 182.21   417 5.6      129
## 124 -12.05 167.39   332 5.0       36
## 125 -28.15 183.40    57 5.0       32
## 126 -37.03 177.52   153 5.6       87
## 127 -18.12 181.88   649 5.4       88
## 128 -11.40 166.07    93 5.6       94
## 129 -17.59 180.98   548 5.1       79
## 130 -18.14 180.87   624 5.5      105
## 131 -23.46 180.11   539 5.0       41
## 132 -18.21 180.87   631 5.2       69
## 133 -15.34 167.10   128 5.3       18
## 134 -18.92 169.37   248 5.3       60
## 135 -20.93 181.54   564 5.0       64
## 136 -18.80 182.41   385 5.2       67
## 137 -18.07 181.58   603 5.0       65
## 138 -18.04 181.57   587 5.0       51
## 139 -17.64 177.01   545 5.2       91
## 140 -17.98 181.51   586 5.2       68
## 141 -17.74 186.78   104 5.1       71
## 142 -15.93 167.91   183 5.6      109
## 143 -21.44 170.45   166 5.1       22
## 144 -26.50 178.29   609 5.0       50
## 145 -19.02 186.83    45 5.2       65
## 146 -19.30 183.00   302 5.0       65
## 147 -31.03 181.59    57 5.2       49
## 148 -21.29 185.77    57 5.3       69
## 149 -21.08 180.85   627 5.9      119
## 150 -17.10 185.90   127 5.4       75
## 151 -21.13 185.60    85 5.3       86
## 152 -12.34 167.43    50 5.1       47
## 153 -21.57 183.86   156 5.1       70
## 154 -13.70 166.75    46 5.3       71
## 155 -20.24 185.10    86 5.1       61
## 156 -24.04 184.85    70 5.0       48
## 157 -15.00 184.62    40 5.1       54
## 158 -14.12 166.64    63 5.3       69
## 159 -23.61 180.27   537 5.0       63
## 160 -21.19 181.58   490 5.0       77
## 161 -23.80 184.70    42 5.0       36
## 162 -19.34 186.59    56 5.2       49
## 163 -20.89 185.26    54 5.1       44
## 164 -18.97 169.44   242 5.0       41
## 165 -25.42 182.65   102 5.0       36
## 166 -21.60 169.90    43 5.2       56
## 167 -22.23 180.48   581 5.0       54
## 168 -21.55 181.39   513 5.1       81
## 169 -15.18 167.23    71 5.2       59
## 170 -21.14 174.21    40 5.7       78
## 171 -12.23 167.02   242 6.0      132
## 172 -12.00 166.20    94 5.0       31
## 173 -26.72 182.69   162 5.2       64
## 174 -21.35 170.04    56 5.0       22
## 175 -22.82 184.52    49 5.0       52
## 176 -38.28 177.10   100 5.4       71
## 177 -13.80 166.53    42 5.5       70
## 178 -19.30 185.86    48 5.0       40
## 179 -21.53 170.52   129 5.2       30
## 180 -28.05 182.39   117 5.1       43
## 181 -21.52 169.75    61 5.1       40
## 182 -17.85 181.44   589 5.6      115
## 183 -15.99 167.95   190 5.3       81
## 184 -20.56 184.41   138 5.0       82
## 185 -27.64 182.22   162 5.1       67
## 186 -29.33 182.72    57 5.4       61
## 187 -20.25 184.75   107 5.6      121
## 188 -19.33 186.16    44 5.4      110
## 189 -22.41 183.99   128 5.2       72
## 190 -23.60 183.99   118 5.4       88
## 191 -27.89 182.92    87 5.5       67
## 192 -35.94 178.52   138 5.5       78
## 193 -22.04 183.95   109 5.4       61
## 194 -23.95 184.64    43 5.4       45
## 195 -23.75 184.50    54 5.2       74
## 196 -20.82 181.67   577 5.0       67
## 197 -22.33 171.66   125 5.2       51
## 198 -21.59 170.56   165 6.0      119
## 
## [[3]]
##                    type income education prestige
## accountant         prof     62        86       82
## pilot              prof     72        76       83
## architect          prof     75        92       90
## author             prof     55        90       76
## chemist            prof     64        86       90
## minister           prof     21        84       87
## professor          prof     64        93       93
## dentist            prof     80       100       90
## reporter             wc     67        87       52
## engineer           prof     72        86       88
## undertaker         prof     42        74       57
## lawyer             prof     76        98       89
## physician          prof     76        97       97
## welfare.worker     prof     41        84       59
## teacher            prof     48        91       73
## conductor            wc     76        34       38
## contractor         prof     53        45       76
## factory.owner      prof     60        56       81
## store.manager      prof     42        44       45
## banker             prof     78        82       92
## bookkeeper           wc     29        72       39
## mail.carrier         wc     48        55       34
## insurance.agent      wc     55        71       41
## store.clerk          wc     29        50       16
## carpenter            bc     21        23       33
## electrician          bc     47        39       53
## RR.engineer          bc     81        28       67
## machinist            bc     36        32       57
## auto.repairman       bc     22        22       26
## plumber              bc     44        25       29
## gas.stn.attendant    bc     15        29       10
## coal.miner           bc      7         7       15
## streetcar.motorman   bc     42        26       19
## taxi.driver          bc      9        19       10
## truck.driver         bc     21        15       13
## machine.operator     bc     21        20       24
## barber               bc     16        26       20
## bartender            bc     16        28        7
## shoe.shiner          bc      9        17        3
## cook                 bc     14        22       16
## soda.clerk           bc     12        30        6
## watchman             bc     17        25       11
## janitor              bc      7        20        8
## policeman            bc     34        47       41
## waiter               bc      8        32       10
#d
x <- 1:20
y <- c(-1.49,3.37,2.59,-2.78,-3.94,-0.92,6.43,8.51,3.41,-8.23,
       -12.01,-6.58,2.87,14.12,9.63,-4.58,-14.78,-11.67,1.17,15.62)
ptype <- rep(NA,length(x=x))
ptype[y>=5] <- "too_big"
ptype[y<=-5] <- "too_small"
ptype[(x>=5&x<=15)&(y>-5&y<5)] <- "sweet"
ptype[(x<5|x>15)&(y>-5&y<5)] <- "standard"
ptype <- factor(x=ptype)
ptype
##  [1] standard  standard  standard  standard  sweet     sweet     too_big  
##  [8] too_big   sweet     too_small too_small too_small sweet     too_big  
## [15] too_big   standard  too_small too_small standard  too_big  
## Levels: standard sweet too_big too_small
qplot(x,y,color=ptype,shape=ptype)
qplot(x,y,color=ptype,shape=ptype) + geom_point(size=4) +
  geom_line(mapping=aes(group=1),color="black",lty=2) +
  geom_hline(mapping=aes(yintercept=c(-5,5)),color="red") +
  geom_segment(mapping=aes(x=5,y=-5,xend=5,yend=5),color="red",lty=3) +
  geom_segment(mapping=aes(x=15,y=-5,xend=15,yend=5),color="red",lty=3)
ggsave(filename="/Users/USER/Downloads/mytff-plot.tiff")
## Saving 6.94 x 6.94 in image

Chapter 9

CALLING FUNCTIONS 9.1 Scoping 9.1.1 Environments NOTE Technically speaking, environments don’t actually contain items. Rather, they have pointers to the location of those items in the computer’s memory. But using the “compartment” metaphor and thinking of objects “belonging to” these compartments is useful when you’re first getting a general sense of how environments work.

Global Environment

#Exercise 9.1
#a
method_packs <- ls("package:methods")
head(method_packs,20)
##  [1] "addNextMethod"         "allNames"              "Arith"                
##  [4] "as"                    "as<-"                  "asMethodDefinition"   
##  [7] "assignClassDef"        "assignMethodsMetaData" "balanceMethodsList"   
## [10] "body<-"                "cacheGenericsMetaData" "cacheMetaData"        
## [13] "cacheMethod"           "callGeneric"           "callNextMethod"       
## [16] "canCoerce"             "cbind2"                "checkAtAssignment"    
## [19] "checkSlotAssignment"   "classesToAM"
length(method_packs)
## [1] 201
#b
environment(read.table)
## <environment: namespace:utils>
environment(data)
## NULL
environment(matrix)
## <environment: namespace:base>
environment(jpeg)
## <environment: namespace:grDevices>
#c
graphics_packs <- ls("package:graphics")

"smoothscatter"%in%graphics_packs
## [1] FALSE
# 9.2 Argument Matching
# 9.2.1 Exact
bar <- matrix(data=1:9,nrow=3,ncol=3,dimnames=list(c("A","B","C"),
                                                   c("D","E","F")))
bar
##   D E F
## A 1 4 7
## B 2 5 8
## C 3 6 9
bar <- matrix(nrow=3,dimnames=list(c("A","B","C"),c("D","E","F")),ncol=3,
              data=1:9)
bar
##   D E F
## A 1 4 7
## B 2 5 8
## C 3 6 9
# 9.2.2 Partial
bar <- matrix(nr=3,di=list(c("A","B","C"),c("D","E","F")),nc=3,dat=1:9)
bar
##   D E F
## A 1 4 7
## B 2 5 8
## C 3 6 9
#9.2.3 Positional
args(matrix)
## function (data = NA, nrow = 1, ncol = 1, byrow = FALSE, dimnames = NULL) 
## NULL
bar <- matrix(1:9,3,3,F,list(c("A","B","C"),c("D","E","F")))
bar
##   D E F
## A 1 4 7
## B 2 5 8
## C 3 6 9
# 9.2.4 Mixed
bar <- matrix(1:9,3,3,dim=list(c("A","B","C"),c("D","E","F")))
bar
##   D E F
## A 1 4 7
## B 2 5 8
## C 3 6 9
#9.2.5 Dot-Dot-Dot: Use of Ellipses
args(data.frame)
## function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE, 
##     fix.empty.names = TRUE, stringsAsFactors = FALSE) 
## NULL
args(plot)
## function (x, y, ...) 
## NULL
#Exercise 9.2
#a
seq(-4,4,0.2)
##  [1] -4.0 -3.8 -3.6 -3.4 -3.2 -3.0 -2.8 -2.6 -2.4 -2.2 -2.0 -1.8 -1.6 -1.4 -1.2
## [16] -1.0 -0.8 -0.6 -0.4 -0.2  0.0  0.2  0.4  0.6  0.8  1.0  1.2  1.4  1.6  1.8
## [31]  2.0  2.2  2.4  2.6  2.8  3.0  3.2  3.4  3.6  3.8  4.0
#b
#i.
array(8:1,dim=c(2,2,2))
## , , 1
## 
##      [,1] [,2]
## [1,]    8    6
## [2,]    7    5
## 
## , , 2
## 
##      [,1] [,2]
## [1,]    4    2
## [2,]    3    1
#ii.
rep(1:2,3)
## [1] 1 2 1 2 1 2
# iii. 
seq(from=10,to=8,length=5)
## [1] 10.0  9.5  9.0  8.5  8.0
# iv. 
sort(decreasing=T,x=c(2,1,1,2,0.3,3,1.3))
## [1] 3.0 2.0 2.0 1.3 1.0 1.0 0.3
#v.
which(matrix(c(T,F,T,T),2,2))
## [1] 1 3 4
# vi. 
which(matrix(c(T,F,T,T),2,2),a=T)
##      row col
## [1,]   1   1
## [2,]   1   2
## [3,]   2   2
#c
?plot.default