Estoy tratando de obtener el modelo final utilizando la eliminación hacia atrás con R, pero recibí el siguiente mensaje de error cuando ejecuté el código. ¿Podría alguien ayudarme por favor esto?

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?