Eu estou tentando obter o modelo final usando a eliminação para trás com R, mas eu tenho a seguinte mensagem de erro quando eu corri o código. Alguém poderia me ajudar por favor?

base<-lm(Eeff~NDF,data=phuong)
fullmodel<-lm(Eeff~NDF+ADF+CP+NEL+DMI+FCM,data=phuong)
 step(full, direction = "backward", trace=FALSE )

> Error in step(full, direction = "backward", trace = FALSE) : 
number of rows in use has changed: remove missing values?