# Mindanao State University
# General Santos City
# Introduction to R base commands
# Prepared by: Eugene D. Villaralbo
# March 16, 2023

# Lab Exercise 1: How to create Lines in with different styles in R

# Step 1: Create Data

x <- 1:10 
# Create example data
y <- c(3, 1, 5, 2, 3, 8, 4, 7, 6, 9) # using the c() function to create an array
# Step 2: Plot the line graph using the base plot() command

plot(x, y, type = "l")

# Step 3: Add Main Title & Change Axis Labels

plot(x, y, type = "l",
     main = "Hello: This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values")

# Step 4: Add color to the line using the col command

plot(x, y, type = "l",
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     col = "red")

# Step 5: Modify Thickness of Line using lwd command

plot(x, y, type = "l",
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     lwd=7,
     col = "green")

# Step 6: Add points to line graph by changing the type command

plot(x, y, type = "b",
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     lwd=3,
     col = "blue")

# Lab Exercise 2: How to create Lines in with different styles in R

# Step1: Assign values for different lines. We enclose the entire
# line with parenthesis symbol to force R to display the results instantly
# set the same value for the x variable
(x <- 1:10)
##  [1]  1  2  3  4  5  6  7  8  9 10
# set different values for y variables
(y1 <- c(3, 1, 5, 2, 3, 8, 4, 7, 6, 9))
##  [1] 3 1 5 2 3 8 4 7 6 9
(y2 <- c(5, 1, 4, 6, 2, 3, 7, 8, 2, 8))
##  [1] 5 1 4 6 2 3 7 8 2 8
(y3 <- c(3, 3, 3, 3, 4, 4, 5, 5, 7, 7))
##  [1] 3 3 3 3 4 4 5 5 7 7
# Plot first the pair x and y1.
plot(x, y1, type = "b",
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     lwd=3,
     col = "blue")

# then Add the two lines (for x,y2) and (x,y3)
lines(x, y2, type = "b", col = "red",lwd=3)
lines(x, y3, type = "b", col = "green",lwd=3)

# Add legend to the plot
legend("topleft",
       legend = c("Line y1", "Line y2", "Line y3"),
       col = c("black", "red", "green"),
       lty = 1)

# Step 2: Create Different Point Symbol for Each
# Line using the pch command
plot(x, y1, type = "b",pch = 16,
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     lwd=3,
     col = "blue")
lines(x, y2, type = "b", col = "red",lwd=3, pch = 15)
lines(x, y3, type = "b", col = "green",lwd=3, pch = 8)

# Add legend
legend("topleft",
       legend = c("Line y1", "Line y2", "Line y3"),
       col = c("black", "red", "green"),
       lty = 1)

# Lab Exercise 3: Create Line graph without x values
Pupils <- c(3.55 ,3.54 ,3.53 ,3.61 ,3.65 ,3.63 ,3.61
            ,3.61 ,3.59 ,3.63 ,3.59 ,3.63 ,3.62 ,3.62
            ,3.59 ,3.63 ,3.62 ,3.65 ,3.65)

# get number of elements of Pupils
length(Pupils)
## [1] 19
# Display the elements of Pupils
Pupils
##  [1] 3.55 3.54 3.53 3.61 3.65 3.63 3.61 3.61 3.59 3.63 3.59 3.63 3.62 3.62 3.59
## [16] 3.63 3.62 3.65 3.65
# You can obtain the plot without x values
plot(Pupils, type = 'o')

# Lab Exercise 4: How to Create vertical, horizontal lines
# We will use buit-in cars dataset in R
# display the cars dataset
cars
##    speed dist
## 1      4    2
## 2      4   10
## 3      7    4
## 4      7   22
## 5      8   16
## 6      9   10
## 7     10   18
## 8     10   26
## 9     10   34
## 10    11   17
## 11    11   28
## 12    12   14
## 13    12   20
## 14    12   24
## 15    12   28
## 16    13   26
## 17    13   34
## 18    13   34
## 19    13   46
## 20    14   26
## 21    14   36
## 22    14   60
## 23    14   80
## 24    15   20
## 25    15   26
## 26    15   54
## 27    16   32
## 28    16   40
## 29    17   32
## 30    17   40
## 31    17   50
## 32    18   42
## 33    18   56
## 34    18   76
## 35    18   84
## 36    19   36
## 37    19   46
## 38    19   68
## 39    20   32
## 40    20   48
## 41    20   52
## 42    20   56
## 43    20   64
## 44    22   66
## 45    23   54
## 46    24   70
## 47    24   92
## 48    24   93
## 49    24  120
## 50    25   85
# get the number of rows and columns using dim() command
dim(cars)
## [1] 50  2
# display the variable names of the cars dataset
names(cars)
## [1] "speed" "dist"
# display only the first column of the dataset
cars$speed # using the column name
##  [1]  4  4  7  7  8  9 10 10 10 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 15
## [26] 15 16 16 17 17 17 18 18 18 18 19 19 19 20 20 20 20 20 22 23 24 24 24 24 25
cars[,1] # using the column number
##  [1]  4  4  7  7  8  9 10 10 10 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 15
## [26] 15 16 16 17 17 17 18 18 18 18 19 19 19 20 20 20 20 20 22 23 24 24 24 24 25
# Remarks: the following commands will give you the same result
plot(cars,) # using the comma after the name

plot(cars[,1],cars[,2]) # using the column index 1 and 2

attach(cars); plot(speed,dist) # using the attach command to load the variables

plot(cars$speed,cars$dist) # using the dollar notation

# combine all 4 plots using the par() command
par(mfrow = c(2,2)) # set a 2x2 plot output
plot(cars,) # using the comma after the name
plot(cars[,1],cars[,2]) # using the column index 1 and 2
attach(cars); plot(speed,dist) # using the attach command to load the variables
## The following objects are masked from cars (pos = 3):
## 
##     dist, speed
plot(cars$speed,cars$dist) # using the dollar notation

par(mfrow = c(1,1)) # reset to default plot setting

# Problem: Create vertical lines using the v command
plot(cars)
abline(v = 15, col = "darkgreen",lwd=3) # vertical line
abline(v = 10, col = "blue",lwd=3) # vertical line
# Problem: Create horizontal lines using the h command
abline(h = 80, col = "darkgreen",lwd=3) # vertical line
abline(h = 20, col = "blue",lwd=3) # vertical line

# Create more lines simultaneously, using a vector of values
plot(cars)
abline(v = c(9, 22,25), col = c("darkgreen", "blue","red"),
       lwd = c(1, 3,2), # line thickness
       lty = c(2,2,2)) # dashed lines

plot(cars)
abline(v = c(9, 22,25), col = c("darkgreen", "blue","red"),
       lwd = c(1, 3,2)) # line thickness and solid lines

# create horizontal lines
plot(cars)
abline(h = 60, col = "red",lty = 1, lwd = 3)
abline(h = 100, col = "red",lty = 2, lwd = 3)
abline(h = 20, col = "red",lty = 3, lwd = 3)

# Lab Exercise 5: How to Plot data by group
# We will use buit-in iris dataset in R
# this dataset is a collection of 4 species of flowers with different
# sepal length and width and also with different petal length and width
dim(iris) # iris dataset has 150 rows and 5 columns
## [1] 150   5
names(iris)
## [1] "Sepal.Length" "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"
# two different commands to get the frequency table
table(iris$Species) # refer to the dataset by variable name
## 
##     setosa versicolor  virginica 
##         50         50         50
table(iris[,5]) # refer to the dataset by column number
## 
##     setosa versicolor  virginica 
##         50         50         50
# get summary of all columns
summary(iris)
##   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
##  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
##  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
##  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
##  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
##  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
##  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
##        Species  
##  setosa    :50  
##  versicolor:50  
##  virginica :50  
##                 
##                 
## 
#create scatterplot of sepal width vs. sepal length
plot(iris$Sepal.Width, iris$Sepal.Length,
     col='steelblue',
     main='Scatterplot',
     xlab='Sepal Width',
     ylab='Sepal Length',
     pch=19)

plot(iris$Sepal.Width, iris$Sepal.Length,
     col='steelblue',
     main='Scatterplot',
     xlab='Sepal Width',
     ylab='Sepal Length',
     pch=1)

# another way to retrieve columns of data
PL <- iris$Petal.Length
PW <- iris$Petal.Width
plot(PL, PW)

# add color by species
plot(PL, PW, col = iris$Species, main= "My Plot")

# draw a line along with the distribution of points
# using the abline and lm commands
abline(lm(PW ~ PL))

# add text annotation
text(5, 0.5, "Regression Line")
legend("topleft", # specify the location of the legend
       levels(iris$Species), # specify the levels of species
       pch = 1:3, # specify three symbols used for the three species
       col = 1:3) # specify three colors for the three species

# Lab Exercise 6: Generate advance scatter plot
pairs(iris, col = rainbow(3)[iris$Species]) # set colors by species

# How to filter data for each flower
(Versicolor <- subset(iris, Species == "versicolor"))
##     Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
## 51           7.0         3.2          4.7         1.4 versicolor
## 52           6.4         3.2          4.5         1.5 versicolor
## 53           6.9         3.1          4.9         1.5 versicolor
## 54           5.5         2.3          4.0         1.3 versicolor
## 55           6.5         2.8          4.6         1.5 versicolor
## 56           5.7         2.8          4.5         1.3 versicolor
## 57           6.3         3.3          4.7         1.6 versicolor
## 58           4.9         2.4          3.3         1.0 versicolor
## 59           6.6         2.9          4.6         1.3 versicolor
## 60           5.2         2.7          3.9         1.4 versicolor
## 61           5.0         2.0          3.5         1.0 versicolor
## 62           5.9         3.0          4.2         1.5 versicolor
## 63           6.0         2.2          4.0         1.0 versicolor
## 64           6.1         2.9          4.7         1.4 versicolor
## 65           5.6         2.9          3.6         1.3 versicolor
## 66           6.7         3.1          4.4         1.4 versicolor
## 67           5.6         3.0          4.5         1.5 versicolor
## 68           5.8         2.7          4.1         1.0 versicolor
## 69           6.2         2.2          4.5         1.5 versicolor
## 70           5.6         2.5          3.9         1.1 versicolor
## 71           5.9         3.2          4.8         1.8 versicolor
## 72           6.1         2.8          4.0         1.3 versicolor
## 73           6.3         2.5          4.9         1.5 versicolor
## 74           6.1         2.8          4.7         1.2 versicolor
## 75           6.4         2.9          4.3         1.3 versicolor
## 76           6.6         3.0          4.4         1.4 versicolor
## 77           6.8         2.8          4.8         1.4 versicolor
## 78           6.7         3.0          5.0         1.7 versicolor
## 79           6.0         2.9          4.5         1.5 versicolor
## 80           5.7         2.6          3.5         1.0 versicolor
## 81           5.5         2.4          3.8         1.1 versicolor
## 82           5.5         2.4          3.7         1.0 versicolor
## 83           5.8         2.7          3.9         1.2 versicolor
## 84           6.0         2.7          5.1         1.6 versicolor
## 85           5.4         3.0          4.5         1.5 versicolor
## 86           6.0         3.4          4.5         1.6 versicolor
## 87           6.7         3.1          4.7         1.5 versicolor
## 88           6.3         2.3          4.4         1.3 versicolor
## 89           5.6         3.0          4.1         1.3 versicolor
## 90           5.5         2.5          4.0         1.3 versicolor
## 91           5.5         2.6          4.4         1.2 versicolor
## 92           6.1         3.0          4.6         1.4 versicolor
## 93           5.8         2.6          4.0         1.2 versicolor
## 94           5.0         2.3          3.3         1.0 versicolor
## 95           5.6         2.7          4.2         1.3 versicolor
## 96           5.7         3.0          4.2         1.2 versicolor
## 97           5.7         2.9          4.2         1.3 versicolor
## 98           6.2         2.9          4.3         1.3 versicolor
## 99           5.1         2.5          3.0         1.1 versicolor
## 100          5.7         2.8          4.1         1.3 versicolor
(Setosa <- subset(iris, Species == "setosa"))
##    Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1           5.1         3.5          1.4         0.2  setosa
## 2           4.9         3.0          1.4         0.2  setosa
## 3           4.7         3.2          1.3         0.2  setosa
## 4           4.6         3.1          1.5         0.2  setosa
## 5           5.0         3.6          1.4         0.2  setosa
## 6           5.4         3.9          1.7         0.4  setosa
## 7           4.6         3.4          1.4         0.3  setosa
## 8           5.0         3.4          1.5         0.2  setosa
## 9           4.4         2.9          1.4         0.2  setosa
## 10          4.9         3.1          1.5         0.1  setosa
## 11          5.4         3.7          1.5         0.2  setosa
## 12          4.8         3.4          1.6         0.2  setosa
## 13          4.8         3.0          1.4         0.1  setosa
## 14          4.3         3.0          1.1         0.1  setosa
## 15          5.8         4.0          1.2         0.2  setosa
## 16          5.7         4.4          1.5         0.4  setosa
## 17          5.4         3.9          1.3         0.4  setosa
## 18          5.1         3.5          1.4         0.3  setosa
## 19          5.7         3.8          1.7         0.3  setosa
## 20          5.1         3.8          1.5         0.3  setosa
## 21          5.4         3.4          1.7         0.2  setosa
## 22          5.1         3.7          1.5         0.4  setosa
## 23          4.6         3.6          1.0         0.2  setosa
## 24          5.1         3.3          1.7         0.5  setosa
## 25          4.8         3.4          1.9         0.2  setosa
## 26          5.0         3.0          1.6         0.2  setosa
## 27          5.0         3.4          1.6         0.4  setosa
## 28          5.2         3.5          1.5         0.2  setosa
## 29          5.2         3.4          1.4         0.2  setosa
## 30          4.7         3.2          1.6         0.2  setosa
## 31          4.8         3.1          1.6         0.2  setosa
## 32          5.4         3.4          1.5         0.4  setosa
## 33          5.2         4.1          1.5         0.1  setosa
## 34          5.5         4.2          1.4         0.2  setosa
## 35          4.9         3.1          1.5         0.2  setosa
## 36          5.0         3.2          1.2         0.2  setosa
## 37          5.5         3.5          1.3         0.2  setosa
## 38          4.9         3.6          1.4         0.1  setosa
## 39          4.4         3.0          1.3         0.2  setosa
## 40          5.1         3.4          1.5         0.2  setosa
## 41          5.0         3.5          1.3         0.3  setosa
## 42          4.5         2.3          1.3         0.3  setosa
## 43          4.4         3.2          1.3         0.2  setosa
## 44          5.0         3.5          1.6         0.6  setosa
## 45          5.1         3.8          1.9         0.4  setosa
## 46          4.8         3.0          1.4         0.3  setosa
## 47          5.1         3.8          1.6         0.2  setosa
## 48          4.6         3.2          1.4         0.2  setosa
## 49          5.3         3.7          1.5         0.2  setosa
## 50          5.0         3.3          1.4         0.2  setosa
(Virginica <- subset(iris, Species == "virginica"))
##     Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
## 101          6.3         3.3          6.0         2.5 virginica
## 102          5.8         2.7          5.1         1.9 virginica
## 103          7.1         3.0          5.9         2.1 virginica
## 104          6.3         2.9          5.6         1.8 virginica
## 105          6.5         3.0          5.8         2.2 virginica
## 106          7.6         3.0          6.6         2.1 virginica
## 107          4.9         2.5          4.5         1.7 virginica
## 108          7.3         2.9          6.3         1.8 virginica
## 109          6.7         2.5          5.8         1.8 virginica
## 110          7.2         3.6          6.1         2.5 virginica
## 111          6.5         3.2          5.1         2.0 virginica
## 112          6.4         2.7          5.3         1.9 virginica
## 113          6.8         3.0          5.5         2.1 virginica
## 114          5.7         2.5          5.0         2.0 virginica
## 115          5.8         2.8          5.1         2.4 virginica
## 116          6.4         3.2          5.3         2.3 virginica
## 117          6.5         3.0          5.5         1.8 virginica
## 118          7.7         3.8          6.7         2.2 virginica
## 119          7.7         2.6          6.9         2.3 virginica
## 120          6.0         2.2          5.0         1.5 virginica
## 121          6.9         3.2          5.7         2.3 virginica
## 122          5.6         2.8          4.9         2.0 virginica
## 123          7.7         2.8          6.7         2.0 virginica
## 124          6.3         2.7          4.9         1.8 virginica
## 125          6.7         3.3          5.7         2.1 virginica
## 126          7.2         3.2          6.0         1.8 virginica
## 127          6.2         2.8          4.8         1.8 virginica
## 128          6.1         3.0          4.9         1.8 virginica
## 129          6.4         2.8          5.6         2.1 virginica
## 130          7.2         3.0          5.8         1.6 virginica
## 131          7.4         2.8          6.1         1.9 virginica
## 132          7.9         3.8          6.4         2.0 virginica
## 133          6.4         2.8          5.6         2.2 virginica
## 134          6.3         2.8          5.1         1.5 virginica
## 135          6.1         2.6          5.6         1.4 virginica
## 136          7.7         3.0          6.1         2.3 virginica
## 137          6.3         3.4          5.6         2.4 virginica
## 138          6.4         3.1          5.5         1.8 virginica
## 139          6.0         3.0          4.8         1.8 virginica
## 140          6.9         3.1          5.4         2.1 virginica
## 141          6.7         3.1          5.6         2.4 virginica
## 142          6.9         3.1          5.1         2.3 virginica
## 143          5.8         2.7          5.1         1.9 virginica
## 144          6.8         3.2          5.9         2.3 virginica
## 145          6.7         3.3          5.7         2.5 virginica
## 146          6.7         3.0          5.2         2.3 virginica
## 147          6.3         2.5          5.0         1.9 virginica
## 148          6.5         3.0          5.2         2.0 virginica
## 149          6.2         3.4          5.4         2.3 virginica
## 150          5.9         3.0          5.1         1.8 virginica
# Draw boxplot for each type of flower
boxplot(Versicolor[,1:4], main="Versicolor, Rainbow Palette",ylim =
          c(0,8),las=2, col=rainbow(4))

boxplot(Setosa[,1:4], main="Setosa, Heat color Palette",ylim = c(0,8),las=2,
        col=heat.colors(4))

boxplot(Virginica[,1:4], main="Virginica, Topo colors Palette",ylim =
          c(0,8),las=2, col=topo.colors(4))

# Lab Exercise 7: How to load external datasets
# From a local directory
# the folder that contains the file should be specified completely
# using the forward slash symbol instead of the backward splash
folder <- "/cloud/project/"
filename <- "Cancer.csv"
(file <- paste0(folder,"/",filename))
## [1] "/cloud/project//Cancer.csv"
cancer <- read.csv(file)
dim(cancer)
## [1] 173  17
names(cancer)
##  [1] "country"            "incomeperperson"    "alcconsumption"    
##  [4] "armedforcesrate"    "breastcancer"       "co2emissions"      
##  [7] "femaleemployrate"   "hivrate"            "internetuserate"   
## [10] "lifeexpectancy"     "oilperperson"       "polityscore"       
## [13] "relectricperperson" "suicideper100th"    "employrate"        
## [16] "urbanrate"          "continent"
# compute mean value for every continent
(means <- round(tapply(cancer$breastcancer, cancer$continent, mean),
                digits=2))
