Вы можете использовать relevel
, чтобы установить новый опорный уровень для подгонки модели.
# create some data
set.seed(1)
x <- factor(sample(letters[1:3], size=20, replace=T))
y <- rnorm(20)
my.df <- data.frame(x=x, y=y)
# model fitted with "a" as the reference level
summary(lm(y~x, data=my.df))
# set "b" as the reference level
my.df$x <- relevel(my.df$x, ref='b')
summary(lm(y~x, data=my.df))