Tasacion.Rcheck/00_pkg_src/Tasacion/R/SeleccionarOtrasVariables.R

In FMunyoz/Stima: Genera una tasacion

SeleccionarOtrasVariables <- function(Muestra){
  
  #Si es de tipologia 2 se usa el numero de Dormitorios
  Datos <- as.matrix(subset(Muestra, select = (c("NumeroDeAscensores", 
                                                 "ExteriorInterior", 
                                                 "NumeroDePlanta", 
                                                 "DatosDeLaPlanta"))))
  #Actualiza Datos Auxiliares
  Datos[is.na(Datos[,"NumeroDeAscensores"]),"NumeroDeAscensores"] <- 1
  Datos[is.na(Datos[,"ExteriorInterior"]),"ExteriorInterior"] <- 1
  Datos[is.na(Datos[,"DatosDeLaPlanta"]),"DatosDeLaPlanta"] <- 7
  
  Datos
  
}