tests/lsmbasis-test.R

# tests for recover.data and lsm.basis

require("lsmeans")

fiber.lm <- lm(strength ~ machine + diameter, data = fiber)

rd <- recover.data(fiber.lm)

lsm.basis(fiber.lm, trms = attr(rd, "terms"), 
          xlev = levels(rd$machine), grid = head(rd))

Try the lsmeans package in your browser

Any scripts or data that you put into this service are public.

lsmeans documentation built on May 2, 2019, 2:02 p.m.