path <- system.file("extdata","primate-example.data.csv", package="mmodely")
data <- read.csv(path, row.names=1)
plot.xy.ab.p(x=data, x.var='OC', y.var='group.size',
fit.line=TRUE, p.value=TRUE, slope=TRUE, p.col='red', plot.labels=TRUE, verbose=TRUE)
Run the code above in your browser using DataLab