# Categorising data using filters

# Create initial dataset

size<-c(12,31,42,22,26,52,74,49,67,20,24,55,16,30,39,51,72,29)

# Make everything < 20 "Small"

size[size<20]<-"Small"

size

# Make everything > 20 "Average"

size[size>=20 & size<40]<-"Average"

size

# Make everything > 40 "Large"

size[size>=40 & size<60]<-"Large"

size

# Make everything >= 60 "Huge"

size[size>=60 & size<80]<-"Huge"

# Display new version

size



