data(VENDOR)
VENDOR <- stack(VENDOR)
VENDOR$ind <- as.factor(VENDOR$ind)
VENDOR$values <- sqrt(VENDOR$values)
confint(lm(values ~ -1 + ind,
data=VENDOR))
Run the code above in your browser using DataLab