## 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)
#
# ## End(Not run)
Run the code above in your browser using DataLab