# Loading some data
data(montreal)
detail(montreal)
data(galton)
(model <- lm(child ~ parent, data = galton) )
beta.coef(model)
anonymize(montreal)
outliers(galton)
rprob(nerlove63)
rstack(rprob(nerlove63))
lsq(4, 3, seed = 123)
get.ci(sample = 800, n = 1, mu = .29)
sids <- maptools::readShapePoly(system.file("shapes/sids.shp",
package="maptools") )
get.poly(sids)
plot(poly <- get.poly(sids))Run the code above in your browser using DataLab