Я использую фрейм данных со многимиNA ценности. Несмотря на то, что я могу создать линейную модель, я впоследствии не могу выровнять подогнанные значения модели с исходными данными из-за пропущенных значений и отсутствия столбца индикатора.

Вот воспроизводимый пример:

library(MASS)
dat <- Aids2
# Add NA's 
dat[floor(runif(100, min = 1, max = nrow(dat))),3] <- NA
# Create a model
model <- lm(death ~ diag + age, data = dat)
# Different Values
length(fitted.values(model))
# 2745
nrow(dat)
# 2843