Weiping MEI https://PhDMeiwp.github.io
Graduate School of Fisheries and Environmental Sciences, Nagasaki University
Get the development version from github:
install.packages("devtools")
devtools::install_github("PhDMeiwp/basicANCOVA@master", force = TRUE)
ANCOVAplot(x, y, groups, data,
col = 1:length(levels(groups)),
pch = 1:length(levels(groups)),
lty = 1:length(levels(groups)),
legendPos = "topleft",
xlab = NULL, ylab = NULL,
Fig.slope = 1,
...)
library(basicANCOVA)
data("isotope",package = "basicANCOVA")
#(Not run) Same slope (ANCOVA results, lm(y ~ x + groups)).
ANCOVAplot(x = isotope$d13C, y = isotope$d15N, groups = isotope$area,
data = isotope, Fig.slope = 1)
#(Not run) Different slopes (lm results, lm( y ~ x * groups)).
ANCOVAplot(x = isotope$d13C, y = isotope$d15N, groups = isotope$area,
data = isotope, Fig.slope = 0)
# Contributors
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.