* Cálculo de Código de Area No Residencial de Mayor Superficie: COAMS. COMPUTE COAMS = 0. COMPUTE MAXARE = MAX(are11,are22, are33) . IF (maxare = are11) COAMS = coa11 . IF (maxare = are22) COAMS = coa22. IF (maxare = are33) COAMS = coa33. * Cálculo de area residencial Expandida: CARES. COMPUTE CARES = ARES * NUMUNI. * Cálculo de area no residencial Expandida sin garage: CARNRESC. COMPUTE CARNRES = 0. IF (coa11 ~= 0) CARNRES = (are11 + are22 + are33) * numuni . COMPUTE CARNRES1 = 0. COMPUTE CARNRES2 = 0. COMPUTE CARNRES3 = 0. IF (coa11 ~= 0 & coa11 ~= 193) CARNRES1 = (are11 * numuni) . IF (coa22 ~= 0 & coa22 ~= 193) CARNRES2 = (are22 * numuni) . IF (coa33 ~= 0 & coa33 ~= 193) CARNRES3 = (are33 * numuni) . COMPUTE CARNRES = (CARNRES1 + CARNRES2 + CARNRES3). * Cálculo de Area de Garage Expandida. COMPUTE CARDGAR = 0. COMPUTE CARDGAR1 = 0. COMPUTE CARDGAR2 = 0. COMPUTE CARDGAR3 = 0. IF (coa11 = 193) CARDGAR1 = (are11 * numuni) . IF (coa22 = 193) CARDGAR2 = (are22 * numuni) . IF (coa33 = 193) CARDGAR3 = (are33 * numuni) . COMPUTE CARDGAR = (CARDGAR1 + CARDGAR2 + CARDGAR3). * Cálculo de Area Espacios Verdes Expandida. COMPUTE CAESV = 0. COMPUTE CAESV = (aesv * numuni). * Cálculo de Superficie del Terreno Expandida. COMPUTE CSUTE = 0. COMPUTE CSUTE = (sute * numuni). * Recodificación de Tipo de Obra a 3 categorías: CTIPOBR a partir de TIPOBR. COMPUTE CTIPOBR = 0. IF (tipobr = 100) CTIPOBR = 1. IF (tipobr = 101 | tipobr = 103) CTIPOBR = 2 . IF (tipobr = 102) CTIPOBR = 3. * Cálculo de Total Area a Construir Expandida: CARCO. COMPUTE CARCO = 0. COMPUTE CARCO = CARES + CARNRES + CARDGAR. * Cálculo de Número de Permisos Expandido: CPERMC. COMPUTE CPERM = 1. IF (numuni ~= 0) CPERM = numuni. * Cálculo del Código de Financiamiento de Mayor Valor COVET5. COMPUTE COVET5 = 0. COMPUTE MAXVAE = MAX(vaede,vae22,vae33,vae44) . IF (MAXVAE = vaede) COVET5 = cove. IF (MAXVAE = vae22) COVET5 = cov2. IF (MAXVAE = vae33) COVET5 = cov3. IF (MAXVAE = vae44) COVET5 = cov4. * Caculo e Imputación de Número de Pisos NUPIRES. COMPUTE NUPIA = nupi. COMPUTE NUPX = nupi. IF (cres = 170) NUPX = 3. IF (cres = 165) NUPX = 2. IF (cres = 160) NUPX = 1. IF (nupi = 0) NUPIA = NUPX. COMPUTE NUPIB = tonp. COMPUTE NUPY = tonp. IF (tonp = 0) NUPY = 1. IF (nupi ~= 0) NUPIB = NUPY. COMPUTE NUPIRES = NUPIB. IF (cres ~= 0 & (coams = 0 | coams = 193 | coams = 195 )) NUPIRES = NUPIA. IF (NUPIRES = 0) NUPIRES = 1. * Cálculo e Imputación de Número de Viviendas NUVICAL. COMPUTE NUVIA = nuvi. COMPUTE NUVX = nuvi. IF (cres = 170) NUVX = 3. IF (cres = 165) NUVX = 2. IF (cres = 160) NUVX = 1. IF (nuvi = 0) NUVIA = NUVX. COMPUTE NUVICAL = NUVIA. IF (cres = 160 & (coams = 0 | coams = 193 | coams = 195 )) NUVICAL = 1. IF (cres = 165 & (coams = 0 | coams = 193 | coams = 195 )) NUVICAL = 2. IF ((cres = 170 & (coams = 0 | coams = 193 | coams = 195 )) & nuvi < 3) NUVICAL = 3. IF (coams ~= 0 & cres = 0) NUVICAL = 0. * Cálculo de Imputación de Número de cuartos NUCUCAL. COMPUTE NUCUB = 1. COMPUTE NUCY = 1. IF (nuvi > 0) NUCY = RND(nucu / nuvi). IF ((nuvi > 0) & (nucu < nuvi)) NUCY = 1. COMPUTE NUCUB = NUCY. COMPUTE NUCUA = 1. COMPUTE NUCX = 1. IF (cres = 170) NUCX = 6. IF (cres = 165) NUCX = 2. IF (cres = 160) NUCX = 1. IF (nuvi <= 0) NUCUA = NUCX. COMPUTE NUCUCAL = NUCUB. IF (nuvi <=0) NUCUCAL = NUCUA. * Cálculo e Imputación de Número de dormitorios NUDOCAL. COMPUTE NUDOB = 1. COMPUTE NUDY = 1. IF (nuvi > 0) NUDY = RND(nudo / nuvi). IF ((nuvi > 0) & (nudo < nuvi)) NUDY = 1. COMPUTE NUDOB = NUDY. COMPUTE NUDOA = 1. COMPUTE NUDX = 1. IF (cres = 170) NUDX = 6. IF (cres = 165) NUDX = 2. IF (cres = 160) NUDX = 1. IF (nuvi <= 0) NUDOA = NUDX. COMPUTE NUDOCAL = NUDOB. IF (nuvi <=0) NUDOCAL = NUDOA. * Cálculo del Codigo de Financiamiento Más Importante COVEMS. COMPUTE COVEMS = cove. IF (cove = 0) COVEMS = cov2. * Recodificación Distribución m2 de Superficie del Terreno: CDISPSUT a partir de SUTE. COMPUTE CDISPSUT = 0. IF (sute < 100) CDISPSUT = 1. IF (sute >= 100 & sute < 200) CDISPSUT = 2. IF (sute >= 200 & sute < 300) CDISPSUT = 3. IF (sute >= 300 & sute < 400) CDISPSUT = 4. IF (sute >= 400 & sute < 500) CDISPSUT = 5. IF (sute >= 500 & sute < 600) CDISPSUT = 6. IF (sute >= 600 & sute < 700) CDISPSUT = 7. IF (sute >= 700) CDISPSUT = 8. * Recodificación Distribución Usos de Edificación: CDISPUSO a partir de CRES Y COAMS. COMPUTE CDISPUSO = 0. IF (cres = 160 & (coams = 0 | coams = 193 | coams = 195)) CDISPUSO = 1. IF (cres = 165 & (coams = 0 | coams = 193 | coams = 195)) CDISPUSO = 2. IF (cres = 170 & (coams = 0 | coams = 193 | coams = 195)) CDISPUSO = 3. IF (coams = 175 & cres = 0) CDISPUSO = 4. IF (coams = 177 & cres = 0) CDISPUSO = 5. IF (coams = 179 & cres = 0) CDISPUSO = 6. IF (coams = 181 & cres = 0) CDISPUSO = 7. IF (coams = 183 & cres = 0) CDISPUSO = 8. IF (coams = 185 & cres = 0) CDISPUSO = 9. IF (coams = 187 & cres = 0) CDISPUSO = 10. IF (coams = 189 & cres = 0) CDISPUSO = 11. IF (coams = 191 & cres = 0) CDISPUSO = 12. IF (cres ~= 0 & (coams ~= 0 & coams ~= 193 & coams ~= 195)) CDISPUSO = 13. IF ((coams = 195 | coams = 193) & cres = 0) CDISPUSO = 14. * Recodificación Distribución m2 de Area a Construir: CDISPARC a partir de ARCO. COMPUTE CDISPARC = 0. IF (arco < 100) CDISPARC = 1. IF (arco >= 100 & arco < 200) CDISPARC = 2. IF (arco >= 200 & arco < 300) CDISPARC = 3. IF (arco >= 300 & arco < 400) CDISPARC = 4. IF (arco >= 400 & arco < 500) CDISPARC = 5. IF (arco >= 500) CDISPARC = 6. * Recodificación Distribución de Financiamiento de Mayor Valor: CDISPRFI a partir de COVET5. COMPUTE CDISPRFI = 0. IF (covet5 = 215) CDISPRFI = 1. IF (covet5 = 218) CDISPRFI = 2. IF (covet5 = 221) CDISPRFI = 3. IF (covet5 = 224) CDISPRFI = 4. IF (covet5 = 227) CDISPRFI = 5. IF (covet5 = 230) CDISPRFI = 6. IF (covet5 = 233) CDISPRFI = 7. IF (covet5 = 236) CDISPRFI = 8. IF (covet5 = 239) CDISPRFI = 9. IF (covet5 = 242) CDISPRFI = 10. IF (covet5 = 245) CDISPRFI = 11. IF (covet5 = 248 | covet5 = 251) CDISPRFI = 12. * Cálculo de Número de Viviendas Expandido. COMPUTE CNUVICAL = nuvical * numuni. * Recodificación Distribución de Financiamiento Más Importante: CDISPRFX a partir de COVEMS. COMPUTE CDISPRFX = 0. IF (covems = 215) CDISPRFX = 1. IF (covems = 218) CDISPRFX = 2. IF (covems = 221) CDISPRFX = 3. IF (covems = 224) CDISPRFX = 4. IF (covems = 227) CDISPRFX = 5. IF (covems = 230) CDISPRFX = 6. IF (covems = 233) CDISPRFX = 7. IF (covems = 236) CDISPRFX = 8. IF (covems = 239) CDISPRFX = 9. IF (covems = 242) CDISPRFX = 10. IF (covems = 245) CDISPRFX = 11. IF (covems = 248 | covems = 251) CDISPRFX = 12. * Cálculo de Total Valor de la Edificación: CVAE. COMPUTE CVAE = (vaede + vae22 + vae33 + vae44) * numuni. * Cálculo de Area Urbana y Rural: CAREAUR. COMPUTE CAREAUR = 0. IF (parroq >= 1 & parroq <= 50) CAREAUR = 1. IF (parroq >= 51) CAREAUR = 2. SAVE OUTFILE = 'C:\Edifica\SPSS\2007\EED2007V.SAV' /DROP MAXARE CARNRES1 CARNRES2 CARNRES3 CARDGAR1 CARDGAR2 CARDGAR3 MAXVAE NUPIA NUPX NUPIB NUPY NUVIA NUVX NUCUB NUCY NUCUA NUCX NUDOB NUDY NUDOA NUDX . EXECUTE. GET FILE = 'C:\Edifica\SPSS\2007\EED2007V.SAV' . EXECUTE.