Reef structure survey
From BioDivBorneo2010
Contents |
Results
 |
Legend:
- Reef position
- b = back reef
- m = mid reef
- s = crest
- Coral type:
- Br = Branching
- En = Encrusting
- Fo = Foliate
- Ma = Massive
- Mu = Mushroom
- Ro Rock
- Ru = Rubble
- Sa = Sand
- Su = Submassive
 Coral cover vs. position on reef |
R analysis
struct <- read.table("struct", sep="|")
s2 <- data.frame(c(rep("back",36),rep("mid",36),rep("crest",36)),struct$V1, struct$V2, c(struct$V3,struct$V4, struct$V5))
colnames(s2) <- c("pos","grp","type","cov")
par(cex=0.7)
s2$pos2 <- c(rep("back",36),rep("mid",36),rep("sea",36))
jpeg(width=1200,height=400)
boxplot(s2$cov ~ s2$pos2+s2$type, names=c("bBr","mBr","sBr","bEn","mEn","sEn","bFo","mFo","sFo","bMa","mMa","sMa","bMu","mMu","sMu","bRo","mRo","sRo","bRu","mRu","sRu","bSa","mSa","sSa","bSu","mSu","sSu"), ylab="segment length (m)", xlab="class (posType)")
dev.off()
s2$cornot[s2$type == "Massive"] <- "coral"
s2$cornot[s2$type == "Submassive"] <- "coral"
s2$cornot[s2$type == "Encrusting"] <- "coral"
s2$cornot[s2$type == "Branching"] <- "coral"
s2$cornot[s2$type == "Mushroom"] <- "coral"
s2$cornot[s2$type == "Foliate"] <- "coral"
s2$cornot[is.na(s2$cornot)] <- "not"
s3 <- aggregate(s2$cov, list(s2$pos2,s2$grp,s2$cornot), sum)
colnames(s3) <- c("pos", "grp", "cor", "cov")
s4 <- s3[s3$cor=="coral",]
summary(glm(s4$cov/10 ~ as.factor(s4$pos), family=binomial))
jpeg()
plot(s4$cov/10 ~ as.factor(s4$pos), xlab="Position", ylab="Coral cover proportion")
dev.off()
Data
Please include your data here. Please just add all the measurements of each class to give a summary in meters (should add to 10) for Reef flat, Back reef, Reef crest. E.g.:
Massive|2.4|0|3.1
Group 1 (persons 1-5)
- Massive|.2|0|2.7
- Submassive|.5|0|0
- Encrusting|0|0|0
- Branching|0|0|0
- Mushroom|0|0|.3
- Foliate|0|0|0
- Rubble|2.5|0|6.8
- Sand|6.8|1.7|.2
- Rock|0|8.3|0
Group 2 (persons 6-10)
- Massive|.51|3.01|.30
- Submassive|1.07|0|.10
- Encrusting|.25|1.06|0
- Branching|0|.48|.20
- Mushroom|.60|.30|0
- Foliate|.87|.41|0
- Rubble|5.76|3.45|2.20
- Sand|.50|.10|7.20
- Rock|.30|0|0
Group 3 (persons 11-15)
- Massive|0.45|0|0.65
- Submassive|0|0|0
- Encrusting|1.8|0|1.85
- Branching|1.20|0.2|1.15
- Mushroom|0|0|0.55
- Foliate|0|0|0
- Rubble|5.0|0|4.0
- Sand|1.55|9.4|0.8
- Rock|0|0.4|0
Group 4 (persons 16-20)
- Massive|0|0.45|1.5
- Submassive|0|0.85|0.7
- Encrusting|0|0|0.7
- Branching|1|0.05|1.4
- Mushroom|0|0|1.6
- Foliate|0|0.2|0
- Rubble|1.1|4.45|1.7
- Sand|7.9|3.6|0.1
- Rock|0|0.4|2.3
