ION606/Data-Analytics
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Activity

added lab 3

Browse Source
This commit is contained in:
ION606
2025-10-10 21:57:41 -04:00
parent 6dbe45c975
commit df21d7f281
7 changed files with 4472 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lab 3/Abalone_dataset_prep.R
+16
View File
@@ -0,0 +1,16 @@
####################################
##### Abalone Data Preparation #####
####################################
# read dataset
abalone.data <- read.csv("Courses/Data Analytics/Fall25/labs/lab 3/abalone_dataset.csv")
## add new column age.group with 3 values based on the number of rings
abalone.data$age.group <- cut(abalone.data$rings, br=c(0,8,11,35), labels = c("young", 'adult', 'old'))
## alternative way of setting age.group
abalone.data$age.group[abalone.data$rings<=8] <- "young"
abalone.data$age.group[abalone.data$rings>8 & abalone.data$rings<=11] <- "adult"
abalone.data$age.group[abalone.data$rings>11 & abalone.data$rings<=35] <- "old"