path <- system.file("extdata","primate-example.data.csv", package="mmodely")
data <- read.csv(path, row.names=1)
model.fit <- lm('OC ~ mass.Kg + group.size + arboreal + leap.pct', data=data)
fit.1ln.rprt(fit=model.fit, decimal.places=3, name.char.len=6, print.inline=TRUE, rtrn.line=FALSE)
Run the code above in your browser using DataLab