regr-description.R
In regr: Building Regression Models

## ----preliminary, echo=F-------------------------------------------------
## library(plgraphics, lib.loc="/u/stahel/R/regdevelop/pkg/plgraphics.Rcheck")
library(regr) ##, lib.loc="/u/stahel/R/regdevelop/pkg/regr.Rcheck")
plmframes()
options(project="regr documentation")

options(warn=1)

## ----regrout-------------------------------------------------------------
data(d.blast, package="plgraphics")
d.blast$location <- factor(d.blast$location)
regroptions("termcolumns")
r.blast <- regr(logst(tremor) ~ location + log10(distance) + log10(charge), 
    data = d.blast)
r.blast


## ----termtable-----------------------------------------------------------
names(r.blast$termtable)
regroptions(termcolumns=c("coef", "stcoef", "df", "signif", "p.symb"))

r.blast
regroptions(default="all")  ## reset the options

## ----add1----------------------------------------------------------------
add1(r.blast)

r.step <- step.regr(r.blast, k=4)
formula(r.step)

## ----modeltable----------------------------------------------------------
r.blast2 <- 
  regr(logst(tremor) ~ ( location + log10(distance) + log10(charge) )^2,
       data=d.blast)
modelTable(c("r.blast", "r.blast2"))             

## ----resanal, fig.height=8, fig.width=10---------------------------------
data(d.blast, package="plgraphics")
rr <- regr(log10(tremor)~location+log10(distance)+log10(charge),
           data=d.blast)
plot(rr)