##    AF    AS    EE LATAM NORAM    OC    WE 
## 24.02 24.51 49.44 36.70 71.73 45.80 74.80
# draw boxplot per continent
boxplot(cancer$breastcancer ~ cancer$continent, main= "Breast cancer by
continent (brown dot = mean value)", xlab="continents", ylab="new
cases per 100,00 residents", col=rainbow(7))
# insert the mean value using brown dot
points(means, col="brown", pch=18)

# Lab Exercise 8: How to load external datasets and change data layout
folder <- "/cloud/project/"
filename <- "hsb2.csv"
(file <- paste0(folder,"/",filename))
## [1] "/cloud/project//hsb2.csv"
hsb2_wide <- read.csv(file)
# display only the top 6 rows
head(hsb2_wide)
##   X  id female race ses schtyp prog read write math science socst
## 1 1  70      0    4   1      1    1   57    52   41      47    57
## 2 2 121      1    4   2      1    3   68    59   53      63    61
## 3 3  86      0    4   3      1    1   44    33   54      58    31
## 4 4 141      0    4   3      1    3   63    44   47      53    56
## 5 5 172      0    4   2      1    2   47    52   57      53    61
## 6 6 113      0    4   2      1    2   44    52   51      63    61
# display only the last 6 rows
tail(hsb2_wide)
##       X  id female race ses schtyp prog read write math science socst
## 195 195 179      1    4   2      2    2   47    65   60      50    56
## 196 196  31      1    2   2      2    1   55    59   52      42    56
## 197 197 145      1    4   2      1    3   42    46   38      36    46
## 198 198 187      1    4   2      2    1   57    41   57      55    52
## 199 199 118      1    4   2      1    1   55    62   58      58    61
## 200 200 137      1    4   3      1    2   63    65   65      53    61
# delete redundant first column (run only once)
(hsb2_wide <- hsb2_wide[-1])
##      id female race ses schtyp prog read write math science socst
## 1    70      0    4   1      1    1   57    52   41      47    57
## 2   121      1    4   2      1    3   68    59   53      63    61
## 3    86      0    4   3      1    1   44    33   54      58    31
## 4   141      0    4   3      1    3   63    44   47      53    56
## 5   172      0    4   2      1    2   47    52   57      53    61
## 6   113      0    4   2      1    2   44    52   51      63    61
## 7    50      0    3   2      1    1   50    59   42      53    61
## 8    11      0    1   2      1    2   34    46   45      39    36
## 9    84      0    4   2      1    1   63    57   54      58    51
## 10   48      0    3   2      1    2   57    55   52      50    51
## 11   75      0    4   2      1    3   60    46   51      53    61
## 12   60      0    4   2      1    2   57    65   51      63    61
## 13   95      0    4   3      1    2   73    60   71      61    71
## 14  104      0    4   3      1    2   54    63   57      55    46
## 15   38      0    3   1      1    2   45    57   50      31    56
## 16  115      0    4   1      1    1   42    49   43      50    56
## 17   76      0    4   3      1    2   47    52   51      50    56
## 18  195      0    4   2      2    1   57    57   60      58    56
## 19  114      0    4   3      1    2   68    65   62      55    61
## 20   85      0    4   2      1    1   55    39   57      53    46
## 21  167      0    4   2      1    1   63    49   35      66    41
## 22  143      0    4   2      1    3   63    63   75      72    66
## 23   41      0    3   2      1    2   50    40   45      55    56
## 24   20      0    1   3      1    2   60    52   57      61    61
## 25   12      0    1   2      1    3   37    44   45      39    46
## 26   53      0    3   2      1    3   34    37   46      39    31
## 27  154      0    4   3      1    2   65    65   66      61    66
## 28  178      0    4   2      2    3   47    57   57      58    46
## 29  196      0    4   3      2    2   44    38   49      39    46
## 30   29      0    2   1      1    1   52    44   49      55    41
## 31  126      0    4   2      1    1   42    31   57      47    51
## 32  103      0    4   3      1    2   76    52   64      64    61
## 33  192      0    4   3      2    2   65    67   63      66    71
## 34  150      0    4   2      1    3   42    41   57      72    31
## 35  199      0    4   3      2    2   52    59   50      61    61
## 36  144      0    4   3      1    1   60    65   58      61    66
## 37  200      0    4   2      2    2   68    54   75      66    66
## 38   80      0    4   3      1    2   65    62   68      66    66
## 39   16      0    1   1      1    3   47    31   44      36    36
## 40  153      0    4   2      1    3   39    31   40      39    51
## 41  176      0    4   2      2    2   47    47   41      42    51
## 42  177      0    4   2      2    2   55    59   62      58    51
## 43  168      0    4   2      1    2   52    54   57      55    51
## 44   40      0    3   1      1    1   42    41   43      50    41
## 45   62      0    4   3      1    1   65    65   48      63    66
## 46  169      0    4   1      1    1   55    59   63      69    46
## 47   49      0    3   3      1    3   50    40   39      49    47
## 48  136      0    4   2      1    2   65    59   70      63    51
## 49  189      0    4   2      2    2   47    59   63      53    46
## 50    7      0    1   2      1    2   57    54   59      47    51
## 51   27      0    2   2      1    2   53    61   61      57    56
## 52  128      0    4   3      1    2   39    33   38      47    41
## 53   21      0    1   2      1    1   44    44   61      50    46
## 54  183      0    4   2      2    2   63    59   49      55    71
## 55  132      0    4   2      1    2   73    62   73      69    66
## 56   15      0    1   3      1    3   39    39   44      26    42
## 57   67      0    4   1      1    3   37    37   42      33    32
## 58   22      0    1   2      1    3   42    39   39      56    46
## 59  185      0    4   2      2    2   63    57   55      58    41
## 60    9      0    1   2      1    3   48    49   52      44    51
## 61  181      0    4   2      2    2   50    46   45      58    61
## 62  170      0    4   3      1    2   47    62   61      69    66
## 63  134      0    4   1      1    1   44    44   39      34    46
## 64  108      0    4   2      1    1   34    33   41      36    36
## 65  197      0    4   3      2    2   50    42   50      36    61
## 66  140      0    4   2      1    3   44    41   40      50    26
## 67  171      0    4   2      1    2   60    54   60      55    66
## 68  107      0    4   1      1    3   47    39   47      42    26
## 69   81      0    4   1      1    2   63    43   59      65    44
## 70   18      0    1   2      1    3   50    33   49      44    36
## 71  155      0    4   2      1    1   44    44   46      39    51
## 72   97      0    4   3      1    2   60    54   58      58    61
## 73   68      0    4   2      1    2   73    67   71      63    66
## 74  157      0    4   2      1    1   68    59   58      74    66
## 75   56      0    4   2      1    3   55    45   46      58    51
## 76    5      0    1   1      1    2   47    40   43      45    31
## 77  159      0    4   3      1    2   55    61   54      49    61
## 78  123      0    4   3      1    1   68    59   56      63    66
## 79  164      0    4   2      1    3   31    36   46      39    46
## 80   14      0    1   3      1    2   47    41   54      42    56
## 81  127      0    4   3      1    2   63    59   57      55    56
## 82  165      0    4   1      1    3   36    49   54      61    36
## 83  174      0    4   2      2    2   68    59   71      66    56
## 84    3      0    1   1      1    2   63    65   48      63    56
## 85   58      0    4   2      1    3   55    41   40      44    41
## 86  146      0    4   3      1    2   55    62   64      63    66
## 87  102      0    4   3      1    2   52    41   51      53    56
## 88  117      0    4   3      1    3   34    49   39      42    56
## 89  133      0    4   2      1    3   50    31   40      34    31
## 90   94      0    4   3      1    2   55    49   61      61    56
## 91   24      0    2   2      1    2   52    62   66      47    46
## 92  149      0    4   1      1    1   63    49   49      66    46
## 93   82      1    4   3      1    2   68    62   65      69    61
## 94    8      1    1   1      1    2   39    44   52      44    48
## 95  129      1    4   1      1    1   44    44   46      47    51
## 96  173      1    4   1      1    1   50    62   61      63    51
## 97   57      1    4   2      1    2   71    65   72      66    56
## 98  100      1    4   3      1    2   63    65   71      69    71
## 99    1      1    1   1      1    3   34    44   40      39    41
## 100 194      1    4   3      2    2   63    63   69      61    61
## 101  88      1    4   3      1    2   68    60   64      69    66
## 102  99      1    4   3      1    1   47    59   56      66    61
## 103  47      1    3   1      1    2   47    46   49      33    41
## 104 120      1    4   3      1    2   63    52   54      50    51
## 105 166      1    4   2      1    2   52    59   53      61    51
## 106  65      1    4   2      1    2   55    54   66      42    56
## 107 101      1    4   3      1    2   60    62   67      50    56
## 108  89      1    4   1      1    3   35    35   40      51    33
## 109  54      1    3   1      2    1   47    54   46      50    56
## 110 180      1    4   3      2    2   71    65   69      58    71
## 111 162      1    4   2      1    3   57    52   40      61    56
## 112   4      1    1   1      1    2   44    50   41      39    51
## 113 131      1    4   3      1    2   65    59   57      46    66
## 114 125      1    4   1      1    2   68    65   58      59    56
## 115  34      1    1   3      2    2   73    61   57      55    66
## 116 106      1    4   2      1    3   36    44   37      42    41
## 117 130      1    4   3      1    1   43    54   55      55    46
## 118  93      1    4   3      1    2   73    67   62      58    66
## 119 163      1    4   1      1    2   52    57   64      58    56
## 120  37      1    3   1      1    3   41    47   40      39    51
## 121  35      1    1   1      2    1   60    54   50      50    51
## 122  87      1    4   2      1    1   50    52   46      50    56
## 123  73      1    4   2      1    2   50    52   53      39    56
## 124 151      1    4   2      1    3   47    46   52      48    46
## 125  44      1    3   1      1    3   47    62   45      34    46
## 126 152      1    4   3      1    2   55    57   56      58    61
## 127 105      1    4   2      1    2   50    41   45      44    56
## 128  28      1    2   2      1    1   39    53   54      50    41
## 129  91      1    4   3      1    3   50    49   56      47    46
## 130  45      1    3   1      1    3   34    35   41      29    26
## 131 116      1    4   2      1    2   57    59   54      50    56
## 132  33      1    2   1      1    2   57    65   72      54    56
## 133  66      1    4   2      1    3   68    62   56      50    51
## 134  72      1    4   2      1    3   42    54   47      47    46
## 135  77      1    4   1      1    2   61    59   49      44    66
## 136  61      1    4   3      1    2   76    63   60      67    66
## 137 190      1    4   2      2    2   47    59   54      58    46
## 138  42      1    3   2      1    3   46    52   55      44    56
## 139   2      1    1   2      1    3   39    41   33      42    41
## 140  55      1    3   2      2    2   52    49   49      44    61
## 141  19      1    1   1      1    1   28    46   43      44    51
## 142  90      1    4   3      1    2   42    54   50      50    52
## 143 142      1    4   2      1    3   47    42   52      39    51
## 144  17      1    1   2      1    2   47    57   48      44    41
## 145 122      1    4   2      1    2   52    59   58      53    66
## 146 191      1    4   3      2    2   47    52   43      48    61
## 147  83      1    4   2      1    3   50    62   41      55    31
## 148 182      1    4   2      2    2   44    52   43      44    51
## 149   6      1    1   1      1    2   47    41   46      40    41
## 150  46      1    3   1      1    2   45    55   44      34    41
## 151  43      1    3   1      1    2   47    37   43      42    46
## 152  96      1    4   3      1    2   65    54   61      58    56
## 153 138      1    4   2      1    3   43    57   40      50    51
## 154  10      1    1   2      1    1   47    54   49      53    61
## 155  71      1    4   2      1    1   57    62   56      58    66
## 156 139      1    4   2      1    2   68    59   61      55    71
## 157 110      1    4   2      1    3   52    55   50      54    61
## 158 148      1    4   2      1    3   42    57   51      47    61
## 159 109      1    4   2      1    1   42    39   42      42    41
## 160  39      1    3   3      1    2   66    67   67      61    66
## 161 147      1    4   1      1    2   47    62   53      53    61
## 162  74      1    4   2      1    2   57    50   50      51    58
## 163 198      1    4   3      2    2   47    61   51      63    31
## 164 161      1    4   1      1    2   57    62   72      61    61
## 165 112      1    4   2      1    2   52    59   48      55    61
## 166  69      1    4   1      1    3   44    44   40      40    31
## 167 156      1    4   2      1    2   50    59   53      61    61
## 168 111      1    4   1      1    1   39    54   39      47    36
## 169 186      1    4   2      2    2   57    62   63      55    41
## 170  98      1    4   1      1    3   57    60   51      53    37
## 171 119      1    4   1      1    1   42    57   45      50    43
## 172  13      1    1   2      1    3   47    46   39      47    61
## 173  51      1    3   3      1    1   42    36   42      31    39
## 174  26      1    2   3      1    2   60    59   62      61    51
## 175  36      1    3   1      1    1   44    49   44      35    51
## 176 135      1    4   1      1    2   63    60   65      54    66
## 177  59      1    4   2      1    2   65    67   63      55    71
## 178  78      1    4   2      1    2   39    54   54      53    41
## 179  64      1    4   3      1    3   50    52   45      58    36
## 180  63      1    4   1      1    1   52    65   60      56    51
## 181  79      1    4   2      1    2   60    62   49      50    51
## 182 193      1    4   2      2    2   44    49   48      39    51
## 183  92      1    4   3      1    1   52    67   57      63    61
## 184 160      1    4   2      1    2   55    65   55      50    61
## 185  32      1    2   3      1    3   50    67   66      66    56
## 186  23      1    2   1      1    2   65    65   64      58    71
## 187 158      1    4   2      1    1   52    54   55      53    51
## 188  25      1    2   2      1    1   47    44   42      42    36
## 189 188      1    4   3      2    2   63    62   56      55    61
## 190  52      1    3   1      1    2   50    46   53      53    66
## 191 124      1    4   1      1    3   42    54   41      42    41
## 192 175      1    4   3      2    1   36    57   42      50    41
## 193 184      1    4   2      2    3   50    52   53      55    56
## 194  30      1    2   3      1    2   41    59   42      34    51
## 195 179      1    4   2      2    2   47    65   60      50    56
## 196  31      1    2   2      2    1   55    59   52      42    56
## 197 145      1    4   2      1    3   42    46   38      36    46
## 198 187      1    4   2      2    1   57    41   57      55    52
## 199 118      1    4   2      1    1   55    62   58      58    61
## 200 137      1    4   3      1    2   63    65   65      53    61
# Remarks
# hsb2 dataset consists of 200 selected random samples from senior
# high school students in the US.
# We want to compare the student performance across different subjects
# change data layout by grouping different subjects
# into one column using melt() command. Install first reshape2 package
# install.packages("reshape2")
library(reshape2)
(hsb2_long <- melt(hsb2_wide, measure.vars = c("read","write","math","science","socst")))
##       id female race ses schtyp prog variable value
## 1     70      0    4   1      1    1     read    57
## 2    121      1    4   2      1    3     read    68
## 3     86      0    4   3      1    1     read    44
## 4    141      0    4   3      1    3     read    63
## 5    172      0    4   2      1    2     read    47
## 6    113      0    4   2      1    2     read    44
## 7     50      0    3   2      1    1     read    50
## 8     11      0    1   2      1    2     read    34
## 9     84      0    4   2      1    1     read    63
## 10    48      0    3   2      1    2     read    57
## 11    75      0    4   2      1    3     read    60
## 12    60      0    4   2      1    2     read    57
## 13    95      0    4   3      1    2     read    73
## 14   104      0    4   3      1    2     read    54
## 15    38      0    3   1      1    2     read    45
## 16   115      0    4   1      1    1     read    42
## 17    76      0    4   3      1    2     read    47
## 18   195      0    4   2      2    1     read    57
## 19   114      0    4   3      1    2     read    68
## 20    85      0    4   2      1    1     read    55
## 21   167      0    4   2      1    1     read    63
## 22   143      0    4   2      1    3     read    63
## 23    41      0    3   2      1    2     read    50
## 24    20      0    1   3      1    2     read    60
## 25    12      0    1   2      1    3     read    37
## 26    53      0    3   2      1    3     read    34
## 27   154      0    4   3      1    2     read    65
## 28   178      0    4   2      2    3     read    47
## 29   196      0    4   3      2    2     read    44
## 30    29      0    2   1      1    1     read    52
## 31   126      0    4   2      1    1     read    42
## 32   103      0    4   3      1    2     read    76
## 33   192      0    4   3      2    2     read    65
## 34   150      0    4   2      1    3     read    42
## 35   199      0    4   3      2    2     read    52
## 36   144      0    4   3      1    1     read    60
## 37   200      0    4   2      2    2     read    68
## 38    80      0    4   3      1    2     read    65
## 39    16      0    1   1      1    3     read    47
## 40   153      0    4   2      1    3     read    39
## 41   176      0    4   2      2    2     read    47
## 42   177      0    4   2      2    2     read    55
## 43   168      0    4   2      1    2     read    52
## 44    40      0    3   1      1    1     read    42
## 45    62      0    4   3      1    1     read    65
## 46   169      0    4   1      1    1     read    55
## 47    49      0    3   3      1    3     read    50
## 48   136      0    4   2      1    2     read    65
## 49   189      0    4   2      2    2     read    47
## 50     7      0    1   2      1    2     read    57
## 51    27      0    2   2      1    2     read    53
## 52   128      0    4   3      1    2     read    39
## 53    21      0    1   2      1    1     read    44
## 54   183      0    4   2      2    2     read    63
## 55   132      0    4   2      1    2     read    73
## 56    15      0    1   3      1    3     read    39
## 57    67      0    4   1      1    3     read    37
## 58    22      0    1   2      1    3     read    42
## 59   185      0    4   2      2    2     read    63
## 60     9      0    1   2      1    3     read    48
## 61   181      0    4   2      2    2     read    50
## 62   170      0    4   3      1    2     read    47
## 63   134      0    4   1      1    1     read    44
## 64   108      0    4   2      1    1     read    34
## 65   197      0    4   3      2    2     read    50
## 66   140      0    4   2      1    3     read    44
## 67   171      0    4   2      1    2     read    60
## 68   107      0    4   1      1    3     read    47
## 69    81      0    4   1      1    2     read    63
## 70    18      0    1   2      1    3     read    50
## 71   155      0    4   2      1    1     read    44
## 72    97      0    4   3      1    2     read    60
## 73    68      0    4   2      1    2     read    73
## 74   157      0    4   2      1    1     read    68
## 75    56      0    4   2      1    3     read    55
## 76     5      0    1   1      1    2     read    47
## 77   159      0    4   3      1    2     read    55
## 78   123      0    4   3      1    1     read    68
## 79   164      0    4   2      1    3     read    31
## 80    14      0    1   3      1    2     read    47
## 81   127      0    4   3      1    2     read    63
## 82   165      0    4   1      1    3     read    36
## 83   174      0    4   2      2    2     read    68
## 84     3      0    1   1      1    2     read    63
## 85    58      0    4   2      1    3     read    55
## 86   146      0    4   3      1    2     read    55
## 87   102      0    4   3      1    2     read    52
## 88   117      0    4   3      1    3     read    34
## 89   133      0    4   2      1    3     read    50
## 90    94      0    4   3      1    2     read    55
## 91    24      0    2   2      1    2     read    52
## 92   149      0    4   1      1    1     read    63
## 93    82      1    4   3      1    2     read    68
## 94     8      1    1   1      1    2     read    39
## 95   129      1    4   1      1    1     read    44
## 96   173      1    4   1      1    1     read    50
## 97    57      1    4   2      1    2     read    71
## 98   100      1    4   3      1    2     read    63
## 99     1      1    1   1      1    3     read    34
## 100  194      1    4   3      2    2     read    63
## 101   88      1    4   3      1    2     read    68
## 102   99      1    4   3      1    1     read    47
## 103   47      1    3   1      1    2     read    47
## 104  120      1    4   3      1    2     read    63
## 105  166      1    4   2      1    2     read    52
## 106   65      1    4   2      1    2     read    55
## 107  101      1    4   3      1    2     read    60
## 108   89      1    4   1      1    3     read    35
## 109   54      1    3   1      2    1     read    47
## 110  180      1    4   3      2    2     read    71
## 111  162      1    4   2      1    3     read    57
## 112    4      1    1   1      1    2     read    44
## 113  131      1    4   3      1    2     read    65
## 114  125      1    4   1      1    2     read    68
## 115   34      1    1   3      2    2     read    73
## 116  106      1    4   2      1    3     read    36
## 117  130      1    4   3      1    1     read    43
## 118   93      1    4   3      1    2     read    73
## 119  163      1    4   1      1    2     read    52
## 120   37      1    3   1      1    3     read    41
## 121   35      1    1   1      2    1     read    60
## 122   87      1    4   2      1    1     read    50
## 123   73      1    4   2      1    2     read    50
## 124  151      1    4   2      1    3     read    47
## 125   44      1    3   1      1    3     read    47
## 126  152      1    4   3      1    2     read    55
## 127  105      1    4   2      1    2     read    50
## 128   28      1    2   2      1    1     read    39
## 129   91      1    4   3      1    3     read    50
## 130   45      1    3   1      1    3     read    34
## 131  116      1    4   2      1    2     read    57
## 132   33      1    2   1      1    2     read    57
## 133   66      1    4   2      1    3     read    68
## 134   72      1    4   2      1    3     read    42
## 135   77      1    4   1      1    2     read    61
## 136   61      1    4   3      1    2     read    76
## 137  190      1    4   2      2    2     read    47
## 138   42      1    3   2      1    3     read    46
## 139    2      1    1   2      1    3     read    39
## 140   55      1    3   2      2    2     read    52
## 141   19      1    1   1      1    1     read    28
## 142   90      1    4   3      1    2     read    42
## 143  142      1    4   2      1    3     read    47
## 144   17      1    1   2      1    2     read    47
## 145  122      1    4   2      1    2     read    52
## 146  191      1    4   3      2    2     read    47
## 147   83      1    4   2      1    3     read    50
## 148  182      1    4   2      2    2     read    44
## 149    6      1    1   1      1    2     read    47
## 150   46      1    3   1      1    2     read    45
## 151   43      1    3   1      1    2     read    47
## 152   96      1    4   3      1    2     read    65
## 153  138      1    4   2      1    3     read    43
## 154   10      1    1   2      1    1     read    47
## 155   71      1    4   2      1    1     read    57
## 156  139      1    4   2      1    2     read    68
## 157  110      1    4   2      1    3     read    52
## 158  148      1    4   2      1    3     read    42
## 159  109      1    4   2      1    1     read    42
## 160   39      1    3   3      1    2     read    66
## 161  147      1    4   1      1    2     read    47
## 162   74      1    4   2      1    2     read    57
## 163  198      1    4   3      2    2     read    47
## 164  161      1    4   1      1    2     read    57
## 165  112      1    4   2      1    2     read    52
## 166   69      1    4   1      1    3     read    44
## 167  156      1    4   2      1    2     read    50
## 168  111      1    4   1      1    1     read    39
## 169  186      1    4   2      2    2     read    57
## 170   98      1    4   1      1    3     read    57
## 171  119      1    4   1      1    1     read    42
## 172   13      1    1   2      1    3     read    47
## 173   51      1    3   3      1    1     read    42
## 174   26      1    2   3      1    2     read    60
## 175   36      1    3   1      1    1     read    44
## 176  135      1    4   1      1    2     read    63
## 177   59      1    4   2      1    2     read    65
## 178   78      1    4   2      1    2     read    39
## 179   64      1    4   3      1    3     read    50
## 180   63      1    4   1      1    1     read    52
## 181   79      1    4   2      1    2     read    60
## 182  193      1    4   2      2    2     read    44
## 183   92      1    4   3      1    1     read    52
## 184  160      1    4   2      1    2     read    55
## 185   32      1    2   3      1    3     read    50
## 186   23      1    2   1      1    2     read    65
## 187  158      1    4   2      1    1     read    52
## 188   25      1    2   2      1    1     read    47
## 189  188      1    4   3      2    2     read    63
## 190   52      1    3   1      1    2     read    50
## 191  124      1    4   1      1    3     read    42
## 192  175      1    4   3      2    1     read    36
## 193  184      1    4   2      2    3     read    50
## 194   30      1    2   3      1    2     read    41
## 195  179      1    4   2      2    2     read    47
## 196   31      1    2   2      2    1     read    55
## 197  145      1    4   2      1    3     read    42
## 198  187      1    4   2      2    1     read    57
## 199  118      1    4   2      1    1     read    55
## 200  137      1    4   3      1    2     read    63
## 201   70      0    4   1      1    1    write    52
## 202  121      1    4   2      1    3    write    59
## 203   86      0    4   3      1    1    write    33
## 204  141      0    4   3      1    3    write    44
## 205  172      0    4   2      1    2    write    52
## 206  113      0    4   2      1    2    write    52
## 207   50      0    3   2      1    1    write    59
## 208   11      0    1   2      1    2    write    46
## 209   84      0    4   2      1    1    write    57
## 210   48      0    3   2      1    2    write    55
## 211   75      0    4   2      1    3    write    46
## 212   60      0    4   2      1    2    write    65
## 213   95      0    4   3      1    2    write    60
## 214  104      0    4   3      1    2    write    63
## 215   38      0    3   1      1    2    write    57
## 216  115      0    4   1      1    1    write    49
## 217   76      0    4   3      1    2    write    52
## 218  195      0    4   2      2    1    write    57
## 219  114      0    4   3      1    2    write    65
## 220   85      0    4   2      1    1    write    39
## 221  167      0    4   2      1    1    write    49
## 222  143      0    4   2      1    3    write    63
## 223   41      0    3   2      1    2    write    40
## 224   20      0    1   3      1    2    write    52
## 225   12      0    1   2      1    3    write    44
## 226   53      0    3   2      1    3    write    37
## 227  154      0    4   3      1    2    write    65
## 228  178      0    4   2      2    3    write    57
## 229  196      0    4   3      2    2    write    38
## 230   29      0    2   1      1    1    write    44
## 231  126      0    4   2      1    1    write    31
## 232  103      0    4   3      1    2    write    52
## 233  192      0    4   3      2    2    write    67
## 234  150      0    4   2      1    3    write    41
## 235  199      0    4   3      2    2    write    59
## 236  144      0    4   3      1    1    write    65
## 237  200      0    4   2      2    2    write    54
## 238   80      0    4   3      1    2    write    62
## 239   16      0    1   1      1    3    write    31
## 240  153      0    4   2      1    3    write    31
## 241  176      0    4   2      2    2    write    47
## 242  177      0    4   2      2    2    write    59
## 243  168      0    4   2      1    2    write    54
## 244   40      0    3   1      1    1    write    41
## 245   62      0    4   3      1    1    write    65
## 246  169      0    4   1      1    1    write    59
## 247   49      0    3   3      1    3    write    40
## 248  136      0    4   2      1    2    write    59
## 249  189      0    4   2      2    2    write    59
## 250    7      0    1   2      1    2    write    54
## 251   27      0    2   2      1    2    write    61
## 252  128      0    4   3      1    2    write    33
## 253   21      0    1   2      1    1    write    44
## 254  183      0    4   2      2    2    write    59
## 255  132      0    4   2      1    2    write    62
## 256   15      0    1   3      1    3    write    39
## 257   67      0    4   1      1    3    write    37
## 258   22      0    1   2      1    3    write    39
## 259  185      0    4   2      2    2    write    57
## 260    9      0    1   2      1    3    write    49
## 261  181      0    4   2      2    2    write    46
## 262  170      0    4   3      1    2    write    62
## 263  134      0    4   1      1    1    write    44
## 264  108      0    4   2      1    1    write    33
## 265  197      0    4   3      2    2    write    42
## 266  140      0    4   2      1    3    write    41
## 267  171      0    4   2      1    2    write    54
## 268  107      0    4   1      1    3    write    39
## 269   81      0    4   1      1    2    write    43
## 270   18      0    1   2      1    3    write    33
## 271  155      0    4   2      1    1    write    44
## 272   97      0    4   3      1    2    write    54
## 273   68      0    4   2      1    2    write    67
## 274  157      0    4   2      1    1    write    59
## 275   56      0    4   2      1    3    write    45
## 276    5      0    1   1      1    2    write    40
## 277  159      0    4   3      1    2    write    61
## 278  123      0    4   3      1    1    write    59
## 279  164      0    4   2      1    3    write    36
## 280   14      0    1   3      1    2    write    41
## 281  127      0    4   3      1    2    write    59
## 282  165      0    4   1      1    3    write    49
## 283  174      0    4   2      2    2    write    59
## 284    3      0    1   1      1    2    write    65
## 285   58      0    4   2      1    3    write    41
## 286  146      0    4   3      1    2    write    62
## 287  102      0    4   3      1    2    write    41
## 288  117      0    4   3      1    3    write    49
## 289  133      0    4   2      1    3    write    31
## 290   94      0    4   3      1    2    write    49
## 291   24      0    2   2      1    2    write    62
## 292  149      0    4   1      1    1    write    49
## 293   82      1    4   3      1    2    write    62
## 294    8      1    1   1      1    2    write    44
## 295  129      1    4   1      1    1    write    44
## 296  173      1    4   1      1    1    write    62
## 297   57      1    4   2      1    2    write    65
## 298  100      1    4   3      1    2    write    65
## 299    1      1    1   1      1    3    write    44
## 300  194      1    4   3      2    2    write    63
## 301   88      1    4   3      1    2    write    60
## 302   99      1    4   3      1    1    write    59
## 303   47      1    3   1      1    2    write    46
## 304  120      1    4   3      1    2    write    52
## 305  166      1    4   2      1    2    write    59
## 306   65      1    4   2      1    2    write    54
## 307  101      1    4   3      1    2    write    62
## 308   89      1    4   1      1    3    write    35
## 309   54      1    3   1      2    1    write    54
## 310  180      1    4   3      2    2    write    65
## 311  162      1    4   2      1    3    write    52
## 312    4      1    1   1      1    2    write    50
## 313  131      1    4   3      1    2    write    59
## 314  125      1    4   1      1    2    write    65
## 315   34      1    1   3      2    2    write    61
## 316  106      1    4   2      1    3    write    44
## 317  130      1    4   3      1    1    write    54
## 318   93      1    4   3      1    2    write    67
## 319  163      1    4   1      1    2    write    57
## 320   37      1    3   1      1    3    write    47
## 321   35      1    1   1      2    1    write    54
## 322   87      1    4   2      1    1    write    52
## 323   73      1    4   2      1    2    write    52
## 324  151      1    4   2      1    3    write    46
## 325   44      1    3   1      1    3    write    62
## 326  152      1    4   3      1    2    write    57
## 327  105      1    4   2      1    2    write    41
## 328   28      1    2   2      1    1    write    53
## 329   91      1    4   3      1    3    write    49
## 330   45      1    3   1      1    3    write    35
## 331  116      1    4   2      1    2    write    59
## 332   33      1    2   1      1    2    write    65
## 333   66      1    4   2      1    3    write    62
## 334   72      1    4   2      1    3    write    54
## 335   77      1    4   1      1    2    write    59
## 336   61      1    4   3      1    2    write    63
## 337  190      1    4   2      2    2    write    59
## 338   42      1    3   2      1    3    write    52
## 339    2      1    1   2      1    3    write    41
## 340   55      1    3   2      2    2    write    49
## 341   19      1    1   1      1    1    write    46
## 342   90      1    4   3      1    2    write    54
## 343  142      1    4   2      1    3    write    42
## 344   17      1    1   2      1    2    write    57
## 345  122      1    4   2      1    2    write    59
## 346  191      1    4   3      2    2    write    52
## 347   83      1    4   2      1    3    write    62
## 348  182      1    4   2      2    2    write    52
## 349    6      1    1   1      1    2    write    41
## 350   46      1    3   1      1    2    write    55
## 351   43      1    3   1      1    2    write    37
## 352   96      1    4   3      1    2    write    54
## 353  138      1    4   2      1    3    write    57
## 354   10      1    1   2      1    1    write    54
## 355   71      1    4   2      1    1    write    62
## 356  139      1    4   2      1    2    write    59
## 357  110      1    4   2      1    3    write    55
## 358  148      1    4   2      1    3    write    57
## 359  109      1    4   2      1    1    write    39
## 360   39      1    3   3      1    2    write    67
## 361  147      1    4   1      1    2    write    62
## 362   74      1    4   2      1    2    write    50
## 363  198      1    4   3      2    2    write    61
## 364  161      1    4   1      1    2    write    62
## 365  112      1    4   2      1    2    write    59
## 366   69      1    4   1      1    3    write    44
## 367  156      1    4   2      1    2    write    59
## 368  111      1    4   1      1    1    write    54
## 369  186      1    4   2      2    2    write    62
## 370   98      1    4   1      1    3    write    60
## 371  119      1    4   1      1    1    write    57
## 372   13      1    1   2      1    3    write    46
## 373   51      1    3   3      1    1    write    36
## 374   26      1    2   3      1    2    write    59
## 375   36      1    3   1      1    1    write    49
## 376  135      1    4   1      1    2    write    60
## 377   59      1    4   2      1    2    write    67
## 378   78      1    4   2      1    2    write    54
## 379   64      1    4   3      1    3    write    52
## 380   63      1    4   1      1    1    write    65
## 381   79      1    4   2      1    2    write    62
## 382  193      1    4   2      2    2    write    49
## 383   92      1    4   3      1    1    write    67
## 384  160      1    4   2      1    2    write    65
## 385   32      1    2   3      1    3    write    67
## 386   23      1    2   1      1    2    write    65
## 387  158      1    4   2      1    1    write    54
## 388   25      1    2   2      1    1    write    44
## 389  188      1    4   3      2    2    write    62
## 390   52      1    3   1      1    2    write    46
## 391  124      1    4   1      1    3    write    54
## 392  175      1    4   3      2    1    write    57
## 393  184      1    4   2      2    3    write    52
## 394   30      1    2   3      1    2    write    59
## 395  179      1    4   2      2    2    write    65
## 396   31      1    2   2      2    1    write    59
## 397  145      1    4   2      1    3    write    46
## 398  187      1    4   2      2    1    write    41
## 399  118      1    4   2      1    1    write    62
## 400  137      1    4   3      1    2    write    65
## 401   70      0    4   1      1    1     math    41
## 402  121      1    4   2      1    3     math    53
## 403   86      0    4   3      1    1     math    54
## 404  141      0    4   3      1    3     math    47
## 405  172      0    4   2      1    2     math    57
## 406  113      0    4   2      1    2     math    51
## 407   50      0    3   2      1    1     math    42
## 408   11      0    1   2      1    2     math    45
## 409   84      0    4   2      1    1     math    54
## 410   48      0    3   2      1    2     math    52
## 411   75      0    4   2      1    3     math    51
## 412   60      0    4   2      1    2     math    51
## 413   95      0    4   3      1    2     math    71
## 414  104      0    4   3      1    2     math    57
## 415   38      0    3   1      1    2     math    50
## 416  115      0    4   1      1    1     math    43
## 417   76      0    4   3      1    2     math    51
## 418  195      0    4   2      2    1     math    60
## 419  114      0    4   3      1    2     math    62
## 420   85      0    4   2      1    1     math    57
## 421  167      0    4   2      1    1     math    35
## 422  143      0    4   2      1    3     math    75
## 423   41      0    3   2      1    2     math    45
## 424   20      0    1   3      1    2     math    57
## 425   12      0    1   2      1    3     math    45
## 426   53      0    3   2      1    3     math    46
## 427  154      0    4   3      1    2     math    66
## 428  178      0    4   2      2    3     math    57
## 429  196      0    4   3      2    2     math    49
## 430   29      0    2   1      1    1     math    49
## 431  126      0    4   2      1    1     math    57
## 432  103      0    4   3      1    2     math    64
## 433  192      0    4   3      2    2     math    63
## 434  150      0    4   2      1    3     math    57
## 435  199      0    4   3      2    2     math    50
## 436  144      0    4   3      1    1     math    58
## 437  200      0    4   2      2    2     math    75
## 438   80      0    4   3      1    2     math    68
## 439   16      0    1   1      1    3     math    44
## 440  153      0    4   2      1    3     math    40
## 441  176      0    4   2      2    2     math    41
## 442  177      0    4   2      2    2     math    62
## 443  168      0    4   2      1    2     math    57
## 444   40      0    3   1      1    1     math    43
## 445   62      0    4   3      1    1     math    48
## 446  169      0    4   1      1    1     math    63
## 447   49      0    3   3      1    3     math    39
## 448  136      0    4   2      1    2     math    70
## 449  189      0    4   2      2    2     math    63
## 450    7      0    1   2      1    2     math    59
## 451   27      0    2   2      1    2     math    61
## 452  128      0    4   3      1    2     math    38
## 453   21      0    1   2      1    1     math    61
## 454  183      0    4   2      2    2     math    49
## 455  132      0    4   2      1    2     math    73
## 456   15      0    1   3      1    3     math    44
## 457   67      0    4   1      1    3     math    42
## 458   22      0    1   2      1    3     math    39
## 459  185      0    4   2      2    2     math    55
## 460    9      0    1   2      1    3     math    52
## 461  181      0    4   2      2    2     math    45
## 462  170      0    4   3      1    2     math    61
## 463  134      0    4   1      1    1     math    39
## 464  108      0    4   2      1    1     math    41
## 465  197      0    4   3      2    2     math    50
## 466  140      0    4   2      1    3     math    40
## 467  171      0    4   2      1    2     math    60
## 468  107      0    4   1      1    3     math    47
## 469   81      0    4   1      1    2     math    59
## 470   18      0    1   2      1    3     math    49
## 471  155      0    4   2      1    1     math    46
## 472   97      0    4   3      1    2     math    58
## 473   68      0    4   2      1    2     math    71
## 474  157      0    4   2      1    1     math    58
## 475   56      0    4   2      1    3     math    46
## 476    5      0    1   1      1    2     math    43
## 477  159      0    4   3      1    2     math    54
## 478  123      0    4   3      1    1     math    56
## 479  164      0    4   2      1    3     math    46
## 480   14      0    1   3      1    2     math    54
## 481  127      0    4   3      1    2     math    57
## 482  165      0    4   1      1    3     math    54
## 483  174      0    4   2      2    2     math    71
## 484    3      0    1   1      1    2     math    48
## 485   58      0    4   2      1    3     math    40
## 486  146      0    4   3      1    2     math    64
## 487  102      0    4   3      1    2     math    51
## 488  117      0    4   3      1    3     math    39
## 489  133      0    4   2      1    3     math    40
## 490   94      0    4   3      1    2     math    61
## 491   24      0    2   2      1    2     math    66
## 492  149      0    4   1      1    1     math    49
## 493   82      1    4   3      1    2     math    65
## 494    8      1    1   1      1    2     math    52
## 495  129      1    4   1      1    1     math    46
## 496  173      1    4   1      1    1     math    61
## 497   57      1    4   2      1    2     math    72
## 498  100      1    4   3      1    2     math    71
## 499    1      1    1   1      1    3     math    40
## 500  194      1    4   3      2    2     math    69
## 501   88      1    4   3      1    2     math    64
## 502   99      1    4   3      1    1     math    56
## 503   47      1    3   1      1    2     math    49
## 504  120      1    4   3      1    2     math    54
## 505  166      1    4   2      1    2     math    53
## 506   65      1    4   2      1    2     math    66
## 507  101      1    4   3      1    2     math    67
## 508   89      1    4   1      1    3     math    40
## 509   54      1    3   1      2    1     math    46
## 510  180      1    4   3      2    2     math    69
## 511  162      1    4   2      1    3     math    40
## 512    4      1    1   1      1    2     math    41
## 513  131      1    4   3      1    2     math    57
## 514  125      1    4   1      1    2     math    58
## 515   34      1    1   3      2    2     math    57
## 516  106      1    4   2      1    3     math    37
## 517  130      1    4   3      1    1     math    55
## 518   93      1    4   3      1    2     math    62
## 519  163      1    4   1      1    2     math    64
## 520   37      1    3   1      1    3     math    40
## 521   35      1    1   1      2    1     math    50
## 522   87      1    4   2      1    1     math    46
## 523   73      1    4   2      1    2     math    53
## 524  151      1    4   2      1    3     math    52
## 525   44      1    3   1      1    3     math    45
## 526  152      1    4   3      1    2     math    56
## 527  105      1    4   2      1    2     math    45
## 528   28      1    2   2      1    1     math    54
## 529   91      1    4   3      1    3     math    56
## 530   45      1    3   1      1    3     math    41
## 531  116      1    4   2      1    2     math    54
## 532   33      1    2   1      1    2     math    72
## 533   66      1    4   2      1    3     math    56
## 534   72      1    4   2      1    3     math    47
## 535   77      1    4   1      1    2     math    49
## 536   61      1    4   3      1    2     math    60
## 537  190      1    4   2      2    2     math    54
## 538   42      1    3   2      1    3     math    55
## 539    2      1    1   2      1    3     math    33
## 540   55      1    3   2      2    2     math    49
## 541   19      1    1   1      1    1     math    43
## 542   90      1    4   3      1    2     math    50
## 543  142      1    4   2      1    3     math    52
## 544   17      1    1   2      1    2     math    48
## 545  122      1    4   2      1    2     math    58
## 546  191      1    4   3      2    2     math    43
## 547   83      1    4   2      1    3     math    41
## 548  182      1    4   2      2    2     math    43
## 549    6      1    1   1      1    2     math    46
## 550   46      1    3   1      1    2     math    44
## 551   43      1    3   1      1    2     math    43
## 552   96      1    4   3      1    2     math    61
## 553  138      1    4   2      1    3     math    40
## 554   10      1    1   2      1    1     math    49
## 555   71      1    4   2      1    1     math    56
## 556  139      1    4   2      1    2     math    61
## 557  110      1    4   2      1    3     math    50
## 558  148      1    4   2      1    3     math    51
## 559  109      1    4   2      1    1     math    42
## 560   39      1    3   3      1    2     math    67
## 561  147      1    4   1      1    2     math    53
## 562   74      1    4   2      1    2     math    50
## 563  198      1    4   3      2    2     math    51
## 564  161      1    4   1      1    2     math    72
## 565  112      1    4   2      1    2     math    48
## 566   69      1    4   1      1    3     math    40
## 567  156      1    4   2      1    2     math    53
## 568  111      1    4   1      1    1     math    39
## 569  186      1    4   2      2    2     math    63
## 570   98      1    4   1      1    3     math    51
## 571  119      1    4   1      1    1     math    45
## 572   13      1    1   2      1    3     math    39
## 573   51      1    3   3      1    1     math    42
## 574   26      1    2   3      1    2     math    62
## 575   36      1    3   1      1    1     math    44
## 576  135      1    4   1      1    2     math    65
## 577   59      1    4   2      1    2     math    63
## 578   78      1    4   2      1    2     math    54
## 579   64      1    4   3      1    3     math    45
## 580   63      1    4   1      1    1     math    60
## 581   79      1    4   2      1    2     math    49
## 582  193      1    4   2      2    2     math    48
## 583   92      1    4   3      1    1     math    57
## 584  160      1    4   2      1    2     math    55
## 585   32      1    2   3      1    3     math    66
## 586   23      1    2   1      1    2     math    64
## 587  158      1    4   2      1    1     math    55
## 588   25      1    2   2      1    1     math    42
## 589  188      1    4   3      2    2     math    56
## 590   52      1    3   1      1    2     math    53
## 591  124      1    4   1      1    3     math    41
## 592  175      1    4   3      2    1     math    42
## 593  184      1    4   2      2    3     math    53
## 594   30      1    2   3      1    2     math    42
## 595  179      1    4   2      2    2     math    60
## 596   31      1    2   2      2    1     math    52
## 597  145      1    4   2      1    3     math    38
## 598  187      1    4   2      2    1     math    57
## 599  118      1    4   2      1    1     math    58
## 600  137      1    4   3      1    2     math    65
## 601   70      0    4   1      1    1  science    47
## 602  121      1    4   2      1    3  science    63
## 603   86      0    4   3      1    1  science    58
## 604  141      0    4   3      1    3  science    53
## 605  172      0    4   2      1    2  science    53
## 606  113      0    4   2      1    2  science    63
## 607   50      0    3   2      1    1  science    53
## 608   11      0    1   2      1    2  science    39
## 609   84      0    4   2      1    1  science    58
## 610   48      0    3   2      1    2  science    50
## 611   75      0    4   2      1    3  science    53
## 612   60      0    4   2      1    2  science    63
## 613   95      0    4   3      1    2  science    61
## 614  104      0    4   3      1    2  science    55
## 615   38      0    3   1      1    2  science    31
## 616  115      0    4   1      1    1  science    50
## 617   76      0    4   3      1    2  science    50
## 618  195      0    4   2      2    1  science    58
## 619  114      0    4   3      1    2  science    55
## 620   85      0    4   2      1    1  science    53
## 621  167      0    4   2      1    1  science    66
## 622  143      0    4   2      1    3  science    72
## 623   41      0    3   2      1    2  science    55
## 624   20      0    1   3      1    2  science    61
## 625   12      0    1   2      1    3  science    39
## 626   53      0    3   2      1    3  science    39
## 627  154      0    4   3      1    2  science    61
## 628  178      0    4   2      2    3  science    58
## 629  196      0    4   3      2    2  science    39
## 630   29      0    2   1      1    1  science    55
## 631  126      0    4   2      1    1  science    47
## 632  103      0    4   3      1    2  science    64
## 633  192      0    4   3      2    2  science    66
## 634  150      0    4   2      1    3  science    72
## 635  199      0    4   3      2    2  science    61
## 636  144      0    4   3      1    1  science    61
## 637  200      0    4   2      2    2  science    66
## 638   80      0    4   3      1    2  science    66
## 639   16      0    1   1      1    3  science    36
## 640  153      0    4   2      1    3  science    39
## 641  176      0    4   2      2    2  science    42
## 642  177      0    4   2      2    2  science    58
## 643  168      0    4   2      1    2  science    55
## 644   40      0    3   1      1    1  science    50
## 645   62      0    4   3      1    1  science    63
## 646  169      0    4   1      1    1  science    69
## 647   49      0    3   3      1    3  science    49
## 648  136      0    4   2      1    2  science    63
## 649  189      0    4   2      2    2  science    53
## 650    7      0    1   2      1    2  science    47
## 651   27      0    2   2      1    2  science    57
## 652  128      0    4   3      1    2  science    47
## 653   21      0    1   2      1    1  science    50
## 654  183      0    4   2      2    2  science    55
## 655  132      0    4   2      1    2  science    69
## 656   15      0    1   3      1    3  science    26
## 657   67      0    4   1      1    3  science    33
## 658   22      0    1   2      1    3  science    56
## 659  185      0    4   2      2    2  science    58
## 660    9      0    1   2      1    3  science    44
## 661  181      0    4   2      2    2  science    58
## 662  170      0    4   3      1    2  science    69
## 663  134      0    4   1      1    1  science    34
## 664  108      0    4   2      1    1  science    36
## 665  197      0    4   3      2    2  science    36
## 666  140      0    4   2      1    3  science    50
## 667  171      0    4   2      1    2  science    55
## 668  107      0    4   1      1    3  science    42
## 669   81      0    4   1      1    2  science    65
## 670   18      0    1   2      1    3  science    44
## 671  155      0    4   2      1    1  science    39
## 672   97      0    4   3      1    2  science    58
## 673   68      0    4   2      1    2  science    63
## 674  157      0    4   2      1    1  science    74
## 675   56      0    4   2      1    3  science    58
## 676    5      0    1   1      1    2  science    45
## 677  159      0    4   3      1    2  science    49
## 678  123      0    4   3      1    1  science    63
## 679  164      0    4   2      1    3  science    39
## 680   14      0    1   3      1    2  science    42
## 681  127      0    4   3      1    2  science    55
## 682  165      0    4   1      1    3  science    61
## 683  174      0    4   2      2    2  science    66
## 684    3      0    1   1      1    2  science    63
## 685   58      0    4   2      1    3  science    44
## 686  146      0    4   3      1    2  science    63
## 687  102      0    4   3      1    2  science    53
## 688  117      0    4   3      1    3  science    42
## 689  133      0    4   2      1    3  science    34
## 690   94      0    4   3      1    2  science    61
## 691   24      0    2   2      1    2  science    47
## 692  149      0    4   1      1    1  science    66
## 693   82      1    4   3      1    2  science    69
## 694    8      1    1   1      1    2  science    44
## 695  129      1    4   1      1    1  science    47
## 696  173      1    4   1      1    1  science    63
## 697   57      1    4   2      1    2  science    66
## 698  100      1    4   3      1    2  science    69
## 699    1      1    1   1      1    3  science    39
## 700  194      1    4   3      2    2  science    61
## 701   88      1    4   3      1    2  science    69
## 702   99      1    4   3      1    1  science    66
## 703   47      1    3   1      1    2  science    33
## 704  120      1    4   3      1    2  science    50
## 705  166      1    4   2      1    2  science    61
## 706   65      1    4   2      1    2  science    42
## 707  101      1    4   3      1    2  science    50
## 708   89      1    4   1      1    3  science    51
## 709   54      1    3   1      2    1  science    50
## 710  180      1    4   3      2    2  science    58
## 711  162      1    4   2      1    3  science    61
## 712    4      1    1   1      1    2  science    39
## 713  131      1    4   3      1    2  science    46
## 714  125      1    4   1      1    2  science    59
## 715   34      1    1   3      2    2  science    55
## 716  106      1    4   2      1    3  science    42
## 717  130      1    4   3      1    1  science    55
## 718   93      1    4   3      1    2  science    58
## 719  163      1    4   1      1    2  science    58
## 720   37      1    3   1      1    3  science    39
## 721   35      1    1   1      2    1  science    50
## 722   87      1    4   2      1    1  science    50
## 723   73      1    4   2      1    2  science    39
## 724  151      1    4   2      1    3  science    48
## 725   44      1    3   1      1    3  science    34
## 726  152      1    4   3      1    2  science    58
## 727  105      1    4   2      1    2  science    44
## 728   28      1    2   2      1    1  science    50
## 729   91      1    4   3      1    3  science    47
## 730   45      1    3   1      1    3  science    29
## 731  116      1    4   2      1    2  science    50
## 732   33      1    2   1      1    2  science    54
## 733   66      1    4   2      1    3  science    50
## 734   72      1    4   2      1    3  science    47
## 735   77      1    4   1      1    2  science    44
## 736   61      1    4   3      1    2  science    67
## 737  190      1    4   2      2    2  science    58
## 738   42      1    3   2      1    3  science    44
## 739    2      1    1   2      1    3  science    42
## 740   55      1    3   2      2    2  science    44
## 741   19      1    1   1      1    1  science    44
## 742   90      1    4   3      1    2  science    50
## 743  142      1    4   2      1    3  science    39
## 744   17      1    1   2      1    2  science    44
## 745  122      1    4   2      1    2  science    53
## 746  191      1    4   3      2    2  science    48
## 747   83      1    4   2      1    3  science    55
## 748  182      1    4   2      2    2  science    44
## 749    6      1    1   1      1    2  science    40
## 750   46      1    3   1      1    2  science    34
## 751   43      1    3   1      1    2  science    42
## 752   96      1    4   3      1    2  science    58
## 753  138      1    4   2      1    3  science    50
## 754   10      1    1   2      1    1  science    53
## 755   71      1    4   2      1    1  science    58
## 756  139      1    4   2      1    2  science    55
## 757  110      1    4   2      1    3  science    54
## 758  148      1    4   2      1    3  science    47
## 759  109      1    4   2      1    1  science    42
## 760   39      1    3   3      1    2  science    61
## 761  147      1    4   1      1    2  science    53
## 762   74      1    4   2      1    2  science    51
## 763  198      1    4   3      2    2  science    63
## 764  161      1    4   1      1    2  science    61
## 765  112      1    4   2      1    2  science    55
## 766   69      1    4   1      1    3  science    40
## 767  156      1    4   2      1    2  science    61
## 768  111      1    4   1      1    1  science    47
## 769  186      1    4   2      2    2  science    55
## 770   98      1    4   1      1    3  science    53
## 771  119      1    4   1      1    1  science    50
## 772   13      1    1   2      1    3  science    47
## 773   51      1    3   3      1    1  science    31
## 774   26      1    2   3      1    2  science    61
## 775   36      1    3   1      1    1  science    35
## 776  135      1    4   1      1    2  science    54
## 777   59      1    4   2      1    2  science    55
## 778   78      1    4   2      1    2  science    53
## 779   64      1    4   3      1    3  science    58
## 780   63      1    4   1      1    1  science    56
## 781   79      1    4   2      1    2  science    50
## 782  193      1    4   2      2    2  science    39
## 783   92      1    4   3      1    1  science    63
## 784  160      1    4   2      1    2  science    50
## 785   32      1    2   3      1    3  science    66
## 786   23      1    2   1      1    2  science    58
## 787  158      1    4   2      1    1  science    53
## 788   25      1    2   2      1    1  science    42
## 789  188      1    4   3      2    2  science    55
## 790   52      1    3   1      1    2  science    53
## 791  124      1    4   1      1    3  science    42
## 792  175      1    4   3      2    1  science    50
## 793  184      1    4   2      2    3  science    55
## 794   30      1    2   3      1    2  science    34
## 795  179      1    4   2      2    2  science    50
## 796   31      1    2   2      2    1  science    42
## 797  145      1    4   2      1    3  science    36
## 798  187      1    4   2      2    1  science    55
## 799  118      1    4   2      1    1  science    58
## 800  137      1    4   3      1    2  science    53
## 801   70      0    4   1      1    1    socst    57
## 802  121      1    4   2      1    3    socst    61
## 803   86      0    4   3      1    1    socst    31
## 804  141      0    4   3      1    3    socst    56
## 805  172      0    4   2      1    2    socst    61
## 806  113      0    4   2      1    2    socst    61
## 807   50      0    3   2      1    1    socst    61
## 808   11      0    1   2      1    2    socst    36
## 809   84      0    4   2      1    1    socst    51
## 810   48      0    3   2      1    2    socst    51
## 811   75      0    4   2      1    3    socst    61
## 812   60      0    4   2      1    2    socst    61
## 813   95      0    4   3      1    2    socst    71
## 814  104      0    4   3      1    2    socst    46
## 815   38      0    3   1      1    2    socst    56
## 816  115      0    4   1      1    1    socst    56
## 817   76      0    4   3      1    2    socst    56
## 818  195      0    4   2      2    1    socst    56
## 819  114      0    4   3      1    2    socst    61
## 820   85      0    4   2      1    1    socst    46
## 821  167      0    4   2      1    1    socst    41
## 822  143      0    4   2      1    3    socst    66
## 823   41      0    3   2      1    2    socst    56
## 824   20      0    1   3      1    2    socst    61
## 825   12      0    1   2      1    3    socst    46
## 826   53      0    3   2      1    3    socst    31
## 827  154      0    4   3      1    2    socst    66
## 828  178      0    4   2      2    3    socst    46
## 829  196      0    4   3      2    2    socst    46
## 830   29      0    2   1      1    1    socst    41
## 831  126      0    4   2      1    1    socst    51
## 832  103      0    4   3      1    2    socst    61
## 833  192      0    4   3      2    2    socst    71
## 834  150      0    4   2      1    3    socst    31
## 835  199      0    4   3      2    2    socst    61
## 836  144      0    4   3      1    1    socst    66
## 837  200      0    4   2      2    2    socst    66
## 838   80      0    4   3      1    2    socst    66
## 839   16      0    1   1      1    3    socst    36
## 840  153      0    4   2      1    3    socst    51
## 841  176      0    4   2      2    2    socst    51
## 842  177      0    4   2      2    2    socst    51
## 843  168      0    4   2      1    2    socst    51
## 844   40      0    3   1      1    1    socst    41
## 845   62      0    4   3      1    1    socst    66
## 846  169      0    4   1      1    1    socst    46
## 847   49      0    3   3      1    3    socst    47
## 848  136      0    4   2      1    2    socst    51
## 849  189      0    4   2      2    2    socst    46
## 850    7      0    1   2      1    2    socst    51
## 851   27      0    2   2      1    2    socst    56
## 852  128      0    4   3      1    2    socst    41
## 853   21      0    1   2      1    1    socst    46
## 854  183      0    4   2      2    2    socst    71
## 855  132      0    4   2      1    2    socst    66
## 856   15      0    1   3      1    3    socst    42
## 857   67      0    4   1      1    3    socst    32
## 858   22      0    1   2      1    3    socst    46
## 859  185      0    4   2      2    2    socst    41
## 860    9      0    1   2      1    3    socst    51
## 861  181      0    4   2      2    2    socst    61
## 862  170      0    4   3      1    2    socst    66
## 863  134      0    4   1      1    1    socst    46
## 864  108      0    4   2      1    1    socst    36
## 865  197      0    4   3      2    2    socst    61
## 866  140      0    4   2      1    3    socst    26
## 867  171      0    4   2      1    2    socst    66
## 868  107      0    4   1      1    3    socst    26
## 869   81      0    4   1      1    2    socst    44
## 870   18      0    1   2      1    3    socst    36
## 871  155      0    4   2      1    1    socst    51
## 872   97      0    4   3      1    2    socst    61
## 873   68      0    4   2      1    2    socst    66
## 874  157      0    4   2      1    1    socst    66
## 875   56      0    4   2      1    3    socst    51
## 876    5      0    1   1      1    2    socst    31
## 877  159      0    4   3      1    2    socst    61
## 878  123      0    4   3      1    1    socst    66
## 879  164      0    4   2      1    3    socst    46
## 880   14      0    1   3      1    2    socst    56
## 881  127      0    4   3      1    2    socst    56
## 882  165      0    4   1      1    3    socst    36
## 883  174      0    4   2      2    2    socst    56
## 884    3      0    1   1      1    2    socst    56
## 885   58      0    4   2      1    3    socst    41
## 886  146      0    4   3      1    2    socst    66
## 887  102      0    4   3      1    2    socst    56
## 888  117      0    4   3      1    3    socst    56
## 889  133      0    4   2      1    3    socst    31
## 890   94      0    4   3      1    2    socst    56
## 891   24      0    2   2      1    2    socst    46
## 892  149      0    4   1      1    1    socst    46
## 893   82      1    4   3      1    2    socst    61
## 894    8      1    1   1      1    2    socst    48
## 895  129      1    4   1      1    1    socst    51
## 896  173      1    4   1      1    1    socst    51
## 897   57      1    4   2      1    2    socst    56
## 898  100      1    4   3      1    2    socst    71
## 899    1      1    1   1      1    3    socst    41
## 900  194      1    4   3      2    2    socst    61
## 901   88      1    4   3      1    2    socst    66
## 902   99      1    4   3      1    1    socst    61
## 903   47      1    3   1      1    2    socst    41
## 904  120      1    4   3      1    2    socst    51
## 905  166      1    4   2      1    2    socst    51
## 906   65      1    4   2      1    2    socst    56
## 907  101      1    4   3      1    2    socst    56
## 908   89      1    4   1      1    3    socst    33
## 909   54      1    3   1      2    1    socst    56
## 910  180      1    4   3      2    2    socst    71
## 911  162      1    4   2      1    3    socst    56
## 912    4      1    1   1      1    2    socst    51
## 913  131      1    4   3      1    2    socst    66
## 914  125      1    4   1      1    2    socst    56
## 915   34      1    1   3      2    2    socst    66
## 916  106      1    4   2      1    3    socst    41
## 917  130      1    4   3      1    1    socst    46
## 918   93      1    4   3      1    2    socst    66
## 919  163      1    4   1      1    2    socst    56
## 920   37      1    3   1      1    3    socst    51
## 921   35      1    1   1      2    1    socst    51
## 922   87      1    4   2      1    1    socst    56
## 923   73      1    4   2      1    2    socst    56
## 924  151      1    4   2      1    3    socst    46
## 925   44      1    3   1      1    3    socst    46
## 926  152      1    4   3      1    2    socst    61
## 927  105      1    4   2      1    2    socst    56
## 928   28      1    2   2      1    1    socst    41
## 929   91      1    4   3      1    3    socst    46
## 930   45      1    3   1      1    3    socst    26
## 931  116      1    4   2      1    2    socst    56
## 932   33      1    2   1      1    2    socst    56
## 933   66      1    4   2      1    3    socst    51
## 934   72      1    4   2      1    3    socst    46
## 935   77      1    4   1      1    2    socst    66
## 936   61      1    4   3      1    2    socst    66
## 937  190      1    4   2      2    2    socst    46
## 938   42      1    3   2      1    3    socst    56
## 939    2      1    1   2      1    3    socst    41
## 940   55      1    3   2      2    2    socst    61
## 941   19      1    1   1      1    1    socst    51
## 942   90      1    4   3      1    2    socst    52
## 943  142      1    4   2      1    3    socst    51
## 944   17      1    1   2      1    2    socst    41
## 945  122      1    4   2      1    2    socst    66
## 946  191      1    4   3      2    2    socst    61
## 947   83      1    4   2      1    3    socst    31
## 948  182      1    4   2      2    2    socst    51
## 949    6      1    1   1      1    2    socst    41
## 950   46      1    3   1      1    2    socst    41
## 951   43      1    3   1      1    2    socst    46
## 952   96      1    4   3      1    2    socst    56
## 953  138      1    4   2      1    3    socst    51
## 954   10      1    1   2      1    1    socst    61
## 955   71      1    4   2      1    1    socst    66
## 956  139      1    4   2      1    2    socst    71
## 957  110      1    4   2      1    3    socst    61
## 958  148      1    4   2      1    3    socst    61
## 959  109      1    4   2      1    1    socst    41
## 960   39      1    3   3      1    2    socst    66
## 961  147      1    4   1      1    2    socst    61
## 962   74      1    4   2      1    2    socst    58
## 963  198      1    4   3      2    2    socst    31
## 964  161      1    4   1      1    2    socst    61
## 965  112      1    4   2      1    2    socst    61
## 966   69      1    4   1      1    3    socst    31
## 967  156      1    4   2      1    2    socst    61
## 968  111      1    4   1      1    1    socst    36
## 969  186      1    4   2      2    2    socst    41
## 970   98      1    4   1      1    3    socst    37
## 971  119      1    4   1      1    1    socst    43
## 972   13      1    1   2      1    3    socst    61
## 973   51      1    3   3      1    1    socst    39
## 974   26      1    2   3      1    2    socst    51
## 975   36      1    3   1      1    1    socst    51
## 976  135      1    4   1      1    2    socst    66
## 977   59      1    4   2      1    2    socst    71
## 978   78      1    4   2      1    2    socst    41
## 979   64      1    4   3      1    3    socst    36
## 980   63      1    4   1      1    1    socst    51
## 981   79      1    4   2      1    2    socst    51
## 982  193      1    4   2      2    2    socst    51
## 983   92      1    4   3      1    1    socst    61
## 984  160      1    4   2      1    2    socst    61
## 985   32      1    2   3      1    3    socst    56
## 986   23      1    2   1      1    2    socst    71
## 987  158      1    4   2      1    1    socst    51
## 988   25      1    2   2      1    1    socst    36
## 989  188      1    4   3      2    2    socst    61
## 990   52      1    3   1      1    2    socst    66
## 991  124      1    4   1      1    3    socst    41
## 992  175      1    4   3      2    1    socst    41
## 993  184      1    4   2      2    3    socst    56
## 994   30      1    2   3      1    2    socst    51
## 995  179      1    4   2      2    2    socst    56
## 996   31      1    2   2      2    1    socst    56
## 997  145      1    4   2      1    3    socst    46
## 998  187      1    4   2      2    1    socst    52
## 999  118      1    4   2      1    1    socst    61
## 1000 137      1    4   3      1    2    socst    61
#Remark: Pay extra attention to the last 2 columns
head(hsb2_long)
##    id female race ses schtyp prog variable value
## 1  70      0    4   1      1    1     read    57
## 2 121      1    4   2      1    3     read    68
## 3  86      0    4   3      1    1     read    44
## 4 141      0    4   3      1    3     read    63
## 5 172      0    4   2      1    2     read    47
## 6 113      0    4   2      1    2     read    44
tail(hsb2_long)
##       id female race ses schtyp prog variable value
## 995  179      1    4   2      2    2    socst    56
## 996   31      1    2   2      2    1    socst    56
## 997  145      1    4   2      1    3    socst    46
## 998  187      1    4   2      2    1    socst    52
## 999  118      1    4   2      1    1    socst    61
## 1000 137      1    4   3      1    2    socst    61
# get thefrequency
table(hsb2_long$variable)
## 
##    read   write    math science   socst 
##     200     200     200     200     200
# This means that the tables hsb2_long and hsb2_wide are the same
# tables displayed in two ways
# display data structure of the hsb2_long dataset
str(hsb2_long)
## 'data.frame':    1000 obs. of  8 variables:
##  $ id      : int  70 121 86 141 172 113 50 11 84 48 ...
##  $ female  : int  0 1 0 0 0 0 0 0 0 0 ...
##  $ race    : int  4 4 4 4 4 4 3 1 4 3 ...
##  $ ses     : int  1 2 3 3 2 2 2 2 2 2 ...
##  $ schtyp  : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ prog    : int  1 3 1 3 2 2 1 2 1 2 ...
##  $ variable: Factor w/ 5 levels "read","write",..: 1 1 1 1 1 1 1 1 1 1 ...
##  $ value   : int  57 68 44 63 47 44 50 34 63 57 ...
# the variables female, race, ses, schtyp, prog are stored as numbers
# for encoding purposes. However these variables are actually qualitative variables
# so we convert each from integer type to categorical type
# defining some variables to become factor variable
# we use another variable to preserve the file hsb2_long
data <- hsb2_long
data$ses = factor(data$ses, labels=c("low", "middle", "high"))
data$schtyp = factor(data$schtyp, labels=c("public", "private"))
data$prog = factor(data$prog, labels=c("general", "academic", "vocational"))
data$race = factor(data$race, labels=c("hispanic", "asian", "african-amer","white"))
data$female = factor(data$female, labels=c("female", "male"))
# check data structure again. The former integer variables are now categorical variable
str(data)
## 'data.frame':    1000 obs. of  8 variables:
##  $ id      : int  70 121 86 141 172 113 50 11 84 48 ...
##  $ female  : Factor w/ 2 levels "female","male": 1 2 1 1 1 1 1 1 1 1 ...
##  $ race    : Factor w/ 4 levels "hispanic","asian",..: 4 4 4 4 4 4 3 1 4 3 ...
##  $ ses     : Factor w/ 3 levels "low","middle",..: 1 2 3 3 2 2 2 2 2 2 ...
##  $ schtyp  : Factor w/ 2 levels "public","private": 1 1 1 1 1 1 1 1 1 1 ...
##  $ prog    : Factor w/ 3 levels "general","academic",..: 1 3 1 3 2 2 1 2 1 2 ...
##  $ variable: Factor w/ 5 levels "read","write",..: 1 1 1 1 1 1 1 1 1 1 ...
##  $ value   : int  57 68 44 63 47 44 50 34 63 57 ...
# we compare student performance by using boxplots
library(gplots)
## 
## Attaching package: 'gplots'
## The following object is masked from 'package:stats':
## 
##     lowess
# compute the average value by group using tapply() command
means <- round(tapply(data$value, data$variable, mean), digits=2)
# create boxplot by group
boxplot(data$value ~ data$variable, main= "Student Performance by Subject (brown dot = mean score)",
        xlab="Subject matter", ylab="Percentage Scores", col=rainbow(5))
# insert the average values
points(means, col="brown", pch=18)
# can also compute the median values
medians = round(tapply(data$value, data$variable, median), digits=2)
medians
##    read   write    math science   socst 
##      50      54      52      53      52
points(medians, col="red", pch=18)

# Lab Exercise 9: How to plot categorical variables

#install.packages("ggplot2")
library(ggplot2)

# we load variable names to memory to avoid the dollar notation
attach(hsb2_long)

# create the plot object p
p <- ggplot(hsb2_long, aes(ses, fill = prog)) + facet_wrap(~race)
p + geom_bar()
## Warning: The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?

p + geom_bar(position = "dodge")
## Warning: The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?

library(ggplot2)
attach(hsb2_long)
## The following objects are masked from hsb2_long (pos = 3):
## 
##     female, id, prog, race, schtyp, ses, value, variable
p <- ggplot(hsb2_long, aes(ses, fill = prog)) + facet_wrap(~schtyp)
p + geom_bar()
## Warning: The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?

p + geom_bar(position = "dodge")
## Warning: The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?

# Lab Exercise 10: Scatter Plots with marginal Distributions


# Advance Scatter plots using libraries

#install.packages("ggExtra")
#install.packages("tidyverse")

library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.0     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ lubridate 1.9.2     ✔ tibble    3.2.0
## ✔ purrr     1.0.1     ✔ tidyr     1.3.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors
library(ggExtra)

# set theme appearance of grid background
theme_set(theme_bw(1))

# create X and Y vector
(xAxis <- rnorm(1000)) # normal distribution with mean 0 and sd=1
##    [1]  0.4220170611 -0.5500644018  1.5009173184 -0.7830299876 -1.0627401881
##    [6] -1.6585592044  1.3386225366 -2.2152248806  0.2330858651 -0.6543021531
##   [11] -0.9251839129 -1.4439462803  0.0160599572  0.1638618319  0.1531886761
##   [16]  1.0269126967  0.1262699482  1.1204524881 -1.5406507670 -0.4892703818
##   [21]  0.0361436359  1.5920139549 -0.3782213845  1.4243820070 -0.9984079256
##   [26] -1.6029476366 -0.6233727913  3.2097115485  0.3742329085 -0.1740244358
##   [31]  0.8212261513 -0.7672291346  1.0482471970 -1.0724887391 -2.5655936002
##   [36] -0.6551341980  0.8249175264  0.0138276502 -1.1241932036  0.2080098842
##   [41] -0.7200242230  0.0854807763  0.0755564585 -0.6607930056  0.5153107006
##   [46] -1.2512969837  0.3988682674 -1.3122045355  0.7891026419 -0.3698297574
##   [51] -0.4212465224  0.4121567538  0.8999344194  0.0797827389 -0.3362990420
##   [56] -0.1016296824 -0.5606800615  1.7770252067 -0.3379241151  1.0334328224
##   [61]  0.6834846238  0.0046101834  0.5194252596  2.2280491136  0.3960544872
##   [66] -0.3327111481  1.2603301074  0.0375280961 -0.0151091690  0.3828209680
##   [71]  0.0667180393  1.7040569668 -1.3665296948  0.7620081395  1.2223866239
##   [76] -0.3614973811  0.9036577998 -0.4793861747 -0.5442960976  0.1675238569
##   [81]  0.7143891307  0.4329522598  1.0743376205  0.2910351965  1.0938902237
##   [86]  1.6638679080  0.4455428707  0.9010125766  0.5324868197 -0.5215936797
##   [91]  0.4290614294  1.0397437839 -0.9767938798  1.3975540299  0.6703107131
##   [96]  0.0073341736  0.8714274775  0.7399452733 -0.1434880328 -1.5937799697
##  [101] -0.3801254334 -2.0540118177 -0.2700619193 -0.5809492050 -1.0558475188
##  [106]  1.1925246035  0.4319949157 -0.1968657568  1.5018223238 -0.4838885837
##  [111]  0.0353800929 -0.2268864026  0.2808694481 -0.6272509380  0.7410210804
##  [116] -0.0045236650  0.6436108293  0.6573016862  0.6235360199 -2.0903744801
##  [121]  0.6134374062 -0.7655919092 -0.1667745907  0.0313833455  0.8049236292
##  [126] -0.9577129734  1.1693542290  0.1207732099 -1.3335260909  1.9324089893
##  [131]  0.1748329745 -0.9195905377  0.6985241571  0.8681954702  0.1712874268
##  [136] -0.3475754050  2.0331757860 -0.7439520613 -0.4999260264 -0.2467294416
##  [141]  0.9842817695  1.0735243984  0.4503634052  0.7188632475  1.9163148125
##  [146]  0.0444551518 -0.6127526564 -0.5421053086 -1.5349775648  1.1185333629
##  [151]  0.4197422268 -1.1723672726  0.9005994620  1.4631547730 -0.4002449844
##  [156] -2.1745607533  0.6800351083 -0.8381024181  0.3096602735  0.4810390993
##  [161]  0.7958601113  0.9944962235 -0.3802654397 -0.3581726005  0.6710985423
##  [166]  0.3005795780 -0.0744702222 -1.2297269517 -2.1723981154  1.1516477871
##  [171] -0.0562135677 -0.3494687171  1.3254900804 -1.6174825557  1.0132016398
##  [176] -0.1465844243  1.3069986625 -0.0711079974 -0.9738562484 -1.0550922432
##  [181] -0.7868754248  0.2920796903 -0.9125250381 -0.8157219891  0.5148139115
##  [186]  0.2126681396 -0.1882885430 -0.4051862215  1.0475909052  0.8357940545
##  [191] -0.9754252262  0.2339021093  0.6191400804  0.2722021574 -0.2676996086
##  [196] -0.3748608029  0.0410494280  1.7890287743  0.6254522164 -1.4903294744
##  [201] -0.4009106080  0.6724728410  0.5494727966 -1.0211986529  0.3828538018
##  [206]  0.9275837180 -1.9117121285 -0.1937270565  0.8124991796 -0.7795581369
##  [211] -0.0725741173  0.8153320857  0.4714919469  0.0323409940  0.6910820112
##  [216] -0.6797613742  1.1952255112  1.4580357102  0.7852301416  0.3770832718
##  [221] -0.0413460607 -1.4739367452 -1.1826148645  1.9309516906 -0.1917256348
##  [226] -0.1262809127  0.0718984333  0.6961787048  0.4639727723  0.6933578183
##  [231] -1.1898071605 -0.8915840942  1.1688687068 -1.1649507466  0.0278385876
##  [236]  0.7941373370  0.4424571278 -0.9362896335 -0.0140914776 -1.5914703470
##  [241]  0.8495724106 -0.4729089364  1.1092671206 -0.1979585792  1.7157060644
##  [246]  0.8180285480  1.0296285852 -0.5201634634  1.1330133270 -0.1389533205
##  [251]  0.2521393985  0.0315715109 -0.0027800939  0.4899703615 -1.4429957381
##  [256]  0.5025567294 -0.4941060492  0.0769154761 -1.3669792786  1.7276042730
##  [261] -1.5799927539 -1.5400536923 -0.2554768795 -0.4273265796  0.0864887698
##  [266] -1.0010270358 -0.0343246241 -1.2062514795  0.8817518517  0.8469034232
##  [271] -0.6889664670  1.1855504994 -0.5455501630  0.5501766049  0.3608863161
##  [276]  0.8210334219  0.9876362248 -0.6734900091  0.0621669571  0.6069859426
##  [281] -0.1578477724 -0.6042131450 -0.9895545740 -1.0076651140 -1.1338960697
##  [286]  0.9150858718  1.2229972423 -0.4256497172  1.0085464076  0.9254499993
##  [291] -0.2912522332 -0.9672405573  0.4080203941 -0.7860302334 -0.2076716629
##  [296] -0.1894425026  0.4801206408 -0.5688544281 -0.5893799129  0.0625857604
##  [301] -1.3754482237 -1.0014856908 -0.4224353452 -1.7647570377  1.1109561646
##  [306]  0.2166575142 -0.0462518563  1.2229468612  0.0138611647 -1.0818304442
##  [311] -0.1955086855 -1.3302608687  0.8584939290 -0.6546503073 -0.5709198958
##  [316]  1.5740658296 -0.1200297192  1.9020329964  0.7149431925 -1.0886464137
##  [321]  1.6999178915 -0.8237579495  1.1783499449  0.4448398769 -1.1503657146
##  [326] -0.5208979788 -0.2756770851  0.7168427611 -1.3726378474 -1.8909223480
##  [331]  0.7514375618  0.8252125838  1.0783776071  1.8084637370 -0.8644770881
##  [336]  0.2331602481  0.9880870261 -0.3179269918 -0.9398860953 -1.1163921832
##  [341]  1.3743821835  0.2155774086 -0.4737859199  1.2746829824 -1.9064839296
##  [346]  1.2183565667 -0.1818478980  1.0297193329  0.9531757890  0.2019199946
##  [351]  0.4542674539  0.9213126252  0.1756401066 -0.0844257522 -1.6724668835
##  [356] -0.7171521669 -0.1694118905 -0.4510674281  1.0818291667  0.8653970023
##  [361] -0.4150562949  0.0252619341  1.2570973027  1.4524227567 -0.7794675950
##  [366] -2.1506935126  0.5788703199  1.3025578996  2.2301305081 -1.0882218957
##  [371]  0.0451178721 -0.2931957305  0.4342754496  0.4030455559  1.9345420395
##  [376]  0.8521538746 -0.2673931921  0.2841572545 -1.5989245475 -1.1482807808
##  [381] -0.4855194002 -0.6200266492 -0.7034742002  2.5608119450 -0.9095881875
##  [386] -1.3085442237  0.9824771032 -0.9333841526  1.7282469727 -1.2161988499
##  [391]  1.3878686963  0.6884815417 -0.7892830530  0.0934441859  0.0886352905
##  [396] -0.3662558863  0.3173344737 -0.5051452837 -0.3088319988 -1.5962553779
##  [401]  1.9028815210 -0.3709830715 -0.6924881295  0.1828066392 -1.2274081560
##  [406] -0.2698388575  0.7980104536  2.2792464261  0.0320571337 -0.6809961566
##  [411]  0.9432349317 -1.6043807581  0.1940725088  0.1309293686 -0.0062122604
##  [416] -0.8547618525 -0.6305703384 -0.5288150826 -0.9999300537 -0.0096375876
##  [421]  1.6397940196 -0.0009915764 -0.1276869087  0.0165663931  0.6976787743
##  [426] -1.4608338642  1.4878436716  1.0006423320  1.5514174086  0.1254183041
##  [431]  0.6719297774 -0.6999267029 -0.8170745259  1.0931083890 -0.8364616799
##  [436]  0.2224741825 -0.3606035048 -0.5554722890  1.0585003335  0.7019386972
##  [441]  0.2917775403  1.6993124408 -0.0598380951 -0.9570203352  1.3533668418
##  [446] -0.6408691579 -1.2402828939  0.9561975941 -1.4081012715 -1.1753821755
##  [451]  0.7492521089 -1.8640877064 -0.4030012847 -0.7587711360 -0.3399311222
##  [456]  0.4635679598 -1.2737962648  1.5243537047 -2.7513221503 -0.6671143274
##  [461]  1.0081318223 -0.9686828764  0.3025156417 -0.2150991953 -0.6631026713
##  [466] -0.7658307614  0.6941006403 -1.6772870802  0.9865949052 -0.7149136941
##  [471] -0.9282324020  0.4685592347 -0.3112834781 -0.0883659734 -0.9373949752
##  [476] -1.1594402998  0.0288656864  1.1421921866 -1.8050475670  0.4492079285
##  [481] -1.1567948465 -1.6184991504 -1.3391382527  1.7451799723 -2.2109382151
##  [486]  1.5645265515 -1.3416397212  0.7830060013 -0.5550025181  1.1555981173
##  [491] -0.0641943518 -0.3442386589  1.2530106739  2.6179522671 -0.7270956496
##  [496] -0.0289871433 -0.5635131266 -1.0642795505 -1.1478780851  0.9268607808
##  [501] -0.5459474895 -0.5967860034 -0.6791565170  0.1864768614  1.1454088851
##  [506]  0.3397904481 -0.3305331697 -0.1185129347  0.8179562019  1.3086136495
##  [511] -1.2506505038 -0.6281781407 -0.0966830309 -1.3596845166  1.7215502233
##  [516] -0.2297018640  0.5964706199  0.2508069186  1.0315502432  0.2093627820
##  [521]  0.5841249982 -0.7929477011 -1.2096258854 -1.4534449284 -1.1532647057
##  [526] -1.0594131737  1.6141518753  0.5545340195 -0.0675560144 -0.0263988208
##  [531] -2.1483922138 -1.2531533133  0.2909201211  0.6481275409 -1.3362224575
##  [536]  1.8068444314 -0.1881231202  0.5134880367  0.5475884220  0.8245145188
##  [541]  1.4908292584  1.2231332272 -1.8065527559 -0.3574495326 -0.5566069352
##  [546]  0.3778163283 -1.4804648808 -0.2533216920  0.0376328881  0.7473832654
##  [551] -1.0604839249  1.0221017856 -1.1506618792 -0.4352269347  0.6333781221
##  [556] -0.1986589859 -1.2075488867 -1.0599096370  0.0963750219 -0.1702792122
##  [561]  0.3400664100  0.7635489189 -0.7406409039  0.3004401904  0.4858858830
##  [566] -0.9460026631  1.8275196200  0.6183711651  1.1848963810 -0.0053682393
##  [571]  1.0270789837  0.9248182457 -1.8737645699  0.9885164406  3.3005414670
##  [576] -1.1917099417 -2.4978896544  0.5043121814 -0.0866552681  0.9128253674
##  [581]  0.6343640392 -0.5466214035 -0.5373812348  0.1657942069 -0.1280055769
##  [586] -0.7013896600 -0.9072948705  2.2029348216 -0.8447683037 -0.0149010257
##  [591]  0.6302035971 -0.0974937687 -0.8291672981 -0.9606677052 -2.8213332062
##  [596]  0.8450425603 -1.1178496555 -0.0843946081  0.0903049639 -0.8860868854
##  [601]  0.0481340220 -0.8269008734  0.1094207558 -2.1944225880  2.7802025174
##  [606]  1.2818797297  0.9221498560  0.6362121527  1.1622972275 -1.3887309150
##  [611] -0.4316969010  0.0629569401  0.0929491571  0.6700349935  0.3746361304
##  [616]  0.7618539727  0.4930390006 -1.3730170522 -1.2056628654 -2.3700034872
##  [621]  0.8692339515  0.8863789635 -0.6752880648 -0.5544808616 -0.1417245785
##  [626] -0.2598563344 -1.0579948745  1.3895036703 -0.6978669218  1.1772457202
##  [631] -0.1790838461  0.2733097812 -0.9335425608  0.9617737498  0.2213141319
##  [636] -1.7410676742  0.2349082205  0.0480908130  1.7044073833 -0.9652801100
##  [641] -0.3800382656  0.3590493790  0.1362565579 -0.1423165703 -1.2628293157
##  [646]  0.8910510465 -0.0735333560  1.2171246956  1.6277987873  0.6581922397
##  [651]  0.3407329392  1.0001579117 -0.4933298945  0.5478667435  1.5696686998
##  [656] -0.0794332822 -0.0666897142  2.7692208236 -0.8183728220  0.7831652624
##  [661] -0.1450378933  1.4366638013  0.3093967389  2.6718081316 -0.1353635519
##  [666] -0.1669938001  0.5612558825  1.9756483434 -0.7592811847  1.2199624393
##  [671]  0.2125991948 -2.6877560701 -2.1790775427  0.8273123274  0.7940076231
##  [676]  0.4899195677  2.2043978205  1.4402431919  0.9037932562 -1.2684408358
##  [681]  0.3900009806  1.8817135271  1.2709984599  0.1824552692 -0.1556556615
##  [686]  1.3088730961  0.6645527611  1.0732380005  0.6287714362  1.4412161602
##  [691] -0.1602381788  0.6369338597 -0.0677375017 -0.3285009854 -1.9385689583
##  [696] -1.8112017242 -0.3531190606  1.0715573201 -0.6098758836  1.4318295353
##  [701] -0.2178906178  0.2098933139  0.8937105763 -1.3956474726  1.1225569004
##  [706] -0.6749134099 -0.3114977482  1.7004981057  0.1027846433  1.6717760837
##  [711]  0.5804267133 -0.0978312873  0.2723197593 -1.9154686660  0.2126665446
##  [716] -2.3799697793 -1.1341760466  0.1654001042 -2.0147494602 -1.0143754517
##  [721] -0.1571491885  0.8442107413  1.3886713943  0.1760727706 -0.9764674995
##  [726] -0.7416945719 -0.6942633211  0.0358307453 -0.5060487780 -0.7291455159
##  [731]  0.4347822157 -0.3622593674 -1.6299361828  0.0369936364 -1.9065213339
##  [736] -1.3040025353 -0.4970047924 -1.2426581933  0.4070569115  0.0696583164
##  [741] -0.2106602460  1.2789991596  1.9350387878  1.0602993890 -0.4276838495
##  [746]  2.1292336683  0.2366225550  1.3794196826  1.9067253387  0.1904886014
##  [751] -0.9856967468  1.9120839812 -0.5501563781  0.0341529140 -0.9509176802
##  [756]  0.1135620989  0.4737619840  0.1272941539  0.8789325630 -1.9936685670
##  [761] -0.5259875442  1.1362628809  0.9860888823  0.5853371643  1.1070577878
##  [766] -1.0052809298  0.3408189157 -1.3917704819 -0.7261136074  1.0201518857
##  [771]  1.2670070551 -0.3078647669  1.6111990359 -1.5948962647 -0.6969068024
##  [776] -1.3328330624  0.7659196268 -1.4752363234 -0.6048988017 -0.1411030379
##  [781]  2.0358428539 -0.2419732025 -0.6547747437  0.6825872793  1.2404807148
##  [786] -0.6546237401  0.6320061908  0.9398674726 -0.4485696721 -0.8138498096
##  [791] -0.0638438140  0.3791300936  0.4423652153 -0.2989306593  0.4905837568
##  [796] -0.9910456284  1.2619831533 -0.5618259306 -0.9990414830  0.8295551058
##  [801] -0.4119733518  1.0256725498  0.3729473066 -0.2863041976  0.7752611695
##  [806]  1.5536433825 -0.5069254576 -0.5473158185  0.5196089152 -1.8168545584
##  [811]  0.5229303316  0.0933292944  0.2672763068 -2.1462385561  0.2877334214
##  [816] -2.6502718795 -0.2571429312 -0.5446976257 -0.4593739592  1.8332295087
##  [821]  0.2884197120 -0.4817443493 -0.2680264549 -0.6789268765  0.9422562336
##  [826] -0.7064025602  0.1860977884 -0.3600032280  0.5155261176  0.4020062122
##  [831] -1.5426904124 -1.6757142161  1.7963265886 -0.1984369760  1.5094333612
##  [836] -0.6876584697  0.3639928285 -0.8430754775  0.4742160214  0.2922931842
##  [841]  0.6726225405 -0.1356875942 -0.4442619859 -0.2488958146 -0.6372635290
##  [846] -2.7688610112  0.6851612218 -0.7107569076 -0.1604743252 -0.9458749416
##  [851] -2.5657407028 -0.7703392376  0.0467966186  1.8432664715  1.3409376146
##  [856] -0.5770366945  1.1829196541  1.4560444820 -2.5143143377  0.6231608852
##  [861] -1.6120682541  0.0228198173 -0.5919543178 -0.7376036928  0.9281116018
##  [866]  2.3040070041 -0.9628340993 -0.1389687983 -0.0506122125  0.8867735740
##  [871] -0.5707846622  0.2249495373 -1.0803698436 -0.5490571172 -1.0943030357
##  [876]  0.0224920286 -0.8649218333 -1.4234755295  0.0757805478  0.5848014054
##  [881] -0.1677247115  1.0842614546 -0.1289362210 -0.1823227785 -2.3641716522
##  [886]  1.0204188888  1.1414996109 -0.6222006565  1.0030806018  0.0885881552
##  [891]  1.2236080883 -0.1554123242  0.5515711590 -0.2709039754 -0.1391859034
##  [896] -0.0154609128  0.1646875434  0.0118355677 -0.4704823064 -0.0344051270
##  [901] -0.4687987105  1.2597432671 -0.5156764481  0.2883163295 -0.6751177211
##  [906]  0.6265409344  0.4879110173  0.6106519048 -0.7120120317  0.4809631487
##  [911] -0.2750249786  0.9493628261  1.9649084510  0.1729209964  0.9174380508
##  [916] -0.3705490885 -0.6548275520  0.4102670885  1.7088642455 -0.7579695841
##  [921]  0.0141430278  2.8994103320  0.7601667926  0.8452088498  0.7862089364
##  [926]  0.7948331515  0.2007707307  0.1894445307  1.8522225431  1.5687639229
##  [931] -1.0112526448  1.3950533073 -0.5927595166  0.2417262405  0.1716780715
##  [936] -0.0676664142  2.1626374819  0.9043272576 -0.3665135155 -0.3899572250
##  [941]  1.0529423602 -0.3025892489 -2.0196495117  0.1078174824 -0.6436246317
##  [946]  0.8095692288  0.5482780595  0.7139372088 -0.1686933842 -0.4087731138
##  [951]  1.1530110093  0.0090757462 -0.9634560752  1.1094728732  0.0815761469
##  [956]  0.9316050497 -0.2862212716 -1.4661495095 -0.3089154095 -1.2068333009
##  [961]  1.2444354236  1.2026925797  1.3299916667  0.8543583472 -1.4888393497
##  [966] -1.4505931595  1.0344394229 -1.8602581461  0.9258684136 -0.0350664136
##  [971]  1.1716411063 -1.9173863075  0.7427380005 -0.1296272837 -0.3010670269
##  [976]  1.2235251574 -0.4420982960  0.5235453957  0.4700149036 -0.7827815802
##  [981] -0.4807818046  1.3973317616  0.1838800697  1.6123983299  0.2051387406
##  [986] -0.4437023973 -0.5215894463  0.1962541605 -0.8900413140  0.7336317823
##  [991] -0.7858299495  0.7327520538 -1.2677465234 -0.6390822677 -0.2174956604
##  [996] -0.7100899234  0.4521476062 -1.5212756906 -0.0490463401  1.2861696219
yAxis <- rnorm(1000) + xAxis + 10
yAxis
##    [1] 10.894740  8.023241 11.801498  7.936635 10.046659  8.484353 12.721783
##    [8]  8.045755  9.630640  7.640092  9.405860  8.993352  9.382809 11.197035
##   [15]  9.651443 11.219973  8.331520 11.247774  7.386233  9.645517  8.075094
##   [22] 12.351687 11.102947 12.981941  8.585375 10.307537 11.166635 12.387371
##   [29]  9.515474  9.306674 11.588662  9.810828 11.719496  9.255441  9.288707
##   [36]  8.545520 11.203524 10.038663  9.123912  9.246809  7.232683  9.346951
##   [43] 10.168777  9.376722  9.846958  8.224264  9.727125  8.749983 10.832239
##   [50] 10.837185  6.989907 12.119637 10.162648 10.572537 10.465028  9.037392
##   [57]  8.991495 11.814424 10.131941 12.924691 12.006471 10.054979  9.010935
##   [64]  9.986913 10.588297  9.255058 11.614497  8.654628  9.581464  9.934734
##   [71] 10.270841 12.601555  7.987613  9.298477  8.582023  9.646491  9.610303
##   [78]  9.960588 10.353215 10.208432 10.294722 11.455134 10.548265  9.139622
##   [85] 11.899661 10.165261 10.600040 13.236125 10.697417  8.722958 11.344309
##   [92] 11.016107  9.612280 11.983960 12.439944 11.167087 12.324185 12.078665
##   [99] 10.253697  9.792491  9.143977  6.753109  9.898251  9.092289  5.740956
##  [106] 11.980708  9.695434 10.078158 11.090699  7.888950  8.378184  7.871765
##  [113] 11.243392  9.854445 11.848268  9.571998 10.590877 10.616723 10.609874
##  [120]  7.649626 10.253704  8.663545  9.538775 10.396347 12.736262  9.565159
##  [127] 11.666846  9.503339  5.846901 12.027882  9.278535  9.286313 11.155622
##  [134] 10.738934 10.812240  9.046641 10.587887  9.696294 10.171994 10.110816
##  [141] 11.977494 10.324179  8.827118 11.279496 10.782714 10.467801  8.713592
##  [148]  9.945581  8.680992 11.306668  9.566810 10.257110 10.695451 10.648998
##  [155] 10.976499  9.684363 12.340129  8.208906 10.999804  9.423882 12.204653
##  [162] 11.727517  9.697298 10.632846 10.571250  8.212009  9.663045  7.768280
##  [169]  6.962917 14.440968  8.999297  9.228849 11.980000  9.230495 12.044962
##  [176] 10.315750 11.617773  9.343595  8.128885  9.848123  9.850900 12.331724
##  [183] 10.633479  9.253924 10.747286 10.169747  9.210779 11.723030 10.275025
##  [190] 11.863663  8.574881 10.921051 12.050839 10.650970 10.159200  9.566463
##  [197] 12.598215 11.680348  8.023988  8.583289 11.065402 10.137141 11.204691
##  [204]  9.190565  8.616936 12.455035  8.648944  9.711085 10.099810  8.916607
##  [211]  9.974386 10.314654 11.000483 11.174967 10.020999  9.492703 11.726037
##  [218]  9.759716 11.948009 10.974269 10.202417  9.098257  6.979849 12.264527
##  [225] 11.309281  9.782165 11.893146  9.991748  9.852221  9.912181  9.727115
##  [232]  9.324716 12.581477 10.212182  9.923814 11.238655 12.254122  8.043634
##  [239]  8.600290  7.824567 10.382430  9.926750 10.837768  8.358914 10.751334
##  [246] 10.548631 10.695013 10.054571  9.940993  8.860966 11.394648  9.190904
##  [253] 11.308378  9.771168  9.626608 10.587901  7.526832 11.133601  6.984979
##  [260] 11.691831  9.978876  7.483875 10.645402 10.441605 11.109231  9.864061
##  [267] 10.235894  7.929915 11.477476 11.133078  9.250708 12.499288 10.171212
##  [274]  8.887771  9.492831  9.933396 10.985547  9.248735  8.252881 10.848699
##  [281]  9.974573  8.221657  8.919304  8.518981  7.750931 10.675135 12.400517
##  [288] 10.557358 11.031319  9.051224 10.160136  9.596774 11.521431  7.912475
##  [295] 11.529316  9.322446 11.146122  8.844370 11.067982  9.903705 10.519917
##  [302] 10.592820 11.203401  6.271557 11.233343 10.183044 11.097006 12.825508
##  [309] 10.339720 10.328850 10.588929  7.986430  9.864748  9.193666  9.344105
##  [316]  9.996223 10.220752 12.618881 11.848026  8.921265 11.436032 11.336906
##  [323] 10.254236 10.281981 11.298664  9.715662  9.816279 10.834319  9.477792
##  [330]  7.034652  9.878249 10.890436 10.763744 11.524932 10.393296 10.640180
##  [337]  9.608356  8.911474  9.009094  8.095231 11.844958 11.387404  9.045301
##  [344] 10.893987  8.476265 11.688543 11.054977 13.021585 10.534607  9.316752
##  [351] 10.407831 10.544216 10.705309 12.360015  9.425568  7.894238  9.539167
##  [358]  9.175299 10.153929 10.409966  9.739135  9.887302 10.790217  9.596087
##  [365] 11.313895  7.604780  8.844927 11.983142 13.409012 10.393775 10.798528
##  [372] 10.015598  9.927367 11.008013 11.873145  9.684599  8.638937  9.023122
##  [379] 10.189580  7.786612  9.164063  9.934243  9.789974 12.897242  8.451330
##  [386]  8.655548 10.413722 10.767789 10.576297  9.386673 12.273538 11.302521
##  [393]  8.566562  9.532922  8.788627  8.926477 10.153548  7.707882  8.513494
##  [400]  8.191343 13.000839  8.609434  9.044567 12.543959  8.496610 11.282790
##  [407]  9.534379 12.622084 10.671138  7.755926 10.163021  9.893255  8.499633
##  [414]  9.034802 11.576270  8.465993 10.093346  8.644144  9.365280 11.657953
##  [421] 11.890487 10.127877  8.933899  9.657073 10.561645  9.391821 13.435954
##  [428] 10.636864 14.449632  9.281979  8.807119  9.805776  7.897499  9.999658
##  [435] 10.697327 11.864022 11.922659 11.004635 10.882952 11.363448 10.905541
##  [442] 11.369482 10.519692  9.467641 11.982278  8.630149  8.711653 10.466323
##  [449]  7.017869 10.444177  9.865132  7.607944  9.104199  9.074345  7.245076
##  [456] 10.855452  9.837531 11.844939  6.590460  8.998189 10.810940  8.814514
##  [463] 10.890133 10.719684  9.387028  8.920321 10.526443  7.278630  9.258459
##  [470] 10.493556  7.503500 11.416825  9.507457 11.723903  8.400653  7.141857
##  [477]  8.849814 11.320094  7.328194 11.380871  9.755676  9.414188 11.037223
##  [484] 11.179509  6.544258 11.971701  7.882066 11.670843  8.545574 11.061296
##  [491] 11.247648  8.861787 11.114743 13.340163  9.515672  8.800770  9.267457
##  [498] 10.601686  6.861406 11.168258  9.719979  8.604579  7.861315 10.224889
##  [505] 10.434761 12.092362  8.248288 10.292411 10.457109 12.092168  8.243318
##  [512]  9.172037 10.204400 10.210824 12.197708  8.340548 10.720434 12.298713
##  [519] 10.799325 11.665259 10.470551  9.721510  8.615821  8.607456  9.932565
##  [526]  9.802251 12.973040 10.679900 11.086978 10.238188  9.602999  9.997167
##  [533]  9.861673 10.994607  8.182474 11.374060  8.960696 11.381751  9.039150
##  [540] 12.030622 12.438544  8.856709  7.770210 10.940776 10.449102 11.218538
##  [547]  9.032529 10.586484 10.132764 11.457838  8.936703 10.677114  8.284922
##  [554]  8.671387  9.519956  9.942790  8.902810  8.533266  8.751560 11.668850
##  [561] 10.064274 10.593842 10.089610 11.942040  9.944695  9.783043 12.577679
##  [568] 10.779827 10.447890 11.304532 11.362285 11.935284  7.813676 10.531505
##  [575] 12.908771  7.816377  6.476478 10.019606 10.492750  9.801798 10.661026
##  [582]  9.940352 10.296980  9.035818 11.391946 10.066454 10.238060 10.412232
##  [589]  9.314539  9.550672  9.292512 11.671799 10.386897  9.992867  8.479257
##  [596] 11.979703  7.602863  8.885486  9.839781  7.308558  9.844835  9.142829
##  [603] 10.692929  7.838514 12.024501 11.418323 10.963884  9.109955 11.607550
##  [610]  8.181201  9.878205 11.313085 10.131062  8.905963 11.936653 12.564755
##  [617]  9.466513  9.392334  8.854162  8.009107 11.996068 11.401598  8.599252
##  [624] 10.534051 10.330387 11.038551  7.501141  9.321822  8.724443 11.123249
##  [631]  8.360020 11.971065  9.958747 14.021951 11.577734  6.996401 10.275788
##  [638] 11.259493 12.085639  7.929719  8.834893 10.783741  8.975353 10.988075
##  [645]  7.745304 12.377699 10.644616  9.736787  9.967109 10.389604 10.813903
##  [652] 11.361297 10.405603 11.320716 12.481216  9.186120  9.057705 12.953991
##  [659]  8.651149 10.406668  8.290338 12.275394  9.397634 12.544913  8.635621
##  [666]  9.060144 10.834887 12.526321 10.079996 12.472659 10.497795  8.950106
##  [673]  8.263245  8.180740 10.531701  9.789893 12.721671 11.687994 10.189171
##  [680]  9.498918 10.443342 12.311171 12.009534  9.473666  9.168460 10.851095
##  [687] 10.293935 10.745475  9.139549 11.033266 10.680968  9.204838  8.690577
##  [694]  7.422469  8.250558  7.476394  9.274222 11.553239  8.722644 11.103788
##  [701] 10.049922 10.207257 10.291866  6.889254 10.972499  9.751235  7.882332
##  [708] 12.902103  8.759845 12.773987 12.045823 10.214980  9.345410  8.917520
##  [715] 11.822055  7.975298  9.659429 10.404520  8.919678  9.414646  8.774587
##  [722] 10.638995 13.078783 11.563441  9.179884  8.999623  8.932874  7.986415
##  [729]  8.701902  9.890734 11.572472  9.668587  9.004876 10.807642  7.597371
##  [736]  9.059605  8.820728  9.077478 11.377428  9.631383 10.564315 12.272140
##  [743] 13.196191 12.571644 10.968038 12.565278  9.166406 10.024135 10.602312
##  [750] 10.792507  9.675561 11.450861 10.277884 10.610133  9.733599 10.075257
##  [757]  9.709396  9.496026  9.638727  7.617907  7.599747 13.134291 11.328678
##  [764] 11.011013  9.803846  8.649085 11.195178  7.927589  9.530196 11.319243
##  [771] 12.611895 10.770189 11.137701  7.888814  8.436475  9.402230 10.968750
##  [778]  7.064235  9.051049 11.084237 12.522008  9.456828  8.892652 10.659377
##  [785] 12.059424  8.551674  8.769025 10.399772  8.407387  7.897280  9.244537
##  [792]  9.423970  9.085779 10.514339  9.230518  9.811841 11.733605  9.067809
##  [799]  8.637775  9.511062  8.753102 10.558557 10.641180  8.438615  9.924310
##  [806] 11.645008  9.276264  9.804555 10.313113  8.839557 11.947016  9.213687
##  [813] 11.091625  6.041905  9.827362  8.132678 11.222309 10.933804  8.738886
##  [820] 13.306587 10.930299 10.440371  8.193879  9.131581 11.891227  8.286642
##  [827] 10.379484  9.768957 10.093825 10.233315  8.050164  9.257142 12.722425
##  [834]  9.229074 11.006871  8.262945 13.063818 10.842591 11.342042 10.732169
##  [841]  8.816137  8.604864  8.234897 10.144778 10.056644  9.514539 12.034372
##  [848] 10.443467  9.435332  8.882681  8.173714  8.704370 10.238416 11.059070
##  [855] 10.683000 10.180604  9.036771 11.049907  7.627050  8.592279  9.327008
##  [862]  9.937341 10.141113  9.719053  7.253869 12.382669  7.800304  9.198946
##  [869]  9.749944 10.610358  9.164272  9.711942  7.655997  9.380352  8.639351
##  [876] 10.125083  7.873588  9.608866  9.025520  8.384730 10.044339 11.011525
##  [883]  9.801381  9.291706  6.872739  9.844598 12.891873  9.796393 10.931756
##  [890] 10.983747 11.879148  9.282283 11.255073  9.013138 10.481437  9.397710
##  [897] 10.002786 10.693577 10.362334  9.748701  9.009355 11.805049  8.749875
##  [904] 10.753936  8.105468 11.500626 10.375787 11.988589  8.905497 11.003818
##  [911]  8.234351  9.063366 12.341416  7.727027 11.171628 10.898355  9.483046
##  [918] 11.990697 11.461257  9.599946  8.559044 11.980858 10.767002  8.643046
##  [925]  9.447040 12.305467 10.392018  9.463581 11.767280 10.248318  8.248219
##  [932] 11.470180  9.460919 10.017078 10.533760  8.636922 11.712473 10.031522
##  [939]  8.316269  9.184337 12.183074  9.243752  7.442619 10.860270 11.303357
##  [946] 10.389106  9.892447 11.650561 10.414597 10.033666  9.953021 10.183605
##  [953]  9.238667 12.208852  9.911400 10.792216 10.129338  7.293508  9.363625
##  [960]  7.982173 11.500019 12.204433 11.069106  8.407013  8.903847  8.077247
##  [967] 11.203189  9.400668 11.314184 10.568733 11.370582 10.644465 12.050436
##  [974]  9.964779 10.690292 11.617714 10.184647  9.634665 12.688304  8.413812
##  [981]  8.342944 10.438732 10.316363 11.484449  9.151383  9.420712 10.178981
##  [988]  9.562501 10.367239 10.760535  8.786843 10.415541  8.503771 10.288884
##  [995]  9.627151  8.676657 11.757345  9.063236 11.153948 12.275079
# create groups for different values of X
(group <- rep(1,1000)) # a vector consisting of 1000 elements
##    [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##   [38] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##   [75] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [112] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [149] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [186] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [223] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [260] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [297] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [334] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [371] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [408] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [445] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [482] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [519] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [556] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [593] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [630] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [667] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [704] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [741] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [778] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [815] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [852] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [889] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [926] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [963] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1000] 1
group[xAxis > -1.5] <- 2
group[xAxis > -.5] <- 3
group[xAxis > .5] <- 4
group[xAxis > 1.5] <- 5
group
##    [1] 3 2 5 2 2 1 4 1 3 2 2 2 3 3 3 4 3 4 1 3 3 5 3 4 2 1 2 5 3 3 4 2 4 2 1 2 4
##   [38] 3 2 3 2 3 3 2 4 2 3 2 4 3 3 3 4 3 3 3 2 5 3 4 4 3 4 5 3 3 4 3 3 3 3 5 2 4
##   [75] 4 3 4 3 2 3 4 3 4 3 4 5 3 4 4 2 3 4 2 4 4 3 4 4 3 1 3 1 3 2 2 4 3 3 5 3 3
##  [112] 3 3 2 4 3 4 4 4 1 4 2 3 3 4 2 4 3 2 5 3 2 4 4 3 3 5 2 3 3 4 4 3 4 5 3 2 2
##  [149] 1 4 3 2 4 4 3 1 4 2 3 3 4 4 3 3 4 3 3 2 1 4 3 3 4 1 4 3 4 3 2 2 2 3 2 2 4
##  [186] 3 3 3 4 4 2 3 4 3 3 3 3 5 4 2 3 4 4 2 3 4 1 3 4 2 3 4 3 3 4 2 4 4 4 3 3 2
##  [223] 2 5 3 3 3 4 3 4 2 2 4 2 3 4 3 2 3 1 4 3 4 3 5 4 4 2 4 3 3 3 3 3 2 4 3 3 2
##  [260] 5 1 1 3 3 3 2 3 2 4 4 2 4 2 4 3 4 4 2 3 4 3 2 2 2 2 4 4 3 4 4 3 2 3 2 3 3
##  [297] 3 2 2 3 2 2 3 1 4 3 3 4 3 2 3 2 4 2 2 5 3 5 4 2 5 2 4 3 2 2 3 4 2 1 4 4 4
##  [334] 5 2 3 4 3 2 2 4 3 3 4 1 4 3 4 4 3 3 4 3 3 1 2 3 3 4 4 3 3 4 4 2 1 4 4 5 2
##  [371] 3 3 3 3 5 4 3 3 1 2 3 2 2 5 2 2 4 2 5 2 4 4 2 3 3 3 3 2 3 1 5 3 2 3 2 3 4
##  [408] 5 3 2 4 1 3 3 3 2 2 2 2 3 5 3 3 3 4 2 4 4 5 3 4 2 2 4 2 3 3 2 4 4 3 5 3 2
##  [445] 4 2 2 4 2 2 4 1 3 2 3 3 2 5 1 2 4 2 3 3 2 2 4 1 4 2 2 3 3 3 2 2 3 4 1 3 2
##  [482] 1 2 5 1 5 2 4 2 4 3 3 4 5 2 3 2 2 2 4 2 2 2 3 4 3 3 3 4 4 2 2 3 2 5 3 4 3
##  [519] 4 3 4 2 2 2 2 2 5 4 3 3 1 2 3 4 2 5 3 4 4 4 4 4 1 3 2 3 2 3 3 4 2 4 2 3 4
##  [556] 3 2 2 3 3 3 4 2 3 3 2 5 4 4 3 4 4 1 4 5 2 1 4 3 4 4 2 2 3 3 2 2 5 2 3 4 3
##  [593] 2 2 1 4 2 3 3 2 3 2 3 1 5 4 4 4 4 2 3 3 3 4 3 4 3 2 2 1 4 4 2 2 3 3 2 4 2
##  [630] 4 3 3 2 4 3 1 3 3 5 2 3 3 3 3 2 4 3 4 5 4 3 4 3 4 5 3 3 5 2 4 3 4 3 5 3 3
##  [667] 4 5 2 4 3 1 1 4 4 3 5 4 4 2 3 5 4 3 3 4 4 4 4 4 3 4 3 3 1 1 3 4 2 4 3 3 4
##  [704] 2 4 2 3 5 3 5 4 3 3 1 3 1 2 3 1 2 3 4 4 3 2 2 2 3 2 2 3 3 1 3 1 2 3 2 3 3
##  [741] 3 4 5 4 3 5 3 4 5 3 2 5 2 3 2 3 3 3 4 1 2 4 4 4 4 2 3 2 2 4 4 3 5 1 2 2 4
##  [778] 2 2 3 5 3 2 4 4 2 4 4 3 2 3 3 3 3 3 2 4 2 2 4 3 4 3 3 4 5 2 2 4 1 4 3 3 1
##  [815] 3 1 3 2 3 5 3 3 3 2 4 2 3 3 4 3 1 1 5 3 5 2 3 2 3 3 4 3 3 3 2 1 4 2 3 2 1
##  [852] 2 3 5 4 2 4 4 1 4 1 3 2 2 4 5 2 3 3 4 2 3 2 2 2 3 2 2 3 4 3 4 3 3 1 4 4 2
##  [889] 4 3 4 3 4 3 3 3 3 3 3 3 3 4 2 3 2 4 3 4 2 3 3 4 5 3 4 3 2 3 5 2 3 5 4 4 4
##  [926] 4 3 3 5 5 2 4 2 3 3 3 5 4 3 3 4 3 1 3 2 4 4 4 3 3 4 3 2 4 3 4 3 2 3 2 4 4
##  [963] 4 4 2 2 4 1 4 3 4 1 4 3 3 4 3 4 3 2 3 4 3 5 3 3 2 3 2 4 2 4 2 2 3 2 3 1 3
## [1000] 4
# create sample dataframe by joining variables
sample_data <- data.frame(xAxis,yAxis,group)
sample_data
##              xAxis     yAxis group
## 1     0.4220170611 10.894740     3
## 2    -0.5500644018  8.023241     2
## 3     1.5009173184 11.801498     5
## 4    -0.7830299876  7.936635     2
## 5    -1.0627401881 10.046659     2
## 6    -1.6585592044  8.484353     1
## 7     1.3386225366 12.721783     4
## 8    -2.2152248806  8.045755     1
## 9     0.2330858651  9.630640     3
## 10   -0.6543021531  7.640092     2
## 11   -0.9251839129  9.405860     2
## 12   -1.4439462803  8.993352     2
## 13    0.0160599572  9.382809     3
## 14    0.1638618319 11.197035     3
## 15    0.1531886761  9.651443     3
## 16    1.0269126967 11.219973     4
## 17    0.1262699482  8.331520     3
## 18    1.1204524881 11.247774     4
## 19   -1.5406507670  7.386233     1
## 20   -0.4892703818  9.645517     3
## 21    0.0361436359  8.075094     3
## 22    1.5920139549 12.351687     5
## 23   -0.3782213845 11.102947     3
## 24    1.4243820070 12.981941     4
## 25   -0.9984079256  8.585375     2
## 26   -1.6029476366 10.307537     1
## 27   -0.6233727913 11.166635     2
## 28    3.2097115485 12.387371     5
## 29    0.3742329085  9.515474     3
## 30   -0.1740244358  9.306674     3
## 31    0.8212261513 11.588662     4
## 32   -0.7672291346  9.810828     2
## 33    1.0482471970 11.719496     4
## 34   -1.0724887391  9.255441     2
## 35   -2.5655936002  9.288707     1
## 36   -0.6551341980  8.545520     2
## 37    0.8249175264 11.203524     4
## 38    0.0138276502 10.038663     3
## 39   -1.1241932036  9.123912     2
## 40    0.2080098842  9.246809     3
## 41   -0.7200242230  7.232683     2
## 42    0.0854807763  9.346951     3
## 43    0.0755564585 10.168777     3
## 44   -0.6607930056  9.376722     2
## 45    0.5153107006  9.846958     4
## 46   -1.2512969837  8.224264     2
## 47    0.3988682674  9.727125     3
## 48   -1.3122045355  8.749983     2
## 49    0.7891026419 10.832239     4
## 50   -0.3698297574 10.837185     3
## 51   -0.4212465224  6.989907     3
## 52    0.4121567538 12.119637     3
## 53    0.8999344194 10.162648     4
## 54    0.0797827389 10.572537     3
## 55   -0.3362990420 10.465028     3
## 56   -0.1016296824  9.037392     3
## 57   -0.5606800615  8.991495     2
## 58    1.7770252067 11.814424     5
## 59   -0.3379241151 10.131941     3
## 60    1.0334328224 12.924691     4
## 61    0.6834846238 12.006471     4
## 62    0.0046101834 10.054979     3
## 63    0.5194252596  9.010935     4
## 64    2.2280491136  9.986913     5
## 65    0.3960544872 10.588297     3
## 66   -0.3327111481  9.255058     3
## 67    1.2603301074 11.614497     4
## 68    0.0375280961  8.654628     3
## 69   -0.0151091690  9.581464     3
## 70    0.3828209680  9.934734     3
## 71    0.0667180393 10.270841     3
## 72    1.7040569668 12.601555     5
## 73   -1.3665296948  7.987613     2
## 74    0.7620081395  9.298477     4
## 75    1.2223866239  8.582023     4
## 76   -0.3614973811  9.646491     3
## 77    0.9036577998  9.610303     4
## 78   -0.4793861747  9.960588     3
## 79   -0.5442960976 10.353215     2
## 80    0.1675238569 10.208432     3
## 81    0.7143891307 10.294722     4
## 82    0.4329522598 11.455134     3
## 83    1.0743376205 10.548265     4
## 84    0.2910351965  9.139622     3
## 85    1.0938902237 11.899661     4
## 86    1.6638679080 10.165261     5
## 87    0.4455428707 10.600040     3
## 88    0.9010125766 13.236125     4
## 89    0.5324868197 10.697417     4
## 90   -0.5215936797  8.722958     2
## 91    0.4290614294 11.344309     3
## 92    1.0397437839 11.016107     4
## 93   -0.9767938798  9.612280     2
## 94    1.3975540299 11.983960     4
## 95    0.6703107131 12.439944     4
## 96    0.0073341736 11.167087     3
## 97    0.8714274775 12.324185     4
## 98    0.7399452733 12.078665     4
## 99   -0.1434880328 10.253697     3
## 100  -1.5937799697  9.792491     1
## 101  -0.3801254334  9.143977     3
## 102  -2.0540118177  6.753109     1
## 103  -0.2700619193  9.898251     3
## 104  -0.5809492050  9.092289     2
## 105  -1.0558475188  5.740956     2
## 106   1.1925246035 11.980708     4
## 107   0.4319949157  9.695434     3
## 108  -0.1968657568 10.078158     3
## 109   1.5018223238 11.090699     5
## 110  -0.4838885837  7.888950     3
## 111   0.0353800929  8.378184     3
## 112  -0.2268864026  7.871765     3
## 113   0.2808694481 11.243392     3
## 114  -0.6272509380  9.854445     2
## 115   0.7410210804 11.848268     4
## 116  -0.0045236650  9.571998     3
## 117   0.6436108293 10.590877     4
## 118   0.6573016862 10.616723     4
## 119   0.6235360199 10.609874     4
## 120  -2.0903744801  7.649626     1
## 121   0.6134374062 10.253704     4
## 122  -0.7655919092  8.663545     2
## 123  -0.1667745907  9.538775     3
## 124   0.0313833455 10.396347     3
## 125   0.8049236292 12.736262     4
## 126  -0.9577129734  9.565159     2
## 127   1.1693542290 11.666846     4
## 128   0.1207732099  9.503339     3
## 129  -1.3335260909  5.846901     2
## 130   1.9324089893 12.027882     5
## 131   0.1748329745  9.278535     3
## 132  -0.9195905377  9.286313     2
## 133   0.6985241571 11.155622     4
## 134   0.8681954702 10.738934     4
## 135   0.1712874268 10.812240     3
## 136  -0.3475754050  9.046641     3
## 137   2.0331757860 10.587887     5
## 138  -0.7439520613  9.696294     2
## 139  -0.4999260264 10.171994     3
## 140  -0.2467294416 10.110816     3
## 141   0.9842817695 11.977494     4
## 142   1.0735243984 10.324179     4
## 143   0.4503634052  8.827118     3
## 144   0.7188632475 11.279496     4
## 145   1.9163148125 10.782714     5
## 146   0.0444551518 10.467801     3
## 147  -0.6127526564  8.713592     2
## 148  -0.5421053086  9.945581     2
## 149  -1.5349775648  8.680992     1
## 150   1.1185333629 11.306668     4
## 151   0.4197422268  9.566810     3
## 152  -1.1723672726 10.257110     2
## 153   0.9005994620 10.695451     4
## 154   1.4631547730 10.648998     4
## 155  -0.4002449844 10.976499     3
## 156  -2.1745607533  9.684363     1
## 157   0.6800351083 12.340129     4
## 158  -0.8381024181  8.208906     2
## 159   0.3096602735 10.999804     3
## 160   0.4810390993  9.423882     3
## 161   0.7958601113 12.204653     4
## 162   0.9944962235 11.727517     4
## 163  -0.3802654397  9.697298     3
## 164  -0.3581726005 10.632846     3
## 165   0.6710985423 10.571250     4
## 166   0.3005795780  8.212009     3
## 167  -0.0744702222  9.663045     3
## 168  -1.2297269517  7.768280     2
## 169  -2.1723981154  6.962917     1
## 170   1.1516477871 14.440968     4
## 171  -0.0562135677  8.999297     3
## 172  -0.3494687171  9.228849     3
## 173   1.3254900804 11.980000     4
## 174  -1.6174825557  9.230495     1
## 175   1.0132016398 12.044962     4
## 176  -0.1465844243 10.315750     3
## 177   1.3069986625 11.617773     4
## 178  -0.0711079974  9.343595     3
## 179  -0.9738562484  8.128885     2
## 180  -1.0550922432  9.848123     2
## 181  -0.7868754248  9.850900     2
## 182   0.2920796903 12.331724     3
## 183  -0.9125250381 10.633479     2
## 184  -0.8157219891  9.253924     2
## 185   0.5148139115 10.747286     4
## 186   0.2126681396 10.169747     3
## 187  -0.1882885430  9.210779     3
## 188  -0.4051862215 11.723030     3
## 189   1.0475909052 10.275025     4
## 190   0.8357940545 11.863663     4
## 191  -0.9754252262  8.574881     2
## 192   0.2339021093 10.921051     3
## 193   0.6191400804 12.050839     4
## 194   0.2722021574 10.650970     3
## 195  -0.2676996086 10.159200     3
## 196  -0.3748608029  9.566463     3
## 197   0.0410494280 12.598215     3
## 198   1.7890287743 11.680348     5
## 199   0.6254522164  8.023988     4
## 200  -1.4903294744  8.583289     2
## 201  -0.4009106080 11.065402     3
## 202   0.6724728410 10.137141     4
## 203   0.5494727966 11.204691     4
## 204  -1.0211986529  9.190565     2
## 205   0.3828538018  8.616936     3
## 206   0.9275837180 12.455035     4
## 207  -1.9117121285  8.648944     1
## 208  -0.1937270565  9.711085     3
## 209   0.8124991796 10.099810     4
## 210  -0.7795581369  8.916607     2
## 211  -0.0725741173  9.974386     3
## 212   0.8153320857 10.314654     4
## 213   0.4714919469 11.000483     3
## 214   0.0323409940 11.174967     3
## 215   0.6910820112 10.020999     4
## 216  -0.6797613742  9.492703     2
## 217   1.1952255112 11.726037     4
## 218   1.4580357102  9.759716     4
## 219   0.7852301416 11.948009     4
## 220   0.3770832718 10.974269     3
## 221  -0.0413460607 10.202417     3
## 222  -1.4739367452  9.098257     2
## 223  -1.1826148645  6.979849     2
## 224   1.9309516906 12.264527     5
## 225  -0.1917256348 11.309281     3
## 226  -0.1262809127  9.782165     3
## 227   0.0718984333 11.893146     3
## 228   0.6961787048  9.991748     4
## 229   0.4639727723  9.852221     3
## 230   0.6933578183  9.912181     4
## 231  -1.1898071605  9.727115     2
## 232  -0.8915840942  9.324716     2
## 233   1.1688687068 12.581477     4
## 234  -1.1649507466 10.212182     2
## 235   0.0278385876  9.923814     3
## 236   0.7941373370 11.238655     4
## 237   0.4424571278 12.254122     3
## 238  -0.9362896335  8.043634     2
## 239  -0.0140914776  8.600290     3
## 240  -1.5914703470  7.824567     1
## 241   0.8495724106 10.382430     4
## 242  -0.4729089364  9.926750     3
## 243   1.1092671206 10.837768     4
## 244  -0.1979585792  8.358914     3
## 245   1.7157060644 10.751334     5
## 246   0.8180285480 10.548631     4
## 247   1.0296285852 10.695013     4
## 248  -0.5201634634 10.054571     2
## 249   1.1330133270  9.940993     4
## 250  -0.1389533205  8.860966     3
## 251   0.2521393985 11.394648     3
## 252   0.0315715109  9.190904     3
## 253  -0.0027800939 11.308378     3
## 254   0.4899703615  9.771168     3
## 255  -1.4429957381  9.626608     2
## 256   0.5025567294 10.587901     4
## 257  -0.4941060492  7.526832     3
## 258   0.0769154761 11.133601     3
## 259  -1.3669792786  6.984979     2
## 260   1.7276042730 11.691831     5
## 261  -1.5799927539  9.978876     1
## 262  -1.5400536923  7.483875     1
## 263  -0.2554768795 10.645402     3
## 264  -0.4273265796 10.441605     3
## 265   0.0864887698 11.109231     3
## 266  -1.0010270358  9.864061     2
## 267  -0.0343246241 10.235894     3
## 268  -1.2062514795  7.929915     2
## 269   0.8817518517 11.477476     4
## 270   0.8469034232 11.133078     4
## 271  -0.6889664670  9.250708     2
## 272   1.1855504994 12.499288     4
## 273  -0.5455501630 10.171212     2
## 274   0.5501766049  8.887771     4
## 275   0.3608863161  9.492831     3
## 276   0.8210334219  9.933396     4
## 277   0.9876362248 10.985547     4
## 278  -0.6734900091  9.248735     2
## 279   0.0621669571  8.252881     3
## 280   0.6069859426 10.848699     4
## 281  -0.1578477724  9.974573     3
## 282  -0.6042131450  8.221657     2
## 283  -0.9895545740  8.919304     2
## 284  -1.0076651140  8.518981     2
## 285  -1.1338960697  7.750931     2
## 286   0.9150858718 10.675135     4
## 287   1.2229972423 12.400517     4
## 288  -0.4256497172 10.557358     3
## 289   1.0085464076 11.031319     4
## 290   0.9254499993  9.051224     4
## 291  -0.2912522332 10.160136     3
## 292  -0.9672405573  9.596774     2
## 293   0.4080203941 11.521431     3
## 294  -0.7860302334  7.912475     2
## 295  -0.2076716629 11.529316     3
## 296  -0.1894425026  9.322446     3
## 297   0.4801206408 11.146122     3
## 298  -0.5688544281  8.844370     2
## 299  -0.5893799129 11.067982     2
## 300   0.0625857604  9.903705     3
## 301  -1.3754482237 10.519917     2
## 302  -1.0014856908 10.592820     2
## 303  -0.4224353452 11.203401     3
## 304  -1.7647570377  6.271557     1
## 305   1.1109561646 11.233343     4
## 306   0.2166575142 10.183044     3
## 307  -0.0462518563 11.097006     3
## 308   1.2229468612 12.825508     4
## 309   0.0138611647 10.339720     3
## 310  -1.0818304442 10.328850     2
## 311  -0.1955086855 10.588929     3
## 312  -1.3302608687  7.986430     2
## 313   0.8584939290  9.864748     4
## 314  -0.6546503073  9.193666     2
## 315  -0.5709198958  9.344105     2
## 316   1.5740658296  9.996223     5
## 317  -0.1200297192 10.220752     3
## 318   1.9020329964 12.618881     5
## 319   0.7149431925 11.848026     4
## 320  -1.0886464137  8.921265     2
## 321   1.6999178915 11.436032     5
## 322  -0.8237579495 11.336906     2
## 323   1.1783499449 10.254236     4
## 324   0.4448398769 10.281981     3
## 325  -1.1503657146 11.298664     2
## 326  -0.5208979788  9.715662     2
## 327  -0.2756770851  9.816279     3
## 328   0.7168427611 10.834319     4
## 329  -1.3726378474  9.477792     2
## 330  -1.8909223480  7.034652     1
## 331   0.7514375618  9.878249     4
## 332   0.8252125838 10.890436     4
## 333   1.0783776071 10.763744     4
## 334   1.8084637370 11.524932     5
## 335  -0.8644770881 10.393296     2
## 336   0.2331602481 10.640180     3
## 337   0.9880870261  9.608356     4
## 338  -0.3179269918  8.911474     3
## 339  -0.9398860953  9.009094     2
## 340  -1.1163921832  8.095231     2
## 341   1.3743821835 11.844958     4
## 342   0.2155774086 11.387404     3
## 343  -0.4737859199  9.045301     3
## 344   1.2746829824 10.893987     4
## 345  -1.9064839296  8.476265     1
## 346   1.2183565667 11.688543     4
## 347  -0.1818478980 11.054977     3
## 348   1.0297193329 13.021585     4
## 349   0.9531757890 10.534607     4
## 350   0.2019199946  9.316752     3
## 351   0.4542674539 10.407831     3
## 352   0.9213126252 10.544216     4
## 353   0.1756401066 10.705309     3
## 354  -0.0844257522 12.360015     3
## 355  -1.6724668835  9.425568     1
## 356  -0.7171521669  7.894238     2
## 357  -0.1694118905  9.539167     3
## 358  -0.4510674281  9.175299     3
## 359   1.0818291667 10.153929     4
## 360   0.8653970023 10.409966     4
## 361  -0.4150562949  9.739135     3
## 362   0.0252619341  9.887302     3
## 363   1.2570973027 10.790217     4
## 364   1.4524227567  9.596087     4
## 365  -0.7794675950 11.313895     2
## 366  -2.1506935126  7.604780     1
## 367   0.5788703199  8.844927     4
## 368   1.3025578996 11.983142     4
## 369   2.2301305081 13.409012     5
## 370  -1.0882218957 10.393775     2
## 371   0.0451178721 10.798528     3
## 372  -0.2931957305 10.015598     3
## 373   0.4342754496  9.927367     3
## 374   0.4030455559 11.008013     3
## 375   1.9345420395 11.873145     5
## 376   0.8521538746  9.684599     4
## 377  -0.2673931921  8.638937     3
## 378   0.2841572545  9.023122     3
## 379  -1.5989245475 10.189580     1
## 380  -1.1482807808  7.786612     2
## 381  -0.4855194002  9.164063     3
## 382  -0.6200266492  9.934243     2
## 383  -0.7034742002  9.789974     2
## 384   2.5608119450 12.897242     5
## 385  -0.9095881875  8.451330     2
## 386  -1.3085442237  8.655548     2
## 387   0.9824771032 10.413722     4
## 388  -0.9333841526 10.767789     2
## 389   1.7282469727 10.576297     5
## 390  -1.2161988499  9.386673     2
## 391   1.3878686963 12.273538     4
## 392   0.6884815417 11.302521     4
## 393  -0.7892830530  8.566562     2
## 394   0.0934441859  9.532922     3
## 395   0.0886352905  8.788627     3
## 396  -0.3662558863  8.926477     3
## 397   0.3173344737 10.153548     3
## 398  -0.5051452837  7.707882     2
## 399  -0.3088319988  8.513494     3
## 400  -1.5962553779  8.191343     1
## 401   1.9028815210 13.000839     5
## 402  -0.3709830715  8.609434     3
## 403  -0.6924881295  9.044567     2
## 404   0.1828066392 12.543959     3
## 405  -1.2274081560  8.496610     2
## 406  -0.2698388575 11.282790     3
## 407   0.7980104536  9.534379     4
## 408   2.2792464261 12.622084     5
## 409   0.0320571337 10.671138     3
## 410  -0.6809961566  7.755926     2
## 411   0.9432349317 10.163021     4
## 412  -1.6043807581  9.893255     1
## 413   0.1940725088  8.499633     3
## 414   0.1309293686  9.034802     3
## 415  -0.0062122604 11.576270     3
## 416  -0.8547618525  8.465993     2
## 417  -0.6305703384 10.093346     2
## 418  -0.5288150826  8.644144     2
## 419  -0.9999300537  9.365280     2
## 420  -0.0096375876 11.657953     3
## 421   1.6397940196 11.890487     5
## 422  -0.0009915764 10.127877     3
## 423  -0.1276869087  8.933899     3
## 424   0.0165663931  9.657073     3
## 425   0.6976787743 10.561645     4
## 426  -1.4608338642  9.391821     2
## 427   1.4878436716 13.435954     4
## 428   1.0006423320 10.636864     4
## 429   1.5514174086 14.449632     5
## 430   0.1254183041  9.281979     3
## 431   0.6719297774  8.807119     4
## 432  -0.6999267029  9.805776     2
## 433  -0.8170745259  7.897499     2
## 434   1.0931083890  9.999658     4
## 435  -0.8364616799 10.697327     2
## 436   0.2224741825 11.864022     3
## 437  -0.3606035048 11.922659     3
## 438  -0.5554722890 11.004635     2
## 439   1.0585003335 10.882952     4
## 440   0.7019386972 11.363448     4
## 441   0.2917775403 10.905541     3
## 442   1.6993124408 11.369482     5
## 443  -0.0598380951 10.519692     3
## 444  -0.9570203352  9.467641     2
## 445   1.3533668418 11.982278     4
## 446  -0.6408691579  8.630149     2
## 447  -1.2402828939  8.711653     2
## 448   0.9561975941 10.466323     4
## 449  -1.4081012715  7.017869     2
## 450  -1.1753821755 10.444177     2
## 451   0.7492521089  9.865132     4
## 452  -1.8640877064  7.607944     1
## 453  -0.4030012847  9.104199     3
## 454  -0.7587711360  9.074345     2
## 455  -0.3399311222  7.245076     3
## 456   0.4635679598 10.855452     3
## 457  -1.2737962648  9.837531     2
## 458   1.5243537047 11.844939     5
## 459  -2.7513221503  6.590460     1
## 460  -0.6671143274  8.998189     2
## 461   1.0081318223 10.810940     4
## 462  -0.9686828764  8.814514     2
## 463   0.3025156417 10.890133     3
## 464  -0.2150991953 10.719684     3
## 465  -0.6631026713  9.387028     2
## 466  -0.7658307614  8.920321     2
## 467   0.6941006403 10.526443     4
## 468  -1.6772870802  7.278630     1
## 469   0.9865949052  9.258459     4
## 470  -0.7149136941 10.493556     2
## 471  -0.9282324020  7.503500     2
## 472   0.4685592347 11.416825     3
## 473  -0.3112834781  9.507457     3
## 474  -0.0883659734 11.723903     3
## 475  -0.9373949752  8.400653     2
## 476  -1.1594402998  7.141857     2
## 477   0.0288656864  8.849814     3
## 478   1.1421921866 11.320094     4
## 479  -1.8050475670  7.328194     1
## 480   0.4492079285 11.380871     3
## 481  -1.1567948465  9.755676     2
## 482  -1.6184991504  9.414188     1
## 483  -1.3391382527 11.037223     2
## 484   1.7451799723 11.179509     5
## 485  -2.2109382151  6.544258     1
## 486   1.5645265515 11.971701     5
## 487  -1.3416397212  7.882066     2
## 488   0.7830060013 11.670843     4
## 489  -0.5550025181  8.545574     2
## 490   1.1555981173 11.061296     4
## 491  -0.0641943518 11.247648     3
## 492  -0.3442386589  8.861787     3
## 493   1.2530106739 11.114743     4
## 494   2.6179522671 13.340163     5
## 495  -0.7270956496  9.515672     2
## 496  -0.0289871433  8.800770     3
## 497  -0.5635131266  9.267457     2
## 498  -1.0642795505 10.601686     2
## 499  -1.1478780851  6.861406     2
## 500   0.9268607808 11.168258     4
## 501  -0.5459474895  9.719979     2
## 502  -0.5967860034  8.604579     2
## 503  -0.6791565170  7.861315     2
## 504   0.1864768614 10.224889     3
## 505   1.1454088851 10.434761     4
## 506   0.3397904481 12.092362     3
## 507  -0.3305331697  8.248288     3
## 508  -0.1185129347 10.292411     3
## 509   0.8179562019 10.457109     4
## 510   1.3086136495 12.092168     4
## 511  -1.2506505038  8.243318     2
## 512  -0.6281781407  9.172037     2
## 513  -0.0966830309 10.204400     3
## 514  -1.3596845166 10.210824     2
## 515   1.7215502233 12.197708     5
## 516  -0.2297018640  8.340548     3
## 517   0.5964706199 10.720434     4
## 518   0.2508069186 12.298713     3
## 519   1.0315502432 10.799325     4
## 520   0.2093627820 11.665259     3
## 521   0.5841249982 10.470551     4
## 522  -0.7929477011  9.721510     2
## 523  -1.2096258854  8.615821     2
## 524  -1.4534449284  8.607456     2
## 525  -1.1532647057  9.932565     2
## 526  -1.0594131737  9.802251     2
## 527   1.6141518753 12.973040     5
## 528   0.5545340195 10.679900     4
## 529  -0.0675560144 11.086978     3
## 530  -0.0263988208 10.238188     3
## 531  -2.1483922138  9.602999     1
## 532  -1.2531533133  9.997167     2
## 533   0.2909201211  9.861673     3
## 534   0.6481275409 10.994607     4
## 535  -1.3362224575  8.182474     2
## 536   1.8068444314 11.374060     5
## 537  -0.1881231202  8.960696     3
## 538   0.5134880367 11.381751     4
## 539   0.5475884220  9.039150     4
## 540   0.8245145188 12.030622     4
## 541   1.4908292584 12.438544     4
## 542   1.2231332272  8.856709     4
## 543  -1.8065527559  7.770210     1
## 544  -0.3574495326 10.940776     3
## 545  -0.5566069352 10.449102     2
## 546   0.3778163283 11.218538     3
## 547  -1.4804648808  9.032529     2
## 548  -0.2533216920 10.586484     3
## 549   0.0376328881 10.132764     3
## 550   0.7473832654 11.457838     4
## 551  -1.0604839249  8.936703     2
## 552   1.0221017856 10.677114     4
## 553  -1.1506618792  8.284922     2
## 554  -0.4352269347  8.671387     3
## 555   0.6333781221  9.519956     4
## 556  -0.1986589859  9.942790     3
## 557  -1.2075488867  8.902810     2
## 558  -1.0599096370  8.533266     2
## 559   0.0963750219  8.751560     3
## 560  -0.1702792122 11.668850     3
## 561   0.3400664100 10.064274     3
## 562   0.7635489189 10.593842     4
## 563  -0.7406409039 10.089610     2
## 564   0.3004401904 11.942040     3
## 565   0.4858858830  9.944695     3
## 566  -0.9460026631  9.783043     2
## 567   1.8275196200 12.577679     5
## 568   0.6183711651 10.779827     4
## 569   1.1848963810 10.447890     4
## 570  -0.0053682393 11.304532     3
## 571   1.0270789837 11.362285     4
## 572   0.9248182457 11.935284     4
## 573  -1.8737645699  7.813676     1
## 574   0.9885164406 10.531505     4
## 575   3.3005414670 12.908771     5
## 576  -1.1917099417  7.816377     2
## 577  -2.4978896544  6.476478     1
## 578   0.5043121814 10.019606     4
## 579  -0.0866552681 10.492750     3
## 580   0.9128253674  9.801798     4
## 581   0.6343640392 10.661026     4
## 582  -0.5466214035  9.940352     2
## 583  -0.5373812348 10.296980     2
## 584   0.1657942069  9.035818     3
## 585  -0.1280055769 11.391946     3
## 586  -0.7013896600 10.066454     2
## 587  -0.9072948705 10.238060     2
## 588   2.2029348216 10.412232     5
## 589  -0.8447683037  9.314539     2
## 590  -0.0149010257  9.550672     3
## 591   0.6302035971  9.292512     4
## 592  -0.0974937687 11.671799     3
## 593  -0.8291672981 10.386897     2
## 594  -0.9606677052  9.992867     2
## 595  -2.8213332062  8.479257     1
## 596   0.8450425603 11.979703     4
## 597  -1.1178496555  7.602863     2
## 598  -0.0843946081  8.885486     3
## 599   0.0903049639  9.839781     3
## 600  -0.8860868854  7.308558     2
## 601   0.0481340220  9.844835     3
## 602  -0.8269008734  9.142829     2
## 603   0.1094207558 10.692929     3
## 604  -2.1944225880  7.838514     1
## 605   2.7802025174 12.024501     5
## 606   1.2818797297 11.418323     4
## 607   0.9221498560 10.963884     4
## 608   0.6362121527  9.109955     4
## 609   1.1622972275 11.607550     4
## 610  -1.3887309150  8.181201     2
## 611  -0.4316969010  9.878205     3
## 612   0.0629569401 11.313085     3
## 613   0.0929491571 10.131062     3
## 614   0.6700349935  8.905963     4
## 615   0.3746361304 11.936653     3
## 616   0.7618539727 12.564755     4
## 617   0.4930390006  9.466513     3
## 618  -1.3730170522  9.392334     2
## 619  -1.2056628654  8.854162     2
## 620  -2.3700034872  8.009107     1
## 621   0.8692339515 11.996068     4
## 622   0.8863789635 11.401598     4
## 623  -0.6752880648  8.599252     2
## 624  -0.5544808616 10.534051     2
## 625  -0.1417245785 10.330387     3
## 626  -0.2598563344 11.038551     3
## 627  -1.0579948745  7.501141     2
## 628   1.3895036703  9.321822     4
## 629  -0.6978669218  8.724443     2
## 630   1.1772457202 11.123249     4
## 631  -0.1790838461  8.360020     3
## 632   0.2733097812 11.971065     3
## 633  -0.9335425608  9.958747     2
## 634   0.9617737498 14.021951     4
## 635   0.2213141319 11.577734     3
## 636  -1.7410676742  6.996401     1
## 637   0.2349082205 10.275788     3
## 638   0.0480908130 11.259493     3
## 639   1.7044073833 12.085639     5
## 640  -0.9652801100  7.929719     2
## 641  -0.3800382656  8.834893     3
## 642   0.3590493790 10.783741     3
## 643   0.1362565579  8.975353     3
## 644  -0.1423165703 10.988075     3
## 645  -1.2628293157  7.745304     2
## 646   0.8910510465 12.377699     4
## 647  -0.0735333560 10.644616     3
## 648   1.2171246956  9.736787     4
## 649   1.6277987873  9.967109     5
## 650   0.6581922397 10.389604     4
## 651   0.3407329392 10.813903     3
## 652   1.0001579117 11.361297     4
## 653  -0.4933298945 10.405603     3
## 654   0.5478667435 11.320716     4
## 655   1.5696686998 12.481216     5
## 656  -0.0794332822  9.186120     3
## 657  -0.0666897142  9.057705     3
## 658   2.7692208236 12.953991     5
## 659  -0.8183728220  8.651149     2
## 660   0.7831652624 10.406668     4
## 661  -0.1450378933  8.290338     3
## 662   1.4366638013 12.275394     4
## 663   0.3093967389  9.397634     3
## 664   2.6718081316 12.544913     5
## 665  -0.1353635519  8.635621     3
## 666  -0.1669938001  9.060144     3
## 667   0.5612558825 10.834887     4
## 668   1.9756483434 12.526321     5
## 669  -0.7592811847 10.079996     2
## 670   1.2199624393 12.472659     4
## 671   0.2125991948 10.497795     3
## 672  -2.6877560701  8.950106     1
## 673  -2.1790775427  8.263245     1
## 674   0.8273123274  8.180740     4
## 675   0.7940076231 10.531701     4
## 676   0.4899195677  9.789893     3
## 677   2.2043978205 12.721671     5
## 678   1.4402431919 11.687994     4
## 679   0.9037932562 10.189171     4
## 680  -1.2684408358  9.498918     2
## 681   0.3900009806 10.443342     3
## 682   1.8817135271 12.311171     5
## 683   1.2709984599 12.009534     4
## 684   0.1824552692  9.473666     3
## 685  -0.1556556615  9.168460     3
## 686   1.3088730961 10.851095     4
## 687   0.6645527611 10.293935     4
## 688   1.0732380005 10.745475     4
## 689   0.6287714362  9.139549     4
## 690   1.4412161602 11.033266     4
## 691  -0.1602381788 10.680968     3
## 692   0.6369338597  9.204838     4
## 693  -0.0677375017  8.690577     3
## 694  -0.3285009854  7.422469     3
## 695  -1.9385689583  8.250558     1
## 696  -1.8112017242  7.476394     1
## 697  -0.3531190606  9.274222     3
## 698   1.0715573201 11.553239     4
## 699  -0.6098758836  8.722644     2
## 700   1.4318295353 11.103788     4
## 701  -0.2178906178 10.049922     3
## 702   0.2098933139 10.207257     3
## 703   0.8937105763 10.291866     4
## 704  -1.3956474726  6.889254     2
## 705   1.1225569004 10.972499     4
## 706  -0.6749134099  9.751235     2
## 707  -0.3114977482  7.882332     3
## 708   1.7004981057 12.902103     5
## 709   0.1027846433  8.759845     3
## 710   1.6717760837 12.773987     5
## 711   0.5804267133 12.045823     4
## 712  -0.0978312873 10.214980     3
## 713   0.2723197593  9.345410     3
## 714  -1.9154686660  8.917520     1
## 715   0.2126665446 11.822055     3
## 716  -2.3799697793  7.975298     1
## 717  -1.1341760466  9.659429     2
## 718   0.1654001042 10.404520     3
## 719  -2.0147494602  8.919678     1
## 720  -1.0143754517  9.414646     2
## 721  -0.1571491885  8.774587     3
## 722   0.8442107413 10.638995     4
## 723   1.3886713943 13.078783     4
## 724   0.1760727706 11.563441     3
## 725  -0.9764674995  9.179884     2
## 726  -0.7416945719  8.999623     2
## 727  -0.6942633211  8.932874     2
## 728   0.0358307453  7.986415     3
## 729  -0.5060487780  8.701902     2
## 730  -0.7291455159  9.890734     2
## 731   0.4347822157 11.572472     3
## 732  -0.3622593674  9.668587     3
## 733  -1.6299361828  9.004876     1
## 734   0.0369936364 10.807642     3
## 735  -1.9065213339  7.597371     1
## 736  -1.3040025353  9.059605     2
## 737  -0.4970047924  8.820728     3
## 738  -1.2426581933  9.077478     2
## 739   0.4070569115 11.377428     3
## 740   0.0696583164  9.631383     3
## 741  -0.2106602460 10.564315     3
## 742   1.2789991596 12.272140     4
## 743   1.9350387878 13.196191     5
## 744   1.0602993890 12.571644     4
## 745  -0.4276838495 10.968038     3
## 746   2.1292336683 12.565278     5
## 747   0.2366225550  9.166406     3
## 748   1.3794196826 10.024135     4
## 749   1.9067253387 10.602312     5
## 750   0.1904886014 10.792507     3
## 751  -0.9856967468  9.675561     2
## 752   1.9120839812 11.450861     5
## 753  -0.5501563781 10.277884     2
## 754   0.0341529140 10.610133     3
## 755  -0.9509176802  9.733599     2
## 756   0.1135620989 10.075257     3
## 757   0.4737619840  9.709396     3
## 758   0.1272941539  9.496026     3
## 759   0.8789325630  9.638727     4
## 760  -1.9936685670  7.617907     1
## 761  -0.5259875442  7.599747     2
## 762   1.1362628809 13.134291     4
## 763   0.9860888823 11.328678     4
## 764   0.5853371643 11.011013     4
## 765   1.1070577878  9.803846     4
## 766  -1.0052809298  8.649085     2
## 767   0.3408189157 11.195178     3
## 768  -1.3917704819  7.927589     2
## 769  -0.7261136074  9.530196     2
## 770   1.0201518857 11.319243     4
## 771   1.2670070551 12.611895     4
## 772  -0.3078647669 10.770189     3
## 773   1.6111990359 11.137701     5
## 774  -1.5948962647  7.888814     1
## 775  -0.6969068024  8.436475     2
## 776  -1.3328330624  9.402230     2
## 777   0.7659196268 10.968750     4
## 778  -1.4752363234  7.064235     2
## 779  -0.6048988017  9.051049     2
## 780  -0.1411030379 11.084237     3
## 781   2.0358428539 12.522008     5
## 782  -0.2419732025  9.456828     3
## 783  -0.6547747437  8.892652     2
## 784   0.6825872793 10.659377     4
## 785   1.2404807148 12.059424     4
## 786  -0.6546237401  8.551674     2
## 787   0.6320061908  8.769025     4
## 788   0.9398674726 10.399772     4
## 789  -0.4485696721  8.407387     3
## 790  -0.8138498096  7.897280     2
## 791  -0.0638438140  9.244537     3
## 792   0.3791300936  9.423970     3
## 793   0.4423652153  9.085779     3
## 794  -0.2989306593 10.514339     3
## 795   0.4905837568  9.230518     3
## 796  -0.9910456284  9.811841     2
## 797   1.2619831533 11.733605     4
## 798  -0.5618259306  9.067809     2
## 799  -0.9990414830  8.637775     2
## 800   0.8295551058  9.511062     4
## 801  -0.4119733518  8.753102     3
## 802   1.0256725498 10.558557     4
## 803   0.3729473066 10.641180     3
## 804  -0.2863041976  8.438615     3
## 805   0.7752611695  9.924310     4
## 806   1.5536433825 11.645008     5
## 807  -0.5069254576  9.276264     2
## 808  -0.5473158185  9.804555     2
## 809   0.5196089152 10.313113     4
## 810  -1.8168545584  8.839557     1
## 811   0.5229303316 11.947016     4
## 812   0.0933292944  9.213687     3
## 813   0.2672763068 11.091625     3
## 814  -2.1462385561  6.041905     1
## 815   0.2877334214  9.827362     3
## 816  -2.6502718795  8.132678     1
## 817  -0.2571429312 11.222309     3
## 818  -0.5446976257 10.933804     2
## 819  -0.4593739592  8.738886     3
## 820   1.8332295087 13.306587     5
## 821   0.2884197120 10.930299     3
## 822  -0.4817443493 10.440371     3
## 823  -0.2680264549  8.193879     3
## 824  -0.6789268765  9.131581     2
## 825   0.9422562336 11.891227     4
## 826  -0.7064025602  8.286642     2
## 827   0.1860977884 10.379484     3
## 828  -0.3600032280  9.768957     3
## 829   0.5155261176 10.093825     4
## 830   0.4020062122 10.233315     3
## 831  -1.5426904124  8.050164     1
## 832  -1.6757142161  9.257142     1
## 833   1.7963265886 12.722425     5
## 834  -0.1984369760  9.229074     3
## 835   1.5094333612 11.006871     5
## 836  -0.6876584697  8.262945     2
## 837   0.3639928285 13.063818     3
## 838  -0.8430754775 10.842591     2
## 839   0.4742160214 11.342042     3
## 840   0.2922931842 10.732169     3
## 841   0.6726225405  8.816137     4
## 842  -0.1356875942  8.604864     3
## 843  -0.4442619859  8.234897     3
## 844  -0.2488958146 10.144778     3
## 845  -0.6372635290 10.056644     2
## 846  -2.7688610112  9.514539     1
## 847   0.6851612218 12.034372     4
## 848  -0.7107569076 10.443467     2
## 849  -0.1604743252  9.435332     3
## 850  -0.9458749416  8.882681     2
## 851  -2.5657407028  8.173714     1
## 852  -0.7703392376  8.704370     2
## 853   0.0467966186 10.238416     3
## 854   1.8432664715 11.059070     5
## 855   1.3409376146 10.683000     4
## 856  -0.5770366945 10.180604     2
## 857   1.1829196541  9.036771     4
## 858   1.4560444820 11.049907     4
## 859  -2.5143143377  7.627050     1
## 860   0.6231608852  8.592279     4
## 861  -1.6120682541  9.327008     1
## 862   0.0228198173  9.937341     3
## 863  -0.5919543178 10.141113     2
## 864  -0.7376036928  9.719053     2
## 865   0.9281116018  7.253869     4
## 866   2.3040070041 12.382669     5
## 867  -0.9628340993  7.800304     2
## 868  -0.1389687983  9.198946     3
## 869  -0.0506122125  9.749944     3
## 870   0.8867735740 10.610358     4
## 871  -0.5707846622  9.164272     2
## 872   0.2249495373  9.711942     3
## 873  -1.0803698436  7.655997     2
## 874  -0.5490571172  9.380352     2
## 875  -1.0943030357  8.639351     2
## 876   0.0224920286 10.125083     3
## 877  -0.8649218333  7.873588     2
## 878  -1.4234755295  9.608866     2
## 879   0.0757805478  9.025520     3
## 880   0.5848014054  8.384730     4
## 881  -0.1677247115 10.044339     3
## 882   1.0842614546 11.011525     4
## 883  -0.1289362210  9.801381     3
## 884  -0.1823227785  9.291706     3
## 885  -2.3641716522  6.872739     1
## 886   1.0204188888  9.844598     4
## 887   1.1414996109 12.891873     4
## 888  -0.6222006565  9.796393     2
## 889   1.0030806018 10.931756     4
## 890   0.0885881552 10.983747     3
## 891   1.2236080883 11.879148     4
## 892  -0.1554123242  9.282283     3
## 893   0.5515711590 11.255073     4
## 894  -0.2709039754  9.013138     3
## 895  -0.1391859034 10.481437     3
## 896  -0.0154609128  9.397710     3
## 897   0.1646875434 10.002786     3
## 898   0.0118355677 10.693577     3
## 899  -0.4704823064 10.362334     3
## 900  -0.0344051270  9.748701     3
## 901  -0.4687987105  9.009355     3
## 902   1.2597432671 11.805049     4
## 903  -0.5156764481  8.749875     2
## 904   0.2883163295 10.753936     3
## 905  -0.6751177211  8.105468     2
## 906   0.6265409344 11.500626     4
## 907   0.4879110173 10.375787     3
## 908   0.6106519048 11.988589     4
## 909  -0.7120120317  8.905497     2
## 910   0.4809631487 11.003818     3
## 911  -0.2750249786  8.234351     3
## 912   0.9493628261  9.063366     4
## 913   1.9649084510 12.341416     5
## 914   0.1729209964  7.727027     3
## 915   0.9174380508 11.171628     4
## 916  -0.3705490885 10.898355     3
## 917  -0.6548275520  9.483046     2
## 918   0.4102670885 11.990697     3
## 919   1.7088642455 11.461257     5
## 920  -0.7579695841  9.599946     2
## 921   0.0141430278  8.559044     3
## 922   2.8994103320 11.980858     5
## 923   0.7601667926 10.767002     4
## 924   0.8452088498  8.643046     4
## 925   0.7862089364  9.447040     4
## 926   0.7948331515 12.305467     4
## 927   0.2007707307 10.392018     3
## 928   0.1894445307  9.463581     3
## 929   1.8522225431 11.767280     5
## 930   1.5687639229 10.248318     5
## 931  -1.0112526448  8.248219     2
## 932   1.3950533073 11.470180     4
## 933  -0.5927595166  9.460919     2
## 934   0.2417262405 10.017078     3
## 935   0.1716780715 10.533760     3
## 936  -0.0676664142  8.636922     3
## 937   2.1626374819 11.712473     5
## 938   0.9043272576 10.031522     4
## 939  -0.3665135155  8.316269     3
## 940  -0.3899572250  9.184337     3
## 941   1.0529423602 12.183074     4
## 942  -0.3025892489  9.243752     3
## 943  -2.0196495117  7.442619     1
## 944   0.1078174824 10.860270     3
## 945  -0.6436246317 11.303357     2
## 946   0.8095692288 10.389106     4
## 947   0.5482780595  9.892447     4
## 948   0.7139372088 11.650561     4
## 949  -0.1686933842 10.414597     3
## 950  -0.4087731138 10.033666     3
## 951   1.1530110093  9.953021     4
## 952   0.0090757462 10.183605     3
## 953  -0.9634560752  9.238667     2
## 954   1.1094728732 12.208852     4
## 955   0.0815761469  9.911400     3
## 956   0.9316050497 10.792216     4
## 957  -0.2862212716 10.129338     3
## 958  -1.4661495095  7.293508     2
## 959  -0.3089154095  9.363625     3
## 960  -1.2068333009  7.982173     2
## 961   1.2444354236 11.500019     4
## 962   1.2026925797 12.204433     4
## 963   1.3299916667 11.069106     4
## 964   0.8543583472  8.407013     4
## 965  -1.4888393497  8.903847     2
## 966  -1.4505931595  8.077247     2
## 967   1.0344394229 11.203189     4
## 968  -1.8602581461  9.400668     1
## 969   0.9258684136 11.314184     4
## 970  -0.0350664136 10.568733     3
## 971   1.1716411063 11.370582     4
## 972  -1.9173863075 10.644465     1
## 973   0.7427380005 12.050436     4
## 974  -0.1296272837  9.964779     3
## 975  -0.3010670269 10.690292     3
## 976   1.2235251574 11.617714     4
## 977  -0.4420982960 10.184647     3
## 978   0.5235453957  9.634665     4
## 979   0.4700149036 12.688304     3
## 980  -0.7827815802  8.413812     2
## 981  -0.4807818046  8.342944     3
## 982   1.3973317616 10.438732     4
## 983   0.1838800697 10.316363     3
## 984   1.6123983299 11.484449     5
## 985   0.2051387406  9.151383     3
## 986  -0.4437023973  9.420712     3
## 987  -0.5215894463 10.178981     2
## 988   0.1962541605  9.562501     3
## 989  -0.8900413140 10.367239     2
## 990   0.7336317823 10.760535     4
## 991  -0.7858299495  8.786843     2
## 992   0.7327520538 10.415541     4
## 993  -1.2677465234  8.503771     2
## 994  -0.6390822677 10.288884     2
## 995  -0.2174956604  9.627151     3
## 996  -0.7100899234  8.676657     2
## 997   0.4521476062 11.757345     3
## 998  -1.5212756906  9.063236     1
## 999  -0.0490463401 11.153948     3
## 1000  1.2861696219 12.275079     4
# creates plot object using ggplot
plot <- ggplot(sample_data, aes(x = xAxis, y= yAxis, col = as.factor(group)))+
  geom_point()+theme(legend.position = "none")

# Display plot
plot

# Insert marginal ditribution using marginal function
ggMarginal(plot,type= 'histogram',groupColour=TRUE,groupFill=TRUE)