# NOT RUN {
# Load and split dataset into 2 sections
data(teal)
teal1 <- teal[, c(1, 3:5)]
teal2 <- teal[, c(1, 2, 6:12)]
teal.mer <- merge(teal1, teal2, by = "wl")
head(teal.mer)
par(mfrow = c(1, 2))
plot(teal.mer)
plot(teal)
# }
Run the code above in your browser using DataLab