transform <- read.csv("CompleteGeneticData(1).csv", 1)
head(transform)
## year colony Individual free_slave Habitat Transect transect.x transect.y
## 1 2012 A2 1 0 MI MI.1 13520 570
## 2 2012 A2 2 0 MI MI.1 13520 570
## 3 2012 A2 3 0 MI MI.1 13520 570
## 4 2012 A2 4 0 MI MI.1 13520 570
## 5 2012 A2 5 0 MI MI.1 13520 570
## 6 2012 B10 1 0 MI MI.1 5952 316
## GT218_1 GT218_2 T223_1 T223_2 L18_1 L18_2 GT1_1 GT1_2 L5_1 L5_2 Myrt3_1
## 1 114 116 102 116 135 149 208 208 124 126 191
## 2 114 114 102 116 135 149 208 208 124 126 193
## 3 114 116 102 116 135 149 208 208 124 126 197
## 4 112 112 102 116 135 151 208 208 124 126 197
## 5 112 112 102 116 135 149 208 208 124 126 197
## 6 112 112 116 116 145 147 198 214 126 126 193
## Myrt3_2 UniqueInd UniqueColony Plot
## 1 197 MI.1.A2.1 MI.A2 MI.A
## 2 201 MI.1.A2.2 MI.A2 MI.A
## 3 197 MI.1.A2.3 MI.A2 MI.A
## 4 197 MI.1.A2.4 MI.A2 MI.A
## 5 197 MI.1.A2.5 MI.A2 MI.A
## 6 197 MI.1.B10.1 MI.B10 MI.B
transform.sub <- transform[transform$Plot == "WV.R",]
plot(transform.sub$transect.x, transform.sub$transect.y)
GT218_1 <- transform.sub$GT218_1
hist(GT218_1)
