## ----lm-constructor------------------------------------------------------
x <- rnorm(1000)
df <- data.frame(x=x, y=x + rnorm(length(x), sd=.5))
fit <- lm(y ~ x, df)
fit


## ----lm-properties-------------------------------------------------------
is.list(fit)
names(fit)
str(head(fit, 3))


## ------------------------------------------------------------------------
print


## ------------------------------------------------------------------------
head(print.lm) 


## ----setClass------------------------------------------------------------
.Empl <- setClass("Empl",
    representation(person="character", job="character"))

setMethod(show, "Empl", function(object) {
    len <- length(object@person)
    cat("class: ", class(object), " (n =", len, ")\n", sep="")
    cat("person:", head(object@person), if (len > 6) "...", "\n")
    cat("job:", head(object@job), if (len > 6) "...", "\n")
})

.Empl()
.Empl(person=c("Xavier", "Melanie", "Octavio"),
      job=c("Leader", "Innovator", "Doer"))
.Empl(person=LETTERS, job=letters)


## ----FastqStreamer, eval=FALSE-------------------------------------------
## library(ShortRead)
## example(FastqStreamer)