[R-es] seleccionar y eliminar con drop1

[raoman ramirez]

estoy haciendo una funcion para el metodo de seleccion hacia atras o eliminacion hacia atrasdonde recibo un archivo .csv mi duda es como usar el drop1 para elegir que modelo es el siguientese que esta algo enredado, pero espero se medio entiendan y puedan ayudarme un poco
info<-read.csv("nombreArchivo.csv", header=T)numObservaciones=length(info[,1])numVariables=length(info[1,])k=numVariables-1f=qf(.95,1,numObservaciones-numVariables)modelo=lm(y~.,data=info)fs=c()while(k>0){		drop1(modelo,test="F")	if(f<f1)		break	k=k-1	}

} 		 	   		  
	[[alternative HTML version deleted]]