# Mindanao State University
# General Santos City
# Introduction to R base commands
# Submitted by: Ron Christian D. Falle
# Submitted to: Prof. Carlito O. Daarol
# Faculty
# Math Department
# April 4, 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 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 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 <- "C:\\Users\\johnm\\OneDrive\\Documents\\Lecture"
filename <- "cancer.csv"
(file <- paste0(folder,"/",filename))
## [1] "C:\\Users\\johnm\\OneDrive\\Documents\\Lecture/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 <- "C:\\Users\\johnm\\OneDrive\\Documents\\Lecture"
filename <- "hsb2.csv"
(file <- paste0(folder,"/",filename))
## [1] "C:\\Users\\johnm\\OneDrive\\Documents\\Lecture/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", "africanamer","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
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.1     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ lubridate 1.9.2     ✔ tibble    3.2.1
## ✔ purrr     1.0.1     ✔ tidyr     1.3.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) 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.6265488361  0.5852105464 -1.6882048673 -0.7576481227  0.6062989741
##    [6]  0.2587546129 -0.8263937214 -1.1280246314  1.0697588190 -1.1856984553
##   [11] -0.5999348875 -0.1775945316 -1.5484685206 -0.0511938322  0.8109910775
##   [16] -0.4645852303 -1.1864011420 -0.0267797897  0.0753130059  0.3797701283
##   [21]  0.7235531319  0.2679243565  0.4029716398  0.1877555169  0.7255349397
##   [26] -0.9629647541  1.0111617313 -0.8682190647 -0.1345755450 -0.9468706133
##   [31]  1.4797598023 -1.6024310932  0.6497167887 -0.8731586145  0.0003584022
##   [36]  0.9899089276  0.5227731003 -0.1039039722 -0.1585050929  0.2086258849
##   [41] -0.3718403590 -0.5931372625 -1.1676011799  0.3594345272 -0.2278052662
##   [46]  1.7032563041 -1.2096656894  0.1970698622 -0.4466300810  0.4800976285
##   [51]  0.8315188309  0.6998902426  1.5043893796  0.3173491136  1.7989862782
##   [56] -1.7979392881  0.3726796375  0.9764404122 -0.7343184864 -1.3290748949
##   [61]  1.1678776070  0.3027817660 -1.6934809552 -0.3752791009  0.9697784407
##   [66] -0.8867436659  0.5328531319 -0.3823069403 -1.2905252197  1.3571337948
##   [71]  0.8178881977  1.1236849311 -0.3944424790  0.9905130698 -0.4781755254
##   [76] -0.7516387285 -0.0498317916 -0.1812409835  1.9088448035 -0.5700261931
##   [81]  1.1105366189  0.2444452749  1.7751483369 -2.0043199604 -0.9368806916
##   [86] -0.1597984655  0.8941456085 -0.6141696928  0.0627637633  0.7664733199
##   [91]  0.4947733686 -1.4434453392  0.3401700696  1.5922893810 -0.1664749649
##   [96]  0.0804628723 -0.8613404045  2.2456050497  0.1487179239  1.3042204072
##  [101] -1.1998618202 -1.1399422664 -1.4031194627  0.6204596856  0.0440640816
##  [106] -1.4693555384  0.6787524630  0.9924301231  0.2290539037  0.8161508984
##  [111] -0.5111912046  0.7341012050 -2.4141599552  0.1210174138  0.0889690560
##  [116] -0.2150083858 -1.1744392381 -0.4973894474  0.4591024683 -0.3864834968
##  [121] -1.5230955361  0.3195192491  0.4004536605  0.6113694590  0.7410356199
##  [126] -0.7884838855 -1.2081886704 -0.4628469234  0.6369751191 -0.8965722311
##  [131]  0.9789476586  0.6188652340 -1.0860178498 -1.4568486752  0.1312970325
##  [136] -0.6485784734  0.9165833946 -0.8776053993 -0.0767871962 -0.7979059115
##  [141]  0.3569527965 -1.3710965905  0.3488526851  0.0588593620 -1.0528796279
##  [146] -0.6188184759 -0.7242671971 -0.9233979795 -0.9299056869 -1.5519548059
##  [151] -0.0047955042  0.7740628024 -1.1669098568 -0.0592109839  0.4235678746
##  [156] -0.1898012868  1.0768837382 -0.9491459715  0.9132674334 -0.6986173823
##  [161] -1.2698138561 -0.3244762449 -0.0608052405  0.2439499199 -0.9607945371
##  [166]  0.6592703999 -1.7776227729  0.2127066608 -0.1278463867  0.5242322892
##  [171]  0.7452594194  0.2200700809  2.0936065456 -1.2092714197  0.7551778953
##  [176] -1.3340311355 -0.1318808727 -0.5619378776 -0.5178855495  0.7839894523
##  [181] -0.5484499182  0.3423037505  1.6144636158  0.7316775751  0.4136075501
##  [186] -0.7264170714 -0.1328661008 -0.8839530995  1.3841968838 -1.0708380915
##  [191]  1.3402998566  2.1247117189 -1.7887556919  0.6457575336 -0.8898226898
##  [196] -0.6695059155 -0.0303457804 -0.1609317773 -0.4221547496 -0.8266188354
##  [201] -0.8752946417 -0.4885157788  0.7338166939  0.5416745194 -0.9522156156
##  [206]  3.4505543298  1.4768919543 -0.0957104815 -0.5489908764 -0.0244069085
##  [211] -0.0719362953  0.2480742532  0.8770062596  0.8011165653  0.0142447332
##  [216] -0.7785388234 -0.7711849954  0.2071745060  0.4650742430 -0.0179319482
##  [221] -1.5216692172 -1.6616954798  0.0448650203  1.4029424731 -1.0505822165
##  [226] -1.9335962878  1.7327774785  1.0596895438  0.0910443024  1.8943631239
##  [231] -0.4440109984  0.0157430176 -0.2326492756 -1.2579877500 -1.8071446407
##  [236]  0.5787816451 -0.9291789855 -0.2392422910  0.1124026487 -0.6076968879
##  [241]  1.3697852623  0.4983217248  0.5147326843 -0.0686002412  0.7735347078
##  [246] -1.1337673723 -1.2526021439  0.5369509898  0.4726586814  1.1489259431
##  [251]  0.7095396612 -1.8093277213 -1.2022952102  1.4595344612 -0.3767386335
##  [256]  0.0124512000 -1.5662923993  0.3869532380  0.2197145684 -1.6404480028
##  [261] -0.0292205071 -0.4562854820 -0.0328845611 -1.1094630140  0.2947012640
##  [266]  0.8886420685 -0.4156403693  1.2858596577 -1.2638691218 -0.7343467335
##  [271]  0.2305591427 -1.6414391534  0.2469539925  1.1023901014  0.9402299926
##  [276]  1.1614206474  0.2918332583 -0.1225309761 -1.8839391295 -1.1479526316
##  [281]  1.5119993443  0.8050943787  1.0476054193  1.2169692150  1.3960106494
##  [286]  0.9323016344  0.3027213946 -0.3889303943 -0.0758557521 -2.1160562306
##  [291]  1.5424784134  0.5349917439 -1.3123404462 -0.1267611594 -1.0127309269
##  [296]  0.8077700474  0.9885231610  0.1180054912  1.9270652751  1.8154358410
##  [301]  0.3736091804 -0.4499147265  1.6135360177  0.9133136654  0.7775282765
##  [306]  0.6188608084 -0.5888964735  2.0118473994 -0.1283830172  0.7133036313
##  [311]  0.5410041151 -1.2083454399  0.7181423894  0.2096608045  0.1389007244
##  [316]  0.2008677509 -0.7617633438  1.0492697578  0.7225948501  0.4629090318
##  [321]  1.1172834727 -1.5645556741  0.4915865676  0.8673616390  0.2183794038
##  [326] -0.0414339593  0.2870823748 -1.0886784841  1.0136859913  1.5788445803
##  [331]  1.1157177217 -0.3137983877 -1.0720335855  1.3071484098  0.3506889455
##  [336]  0.2659310799 -1.5682828221 -0.7058378089 -1.5198163205  0.5354720192
##  [341] -0.3803019689  0.7791009062  1.2721478617  0.3562402101 -0.8188918607
##  [346]  1.1029690633 -0.2414048377 -0.5517999831  1.9528222898  0.6598503184
##  [351]  0.9115135073  0.7102904102 -0.6266540333  1.1623886273 -1.0954193735
##  [356]  0.0462927807 -0.8210314869  2.0456004631 -0.9487493777  0.4578616615
##  [361]  0.4835974843  1.2131817994 -0.4445799600 -1.0287044024  0.1659565816
##  [366] -0.6240426134  0.0844617661 -0.3225152288  0.6568122936  1.1123849683
##  [371]  1.4267633715 -0.7696044855  0.4497082037  0.0031956819 -1.9231449694
##  [376] -0.8004765439  0.8309296238 -0.0791986250 -1.4090079663 -0.7654794240
##  [381]  0.6667862771  1.3092446166 -0.5917045463 -1.2000645289  0.9662433057
##  [386]  1.1606765090 -0.1427098055  0.4999930844 -0.3124392681  0.1519908535
##  [391] -0.3735156519  1.5806983320 -1.1894563200  1.3920630799  0.2144686918
##  [396]  0.2379899158  1.8572477878  0.0243651613 -0.0027410204  0.6853684394
##  [401]  0.5534344024  0.9471802364 -0.6617287684 -0.3963729884 -1.5492312537
##  [406]  0.1274051716 -0.1103471960 -1.4894515320 -1.0638334888 -0.0589482585
##  [411]  1.0364363615  0.2965944348 -0.1941735498  0.6888412312 -0.3784466540
##  [416] -0.3709784767 -0.5167302890 -0.4565283651 -0.8605740699  1.1714322122
##  [421]  0.3757219106  0.6223609826 -0.7552889795 -1.0654260643  0.4743583308
##  [426]  0.4567843790  0.8243152830  1.2737855867 -0.0699571938  0.7178809171
##  [431] -0.8404848256  0.0198669054  0.7021518393 -1.2771303397  1.3433430494
##  [436] -1.4451185750 -0.9105024291 -1.6962067182  0.1234804528  0.6170957241
##  [441] -1.4046490796  0.3493536837  1.1067372307 -0.3777782522 -0.3556540703
##  [446] -1.1095402243 -0.8328528186  0.0286526568 -0.4941106370 -1.0786797578
##  [451] -0.7509439172 -1.4269924032  0.0588713478  0.8335866529 -0.1528613195
##  [456]  0.1538833207  0.0825309276 -1.3566099652  0.1095587614 -0.7147004955
##  [461]  0.7783890060  0.5380757869 -0.3622240218 -1.4133052801  0.4468507018
##  [466]  0.1285586940  1.3782237798  1.0342051388  1.2318416850  0.5215441386
##  [471] -0.0271253370 -0.5338885155 -0.6128869651 -0.5068530147 -1.7635901861
##  [476]  0.9884075839 -0.6973711320  0.5013476289 -0.3714057443 -0.1267125226
##  [481]  1.3342043188  0.9914562804 -1.1291988687 -1.1859604242  1.2917541034
##  [486]  0.0927988300 -1.3295869912 -1.9911376778 -0.8335888467  0.9636413199
##  [491]  0.6636750647 -0.3005384687 -0.0290721149 -0.2155979228 -1.0934774452
##  [496] -1.7080615608  0.5151424998  0.5034479015  0.1725022593 -1.9002258382
##  [501]  0.2949800810 -0.4421798130  1.2531802803 -3.6057987598  0.8943702603
##  [506] -0.6927316640  1.8814282369  0.3607170342 -0.4941115148  1.2287542444
##  [511]  1.2700270763 -1.8784560591 -1.3449023292  0.0397982013 -1.1318801775
##  [516]  1.3685222114 -0.8465393552 -1.7812340271 -0.1595932113  0.6076072035
##  [521]  0.3403022021  0.3024781984 -0.7523922918 -0.2004439524  0.6593161386
##  [526]  0.0128020234  0.3562829834  0.7601780311  0.9493047395  2.4051577686
##  [531]  0.8893298088  0.8751991141 -1.5930343139  0.6971757942 -1.5127937618
##  [536] -1.1211803837  0.2902103170  0.3321306517  2.0400679528 -0.6308556488
##  [541]  0.2456267983 -0.9690103898 -0.9691345955 -0.4071553943 -1.1446782933
##  [546] -0.9263464948 -0.7858449419  0.9883961216  1.3437592803 -0.2576716582
##  [551] -1.9364802417 -2.1372829779  2.0140655636 -1.1748587086  1.4888531018
##  [556] -0.2981150108 -1.5324303167 -0.2610983567  1.1059300260 -0.0860970802
##  [561]  0.3336081147 -0.6941593794  0.3414812564 -0.0191108272 -0.5772969833
##  [566]  0.5405550801 -0.3615979872  1.2909214897  1.3497304070 -2.0201312389
##  [571]  2.4747706754 -0.9534369405 -0.0676257085  0.3669500539  1.1571433393
##  [576] -1.4138615565 -0.1748702409 -0.7004146123 -0.6751360660  1.1129945682
##  [581]  1.0911502389  0.1807840308  0.9354788760  1.0057656581  1.4230804544
##  [586]  0.3547253223 -1.5950732922 -1.4516343030 -1.2855367707  2.3336158017
##  [591] -0.9080335192 -0.8478445547  1.5951448696  1.3187858490  0.8146222183
##  [596] -1.5739714358  1.1067414099 -0.2630500775 -0.0071627535  1.9624231098
##  [601] -0.6400191947  0.2328369265  0.2756746266  0.6877426519 -0.3990592283
##  [606] -0.6682920328 -0.0318990630  0.0491040042  0.6592469553  0.2440840552
##  [611]  0.4838759293  0.1331324629 -0.2877836849 -1.9869938791 -1.5502178532
##  [616] -0.1537025004  1.6296985523  0.3313102094  1.5511131546 -0.2324216244
##  [621] -0.0900421420 -0.4294323696  0.7953270714 -2.1246964727  0.6855700265
##  [626] -0.9963546899  1.1520582491 -0.9350701783 -1.9125202612  1.5117526185
##  [631] -1.5330476740  1.6836568687 -1.0174797505  0.7862629321  0.7232043248
##  [636] -0.2482210230 -0.1270115560  0.2750410319 -0.0662921878  0.8711772782
##  [641]  0.6668768784 -0.9233761781 -0.7847291250  1.2408290453  0.4026943174
##  [646]  0.6649292786 -1.6510953248 -0.5386110683  0.7574815258 -0.5434203571
##  [651] -1.6016998095 -0.8365495670 -2.4781458768  1.9507277829 -2.6043328972
##  [656]  1.9635951654 -1.1144467910  0.3241361213  1.9194806699 -0.0442839407
##  [661]  0.0820735073  0.3274168601  1.7616660539 -0.6119742360  0.6235815012
##  [666]  1.0084325705  0.1769123866  0.2608266053 -1.5935095688  0.0998571345
##  [671]  0.9319240881  0.3955432548  0.7683290157  0.9674770232 -0.9864519710
##  [676] -0.2990897408 -0.9473035395  0.4739075890 -0.6996575220 -0.3846513687
##  [681] -0.2359799881  0.8081304757 -0.0668902459 -0.0236406007 -0.2383770419
##  [686]  1.7380466237  1.3217684283  1.5004319348  0.7498078739 -1.2363845743
##  [691] -0.6600385888 -2.0274231276 -0.7307893737  1.9770138324  0.3986409071
##  [696]  0.6893649998  0.8138485170  1.6916721274 -0.2170085452  0.5662366352
##  [701]  0.7158273587  0.1644078626  0.0663822655 -1.8948257865  0.0865675303
##  [706]  1.2546045066 -0.9461527071  0.6617343194 -0.7279490766 -1.2226510499
##  [711] -0.4335879331  0.9832089000  0.7200415772 -1.6088387258  0.7696432299
##  [716]  0.0920166295  1.9694976812 -0.3820867740 -0.1188921035  1.2681035644
##  [721]  0.2698211576 -0.6973778334 -0.0279592463 -1.4287800118 -1.4980848754
##  [726] -0.0928803973 -0.7811724109  0.1546725466  0.8875239434 -1.0011297819
##  [731] -0.2850114018 -0.8904092647  0.5328699448 -0.1723194304 -0.0444861382
##  [736] -0.6017137992  0.3496263044  0.3879138843 -0.3243006971 -1.3734065694
##  [741] -0.4370619313 -0.0624903931  0.8634486064 -0.6456909414 -0.3351084587
##  [746] -0.6289198470 -0.4375701345 -0.1942205744  0.0005034279 -1.3074043349
##  [751]  0.0538282641  0.2175097686  2.1993039696 -1.9369361196 -1.1158178258
##  [756]  2.6789618528 -0.7302025630  0.2309443685  1.8199145348  1.7191996421
##  [761] -0.6211309391  0.3375526440 -0.5748165936  0.0460085597 -1.1943138293
##  [766]  0.4080858535 -0.6428518634 -0.7464951739  1.0423121752  1.8186648752
##  [771]  0.2844178721  0.1564871852  0.5013142695 -0.0081163936  0.8988899329
##  [776]  0.3683553863 -0.2251899543  1.2672072599  0.7368805101 -0.7094412036
##  [781]  0.7730227444  0.0583440787 -1.4722120486  1.5390005355  0.5172028656
##  [786] -0.2265909180 -0.7658140208  0.7702307468 -0.7585511529  1.5008844868
##  [791] -0.2475894330 -0.3816946843  0.8399149413  1.0578479208  1.2263339892
##  [796] -0.2030343827  0.0890903138 -2.4286085011  0.1309570260  0.2780318886
##  [801]  0.4597111019  0.9535969037  0.7294463648 -0.5340610007  0.7911566077
##  [806] -0.5686177370  0.1975190251 -1.7302583989  0.0652797575 -0.0969059823
##  [811]  0.4484904228 -0.0449832925  0.2607654309 -3.0730841728 -0.7948676503
##  [816]  1.5903957228  0.7126439684 -0.8843936897 -0.9036983258  0.7251764220
##  [821] -0.5523592698 -0.8110120875  1.5215201906  1.1769736404  0.4910069460
##  [826] -1.0863450964 -0.5419570742  0.5184137084  0.7979183955 -0.9353780764
##  [831]  0.4434187173  0.3389206042 -0.3730397224 -0.9293916078 -1.2002420781
##  [836] -0.0971855077 -0.0226736770  0.9366332762 -0.2860383502 -0.5922795305
##  [841] -1.3203987221 -0.2356130276  1.2272849187 -1.4804399892  0.4132384365
##  [846]  0.0804281802  0.9576080865 -1.1218385847 -0.9238769294  1.7528192628
##  [851]  0.4856109060  0.4653749096 -1.0190969390  0.8843692991 -0.1907748096
##  [856] -1.6551964964  2.1827486340  0.6167465251 -0.3538802188  0.0278627842
##  [861]  1.0935679721 -0.5338313172 -0.5734343985  0.1073479684  0.0512896566
##  [866]  1.2939548357 -0.5251781153 -0.3085757528  1.1124093557 -0.4358713901
##  [871] -1.3899191530 -2.0929478513 -1.0728554019  0.4429075068  0.4700123583
##  [876]  0.9072940983 -0.1487204397  0.2175017043 -2.8326845145 -1.5187876001
##  [881] -1.0674981910  0.6420213064  0.0059219842 -0.3981377630 -2.2490018745
##  [886] -1.5740070771 -0.5053114226  2.3163854690 -0.7272683127 -0.4534127570
##  [891] -0.3566301710 -0.9048522795  0.9797482586 -1.3426653321 -0.2848383998
##  [896]  0.7488894912  1.5864229068 -0.3115682294 -2.4069338869  1.1449731479
##  [901] -0.1066737522 -0.2672256197 -1.2420401988  0.2729555739 -1.8075916825
##  [906] -2.3136579288  0.1946846120  0.4632220872  0.9189956835 -0.0594734757
##  [911]  2.2762080045  0.4851353204 -1.2189493760  0.6901166198  0.8964411819
##  [916]  0.9991039336 -1.2972965758 -1.5878680619  0.9232200208  0.6800799962
##  [921] -0.5000272304  0.3098560591  0.2148344807 -1.7639959502  1.1822631949
##  [926]  2.4169900798 -0.0371018002 -1.8068199168  1.6073776741  1.0020075351
##  [931] -0.8304909684  0.3173857188  0.1436416326 -0.4444227515 -1.0198865572
##  [936] -0.4272750076 -0.2335656067  0.9575362944  1.1088796550  0.0080398780
##  [941]  0.7690191552  0.9674820687  2.0703971243  0.1223576871 -1.4772460981
##  [946] -0.4345212559  0.8701982755  1.3201411035  0.4732068250 -1.0418752752
##  [951] -1.0060439082 -0.9380208327  0.8428570375 -0.5340682227  0.9220287611
##  [956]  0.6926531112  0.9987463801 -0.3153971589  0.5588633543 -2.3359470312
##  [961]  2.1206968137 -1.0180380938 -0.4873120882  0.4026253424  0.3697566534
##  [966] -0.4130020986 -1.2334777059  1.0747269891  0.3511997221 -0.4697713909
##  [971] -0.1903520784  0.1371140124 -0.0972997897  0.3166041250  0.1441846059
##  [976] -0.4902422010 -0.9347420640  0.0613046024  1.5725182969 -2.1036492346
##  [981] -0.0022533393  0.1964389701  0.0641095844 -1.0686637759 -0.8066281307
##  [986]  1.4773539671  3.0990505724  0.2036366174 -1.6938666422 -0.2505213062
##  [991] -0.5105983464 -1.1741600360 -0.0722632313 -1.0132207412 -0.2748489329
##  [996]  0.2880494761  0.0702764236 -0.6553295735  0.0321416120  0.1064956762
yAxis <- rnorm(1000) + xAxis + 10
yAxis
##    [1]  8.522268 10.854986  7.490998  9.906732 10.969379 10.520422  9.486757
##    [8]  9.489415  8.986783 10.400869 10.864068  8.221574  7.219385  9.734272
##   [15] 10.047971  9.182907  9.647541 10.522998 11.154547 10.222265 12.010424
##   [22] 10.436834 10.641470  9.302345 10.113536  8.568998 12.632464  9.772230
##   [29]  9.073964  8.957029 11.397687  8.258300 10.731236  8.985972 11.806499
##   [36] 11.746045 10.860421 10.678370 10.338449 10.080996 11.661360  8.184672
##   [43] 10.109213 10.541586  9.330442 12.251946  7.589882 10.717387  9.797201
##   [50] 12.238169 10.473037 10.160632 10.548415 11.094594 12.689971 11.458050
##   [57] 10.730575 11.369185  8.517366  9.027193 11.748668 10.733790  8.559766
##   [64] 10.328638 10.741204 10.299953 11.928326 10.235672  9.166115 13.183279
##   [71] 11.473456 10.388337 10.344187 13.325607  9.037390  9.604254 11.344096
##   [78]  9.938149 12.947163  9.792116  9.284445  9.762520 11.968675  9.161998
##   [85]  9.417494  9.242612  9.613765  9.874595 10.401162 12.884864  9.645774
##   [92]  8.715287 10.511162 12.224581 10.357942 10.426790 10.084488 13.237084
##   [99] 11.477803 10.949361  8.708567  8.879181  9.690069  8.693966 10.702581
##  [106]  8.357192 10.785724 10.888792 11.183891 11.310436  8.675234 10.609945
##  [113]  7.172502 10.417450 11.511491  9.371018  9.376624  9.862105 11.777554
##  [120] 11.305411  9.543334 10.127389 12.062783 12.412741 10.171341  8.445467
##  [127] 10.029873  9.714610 10.609298  9.695477 11.795501 12.773365  9.540243
##  [134]  8.222443  8.984878  7.683987 11.205844  9.535627 10.626352 10.895054
##  [141] 10.956407  8.251883 12.318445 11.178431  7.372149  9.620385  8.177175
##  [148]  9.506948 10.009121  8.017572  8.911311  9.576207  8.394689 10.701555
##  [155] 10.851311  9.773439 11.293261  9.026253 10.579925  9.058269  8.279183
##  [162]  8.666322 11.828635 10.907028 10.646345 10.063168  7.306679  8.834884
##  [169] 10.360692 11.096075 11.215663 10.731216 13.122086  9.926401  9.850961
##  [176]  9.306229  9.836445  8.184790  8.608903 10.540248  9.538642 11.053460
##  [183] 11.590805 10.770632 10.774054  8.209691 10.911593 10.319148 11.969173
##  [190]  7.786829 12.068271 11.720612  9.816565  9.867651  8.881909  8.270074
##  [197]  9.568256  7.139243  8.216284  8.039719 10.280170 10.672388 11.095291
##  [204] 10.356034  9.207603 14.456968 10.824040 10.222937  8.976705 10.358379
##  [211]  9.631275 11.100310  9.125986  7.937924 12.992834  7.888739  9.364362
##  [218] 11.552187  9.628505 10.534686  7.428102  9.288627 10.496532 11.274338
##  [225]  9.098140  5.750468 11.850364 10.330122 11.466486  9.916577  9.042845
##  [232] 10.705066  8.787809  8.234411  7.563293 10.121361  9.162784  8.421822
##  [239] 10.724625  9.360358 10.899246  9.918402  9.886513 10.259888 11.330949
##  [246]  8.349670  8.723978 11.695137  9.181365 10.555352 10.698458  8.356169
##  [253]  8.834386 12.110385  8.718165  8.432268  8.975537 10.558340 10.706947
##  [260] 10.333027 11.388360  9.635977  9.340330  7.247907 10.449745  9.014520
##  [267]  9.457624 12.536127 10.608202 10.618873 11.557027  8.647509  9.169321
##  [274]  9.747226  9.911996 12.180244 11.006633  8.923483  8.266478  9.436936
##  [281] 11.440897 11.721406 11.982466 11.216396 11.453757 10.937466  8.768955
##  [288]  8.149050 10.653890  7.263044 11.440512 12.146571  9.711291  8.752949
##  [295]  8.813017 11.865628 10.991812 10.302460 12.641228 11.512673  9.967335
##  [302]  9.792352 13.209227 10.082169 13.099347 10.635619  8.663425 10.956341
##  [309]  8.606907  8.504713  9.038616  7.597848  9.832973 10.796305  9.712959
##  [316]  9.800591  8.845212  9.348192 11.594531 10.760830 11.276452  9.503957
##  [323] 10.941059 12.616073  9.874378 10.396633  9.459557  7.437870 10.168055
##  [330] 10.726281  9.415533 10.137287  8.613359 11.470318 10.881608  9.862597
##  [337] 10.532101  9.805012  8.550872 10.936882 10.320703 11.440956 10.553076
##  [344] 10.595669 10.848838 10.647179  8.190440  7.914958 13.583840 10.406116
##  [351] 10.743225 12.208995 10.256530 10.372523  9.781042  9.877326  6.471694
##  [358] 11.052142  8.225911 10.573924  9.010136 10.054284 10.495241  9.735656
##  [365]  9.688595  7.812533 10.589078  9.943432  8.700893 11.893210 12.175225
##  [372] 10.844148 12.436402  9.018606  8.725631  9.043787 13.210606 10.109840
##  [379]  9.071538  7.306074  9.991601 11.762456  9.524199  9.262411 13.043127
##  [386] 11.319532  9.415002 10.295544 10.346690  9.383270  8.847598 13.845829
##  [393]  9.575081 12.278276  7.346419  8.338457 12.480025  9.758537  7.544167
##  [400]  8.925951 12.144832 11.660906  9.818178 10.224032  8.833892  9.629558
##  [407] 10.438921  7.179178  8.677849 11.864481 10.930856 10.028971  9.086537
##  [414] 10.789641 10.086145  9.553124  8.498764  9.195513 10.121970 12.607129
##  [421] 10.193978 10.644037 10.144208  5.755813  9.540053 10.592541 10.192894
##  [428] 11.140045 10.118787 10.268775  9.822225  9.498872 10.162210  7.877644
##  [435] 11.273848 10.163631 10.857495  8.571574  8.978312 10.504681  8.956745
##  [442]  9.426371 11.395497 10.191085  8.761077  9.727452  9.988711  9.494967
##  [449]  8.752134  9.356533  9.460894  9.206910  9.761639 10.755667  8.762471
##  [456]  8.323671  9.675898  8.107169 10.358929 10.550717 10.600001 10.620022
##  [463] 10.456763  8.719699 10.069383 10.810459 12.685615 12.999134 11.298318
##  [470]  9.880394  8.866560  8.805974  9.224861 10.116612  8.618700 11.152091
##  [477] 10.196120  9.040757  9.796535 10.500770 10.945106 11.195612  9.050830
##  [484]  8.327387 10.520074 10.056976 10.177760  9.976530  9.669598 11.501148
##  [491] 12.984207  8.035121 10.373990 10.389864  8.306932  7.980237 11.412743
##  [498] 10.789199  9.762531  9.583834 11.005057  7.141980 11.264954  6.398224
##  [505] 11.864593 10.290920 11.177017 11.562774 10.225105 10.497973 10.795995
##  [512]  8.187292  9.549873 10.745498  8.229617 10.743069  9.261219  8.241375
##  [519]  9.695674 11.088265 10.021581 11.407345 10.155311 10.143395 12.076192
##  [526]  9.797703  8.732319  9.992703 11.299913 11.616765 13.352474 12.314168
##  [533]  8.592185 11.797146  8.514920  9.687068 11.996179 11.631313 13.563659
##  [540]  8.783280  9.353857  8.555124  9.341014 10.782235  9.298074  6.978967
##  [547]  8.280438 11.400101 12.632172  9.201639  8.551316  8.437719 11.028201
##  [554]  9.046300 11.946980 11.326955  9.875384  9.083415 14.135302 10.263147
##  [561] 11.112230  8.444581 11.061326 11.218515  8.586803  9.751310  9.263380
##  [568] 10.220993 12.411033  9.815005 10.925513 10.292192 10.433358 10.674542
##  [575]  9.362373  8.995380 12.713031  7.392555  7.292005 12.005790 11.349742
##  [582] 10.648443 10.566038 11.597770  8.911143 10.005187  9.102645  9.479791
##  [589]  8.972401 12.614922  9.784790  9.672438 11.305029 11.317883 10.861356
##  [596]  9.870295 12.084967  9.932701  8.544078 12.232573  9.106967  9.079567
##  [603] 10.981522 11.334624  9.670224 10.141774 10.351605 11.739609 11.222074
##  [610]  9.350649 11.459947 11.427389 10.766935  7.785757  9.317399  9.213967
##  [617] 11.612600  9.746689 10.435992  9.445498 10.848801  8.703265 11.293135
##  [624]  9.160704 11.055498  7.576128 11.795412 10.247425  8.376136 10.855952
##  [631]  8.434543 12.052551  8.424718 12.018623 10.340278  9.803540 10.185125
##  [638] 10.723919 10.665958 11.267985 12.816312  9.841081  9.836832 10.776474
##  [645]  9.165870 10.392908  7.372393  9.234327 10.718560  8.414359  6.907769
##  [652]  9.085410  7.778274 11.155368  8.351463 13.003644 10.013464 10.266502
##  [659] 11.257643 11.458620 10.899473  6.737287 11.451322  8.123900 10.244297
##  [666] 11.879917  9.493117 10.104390  9.353259  8.571568 11.376727  8.191260
##  [673]  8.572119 11.676881  7.038058 10.823791  7.732151 12.380997  8.223483
##  [680] 10.069305 10.612893  9.142032  8.729275  9.251152 10.491255 11.819598
##  [687] 11.240160 11.336816  7.902365  8.821582 10.638304  8.512980  8.488405
##  [694] 11.501732 10.334926 11.334686 12.087738 12.383790 10.193840 10.838702
##  [701] 11.308288 10.754159  9.407065  9.061624  9.691084 12.494076  9.622602
##  [708]  9.141766  9.636932  7.031106 10.982598 11.013510 11.415678  9.387717
##  [715] 12.067862 11.621230 11.304820  9.171715 10.712534  9.571352 10.538771
##  [722]  9.305506 10.146031  7.689967  8.796758 10.202611  9.562474 11.023589
##  [729] 11.159285  9.641884  9.002300  9.604514 10.856691  9.525258 12.661273
##  [736]  8.239364  9.165801 10.182728  9.582287  9.553583 10.010871  8.990044
##  [743] 11.616827  7.578278  8.619156 10.104928  9.239781  9.581989  9.442881
##  [750]  9.545993  9.453457 11.230081 11.581395  6.973432  9.100504 13.536882
##  [757] 10.661391  9.575802 11.932829 11.495228  9.083819  9.368420 10.868442
##  [764]  8.558023  7.615289  9.148079 10.572416  9.125473 10.812039 12.065945
##  [771]  8.813684 10.183149 10.366779 10.398623  9.409873 11.507335 10.887262
##  [778] 13.271497 12.228932  8.402741 10.200152 10.502807  7.586903 11.139079
##  [785]  9.525989 10.973026 12.097155 11.512829  8.211325 13.316382 10.886829
##  [792] 11.648147 11.924378 12.672192 11.670242  9.821717  9.183759  8.089478
##  [799] 11.520960 10.317231  9.793755 10.720923 10.887357 10.031418  9.570251
##  [806]  8.563678 11.319059  7.207283 10.116688 10.189361  9.413223 11.887861
##  [813] 12.119407  6.670495  8.626490 11.385616 10.953969 10.998414 10.213152
##  [820]  9.305681  9.601334  9.598621 12.391228 11.480579 12.651271  8.697391
##  [827]  9.175844 10.734671 12.277606  9.124744 10.228008 10.714174  8.307192
##  [834]  7.609687  9.504851  8.247589 10.933903 13.293334 11.112027  8.374102
##  [841]  8.978234  9.432317 11.402120  9.524108 11.699917 10.535208 11.056785
##  [848]  9.278948  9.987777 11.867039 12.575886  9.374333  8.847451 11.740844
##  [855] 10.718512  8.341495 12.657589 11.140801  7.892808  9.192712  9.911951
##  [862]  9.334365  9.186605 11.476404  8.600016 11.289234 10.196331  9.392795
##  [869] 12.139539  8.877659  8.758636  7.905875  9.690462 12.334329 11.445272
##  [876] 11.338044 10.722505 11.566305  6.263881 10.052121  9.974528 11.155789
##  [883] 11.262125 10.010423  6.336547  7.359998  7.613341 13.602320 10.033385
##  [890]  8.288065  9.315304  8.697939 10.711138  8.789991  8.040376 11.166618
##  [897] 13.715433  8.938970  6.579395 11.177739  8.694277  9.616830  8.310180
##  [904] 10.178241  7.872542  7.762600 12.168495  9.720875 11.456923  8.173585
##  [911] 12.750845  9.482377  8.758867 10.973227 10.933977 10.573750  9.031562
##  [918]  9.882998 11.642751 12.134848  9.847881 10.222111 12.128893  9.846740
##  [925] 11.833835 12.043300 11.988893  7.315829 10.302178  9.658181  9.061051
##  [932] 10.139343 10.076311  9.287984  8.786067  8.032722 10.072321 10.036442
##  [939] 12.033965 11.970290 10.183013  9.975655 13.655968  9.223828  7.767480
##  [946] 10.659254 11.355401 12.037628 11.216680  9.247786  8.757841  9.291676
##  [953] 12.350256 10.572018 10.879255 10.607289 10.470156 10.735282 11.283603
##  [960]  7.033358 13.418886  8.279778 10.874542 10.215783 10.170295  7.957464
##  [967]  8.919091  9.417588 11.639175  8.171839  8.392182 11.052531 10.160785
##  [974] 11.734653 10.998028 10.367948 10.110513 10.230229 12.821232  8.463259
##  [981]  8.277600  7.870553  8.594514  9.288592  9.117847 12.419560 13.543694
##  [988]  8.792710  8.121904 10.074929  9.402495  8.556287  8.108680  8.287337
##  [995] 11.355246  8.806932 10.038909  7.604714  9.205280 11.020471
# 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] 2 4 1 2 4 3 2 2 4 2 2 3 1 3 4 3 2 3 3 3 4 3 3 3 4 2 4 2 3 2 4 1 4 2 3 4 4
##   [38] 3 3 3 3 2 2 3 3 5 2 3 3 3 4 4 5 3 5 1 3 4 2 2 4 3 1 3 4 2 4 3 2 4 4 4 3 4
##   [75] 3 2 3 3 5 2 4 3 5 1 2 3 4 2 3 4 3 2 3 5 3 3 2 5 3 4 2 2 2 4 3 2 4 4 3 4 2
##  [112] 4 1 3 3 3 2 3 3 3 1 3 3 4 4 2 2 3 4 2 4 4 2 2 3 2 4 2 3 2 3 2 3 3 2 2 2 2
##  [149] 2 1 3 4 2 3 3 3 4 2 4 2 2 3 3 3 2 4 1 3 3 4 4 3 5 2 4 2 3 2 2 4 2 3 5 4 3
##  [186] 2 3 2 4 2 4 5 1 4 2 2 3 3 3 2 2 3 4 4 2 5 4 3 2 3 3 3 4 4 3 2 2 3 3 3 1 1
##  [223] 3 4 2 1 5 4 3 5 3 3 3 2 1 4 2 3 3 2 4 3 4 3 4 2 2 4 3 4 4 1 2 4 3 3 1 3 3
##  [260] 1 3 3 3 2 3 4 3 4 2 2 3 1 3 4 4 4 3 3 1 2 5 4 4 4 4 4 3 3 3 1 5 4 2 3 2 4
##  [297] 4 3 5 5 3 3 5 4 4 4 2 5 3 4 4 2 4 3 3 3 2 4 4 3 4 1 3 4 3 3 3 2 4 5 4 3 2
##  [334] 4 3 3 1 2 1 4 3 4 4 3 2 4 3 2 5 4 4 4 2 4 2 3 2 5 2 3 3 4 3 2 3 2 3 3 4 4
##  [371] 4 2 3 3 1 2 4 3 2 2 4 4 2 2 4 4 3 3 3 3 3 5 2 4 3 3 5 3 3 4 4 4 2 3 1 3 3
##  [408] 2 2 3 4 3 3 4 3 3 2 3 2 4 3 4 2 2 3 3 4 4 3 4 2 3 4 2 4 2 2 1 3 4 2 3 4 3
##  [445] 3 2 2 3 3 2 2 2 3 4 3 3 3 2 3 2 4 4 3 2 3 3 4 4 4 4 3 2 2 2 1 4 2 4 3 3 4
##  [482] 4 2 2 4 3 2 1 2 4 4 3 3 3 2 1 4 4 3 1 3 3 4 1 4 2 5 3 3 4 4 1 2 3 2 4 2 1
##  [519] 3 4 3 3 2 3 4 3 3 4 4 5 4 4 1 4 1 2 3 3 5 2 3 2 2 3 2 2 2 4 4 3 1 1 5 2 4
##  [556] 3 1 3 4 3 3 2 3 3 2 4 3 4 4 1 5 2 3 3 4 2 3 2 2 4 4 3 4 4 4 3 1 2 2 5 2 2
##  [593] 5 4 4 1 4 3 3 5 2 3 3 4 3 2 3 3 4 3 3 3 3 1 1 3 5 3 5 3 3 3 4 1 4 2 4 2 1
##  [630] 5 1 5 2 4 4 3 3 3 3 4 4 2 2 4 3 4 1 2 4 2 1 2 1 5 1 5 2 3 5 3 3 3 5 2 4 4
##  [667] 3 3 1 3 4 3 4 4 2 3 2 3 2 3 3 4 3 3 3 5 4 5 4 2 2 1 2 5 3 4 4 5 3 4 4 3 3
##  [704] 1 3 4 2 4 2 2 3 4 4 1 4 3 5 3 3 4 3 2 3 2 2 3 2 3 4 2 3 2 4 3 3 2 3 3 3 2
##  [741] 3 3 4 2 3 2 3 3 3 2 3 3 5 1 2 5 2 3 5 5 2 3 2 3 2 3 2 2 4 5 3 3 4 3 4 3 3
##  [778] 4 4 2 4 3 2 5 4 3 2 4 2 5 3 3 4 4 4 3 3 1 3 3 3 4 4 2 4 2 3 1 3 3 3 3 3 1
##  [815] 2 5 4 2 2 4 2 2 5 4 3 2 2 4 4 2 3 3 3 2 2 3 3 4 3 2 2 3 4 2 3 3 4 2 2 5 3
##  [852] 3 2 4 3 1 5 4 3 3 4 2 2 3 3 4 2 3 4 3 2 1 2 3 3 4 3 3 1 1 2 4 3 3 1 1 2 5
##  [889] 2 3 3 2 4 2 3 4 5 3 1 4 3 3 2 3 1 1 3 3 4 3 5 3 2 4 4 4 2 1 4 4 2 3 3 1 4
##  [926] 5 3 1 5 4 2 3 3 3 2 3 3 4 4 3 4 4 5 3 2 3 4 4 3 2 2 2 4 2 4 4 4 3 4 1 5 2
##  [963] 3 3 3 3 2 4 3 3 3 3 3 3 3 3 2 3 5 1 3 3 3 2 2 4 5 3 1 3 2 2 3 2 3 3 3 2 3
## [1000] 3
# create sample dataframe by joining variables
sample_data <- data.frame(xAxis,yAxis,group)
sample_data
##              xAxis     yAxis group
## 1    -0.6265488361  8.522268     2
## 2     0.5852105464 10.854986     4
## 3    -1.6882048673  7.490998     1
## 4    -0.7576481227  9.906732     2
## 5     0.6062989741 10.969379     4
## 6     0.2587546129 10.520422     3
## 7    -0.8263937214  9.486757     2
## 8    -1.1280246314  9.489415     2
## 9     1.0697588190  8.986783     4
## 10   -1.1856984553 10.400869     2
## 11   -0.5999348875 10.864068     2
## 12   -0.1775945316  8.221574     3
## 13   -1.5484685206  7.219385     1
## 14   -0.0511938322  9.734272     3
## 15    0.8109910775 10.047971     4
## 16   -0.4645852303  9.182907     3
## 17   -1.1864011420  9.647541     2
## 18   -0.0267797897 10.522998     3
## 19    0.0753130059 11.154547     3
## 20    0.3797701283 10.222265     3
## 21    0.7235531319 12.010424     4
## 22    0.2679243565 10.436834     3
## 23    0.4029716398 10.641470     3
## 24    0.1877555169  9.302345     3
## 25    0.7255349397 10.113536     4
## 26   -0.9629647541  8.568998     2
## 27    1.0111617313 12.632464     4
## 28   -0.8682190647  9.772230     2
## 29   -0.1345755450  9.073964     3
## 30   -0.9468706133  8.957029     2
## 31    1.4797598023 11.397687     4
## 32   -1.6024310932  8.258300     1
## 33    0.6497167887 10.731236     4
## 34   -0.8731586145  8.985972     2
## 35    0.0003584022 11.806499     3
## 36    0.9899089276 11.746045     4
## 37    0.5227731003 10.860421     4
## 38   -0.1039039722 10.678370     3
## 39   -0.1585050929 10.338449     3
## 40    0.2086258849 10.080996     3
## 41   -0.3718403590 11.661360     3
## 42   -0.5931372625  8.184672     2
## 43   -1.1676011799 10.109213     2
## 44    0.3594345272 10.541586     3
## 45   -0.2278052662  9.330442     3
## 46    1.7032563041 12.251946     5
## 47   -1.2096656894  7.589882     2
## 48    0.1970698622 10.717387     3
## 49   -0.4466300810  9.797201     3
## 50    0.4800976285 12.238169     3
## 51    0.8315188309 10.473037     4
## 52    0.6998902426 10.160632     4
## 53    1.5043893796 10.548415     5
## 54    0.3173491136 11.094594     3
## 55    1.7989862782 12.689971     5
## 56   -1.7979392881 11.458050     1
## 57    0.3726796375 10.730575     3
## 58    0.9764404122 11.369185     4
## 59   -0.7343184864  8.517366     2
## 60   -1.3290748949  9.027193     2
## 61    1.1678776070 11.748668     4
## 62    0.3027817660 10.733790     3
## 63   -1.6934809552  8.559766     1
## 64   -0.3752791009 10.328638     3
## 65    0.9697784407 10.741204     4
## 66   -0.8867436659 10.299953     2
## 67    0.5328531319 11.928326     4
## 68   -0.3823069403 10.235672     3
## 69   -1.2905252197  9.166115     2
## 70    1.3571337948 13.183279     4
## 71    0.8178881977 11.473456     4
## 72    1.1236849311 10.388337     4
## 73   -0.3944424790 10.344187     3
## 74    0.9905130698 13.325607     4
## 75   -0.4781755254  9.037390     3
## 76   -0.7516387285  9.604254     2
## 77   -0.0498317916 11.344096     3
## 78   -0.1812409835  9.938149     3
## 79    1.9088448035 12.947163     5
## 80   -0.5700261931  9.792116     2
## 81    1.1105366189  9.284445     4
## 82    0.2444452749  9.762520     3
## 83    1.7751483369 11.968675     5
## 84   -2.0043199604  9.161998     1
## 85   -0.9368806916  9.417494     2
## 86   -0.1597984655  9.242612     3
## 87    0.8941456085  9.613765     4
## 88   -0.6141696928  9.874595     2
## 89    0.0627637633 10.401162     3
## 90    0.7664733199 12.884864     4
## 91    0.4947733686  9.645774     3
## 92   -1.4434453392  8.715287     2
## 93    0.3401700696 10.511162     3
## 94    1.5922893810 12.224581     5
## 95   -0.1664749649 10.357942     3
## 96    0.0804628723 10.426790     3
## 97   -0.8613404045 10.084488     2
## 98    2.2456050497 13.237084     5
## 99    0.1487179239 11.477803     3
## 100   1.3042204072 10.949361     4
## 101  -1.1998618202  8.708567     2
## 102  -1.1399422664  8.879181     2
## 103  -1.4031194627  9.690069     2
## 104   0.6204596856  8.693966     4
## 105   0.0440640816 10.702581     3
## 106  -1.4693555384  8.357192     2
## 107   0.6787524630 10.785724     4
## 108   0.9924301231 10.888792     4
## 109   0.2290539037 11.183891     3
## 110   0.8161508984 11.310436     4
## 111  -0.5111912046  8.675234     2
## 112   0.7341012050 10.609945     4
## 113  -2.4141599552  7.172502     1
## 114   0.1210174138 10.417450     3
## 115   0.0889690560 11.511491     3
## 116  -0.2150083858  9.371018     3
## 117  -1.1744392381  9.376624     2
## 118  -0.4973894474  9.862105     3
## 119   0.4591024683 11.777554     3
## 120  -0.3864834968 11.305411     3
## 121  -1.5230955361  9.543334     1
## 122   0.3195192491 10.127389     3
## 123   0.4004536605 12.062783     3
## 124   0.6113694590 12.412741     4
## 125   0.7410356199 10.171341     4
## 126  -0.7884838855  8.445467     2
## 127  -1.2081886704 10.029873     2
## 128  -0.4628469234  9.714610     3
## 129   0.6369751191 10.609298     4
## 130  -0.8965722311  9.695477     2
## 131   0.9789476586 11.795501     4
## 132   0.6188652340 12.773365     4
## 133  -1.0860178498  9.540243     2
## 134  -1.4568486752  8.222443     2
## 135   0.1312970325  8.984878     3
## 136  -0.6485784734  7.683987     2
## 137   0.9165833946 11.205844     4
## 138  -0.8776053993  9.535627     2
## 139  -0.0767871962 10.626352     3
## 140  -0.7979059115 10.895054     2
## 141   0.3569527965 10.956407     3
## 142  -1.3710965905  8.251883     2
## 143   0.3488526851 12.318445     3
## 144   0.0588593620 11.178431     3
## 145  -1.0528796279  7.372149     2
## 146  -0.6188184759  9.620385     2
## 147  -0.7242671971  8.177175     2
## 148  -0.9233979795  9.506948     2
## 149  -0.9299056869 10.009121     2
## 150  -1.5519548059  8.017572     1
## 151  -0.0047955042  8.911311     3
## 152   0.7740628024  9.576207     4
## 153  -1.1669098568  8.394689     2
## 154  -0.0592109839 10.701555     3
## 155   0.4235678746 10.851311     3
## 156  -0.1898012868  9.773439     3
## 157   1.0768837382 11.293261     4
## 158  -0.9491459715  9.026253     2
## 159   0.9132674334 10.579925     4
## 160  -0.6986173823  9.058269     2
## 161  -1.2698138561  8.279183     2
## 162  -0.3244762449  8.666322     3
## 163  -0.0608052405 11.828635     3
## 164   0.2439499199 10.907028     3
## 165  -0.9607945371 10.646345     2
## 166   0.6592703999 10.063168     4
## 167  -1.7776227729  7.306679     1
## 168   0.2127066608  8.834884     3
## 169  -0.1278463867 10.360692     3
## 170   0.5242322892 11.096075     4
## 171   0.7452594194 11.215663     4
## 172   0.2200700809 10.731216     3
## 173   2.0936065456 13.122086     5
## 174  -1.2092714197  9.926401     2
## 175   0.7551778953  9.850961     4
## 176  -1.3340311355  9.306229     2
## 177  -0.1318808727  9.836445     3
## 178  -0.5619378776  8.184790     2
## 179  -0.5178855495  8.608903     2
## 180   0.7839894523 10.540248     4
## 181  -0.5484499182  9.538642     2
## 182   0.3423037505 11.053460     3
## 183   1.6144636158 11.590805     5
## 184   0.7316775751 10.770632     4
## 185   0.4136075501 10.774054     3
## 186  -0.7264170714  8.209691     2
## 187  -0.1328661008 10.911593     3
## 188  -0.8839530995 10.319148     2
## 189   1.3841968838 11.969173     4
## 190  -1.0708380915  7.786829     2
## 191   1.3402998566 12.068271     4
## 192   2.1247117189 11.720612     5
## 193  -1.7887556919  9.816565     1
## 194   0.6457575336  9.867651     4
## 195  -0.8898226898  8.881909     2
## 196  -0.6695059155  8.270074     2
## 197  -0.0303457804  9.568256     3
## 198  -0.1609317773  7.139243     3
## 199  -0.4221547496  8.216284     3
## 200  -0.8266188354  8.039719     2
## 201  -0.8752946417 10.280170     2
## 202  -0.4885157788 10.672388     3
## 203   0.7338166939 11.095291     4
## 204   0.5416745194 10.356034     4
## 205  -0.9522156156  9.207603     2
## 206   3.4505543298 14.456968     5
## 207   1.4768919543 10.824040     4
## 208  -0.0957104815 10.222937     3
## 209  -0.5489908764  8.976705     2
## 210  -0.0244069085 10.358379     3
## 211  -0.0719362953  9.631275     3
## 212   0.2480742532 11.100310     3
## 213   0.8770062596  9.125986     4
## 214   0.8011165653  7.937924     4
## 215   0.0142447332 12.992834     3
## 216  -0.7785388234  7.888739     2
## 217  -0.7711849954  9.364362     2
## 218   0.2071745060 11.552187     3
## 219   0.4650742430  9.628505     3
## 220  -0.0179319482 10.534686     3
## 221  -1.5216692172  7.428102     1
## 222  -1.6616954798  9.288627     1
## 223   0.0448650203 10.496532     3
## 224   1.4029424731 11.274338     4
## 225  -1.0505822165  9.098140     2
## 226  -1.9335962878  5.750468     1
## 227   1.7327774785 11.850364     5
## 228   1.0596895438 10.330122     4
## 229   0.0910443024 11.466486     3
## 230   1.8943631239  9.916577     5
## 231  -0.4440109984  9.042845     3
## 232   0.0157430176 10.705066     3
## 233  -0.2326492756  8.787809     3
## 234  -1.2579877500  8.234411     2
## 235  -1.8071446407  7.563293     1
## 236   0.5787816451 10.121361     4
## 237  -0.9291789855  9.162784     2
## 238  -0.2392422910  8.421822     3
## 239   0.1124026487 10.724625     3
## 240  -0.6076968879  9.360358     2
## 241   1.3697852623 10.899246     4
## 242   0.4983217248  9.918402     3
## 243   0.5147326843  9.886513     4
## 244  -0.0686002412 10.259888     3
## 245   0.7735347078 11.330949     4
## 246  -1.1337673723  8.349670     2
## 247  -1.2526021439  8.723978     2
## 248   0.5369509898 11.695137     4
## 249   0.4726586814  9.181365     3
## 250   1.1489259431 10.555352     4
## 251   0.7095396612 10.698458     4
## 252  -1.8093277213  8.356169     1
## 253  -1.2022952102  8.834386     2
## 254   1.4595344612 12.110385     4
## 255  -0.3767386335  8.718165     3
## 256   0.0124512000  8.432268     3
## 257  -1.5662923993  8.975537     1
## 258   0.3869532380 10.558340     3
## 259   0.2197145684 10.706947     3
## 260  -1.6404480028 10.333027     1
## 261  -0.0292205071 11.388360     3
## 262  -0.4562854820  9.635977     3
## 263  -0.0328845611  9.340330     3
## 264  -1.1094630140  7.247907     2
## 265   0.2947012640 10.449745     3
## 266   0.8886420685  9.014520     4
## 267  -0.4156403693  9.457624     3
## 268   1.2858596577 12.536127     4
## 269  -1.2638691218 10.608202     2
## 270  -0.7343467335 10.618873     2
## 271   0.2305591427 11.557027     3
## 272  -1.6414391534  8.647509     1
## 273   0.2469539925  9.169321     3
## 274   1.1023901014  9.747226     4
## 275   0.9402299926  9.911996     4
## 276   1.1614206474 12.180244     4
## 277   0.2918332583 11.006633     3
## 278  -0.1225309761  8.923483     3
## 279  -1.8839391295  8.266478     1
## 280  -1.1479526316  9.436936     2
## 281   1.5119993443 11.440897     5
## 282   0.8050943787 11.721406     4
## 283   1.0476054193 11.982466     4
## 284   1.2169692150 11.216396     4
## 285   1.3960106494 11.453757     4
## 286   0.9323016344 10.937466     4
## 287   0.3027213946  8.768955     3
## 288  -0.3889303943  8.149050     3
## 289  -0.0758557521 10.653890     3
## 290  -2.1160562306  7.263044     1
## 291   1.5424784134 11.440512     5
## 292   0.5349917439 12.146571     4
## 293  -1.3123404462  9.711291     2
## 294  -0.1267611594  8.752949     3
## 295  -1.0127309269  8.813017     2
## 296   0.8077700474 11.865628     4
## 297   0.9885231610 10.991812     4
## 298   0.1180054912 10.302460     3
## 299   1.9270652751 12.641228     5
## 300   1.8154358410 11.512673     5
## 301   0.3736091804  9.967335     3
## 302  -0.4499147265  9.792352     3
## 303   1.6135360177 13.209227     5
## 304   0.9133136654 10.082169     4
## 305   0.7775282765 13.099347     4
## 306   0.6188608084 10.635619     4
## 307  -0.5888964735  8.663425     2
## 308   2.0118473994 10.956341     5
## 309  -0.1283830172  8.606907     3
## 310   0.7133036313  8.504713     4
## 311   0.5410041151  9.038616     4
## 312  -1.2083454399  7.597848     2
## 313   0.7181423894  9.832973     4
## 314   0.2096608045 10.796305     3
## 315   0.1389007244  9.712959     3
## 316   0.2008677509  9.800591     3
## 317  -0.7617633438  8.845212     2
## 318   1.0492697578  9.348192     4
## 319   0.7225948501 11.594531     4
## 320   0.4629090318 10.760830     3
## 321   1.1172834727 11.276452     4
## 322  -1.5645556741  9.503957     1
## 323   0.4915865676 10.941059     3
## 324   0.8673616390 12.616073     4
## 325   0.2183794038  9.874378     3
## 326  -0.0414339593 10.396633     3
## 327   0.2870823748  9.459557     3
## 328  -1.0886784841  7.437870     2
## 329   1.0136859913 10.168055     4
## 330   1.5788445803 10.726281     5
## 331   1.1157177217  9.415533     4
## 332  -0.3137983877 10.137287     3
## 333  -1.0720335855  8.613359     2
## 334   1.3071484098 11.470318     4
## 335   0.3506889455 10.881608     3
## 336   0.2659310799  9.862597     3
## 337  -1.5682828221 10.532101     1
## 338  -0.7058378089  9.805012     2
## 339  -1.5198163205  8.550872     1
## 340   0.5354720192 10.936882     4
## 341  -0.3803019689 10.320703     3
## 342   0.7791009062 11.440956     4
## 343   1.2721478617 10.553076     4
## 344   0.3562402101 10.595669     3
## 345  -0.8188918607 10.848838     2
## 346   1.1029690633 10.647179     4
## 347  -0.2414048377  8.190440     3
## 348  -0.5517999831  7.914958     2
## 349   1.9528222898 13.583840     5
## 350   0.6598503184 10.406116     4
## 351   0.9115135073 10.743225     4
## 352   0.7102904102 12.208995     4
## 353  -0.6266540333 10.256530     2
## 354   1.1623886273 10.372523     4
## 355  -1.0954193735  9.781042     2
## 356   0.0462927807  9.877326     3
## 357  -0.8210314869  6.471694     2
## 358   2.0456004631 11.052142     5
## 359  -0.9487493777  8.225911     2
## 360   0.4578616615 10.573924     3
## 361   0.4835974843  9.010136     3
## 362   1.2131817994 10.054284     4
## 363  -0.4445799600 10.495241     3
## 364  -1.0287044024  9.735656     2
## 365   0.1659565816  9.688595     3
## 366  -0.6240426134  7.812533     2
## 367   0.0844617661 10.589078     3
## 368  -0.3225152288  9.943432     3
## 369   0.6568122936  8.700893     4
## 370   1.1123849683 11.893210     4
## 371   1.4267633715 12.175225     4
## 372  -0.7696044855 10.844148     2
## 373   0.4497082037 12.436402     3
## 374   0.0031956819  9.018606     3
## 375  -1.9231449694  8.725631     1
## 376  -0.8004765439  9.043787     2
## 377   0.8309296238 13.210606     4
## 378  -0.0791986250 10.109840     3
## 379  -1.4090079663  9.071538     2
## 380  -0.7654794240  7.306074     2
## 381   0.6667862771  9.991601     4
## 382   1.3092446166 11.762456     4
## 383  -0.5917045463  9.524199     2
## 384  -1.2000645289  9.262411     2
## 385   0.9662433057 13.043127     4
## 386   1.1606765090 11.319532     4
## 387  -0.1427098055  9.415002     3
## 388   0.4999930844 10.295544     3
## 389  -0.3124392681 10.346690     3
## 390   0.1519908535  9.383270     3
## 391  -0.3735156519  8.847598     3
## 392   1.5806983320 13.845829     5
## 393  -1.1894563200  9.575081     2
## 394   1.3920630799 12.278276     4
## 395   0.2144686918  7.346419     3
## 396   0.2379899158  8.338457     3
## 397   1.8572477878 12.480025     5
## 398   0.0243651613  9.758537     3
## 399  -0.0027410204  7.544167     3
## 400   0.6853684394  8.925951     4
## 401   0.5534344024 12.144832     4
## 402   0.9471802364 11.660906     4
## 403  -0.6617287684  9.818178     2
## 404  -0.3963729884 10.224032     3
## 405  -1.5492312537  8.833892     1
## 406   0.1274051716  9.629558     3
## 407  -0.1103471960 10.438921     3
## 408  -1.4894515320  7.179178     2
## 409  -1.0638334888  8.677849     2
## 410  -0.0589482585 11.864481     3
## 411   1.0364363615 10.930856     4
## 412   0.2965944348 10.028971     3
## 413  -0.1941735498  9.086537     3
## 414   0.6888412312 10.789641     4
## 415  -0.3784466540 10.086145     3
## 416  -0.3709784767  9.553124     3
## 417  -0.5167302890  8.498764     2
## 418  -0.4565283651  9.195513     3
## 419  -0.8605740699 10.121970     2
## 420   1.1714322122 12.607129     4
## 421   0.3757219106 10.193978     3
## 422   0.6223609826 10.644037     4
## 423  -0.7552889795 10.144208     2
## 424  -1.0654260643  5.755813     2
## 425   0.4743583308  9.540053     3
## 426   0.4567843790 10.592541     3
## 427   0.8243152830 10.192894     4
## 428   1.2737855867 11.140045     4
## 429  -0.0699571938 10.118787     3
## 430   0.7178809171 10.268775     4
## 431  -0.8404848256  9.822225     2
## 432   0.0198669054  9.498872     3
## 433   0.7021518393 10.162210     4
## 434  -1.2771303397  7.877644     2
## 435   1.3433430494 11.273848     4
## 436  -1.4451185750 10.163631     2
## 437  -0.9105024291 10.857495     2
## 438  -1.6962067182  8.571574     1
## 439   0.1234804528  8.978312     3
## 440   0.6170957241 10.504681     4
## 441  -1.4046490796  8.956745     2
## 442   0.3493536837  9.426371     3
## 443   1.1067372307 11.395497     4
## 444  -0.3777782522 10.191085     3
## 445  -0.3556540703  8.761077     3
## 446  -1.1095402243  9.727452     2
## 447  -0.8328528186  9.988711     2
## 448   0.0286526568  9.494967     3
## 449  -0.4941106370  8.752134     3
## 450  -1.0786797578  9.356533     2
## 451  -0.7509439172  9.460894     2
## 452  -1.4269924032  9.206910     2
## 453   0.0588713478  9.761639     3
## 454   0.8335866529 10.755667     4
## 455  -0.1528613195  8.762471     3
## 456   0.1538833207  8.323671     3
## 457   0.0825309276  9.675898     3
## 458  -1.3566099652  8.107169     2
## 459   0.1095587614 10.358929     3
## 460  -0.7147004955 10.550717     2
## 461   0.7783890060 10.600001     4
## 462   0.5380757869 10.620022     4
## 463  -0.3622240218 10.456763     3
## 464  -1.4133052801  8.719699     2
## 465   0.4468507018 10.069383     3
## 466   0.1285586940 10.810459     3
## 467   1.3782237798 12.685615     4
## 468   1.0342051388 12.999134     4
## 469   1.2318416850 11.298318     4
## 470   0.5215441386  9.880394     4
## 471  -0.0271253370  8.866560     3
## 472  -0.5338885155  8.805974     2
## 473  -0.6128869651  9.224861     2
## 474  -0.5068530147 10.116612     2
## 475  -1.7635901861  8.618700     1
## 476   0.9884075839 11.152091     4
## 477  -0.6973711320 10.196120     2
## 478   0.5013476289  9.040757     4
## 479  -0.3714057443  9.796535     3
## 480  -0.1267125226 10.500770     3
## 481   1.3342043188 10.945106     4
## 482   0.9914562804 11.195612     4
## 483  -1.1291988687  9.050830     2
## 484  -1.1859604242  8.327387     2
## 485   1.2917541034 10.520074     4
## 486   0.0927988300 10.056976     3
## 487  -1.3295869912 10.177760     2
## 488  -1.9911376778  9.976530     1
## 489  -0.8335888467  9.669598     2
## 490   0.9636413199 11.501148     4
## 491   0.6636750647 12.984207     4
## 492  -0.3005384687  8.035121     3
## 493  -0.0290721149 10.373990     3
## 494  -0.2155979228 10.389864     3
## 495  -1.0934774452  8.306932     2
## 496  -1.7080615608  7.980237     1
## 497   0.5151424998 11.412743     4
## 498   0.5034479015 10.789199     4
## 499   0.1725022593  9.762531     3
## 500  -1.9002258382  9.583834     1
## 501   0.2949800810 11.005057     3
## 502  -0.4421798130  7.141980     3
## 503   1.2531802803 11.264954     4
## 504  -3.6057987598  6.398224     1
## 505   0.8943702603 11.864593     4
## 506  -0.6927316640 10.290920     2
## 507   1.8814282369 11.177017     5
## 508   0.3607170342 11.562774     3
## 509  -0.4941115148 10.225105     3
## 510   1.2287542444 10.497973     4
## 511   1.2700270763 10.795995     4
## 512  -1.8784560591  8.187292     1
## 513  -1.3449023292  9.549873     2
## 514   0.0397982013 10.745498     3
## 515  -1.1318801775  8.229617     2
## 516   1.3685222114 10.743069     4
## 517  -0.8465393552  9.261219     2
## 518  -1.7812340271  8.241375     1
## 519  -0.1595932113  9.695674     3
## 520   0.6076072035 11.088265     4
## 521   0.3403022021 10.021581     3
## 522   0.3024781984 11.407345     3
## 523  -0.7523922918 10.155311     2
## 524  -0.2004439524 10.143395     3
## 525   0.6593161386 12.076192     4
## 526   0.0128020234  9.797703     3
## 527   0.3562829834  8.732319     3
## 528   0.7601780311  9.992703     4
## 529   0.9493047395 11.299913     4
## 530   2.4051577686 11.616765     5
## 531   0.8893298088 13.352474     4
## 532   0.8751991141 12.314168     4
## 533  -1.5930343139  8.592185     1
## 534   0.6971757942 11.797146     4
## 535  -1.5127937618  8.514920     1
## 536  -1.1211803837  9.687068     2
## 537   0.2902103170 11.996179     3
## 538   0.3321306517 11.631313     3
## 539   2.0400679528 13.563659     5
## 540  -0.6308556488  8.783280     2
## 541   0.2456267983  9.353857     3
## 542  -0.9690103898  8.555124     2
## 543  -0.9691345955  9.341014     2
## 544  -0.4071553943 10.782235     3
## 545  -1.1446782933  9.298074     2
## 546  -0.9263464948  6.978967     2
## 547  -0.7858449419  8.280438     2
## 548   0.9883961216 11.400101     4
## 549   1.3437592803 12.632172     4
## 550  -0.2576716582  9.201639     3
## 551  -1.9364802417  8.551316     1
## 552  -2.1372829779  8.437719     1
## 553   2.0140655636 11.028201     5
## 554  -1.1748587086  9.046300     2
## 555   1.4888531018 11.946980     4
## 556  -0.2981150108 11.326955     3
## 557  -1.5324303167  9.875384     1
## 558  -0.2610983567  9.083415     3
## 559   1.1059300260 14.135302     4
## 560  -0.0860970802 10.263147     3
## 561   0.3336081147 11.112230     3
## 562  -0.6941593794  8.444581     2
## 563   0.3414812564 11.061326     3
## 564  -0.0191108272 11.218515     3
## 565  -0.5772969833  8.586803     2
## 566   0.5405550801  9.751310     4
## 567  -0.3615979872  9.263380     3
## 568   1.2909214897 10.220993     4
## 569   1.3497304070 12.411033     4
## 570  -2.0201312389  9.815005     1
## 571   2.4747706754 10.925513     5
## 572  -0.9534369405 10.292192     2
## 573  -0.0676257085 10.433358     3
## 574   0.3669500539 10.674542     3
## 575   1.1571433393  9.362373     4
## 576  -1.4138615565  8.995380     2
## 577  -0.1748702409 12.713031     3
## 578  -0.7004146123  7.392555     2
## 579  -0.6751360660  7.292005     2
## 580   1.1129945682 12.005790     4
## 581   1.0911502389 11.349742     4
## 582   0.1807840308 10.648443     3
## 583   0.9354788760 10.566038     4
## 584   1.0057656581 11.597770     4
## 585   1.4230804544  8.911143     4
## 586   0.3547253223 10.005187     3
## 587  -1.5950732922  9.102645     1
## 588  -1.4516343030  9.479791     2
## 589  -1.2855367707  8.972401     2
## 590   2.3336158017 12.614922     5
## 591  -0.9080335192  9.784790     2
## 592  -0.8478445547  9.672438     2
## 593   1.5951448696 11.305029     5
## 594   1.3187858490 11.317883     4
## 595   0.8146222183 10.861356     4
## 596  -1.5739714358  9.870295     1
## 597   1.1067414099 12.084967     4
## 598  -0.2630500775  9.932701     3
## 599  -0.0071627535  8.544078     3
## 600   1.9624231098 12.232573     5
## 601  -0.6400191947  9.106967     2
## 602   0.2328369265  9.079567     3
## 603   0.2756746266 10.981522     3
## 604   0.6877426519 11.334624     4
## 605  -0.3990592283  9.670224     3
## 606  -0.6682920328 10.141774     2
## 607  -0.0318990630 10.351605     3
## 608   0.0491040042 11.739609     3
## 609   0.6592469553 11.222074     4
## 610   0.2440840552  9.350649     3
## 611   0.4838759293 11.459947     3
## 612   0.1331324629 11.427389     3
## 613  -0.2877836849 10.766935     3
## 614  -1.9869938791  7.785757     1
## 615  -1.5502178532  9.317399     1
## 616  -0.1537025004  9.213967     3
## 617   1.6296985523 11.612600     5
## 618   0.3313102094  9.746689     3
## 619   1.5511131546 10.435992     5
## 620  -0.2324216244  9.445498     3
## 621  -0.0900421420 10.848801     3
## 622  -0.4294323696  8.703265     3
## 623   0.7953270714 11.293135     4
## 624  -2.1246964727  9.160704     1
## 625   0.6855700265 11.055498     4
## 626  -0.9963546899  7.576128     2
## 627   1.1520582491 11.795412     4
## 628  -0.9350701783 10.247425     2
## 629  -1.9125202612  8.376136     1
## 630   1.5117526185 10.855952     5
## 631  -1.5330476740  8.434543     1
## 632   1.6836568687 12.052551     5
## 633  -1.0174797505  8.424718     2
## 634   0.7862629321 12.018623     4
## 635   0.7232043248 10.340278     4
## 636  -0.2482210230  9.803540     3
## 637  -0.1270115560 10.185125     3
## 638   0.2750410319 10.723919     3
## 639  -0.0662921878 10.665958     3
## 640   0.8711772782 11.267985     4
## 641   0.6668768784 12.816312     4
## 642  -0.9233761781  9.841081     2
## 643  -0.7847291250  9.836832     2
## 644   1.2408290453 10.776474     4
## 645   0.4026943174  9.165870     3
## 646   0.6649292786 10.392908     4
## 647  -1.6510953248  7.372393     1
## 648  -0.5386110683  9.234327     2
## 649   0.7574815258 10.718560     4
## 650  -0.5434203571  8.414359     2
## 651  -1.6016998095  6.907769     1
## 652  -0.8365495670  9.085410     2
## 653  -2.4781458768  7.778274     1
## 654   1.9507277829 11.155368     5
## 655  -2.6043328972  8.351463     1
## 656   1.9635951654 13.003644     5
## 657  -1.1144467910 10.013464     2
## 658   0.3241361213 10.266502     3
## 659   1.9194806699 11.257643     5
## 660  -0.0442839407 11.458620     3
## 661   0.0820735073 10.899473     3
## 662   0.3274168601  6.737287     3
## 663   1.7616660539 11.451322     5
## 664  -0.6119742360  8.123900     2
## 665   0.6235815012 10.244297     4
## 666   1.0084325705 11.879917     4
## 667   0.1769123866  9.493117     3
## 668   0.2608266053 10.104390     3
## 669  -1.5935095688  9.353259     1
## 670   0.0998571345  8.571568     3
## 671   0.9319240881 11.376727     4
## 672   0.3955432548  8.191260     3
## 673   0.7683290157  8.572119     4
## 674   0.9674770232 11.676881     4
## 675  -0.9864519710  7.038058     2
## 676  -0.2990897408 10.823791     3
## 677  -0.9473035395  7.732151     2
## 678   0.4739075890 12.380997     3
## 679  -0.6996575220  8.223483     2
## 680  -0.3846513687 10.069305     3
## 681  -0.2359799881 10.612893     3
## 682   0.8081304757  9.142032     4
## 683  -0.0668902459  8.729275     3
## 684  -0.0236406007  9.251152     3
## 685  -0.2383770419 10.491255     3
## 686   1.7380466237 11.819598     5
## 687   1.3217684283 11.240160     4
## 688   1.5004319348 11.336816     5
## 689   0.7498078739  7.902365     4
## 690  -1.2363845743  8.821582     2
## 691  -0.6600385888 10.638304     2
## 692  -2.0274231276  8.512980     1
## 693  -0.7307893737  8.488405     2
## 694   1.9770138324 11.501732     5
## 695   0.3986409071 10.334926     3
## 696   0.6893649998 11.334686     4
## 697   0.8138485170 12.087738     4
## 698   1.6916721274 12.383790     5
## 699  -0.2170085452 10.193840     3
## 700   0.5662366352 10.838702     4
## 701   0.7158273587 11.308288     4
## 702   0.1644078626 10.754159     3
## 703   0.0663822655  9.407065     3
## 704  -1.8948257865  9.061624     1
## 705   0.0865675303  9.691084     3
## 706   1.2546045066 12.494076     4
## 707  -0.9461527071  9.622602     2
## 708   0.6617343194  9.141766     4
## 709  -0.7279490766  9.636932     2
## 710  -1.2226510499  7.031106     2
## 711  -0.4335879331 10.982598     3
## 712   0.9832089000 11.013510     4
## 713   0.7200415772 11.415678     4
## 714  -1.6088387258  9.387717     1
## 715   0.7696432299 12.067862     4
## 716   0.0920166295 11.621230     3
## 717   1.9694976812 11.304820     5
## 718  -0.3820867740  9.171715     3
## 719  -0.1188921035 10.712534     3
## 720   1.2681035644  9.571352     4
## 721   0.2698211576 10.538771     3
## 722  -0.6973778334  9.305506     2
## 723  -0.0279592463 10.146031     3
## 724  -1.4287800118  7.689967     2
## 725  -1.4980848754  8.796758     2
## 726  -0.0928803973 10.202611     3
## 727  -0.7811724109  9.562474     2
## 728   0.1546725466 11.023589     3
## 729   0.8875239434 11.159285     4
## 730  -1.0011297819  9.641884     2
## 731  -0.2850114018  9.002300     3
## 732  -0.8904092647  9.604514     2
## 733   0.5328699448 10.856691     4
## 734  -0.1723194304  9.525258     3
## 735  -0.0444861382 12.661273     3
## 736  -0.6017137992  8.239364     2
## 737   0.3496263044  9.165801     3
## 738   0.3879138843 10.182728     3
## 739  -0.3243006971  9.582287     3
## 740  -1.3734065694  9.553583     2
## 741  -0.4370619313 10.010871     3
## 742  -0.0624903931  8.990044     3
## 743   0.8634486064 11.616827     4
## 744  -0.6456909414  7.578278     2
## 745  -0.3351084587  8.619156     3
## 746  -0.6289198470 10.104928     2
## 747  -0.4375701345  9.239781     3
## 748  -0.1942205744  9.581989     3
## 749   0.0005034279  9.442881     3
## 750  -1.3074043349  9.545993     2
## 751   0.0538282641  9.453457     3
## 752   0.2175097686 11.230081     3
## 753   2.1993039696 11.581395     5
## 754  -1.9369361196  6.973432     1
## 755  -1.1158178258  9.100504     2
## 756   2.6789618528 13.536882     5
## 757  -0.7302025630 10.661391     2
## 758   0.2309443685  9.575802     3
## 759   1.8199145348 11.932829     5
## 760   1.7191996421 11.495228     5
## 761  -0.6211309391  9.083819     2
## 762   0.3375526440  9.368420     3
## 763  -0.5748165936 10.868442     2
## 764   0.0460085597  8.558023     3
## 765  -1.1943138293  7.615289     2
## 766   0.4080858535  9.148079     3
## 767  -0.6428518634 10.572416     2
## 768  -0.7464951739  9.125473     2
## 769   1.0423121752 10.812039     4
## 770   1.8186648752 12.065945     5
## 771   0.2844178721  8.813684     3
## 772   0.1564871852 10.183149     3
## 773   0.5013142695 10.366779     4
## 774  -0.0081163936 10.398623     3
## 775   0.8988899329  9.409873     4
## 776   0.3683553863 11.507335     3
## 777  -0.2251899543 10.887262     3
## 778   1.2672072599 13.271497     4
## 779   0.7368805101 12.228932     4
## 780  -0.7094412036  8.402741     2
## 781   0.7730227444 10.200152     4
## 782   0.0583440787 10.502807     3
## 783  -1.4722120486  7.586903     2
## 784   1.5390005355 11.139079     5
## 785   0.5172028656  9.525989     4
## 786  -0.2265909180 10.973026     3
## 787  -0.7658140208 12.097155     2
## 788   0.7702307468 11.512829     4
## 789  -0.7585511529  8.211325     2
## 790   1.5008844868 13.316382     5
## 791  -0.2475894330 10.886829     3
## 792  -0.3816946843 11.648147     3
## 793   0.8399149413 11.924378     4
## 794   1.0578479208 12.672192     4
## 795   1.2263339892 11.670242     4
## 796  -0.2030343827  9.821717     3
## 797   0.0890903138  9.183759     3
## 798  -2.4286085011  8.089478     1
## 799   0.1309570260 11.520960     3
## 800   0.2780318886 10.317231     3
## 801   0.4597111019  9.793755     3
## 802   0.9535969037 10.720923     4
## 803   0.7294463648 10.887357     4
## 804  -0.5340610007 10.031418     2
## 805   0.7911566077  9.570251     4
## 806  -0.5686177370  8.563678     2
## 807   0.1975190251 11.319059     3
## 808  -1.7302583989  7.207283     1
## 809   0.0652797575 10.116688     3
## 810  -0.0969059823 10.189361     3
## 811   0.4484904228  9.413223     3
## 812  -0.0449832925 11.887861     3
## 813   0.2607654309 12.119407     3
## 814  -3.0730841728  6.670495     1
## 815  -0.7948676503  8.626490     2
## 816   1.5903957228 11.385616     5
## 817   0.7126439684 10.953969     4
## 818  -0.8843936897 10.998414     2
## 819  -0.9036983258 10.213152     2
## 820   0.7251764220  9.305681     4
## 821  -0.5523592698  9.601334     2
## 822  -0.8110120875  9.598621     2
## 823   1.5215201906 12.391228     5
## 824   1.1769736404 11.480579     4
## 825   0.4910069460 12.651271     3
## 826  -1.0863450964  8.697391     2
## 827  -0.5419570742  9.175844     2
## 828   0.5184137084 10.734671     4
## 829   0.7979183955 12.277606     4
## 830  -0.9353780764  9.124744     2
## 831   0.4434187173 10.228008     3
## 832   0.3389206042 10.714174     3
## 833  -0.3730397224  8.307192     3
## 834  -0.9293916078  7.609687     2
## 835  -1.2002420781  9.504851     2
## 836  -0.0971855077  8.247589     3
## 837  -0.0226736770 10.933903     3
## 838   0.9366332762 13.293334     4
## 839  -0.2860383502 11.112027     3
## 840  -0.5922795305  8.374102     2
## 841  -1.3203987221  8.978234     2
## 842  -0.2356130276  9.432317     3
## 843   1.2272849187 11.402120     4
## 844  -1.4804399892  9.524108     2
## 845   0.4132384365 11.699917     3
## 846   0.0804281802 10.535208     3
## 847   0.9576080865 11.056785     4
## 848  -1.1218385847  9.278948     2
## 849  -0.9238769294  9.987777     2
## 850   1.7528192628 11.867039     5
## 851   0.4856109060 12.575886     3
## 852   0.4653749096  9.374333     3
## 853  -1.0190969390  8.847451     2
## 854   0.8843692991 11.740844     4
## 855  -0.1907748096 10.718512     3
## 856  -1.6551964964  8.341495     1
## 857   2.1827486340 12.657589     5
## 858   0.6167465251 11.140801     4
## 859  -0.3538802188  7.892808     3
## 860   0.0278627842  9.192712     3
## 861   1.0935679721  9.911951     4
## 862  -0.5338313172  9.334365     2
## 863  -0.5734343985  9.186605     2
## 864   0.1073479684 11.476404     3
## 865   0.0512896566  8.600016     3
## 866   1.2939548357 11.289234     4
## 867  -0.5251781153 10.196331     2
## 868  -0.3085757528  9.392795     3
## 869   1.1124093557 12.139539     4
## 870  -0.4358713901  8.877659     3
## 871  -1.3899191530  8.758636     2
## 872  -2.0929478513  7.905875     1
## 873  -1.0728554019  9.690462     2
## 874   0.4429075068 12.334329     3
## 875   0.4700123583 11.445272     3
## 876   0.9072940983 11.338044     4
## 877  -0.1487204397 10.722505     3
## 878   0.2175017043 11.566305     3
## 879  -2.8326845145  6.263881     1
## 880  -1.5187876001 10.052121     1
## 881  -1.0674981910  9.974528     2
## 882   0.6420213064 11.155789     4
## 883   0.0059219842 11.262125     3
## 884  -0.3981377630 10.010423     3
## 885  -2.2490018745  6.336547     1
## 886  -1.5740070771  7.359998     1
## 887  -0.5053114226  7.613341     2
## 888   2.3163854690 13.602320     5
## 889  -0.7272683127 10.033385     2
## 890  -0.4534127570  8.288065     3
## 891  -0.3566301710  9.315304     3
## 892  -0.9048522795  8.697939     2
## 893   0.9797482586 10.711138     4
## 894  -1.3426653321  8.789991     2
## 895  -0.2848383998  8.040376     3
## 896   0.7488894912 11.166618     4
## 897   1.5864229068 13.715433     5
## 898  -0.3115682294  8.938970     3
## 899  -2.4069338869  6.579395     1
## 900   1.1449731479 11.177739     4
## 901  -0.1066737522  8.694277     3
## 902  -0.2672256197  9.616830     3
## 903  -1.2420401988  8.310180     2
## 904   0.2729555739 10.178241     3
## 905  -1.8075916825  7.872542     1
## 906  -2.3136579288  7.762600     1
## 907   0.1946846120 12.168495     3
## 908   0.4632220872  9.720875     3
## 909   0.9189956835 11.456923     4
## 910  -0.0594734757  8.173585     3
## 911   2.2762080045 12.750845     5
## 912   0.4851353204  9.482377     3
## 913  -1.2189493760  8.758867     2
## 914   0.6901166198 10.973227     4
## 915   0.8964411819 10.933977     4
## 916   0.9991039336 10.573750     4
## 917  -1.2972965758  9.031562     2
## 918  -1.5878680619  9.882998     1
## 919   0.9232200208 11.642751     4
## 920   0.6800799962 12.134848     4
## 921  -0.5000272304  9.847881     2
## 922   0.3098560591 10.222111     3
## 923   0.2148344807 12.128893     3
## 924  -1.7639959502  9.846740     1
## 925   1.1822631949 11.833835     4
## 926   2.4169900798 12.043300     5
## 927  -0.0371018002 11.988893     3
## 928  -1.8068199168  7.315829     1
## 929   1.6073776741 10.302178     5
## 930   1.0020075351  9.658181     4
## 931  -0.8304909684  9.061051     2
## 932   0.3173857188 10.139343     3
## 933   0.1436416326 10.076311     3
## 934  -0.4444227515  9.287984     3
## 935  -1.0198865572  8.786067     2
## 936  -0.4272750076  8.032722     3
## 937  -0.2335656067 10.072321     3
## 938   0.9575362944 10.036442     4
## 939   1.1088796550 12.033965     4
## 940   0.0080398780 11.970290     3
## 941   0.7690191552 10.183013     4
## 942   0.9674820687  9.975655     4
## 943   2.0703971243 13.655968     5
## 944   0.1223576871  9.223828     3
## 945  -1.4772460981  7.767480     2
## 946  -0.4345212559 10.659254     3
## 947   0.8701982755 11.355401     4
## 948   1.3201411035 12.037628     4
## 949   0.4732068250 11.216680     3
## 950  -1.0418752752  9.247786     2
## 951  -1.0060439082  8.757841     2
## 952  -0.9380208327  9.291676     2
## 953   0.8428570375 12.350256     4
## 954  -0.5340682227 10.572018     2
## 955   0.9220287611 10.879255     4
## 956   0.6926531112 10.607289     4
## 957   0.9987463801 10.470156     4
## 958  -0.3153971589 10.735282     3
## 959   0.5588633543 11.283603     4
## 960  -2.3359470312  7.033358     1
## 961   2.1206968137 13.418886     5
## 962  -1.0180380938  8.279778     2
## 963  -0.4873120882 10.874542     3
## 964   0.4026253424 10.215783     3
## 965   0.3697566534 10.170295     3
## 966  -0.4130020986  7.957464     3
## 967  -1.2334777059  8.919091     2
## 968   1.0747269891  9.417588     4
## 969   0.3511997221 11.639175     3
## 970  -0.4697713909  8.171839     3
## 971  -0.1903520784  8.392182     3
## 972   0.1371140124 11.052531     3
## 973  -0.0972997897 10.160785     3
## 974   0.3166041250 11.734653     3
## 975   0.1441846059 10.998028     3
## 976  -0.4902422010 10.367948     3
## 977  -0.9347420640 10.110513     2
## 978   0.0613046024 10.230229     3
## 979   1.5725182969 12.821232     5
## 980  -2.1036492346  8.463259     1
## 981  -0.0022533393  8.277600     3
## 982   0.1964389701  7.870553     3
## 983   0.0641095844  8.594514     3
## 984  -1.0686637759  9.288592     2
## 985  -0.8066281307  9.117847     2
## 986   1.4773539671 12.419560     4
## 987   3.0990505724 13.543694     5
## 988   0.2036366174  8.792710     3
## 989  -1.6938666422  8.121904     1
## 990  -0.2505213062 10.074929     3
## 991  -0.5105983464  9.402495     2
## 992  -1.1741600360  8.556287     2
## 993  -0.0722632313  8.108680     3
## 994  -1.0132207412  8.287337     2
## 995  -0.2748489329 11.355246     3
## 996   0.2880494761  8.806932     3
## 997   0.0702764236 10.038909     3
## 998  -0.6553295735  7.604714     2
## 999   0.0321416120  9.205280     3
## 1000  0.1064956762 11.020471     3
# 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)