Assignment 1

DDT <- read.csv('DDT_assign1.csv' , header = TRUE)

DDT_CAT <- DDT[DDT$SPECIES == 'CCATFISH',]

DDT_TRM <- DDT[DDT$RIVER == 'TRM',]

DDT_CAT_TRM <- DDT[DDT$RIVER == 'TRM' & DDT$SPECIES == 'CCATFISH',]
write.csv(DDT_CAT, file = "DDT_CAT.csv")
write.csv(DDT_TRM, file = "DDT_TRM.csv")
write.csv(DDT_CAT_TRM, file = "DDT_CAT_TRM.csv")


boxplot(LENGTH ~ SPECIES, data = DDT_CAT_TRM, main = "My Boxplot", ylab = "Length", xlab = "Species", col = "blue", bg = "red", pch = 21)

head(DDT_CAT)

##   RIVER MILE  SPECIES LENGTH WEIGHT DDT
## 1   FCM    5 CCATFISH   42.5    732  10
## 2   FCM    5 CCATFISH   44.0    795  16
## 3   FCM    5 CCATFISH   41.5    547  23
## 4   FCM    5 CCATFISH   39.0    465  21
## 5   FCM    5 CCATFISH   50.5   1252  50
## 6   FCM    5 CCATFISH   52.0   1255 150

head(DDT_TRM)

##    RIVER MILE  SPECIES LENGTH WEIGHT  DDT
## 19   TRM  275 CCATFISH     48    986  8.4
## 20   TRM  275 CCATFISH     45   1023 15.0
## 21   TRM  275 CCATFISH     49   1266 25.0
## 22   TRM  275 CCATFISH     50   1086  5.6
## 23   TRM  275 CCATFISH     46   1044  4.6
## 24   TRM  275 CCATFISH     52   1770  8.2

head(DDT_CAT_TRM)

##    RIVER MILE  SPECIES LENGTH WEIGHT  DDT
## 19   TRM  275 CCATFISH     48    986  8.4
## 20   TRM  275 CCATFISH     45   1023 15.0
## 21   TRM  275 CCATFISH     49   1266 25.0
## 22   TRM  275 CCATFISH     50   1086  5.6
## 23   TRM  275 CCATFISH     46   1044  4.6
## 24   TRM  275 CCATFISH     52   1770  8.2

dir(pattern = ".csv")

## [1] "DDT_assign1.csv" "DDT_CAT_TRM.csv" "DDT_CAT.csv"     "DDT_TRM.csv"