Assignment 1

Import Data

#Eww
set.seed(1000)

data <- read.csv("C:/Users/akinp/Downloads/Activity One.csv", header = TRUE, sep = ",", stringsAsFactors = FALSE)

Attach the data

attach(data)

Print the first few rows of the data

head(data)

##     X        x1       x2            y
## 1 981 100.65201 47.86350 1.535044e-01
## 2 982 100.19380 46.79873 3.464042e-02
## 3 983  98.52209 55.28043 3.373593e+09
## 4 984  99.58203 48.96729 3.456626e+01
## 5 985  99.60661 46.37189 2.747903e-02
## 6 986  98.75485 44.62799 8.696795e-04

Report the column names of the data

column_names <- colnames(data)

Display the column names

print(column_names)

## [1] "X"  "x1" "x2" "y"