##This script is part of my master thesis. All the estimations detailed in it can be #assessed with this code. Any suggestions, I can be reached through miguelsjacob@gmail.com. #The complete work is available at https://goo.gl/kpucLe or https://www.dropbox.com/sh/yvhnjogfrjpj4hl/AABUfbXFJIb10WUs7-c2NKOqa?dl=0 ##Esse script é parte da minha dissertação de mestrado. Todas as estimações detalhadas nela #podem ser feitas com esse código. Quaisquer sugestões, meu e-mail é miguelsjacob@gmail.com. #O trabalho completo está disponível em https://goo.gl/kpucLe or https://www.dropbox.com/sh/yvhnjogfrjpj4hl/AABUfbXFJIb10WUs7-c2NKOqa?dl=0 dir <- ("C:/Users/miguel.jacob/Dropbox/Jacob_S.Miguel_MasterThesis/Data_and_scripts/") setwd(paste0(dir)) #### 0 ADJUSTMENTS AND STANDARDIZATION#### #### 0.0 Opening necessary packages and datasets#### #Abrindo os pacotes e bases de dados necessários ifelse(!require(foreign),install.packages("foreign"),library(foreign)) ifelse(!require(memisc),install.packages("memisc"),library(memisc)) ifelse(!require(sp),install.packages("sp"),library(sp)) ifelse(!require(stargazer),install.packages("stargazer"),library(stargazer)) ifelse(!require(stringr),install.packages("stringr"),library(stringr)) ifelse(!require(dplyr),install.packages("dplyr"),library(dplyr)) ifelse(!require(rgdal),install.packages("rgdal"),library(rgdal)) ifelse(!require(nnet),install.packages("nnet"),library(nnet)) ifelse(!require(Rchoice),install.packages("Rchoice"),library(Rchoice)) ifelse(!require(mnlogit),install.packages("mnlogit"),library(mnlogit)) ifelse(!require(mlogit),install.packages("mlogit"),library(mlogit)) ifelse(!require(data.table),install.packages("data.table"),library(data.table)) ifelse(!require(clusterSEs),install.packages("clusterSEs"),library(clusterSEs)) ifelse(!require(lmtest),install.packages("lmtest"),library(lmtest)) ifelse(!require(xtable),install.packages("xtable"),library(xtable)) ifelse(!require(reshape2),install.packages("reshape2"),library(reshape2)) ifelse(!require(ggplot2),install.packages("ggplot2"),library(ggplot2)) ##Reading the two OD-Surveys - 1997 and 2007 OD_2007 <- read.spss(paste0(dir,"Datasets/OD_2007.sav"), to.data.frame = TRUE) OD_1997 <- read.spss(paste0(dir,"Datasets/OD_1997.sav"), to.data.frame = TRUE) #### 0.1 Making necessary adjustments#### ##Mainly making 1997 and 2007 datasets compatible ##Fazendo os ajustes necessários nas bases: basicamente, compatibilizando as bases de 1997 e 2007 ##Adjusting the years OD_2007$ANO <- NULL OD_2007$Ano <- NULL OD_1997$ANO <- NULL OD_1997$Ano <- NULL OD_2007$ANO <- 2007 OD_1997$ANO <- 1997 ##Names to upper names(OD_2007) <- toupper(names(OD_2007)) ##Creating unique IDs for observations OD_1997$ID_PESS <- as.character(OD_1997$ID_PESS) OD_2007$ID_PESS <- as.character(OD_2007$ID_PESS) OD_1997$ID_VIAGE <- as.character(OD_1997$ID_VIAGE) OD_2007$N_VIAG <- as.character(OD_2007$N_VIAG) OD_1997$ROWNUMBER <- row.names(OD_1997) OD_2007$ROWNUMBER <- row.names(OD_2007) OD_1997$ID_UNICO <- paste("1997",OD_1997$ID_PESS,OD_1997$ID_VIAGE,OD_1997$ROWNUMBER, sep = "_") OD_2007$ID_UNICO <- paste("2007",OD_2007$ID_PESS,OD_2007$N_VIAG,OD_2007$ROWNUMBER, sep = "_") ##Bringing variables names to a standard form (de 1997 para 2007) OD_1997$DIA_SEM <- OD_1997$DIA_SEMA OD_1997$DIA_SEMA <- NULL OD_1997$DOM <- OD_1997$DOMICIL OD_1997$DOMICIL <- NULL OD_1997$MIN_SAIDA <- OD_1997$MINSAIDA OD_1997$MINSAIDA <- NULL OD_1997$MIN_CHEG <- OD_1997$MINCHEG OD_1997$MINCHEG <- NULL OD_1997$MUNI_D <- OD_1997$MUNIDEST OD_1997$MUNIDEST <- NULL OD_1997$MUNI_O <- OD_1997$MUNIORIG OD_1997$MUNIORIG <- NULL OD_1997$N_VIAG <- OD_1997$ID_VIAGE OD_1997$ID_VIAGE <- NULL OD_1997$QT_TVCOR <- OD_1997$QT_TV OD_1997$QT_TV <- NULL OD_1997$TRAB1_RE <- OD_1997$TRAB1_SN OD_1997$TRAB1_SN <- NULL OD_1997$TRAB2_RE <- OD_1997$TRAB2_SN OD_1997$TRAB2_SN <- NULL OD_1997$ZONA_ESC <- OD_1997$ZONAESC OD_1997$ZONAESC <- NULL OD_2007$QT_GEL <- sum(OD_2007$QT_GEL1,OD_2007$QT_GEL2) OD_2007$QT_GEL1 <- NULL OD_2007$QT_GEL2 <- NULL ##Variable creation: age^2 OD_1997$IDADE_2 <- OD_1997$IDADE^2 OD_2007$IDADE_2 <- OD_2007$IDADE^2 ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 2007 put into 1997 pattern OD_2007$SE_ESTUD <- OD_2007$ESTUDA levels(OD_2007$SE_ESTUD) <- c(levels(OD_2007$SE_ESTUD), "Creche/Pré-escola", "1o./2o./3o. graus") OD_2007$SE_ESTUD[OD_2007$SE_ESTUD == "Creche / Pré-escola"] <- "Creche/Pré-escola" OD_2007$SE_ESTUD[OD_2007$SE_ESTUD == "1º grau / Fundamental" | OD_2007$SE_ESTUD == "2º grau / Médio" | OD_2007$SE_ESTUD == "3º grau / Superior"] <- "1o./2o./3o. graus" OD_2007$SE_ESTUD <- droplevels(OD_2007$SE_ESTUD) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern #alteração: "Trab. doméstico com carteira" e "Trab. doméstico sem carteira" foram absorvidos por "Assalariado com carteira" e "Assalariado sem carteira" OD_1997$VINC1 <- OD_1997$OCUP_PRI OD_1997$VINC1[OD_1997$VINC1 == "Trab. doméstico com carteira"] <- "Assalariado com carteira" OD_1997$VINC1[OD_1997$VINC1 == "Trab. doméstico sem carteira"] <- "Assalariado sem carteira" levels(OD_2007$VINC1) <- c(levels(OD_2007$VINC1),"Não se aplica") OD_2007$VINC1[is.na(OD_2007$VINC1)] <- "Não se aplica" OD_1997$VINC1 <- droplevels(OD_1997$VINC1) OD_2007$VINC1 <- droplevels(OD_2007$VINC1) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern levels(OD_1997$CD_ATIVI) <- c(levels(OD_1997$CD_ATIVI),"Aposentado","Em licença médica","Faz bico","Sem trabalho","Tem Trabalho" ) OD_1997$CD_ATIVI[OD_1997$CD_ATIVI == "Aposentado/Pensionista"] <- "Aposentado" OD_1997$CD_ATIVI[OD_1997$CD_ATIVI == "Em Licença"] <- "Em licença médica" OD_1997$CD_ATIVI[OD_1997$CD_ATIVI == "Ocupado eventualmente"] <- "Faz bico" OD_1997$CD_ATIVI[OD_1997$CD_ATIVI == "Não ocupado"] <- "Sem trabalho" OD_1997$CD_ATIVI[OD_1997$CD_ATIVI == "Ocupado"] <- "Tem Trabalho" OD_1997$CD_ATIVI <- droplevels(OD_1997$CD_ATIVI) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$INSTRUCAO <- OD_1997$GRAU_INS OD_2007$INSTRUCAO <- OD_2007$GRAU_INS levels(OD_1997$INSTRUCAO) <- c(levels((OD_2007$INSTRUCAO)),levels(OD_1997$INSTRUCAO)) OD_1997$INSTRUCAO[OD_1997$INSTRUCAO == "Não alfabetizado" | OD_1997$INSTRUCAO == "Pré-escola"] <- "Não alfabetizado / primário incompleto" OD_1997$INSTRUCAO[OD_1997$INSTRUCAO == "1o. grau incompleto"] <- "Primário completo / ginásio incompleto" OD_1997$INSTRUCAO[OD_1997$INSTRUCAO == "1o. grau completo" | OD_1997$INSTRUCAO == "2o. grau incompleto"] <- "Ginásio completo / colegial incompleto" OD_1997$INSTRUCAO[OD_1997$INSTRUCAO == "2o. grau completo" | OD_1997$INSTRUCAO == "Superior incompleto"] <- "Colegial completo / superior incompleto" OD_1997$INSTRUCAO[OD_1997$INSTRUCAO == "Superior completo"] <- "Superior completo" OD_1997$INSTRUCAO <- droplevels(OD_1997$INSTRUCAO) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$SETOR_OCUPA <- OD_1997$SET_ATIV OD_2007$SETOR_OCUPA <- OD_2007$SETOR1 levels(OD_2007$SETOR_OCUPA) <- c(levels((OD_2007$SETOR_OCUPA)),"Não se aplica") levels(OD_1997$SETOR_OCUPA) <- c(levels((OD_2007$SETOR_OCUPA)),levels(OD_1997$SETOR_OCUPA)) OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Construção civil"] <- "Construção Civil" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Não se aplica"] <- "Não se aplica" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Agrícola"] <- "Agrícola" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "outros"] <- "Outros" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços creditícios/financeiros"] <- "Serviço Creditício-Financeiro" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços da adm. pública"] <- "Serviço de Administração Pública" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços de alimentação"] <- "Serviço de Alimentação" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços de educação"] <- "Serviço de Educação" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços de saúde"] <- "Serviço de Saúde" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços de transporte de carga"] <- "Serviço de Transporte de Carga" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços de transporte de passageiros"] <- "Serviço de Transporte de Passageiros" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços especializados"] <- "Serviço Especializado" OD_1997$SETOR_OCUPA[OD_1997$SETOR_OCUPA == "Serviços pessoais"] <- "Serviço Pessoal" OD_1997$SETOR_OCUPA <- droplevels(OD_1997$SETOR_OCUPA) sort(levels(OD_1997$SETOR_OCUPA)) == sort(levels(OD_2007$SETOR_OCUPA)) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$MODAL1 <- as.character(OD_1997$MODO1) OD_2007$MODAL1 <- as.character(OD_2007$MODO1) OD_2007$MODAL1[OD_2007$MODAL1 == "A pé"] <- "A Pé" OD_2007$MODAL1[OD_2007$MODAL1 == "Bicicleta"] <- "Bicicleta" OD_2007$MODAL1[OD_2007$MODAL1 == "Escolar"] <- "Transporte Escolar" OD_2007$MODAL1[OD_2007$MODAL1 == "Dirigindo Automóvel"] <- "Dirigindo Automóvel" OD_2007$MODAL1[OD_2007$MODAL1 == "Metrô"] <- "Metrô" OD_2007$MODAL1[OD_2007$MODAL1 == "Microônibus de outros municípios"] <- "Ônibus" OD_2007$MODAL1[OD_2007$MODAL1 == "Microônibus/van do Município de São Paulo"] <- "Ônibus" OD_2007$MODAL1[OD_2007$MODAL1 == "Microônibus/van metropolitano"] <- "Ônibus" OD_2007$MODAL1[OD_2007$MODAL1 == "Moto"] <- "Moto" OD_2007$MODAL1[OD_2007$MODAL1 == "Ônibus do Municipio de São Paulo"] <- "Ônibus" OD_2007$MODAL1[OD_2007$MODAL1 == "Ônibus Fretado"] <- "Ônibus Fretado" OD_2007$MODAL1[OD_2007$MODAL1 == "Ônibus Metropolitano"] <- "Ônibus" OD_2007$MODAL1[OD_2007$MODAL1 == "Ônibus outros municípios"] <- "Ônibus" OD_2007$MODAL1[OD_2007$MODAL1 == "Outros"] <- "Outros" OD_2007$MODAL1[OD_2007$MODAL1 == "Passageiro de Automóvel"] <- "Passageiro de Automóvel" OD_2007$MODAL1[OD_2007$MODAL1 == "Táxi"] <- "Táxi" OD_2007$MODAL1[OD_2007$MODAL1 == "Trem"] <- "Trem" OD_1997$MODAL1[OD_1997$MODAL1 == "Lotação/Perua"] <- "Ônibus" OD_1997$MODAL1[OD_1997$MODAL1 == "ônibus Fretado"] <- "Ônibus Fretado" OD_1997$MODAL1[OD_1997$MODAL1 == "Passageiro de Auto"] <- "Passageiro de Automóvel" OD_1997$MODAL1 <- as.factor(OD_1997$MODAL1) OD_2007$MODAL1 <- as.factor(OD_2007$MODAL1) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$MODAL2 <- as.character(OD_1997$MODO2) OD_2007$MODAL2 <- as.character(OD_2007$MODO2) OD_2007$MODAL2[OD_2007$MODAL2 == "A pé"] <- "A Pé" OD_2007$MODAL2[OD_2007$MODAL2 == "Bicicleta"] <- "Bicicleta" OD_2007$MODAL2[OD_2007$MODAL2 == "Dirigindo Automóvel"] <- "Dirigindo Automóvel" OD_2007$MODAL2[OD_2007$MODAL2 == "Escolar"] <- "Transporte Escolar" OD_2007$MODAL2[OD_2007$MODAL2 == "Metrô"] <- "Metrô" OD_2007$MODAL2[OD_2007$MODAL2 == "Microônibus de outros municípios"] <- "Ônibus" OD_2007$MODAL2[OD_2007$MODAL2 == "Microônibus/van do Município de São Paulo"] <- "Ônibus" OD_2007$MODAL2[OD_2007$MODAL2 == "Microônibus/van metropolitano"] <- "Ônibus" OD_2007$MODAL2[OD_2007$MODAL2 == "Moto"] <- "Moto" OD_2007$MODAL2[OD_2007$MODAL2 == "Ônibus do Municipio de São Paulo"] <- "Ônibus" OD_2007$MODAL2[OD_2007$MODAL2 == "Ônibus Fretado"] <- "Ônibus Fretado" OD_2007$MODAL2[OD_2007$MODAL2 == "Ônibus Metropolitano"] <- "Ônibus" OD_2007$MODAL2[OD_2007$MODAL2 == "Ônibus outros municípios"] <- "Ônibus" OD_2007$MODAL2[OD_2007$MODAL2 == "Outros"] <- "Outros" OD_2007$MODAL2[OD_2007$MODAL2 == "Passageiro de Automóvel"] <- "Passageiro de Automóvel" OD_2007$MODAL2[OD_2007$MODAL2 == "Táxi"] <- "Táxi" OD_2007$MODAL2[OD_2007$MODAL2 == "Trem"] <- "Trem" OD_1997$MODAL2[OD_1997$MODAL2 == "Lotação/Perua"] <- "Ônibus" OD_1997$MODAL2[OD_1997$MODAL2 == "Passageiro de Auto"] <- "Passageiro de Automóvel" OD_1997$MODAL2[OD_1997$MODAL2 == "Ôninus"] <- "Ônibus" OD_1997$MODAL2[OD_1997$MODAL2 == "ônibus Fretado"] <- "Ônibus Fretado" OD_1997$MODAL2 <- as.factor(OD_1997$MODAL2) OD_2007$MODAL2 <- as.factor(OD_2007$MODAL2) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$MODAL3 <- as.character(OD_1997$MODO3) OD_2007$MODAL3 <- as.character(OD_2007$MODO3) OD_2007$MODAL3[OD_2007$MODAL3 == "A pé"] <- "A Pé" OD_2007$MODAL3[OD_2007$MODAL3 == "Bicicleta"] <- "Bicicleta" OD_2007$MODAL3[OD_2007$MODAL3 == "Dirigindo Automóvel"] <- "Dirigindo Automóvel" OD_2007$MODAL3[OD_2007$MODAL3 == "Escolar"] <- "Transporte Escolar" OD_2007$MODAL3[OD_2007$MODAL3 == "Metrô"] <- "Metrô" OD_2007$MODAL3[OD_2007$MODAL3 == "Microônibus de outros municípios"] <- "Ônibus" OD_2007$MODAL3[OD_2007$MODAL3 == "Microônibus/van do Município de São Paulo"] <- "Ônibus" OD_2007$MODAL3[OD_2007$MODAL3 == "Microônibus/van metropolitano"] <- "Ônibus" OD_2007$MODAL3[OD_2007$MODAL3 == "Moto"] <- "Moto" OD_2007$MODAL3[OD_2007$MODAL3 == "Ônibus do Municipio de São Paulo"] <- "Ônibus" OD_2007$MODAL3[OD_2007$MODAL3 == "Ônibus Fretado"] <- "Ônibus Fretado" OD_2007$MODAL3[OD_2007$MODAL3 == "Ônibus Metropolitano"] <- "Ônibus" OD_2007$MODAL3[OD_2007$MODAL3 == "Ônibus outros municípios"] <- "Ônibus" OD_2007$MODAL3[OD_2007$MODAL3 == "Outros"] <- "Outros" OD_2007$MODAL3[OD_2007$MODAL3 == "Passageiro de Automóvel"] <- "Passageiro de Automóvel" OD_2007$MODAL3[OD_2007$MODAL3 == "Táxi"] <- "Táxi" OD_2007$MODAL3[OD_2007$MODAL3 == "Trem"] <- "Trem" OD_1997$MODAL3[OD_1997$MODAL3 == "Lotação/Perua"] <- "Ônibus" OD_1997$MODAL3[OD_1997$MODAL3 == "Passageiro de Auto"] <- "Passageiro de Automóvel" OD_1997$MODAL3[OD_1997$MODAL3 == "Ôninus"] <- "Ônibus" OD_1997$MODAL3[OD_1997$MODAL3 == "ônibus Fretado"] <- "Ônibus Fretado" OD_1997$MODAL3 <- as.factor(OD_1997$MODAL3) OD_2007$MODAL3 <- as.factor(OD_2007$MODAL3) levels(OD_2007$MODAL3) == levels(OD_1997$MODAL3) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$MODAL4 <- as.character(OD_1997$MODO4) OD_2007$MODAL4 <- as.character(OD_2007$MODO4) OD_2007$MODAL4[OD_2007$MODAL4 == "A pé"] <- "A Pé" OD_2007$MODAL4[OD_2007$MODAL4 == "Bicicleta"] <- "Bicicleta" OD_2007$MODAL4[OD_2007$MODAL4 == "Dirigindo Automóvel"] <- "Dirigindo Automóvel" OD_2007$MODAL4[OD_2007$MODAL4 == "Escolar"] <- "Transporte Escolar" OD_2007$MODAL4[OD_2007$MODAL4 == "Metrô"] <- "Metrô" OD_2007$MODAL4[OD_2007$MODAL4 == "Microônibus de outros municípios"] <- "Ônibus" OD_2007$MODAL4[OD_2007$MODAL4 == "Microônibus/van do Município de São Paulo"] <- "Ônibus" OD_2007$MODAL4[OD_2007$MODAL4 == "Microônibus/van metropolitano"] <- "Ônibus" OD_2007$MODAL4[OD_2007$MODAL4 == "Moto"] <- "Moto" OD_2007$MODAL4[OD_2007$MODAL4 == "Ônibus do Municipio de São Paulo"] <- "Ônibus" OD_2007$MODAL4[OD_2007$MODAL4 == "Ônibus Fretado"] <- "Ônibus Fretado" OD_2007$MODAL4[OD_2007$MODAL4 == "Ônibus Metropolitano"] <- "Ônibus" OD_2007$MODAL4[OD_2007$MODAL4 == "Ônibus outros municípios"] <- "Ônibus" OD_2007$MODAL4[OD_2007$MODAL4 == "Outros"] <- "Outros" OD_2007$MODAL4[OD_2007$MODAL4 == "Passageiro de Automóvel"] <- "Passageiro de Automóvel" OD_2007$MODAL4[OD_2007$MODAL4 == "Táxi"] <- "Táxi" OD_2007$MODAL4[OD_2007$MODAL4 == "Trem"] <- "Trem" OD_1997$MODAL4[OD_1997$MODAL4 == "Lotação/Perua"] <- "Ônibus" OD_1997$MODAL4[OD_1997$MODAL4 == "Passageiro de Auto"] <- "Passageiro de Automóvel" OD_1997$MODAL4[OD_1997$MODAL4 == "Ôninus"] <- "Ônibus" OD_1997$MODAL4[OD_1997$MODAL4 == "ônibus Fretado"] <- "Ônibus Fretado" OD_1997$MODAL4 <- as.factor(OD_1997$MODAL4) OD_2007$MODAL4 <- as.factor(OD_2007$MODAL4) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$MODOPRIN <- as.character(OD_1997$MODOPRIN) OD_2007$MODOPRIN <- as.character(OD_2007$MODOPRIN) OD_2007$MODOPRIN[OD_2007$MODOPRIN == "A pé"] <- "A Pé" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Bicicleta"] <- "Bicicleta" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Dirigindo Automóvel"] <- "Dirigindo Automóvel" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Escolar"] <- "Transporte Escolar" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Metrô"] <- "Metrô" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Microônibus de outros municípios"] <- "Ônibus" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Microônibus/van do Município de São Paulo"] <- "Ônibus" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Microônibus/van metropolitano"] <- "Ônibus" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Moto"] <- "Moto" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Ônibus do Municipio de São Paulo"] <- "Ônibus" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Ônibus Fretado"] <- "Ônibus Fretado" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Ônibus Metropolitano"] <- "Ônibus" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Ônibus outros municípios"] <- "Ônibus" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Outros"] <- "Outros" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Passageiro de Automóvel"] <- "Passageiro de Automóvel" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Táxi"] <- "Táxi" OD_2007$MODOPRIN[OD_2007$MODOPRIN == "Trem"] <- "Trem" OD_1997$MODOPRIN[OD_1997$MODOPRIN == "Lotação/Perua"] <- "Ônibus" OD_1997$MODOPRIN[OD_1997$MODOPRIN == "Ôninus"] <- "Ônibus" OD_1997$MODOPRIN[OD_1997$MODOPRIN == "Passageiro de Auto"] <- "Passageiro de Automóvel" OD_1997$MODOPRIN[OD_1997$MODOPRIN == "ônibus Fretado"] <- "Ônibus Fretado" OD_1997$MODOPRIN <- as.factor(OD_1997$MODOPRIN) OD_2007$MODOPRIN <- as.factor(OD_2007$MODOPRIN) levels(OD_1997$MODOPRIN) == levels(OD_2007$MODOPRIN) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern levels(OD_1997$TIPO_VG) == levels(OD_2007$TIPOVG) OD_1997$TIPOVG <- OD_1997$TIPO_VG ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$DESTINO_MOTIVO <- OD_1997$MOTIVO_D OD_2007$DESTINO_MOTIVO <- OD_2007$MOTIVO_D levels(OD_2007$DESTINO_MOTIVO) <- c(levels(OD_2007$MOTIVO_D),levels(OD_1997$MOTIVO_D)) OD_2007$DESTINO_MOTIVO[OD_2007$DESTINO_MOTIVO == "Assuntos Pessoais"| OD_2007$DESTINO_MOTIVO == "Procurar Emprego" ] <- "Outros" OD_2007$DESTINO_MOTIVO[OD_2007$DESTINO_MOTIVO == "Recreação/Visitas/Lazer"] <- "Recreação/Visitas" OD_2007$DESTINO_MOTIVO <- droplevels(OD_2007$DESTINO_MOTIVO) sort(levels(OD_2007$DESTINO_MOTIVO)) == sort(levels(OD_1997$DESTINO_MOTIVO)) ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_1997$ORIGEM_MOTIVO <- OD_1997$MOTIVO_O OD_2007$ORIGEM_MOTIVO <- OD_2007$MOTIVO_O levels(OD_2007$ORIGEM_MOTIVO) <- c(levels(OD_2007$MOTIVO_O),levels(OD_1997$MOTIVO_O)) OD_2007$ORIGEM_MOTIVO[OD_2007$ORIGEM_MOTIVO == "Assuntos Pessoais"| OD_2007$ORIGEM_MOTIVO == "Procurar Emprego" ] <- "Outros" OD_2007$ORIGEM_MOTIVO[OD_2007$ORIGEM_MOTIVO == "Recreação/Visitas/Lazer"] <- "Recreação/Visitas" OD_2007$ORIGEM_MOTIVO <- droplevels(OD_2007$ORIGEM_MOTIVO) sort(levels(OD_2007$ORIGEM_MOTIVO)) == sort(levels(OD_1997$ORIGEM_MOTIVO)) ##Generalizing trip purpose OD_1997$MOTIVACAO_O <- (OD_1997$ORIGEM_MOTIVO) levels(OD_1997$MOTIVACAO_O) <- c("Trabalho", "Trabalho", "Trabalho", "Estudo", "Lazer/Compras/Saúde/Outros", "Lazer/Compras/Saúde/Outros", "Lazer/Compras/Saúde/Outros", "Residência", "Lazer/Compras/Saúde/Outros") OD_1997$MOTIVACAO_D <- (OD_1997$DESTINO_MOTIVO) levels(OD_1997$MOTIVACAO_D) <- c("Trabalho", "Trabalho", "Trabalho", "Estudo", "Lazer/Compras/Saúde/Outros", "Lazer/Compras/Saúde/Outros", "Lazer/Compras/Saúde/Outros", "Residência", "Lazer/Compras/Saúde/Outros") OD_2007$MOTIVACAO_O <- (OD_2007$ORIGEM_MOTIVO) levels(OD_2007$MOTIVACAO_O) <- c("Trabalho", "Trabalho", "Trabalho", "Estudo", "Lazer/Compras/Saúde/Outros", "Lazer/Compras/Saúde/Outros", "Lazer/Compras/Saúde/Outros", "Residência", "Lazer/Compras/Saúde/Outros") OD_2007$MOTIVACAO_D <- (OD_2007$DESTINO_MOTIVO) levels(OD_2007$MOTIVACAO_D) <- c("Trabalho", "Trabalho", "Trabalho", "Estudo", "Lazer/Compras/Saúde/Outros", "Lazer/Compras/Saúde/Outros", "Lazer/Compras/Saúde/Outros", "Residência", "Lazer/Compras/Saúde/Outros") ##Adding inflation to put monetary values at the same order #Brazilian IPCA: oct/1997-oct/2007 == 1.775180405 #Source: https://www3.bcb.gov.br/CALCIDADAO/publico/exibirFormCorrecaoValores.do?method=exibirFormCorrecaoValores OD_1997$REN_I_CORR <- OD_1997$VL_REN_I*1.775180405 #In 1997 the "didn't want to declare income" was registered in other variable OD_1997$REN_I_CORR[OD_1997$CO_REN_I=="Não respondeu"] <- NA OD_2007$REN_I_CORR <- OD_2007$VL_REN_I*1 OD_1997$REN_F_CORR <- OD_1997$RENDA_FA*1.775180405 OD_2007$REN_F_CORR <- OD_2007$RENDA_FA*1 ##Creating variables that say whether the "chief of the family" is a man or a woman. Variable value is the income itself. #Chief OD_1997$REN_CHEFE_M_CORR <-NA OD_1997$REN_CHEFE_M_CORR[OD_1997$SIT_FAM=="Chefe"&OD_1997$SEXO=="Masculino"] <- OD_1997$REN_I_CORR[OD_1997$SIT_FAM=="Chefe"&OD_1997$SEXO=="Masculino"] OD_1997$REN_CHEFE_F_CORR <-NA OD_1997$REN_CHEFE_F_CORR[OD_1997$SIT_FAM=="Chefe"&OD_1997$SEXO=="Feminino"] <- OD_1997$REN_I_CORR[OD_1997$SIT_FAM=="Chefe"&OD_1997$SEXO=="Feminino"] OD_2007$REN_CHEFE_M_CORR <-NA OD_2007$REN_CHEFE_M_CORR[OD_2007$SIT_FAM=="Pessoa responsável"&OD_2007$SEXO=="Masculino"] <- OD_2007$REN_I_CORR[OD_2007$SIT_FAM=="Pessoa responsável"&OD_2007$SEXO=="Masculino"] OD_2007$REN_CHEFE_F_CORR <-NA OD_2007$REN_CHEFE_F_CORR[OD_2007$SIT_FAM=="Pessoa responsável"&OD_2007$SEXO=="Feminino"] <- OD_2007$REN_I_CORR[OD_2007$SIT_FAM=="Pessoa responsável"&OD_2007$SEXO=="Feminino"] #Non-Chief OD_1997$REN_NCHEFE_M_CORR <-NA OD_1997$REN_NCHEFE_M_CORR[OD_1997$SIT_FAM!="CHEFE"&OD_1997$SEXO=="Masculino"] <- OD_1997$REN_I_CORR[OD_1997$SIT_FAM!="CHEFE"&OD_1997$SEXO=="Masculino"] OD_1997$REN_NCHEFE_F_CORR <-NA OD_1997$REN_NCHEFE_F_CORR[OD_1997$SIT_FAM!="CHEFE"&OD_1997$SEXO=="Feminino"] <- OD_1997$REN_I_CORR[OD_1997$SIT_FAM!="CHEFE"&OD_1997$SEXO=="Feminino"] OD_2007$REN_NCHEFE_M_CORR <-NA OD_2007$REN_NCHEFE_M_CORR[OD_2007$SIT_FAM!="Pessoa responsável"&OD_2007$SEXO=="Masculino"] <- OD_2007$REN_I_CORR[OD_2007$SIT_FAM!="Pessoa responsável"&OD_2007$SEXO=="Masculino"] OD_2007$REN_NCHEFE_F_CORR <-NA OD_2007$REN_NCHEFE_F_CORR[OD_2007$SIT_FAM!="Pessoa responsável"&OD_2007$SEXO=="Feminino"] <- OD_2007$REN_I_CORR[OD_2007$SIT_FAM!="Pessoa responsável"&OD_2007$SEXO=="Feminino"] ##Bringing variables VALUES to a standard form (de 1997 para 2007) #Different values: 1997 put into 2007 pattern OD_2007$USA_VTRA<-0 OD_2007$USA_VTRA[OD_2007$PAG_VIAG!="Empregador"]<-0 OD_2007$USA_VTRA[OD_2007$PAG_VIAG=="Empregador"]<-1 OD_1997$USA_VTRA <- as.character(OD_1997$USA_VTRA) OD_1997$USA_VTRA[OD_1997$USA_VTRA=="Sim"] <- 1 OD_1997$USA_VTRA[OD_1997$USA_VTRA=="Não"] <- 0 OD_1997$USA_VTRA <- as.numeric(OD_1997$USA_VTRA) ##Creating a dummy variable for this information OD_1997$D_VTRA <- OD_1997$USA_VTRA OD_2007$D_VTRA <- OD_2007$USA_VTRA ##Assigning numbers for instruction levels OD_2007$INSTRUCAO_NUM <- 0 OD_2007$INSTRUCAO_NUM[OD_2007$INSTRUCAO=="Não alfabetizado / primário incompleto"] <- 2.5 OD_2007$INSTRUCAO_NUM[OD_2007$INSTRUCAO=="Primário completo / ginásio incompleto"] <- 7 OD_2007$INSTRUCAO_NUM[OD_2007$INSTRUCAO=="Ginásio completo / colegial incompleto"] <- 10.5 OD_2007$INSTRUCAO_NUM[OD_2007$INSTRUCAO=="Colegial completo / superior incompleto"] <- 14 OD_2007$INSTRUCAO_NUM[OD_2007$INSTRUCAO=="Superior completo"] <- 16 OD_1997$INSTRUCAO_NUM <- 0 OD_1997$INSTRUCAO_NUM[OD_1997$INSTRUCAO=="Não alfabetizado / primário incompleto"] <- 2.5 OD_1997$INSTRUCAO_NUM[OD_1997$INSTRUCAO=="Primário completo / ginásio incompleto"] <- 7 OD_1997$INSTRUCAO_NUM[OD_1997$INSTRUCAO=="Ginásio completo / colegial incompleto"] <- 10.5 OD_1997$INSTRUCAO_NUM[OD_1997$INSTRUCAO=="Colegial completo / superior incompleto"] <- 14 OD_1997$INSTRUCAO_NUM[OD_1997$INSTRUCAO=="Superior completo"] <- 16 ##Dummy whether house is located in a slum OD_1997$D_FAVELA <- 0 OD_1997$D_FAVELA[OD_1997$TIPO_DOM == "Favela"] <- 1 OD_2007$D_FAVELA <- 0 OD_2007$D_FAVELA[OD_2007$TIPO_DOM == "Favela"] <- 1 ##Dummy whether individual is economically active OD_1997$D_PEA <- 1 OD_1997$D_PEA[OD_1997$CD_ATIVI == "Nunca trabalhou"] <- 0 OD_1997$D_PEA[OD_1997$CD_ATIVI == "Dona de casa"] <- 0 OD_1997$D_PEA[OD_1997$CD_ATIVI == "Aposentado"] <- 0 OD_1997$D_PEA[OD_1997$CD_ATIVI == "Estudante" & OD_1997$VINC1 == "Não se aplica"] <- 0 ##Dummy whether individual has a job OD_1997$D_EMPREGADO <- 1 OD_1997$D_EMPREGADO[OD_1997$CD_ATIVI == "Nunca trabalhou"] <- 0 OD_1997$D_EMPREGADO[OD_1997$CD_ATIVI == "Dona de casa"] <- 0 OD_1997$D_EMPREGADO[OD_1997$CD_ATIVI == "Aposentado"] <- 0 OD_1997$D_EMPREGADO[OD_1997$CD_ATIVI == "Estudante" & OD_1997$VINC1 == "Não se aplica"] <- 0 OD_1997$D_EMPREGADO[OD_1997$CD_ATIVI == "Sem trabalho"] <- 0 ##Dummy whether individual is economically active OD_2007$D_PEA <- 1 OD_2007$D_PEA[OD_2007$CD_ATIVI == "Nunca trabalhou"] <- 0 OD_2007$D_PEA[OD_2007$CD_ATIVI == "Dona de casa"] <- 0 OD_2007$D_PEA[OD_2007$CD_ATIVI == "Aposentado"] <- 0 OD_2007$D_PEA[OD_2007$CD_ATIVI == "Estudante" & OD_2007$VINC1 == "Não se aplica"] <- 0 ##Dummy whether individual has a job OD_2007$D_EMPREGADO <- 1 OD_2007$D_EMPREGADO[OD_2007$CD_ATIVI == "Nunca trabalhou"] <- 0 OD_2007$D_EMPREGADO[OD_2007$CD_ATIVI == "Dona de casa"] <- 0 OD_2007$D_EMPREGADO[OD_2007$CD_ATIVI == "Aposentado"] <- 0 OD_2007$D_EMPREGADO[OD_2007$CD_ATIVI == "Estudante" & OD_2007$VINC1 == "Não se aplica"] <- 0 OD_2007$D_EMPREGADO[OD_2007$CD_ATIVI == "Sem trabalho"] <- 0 ##Dummy whether individual is a student OD_1997$D_ESTUDANTE <- 1 OD_1997$D_ESTUDANTE[OD_1997$SE_ESTUD == "Não"] <- 0 OD_2007$D_ESTUDANTE <- 1 OD_2007$D_ESTUDANTE[OD_2007$SE_ESTUD == "Não"] <- 0 ##Dummy whether individual is male OD_1997$D_MASCULINO <- 0 OD_1997$D_MASCULINO[OD_1997$SEXO == "Masculino"] <- 1 OD_2007$D_MASCULINO <- 0 OD_2007$D_MASCULINO[OD_2007$SEXO == "Masculino"] <- 1 ##Dummy whether individual is "chief of family" OD_1997$D_CHEFE<-0 OD_1997$D_CHEFE[OD_1997$SIT_FAM == "Chefe"]<-1 OD_2007$D_CHEFE<-0 OD_2007$D_CHEFE[OD_2007$SIT_FAM == "Pessoa responsável"]<-1 ##Dummy whether individual owns a car OD_1997$D_CARRO<-0 OD_1997$D_CARRO[OD_1997$QT_AUTO>=1]<-1 OD_2007$D_CARRO<-0 OD_2007$D_CARRO[OD_2007$QT_AUTO>=1]<-1 OD_2007$D_CARRO[OD_2007$QT_MOTO>=1]<-1 ##Adjusting travel period OD_1997$PERIODO_SAIDA <- NA OD_1997$PERIODO_SAIDA[OD_1997$H_SAIDA>2 & OD_1997$H_SAIDA<13] <- "Manha" OD_1997$PERIODO_SAIDA[OD_1997$H_SAIDA>12 & OD_1997$H_SAIDA<19] <- "Tarde" OD_1997$PERIODO_SAIDA[OD_1997$H_SAIDA>18 & OD_1997$H_SAIDA<24] <- "Noite" OD_1997$PERIODO_SAIDA[OD_1997$H_SAIDA<3] <- "Noite" OD_1997$PERIODO_SAIDA <- as.factor(OD_1997$PERIODO_SAIDA) summary(OD_1997$PERIODO_SAIDA) OD_2007$PERIODO_SAIDA <- NA OD_2007$PERIODO_SAIDA[OD_2007$H_SAIDA>2 & OD_2007$H_SAIDA<13] <- "Manha" OD_2007$PERIODO_SAIDA[OD_2007$H_SAIDA>12 & OD_2007$H_SAIDA<19] <- "Tarde" OD_2007$PERIODO_SAIDA[OD_2007$H_SAIDA>18 & OD_2007$H_SAIDA<24] <- "Noite" OD_2007$PERIODO_SAIDA[OD_2007$H_SAIDA<3] <- "Noite" OD_2007$PERIODO_SAIDA <- as.factor(OD_2007$PERIODO_SAIDA) summary(OD_2007$PERIODO_SAIDA) OD_1997$PERIODO_CHEG <- NA OD_1997$PERIODO_CHEG[OD_1997$H_CHEG>2 & OD_1997$H_CHEG<13] <- "Manha" OD_1997$PERIODO_CHEG[OD_1997$H_CHEG>12 & OD_1997$H_CHEG<19] <- "Tarde" OD_1997$PERIODO_CHEG[OD_1997$H_CHEG>18 & OD_1997$H_CHEG<24] <- "Noite" OD_1997$PERIODO_CHEG[OD_1997$H_CHEG<3] <- "Noite" OD_1997$PERIODO_CHEG <- as.factor(OD_1997$PERIODO_CHEG) summary(OD_1997$PERIODO_CHEG) OD_2007$PERIODO_CHEG <- NA OD_2007$PERIODO_CHEG[OD_2007$H_CHEG>2 & OD_2007$H_CHEG<13] <- "Manha" OD_2007$PERIODO_CHEG[OD_2007$H_CHEG>12 & OD_2007$H_CHEG<19] <- "Tarde" OD_2007$PERIODO_CHEG[OD_2007$H_CHEG>18 & OD_2007$H_CHEG<24] <- "Noite" OD_2007$PERIODO_CHEG[OD_2007$H_CHEG<3] <- "Noite" OD_2007$PERIODO_CHEG <- as.factor(OD_2007$PERIODO_CHEG) summary(OD_2007$PERIODO_CHEG) #### 0.2 Standardizing zones#### correspzona <- read.csv(file = paste0(dir,"Datasets/correspzona.csv"), sep = ";") ##Bringing 2007 zones to 1997's level #Household OD_2007 <- merge.data.frame(OD_2007, correspzona, by.x = "ZONA", by.y = "Z_2007", all.x = TRUE, all.y = FALSE) OD_2007$ZONA_PAD <- OD_2007$Z_1997 OD_1997$ZONA_PAD <- OD_1997$ZONA OD_2007$Z_1997.x <- NULL OD_2007$Z_1997.y <- NULL OD_2007$Z_1997 <- NULL #Trip Destination OD_2007 <- merge.data.frame(OD_2007, correspzona, by.x = "ZONA_D", by.y = "Z_2007", all.x = TRUE, all.y = FALSE) OD_2007$ZONA_D_PAD <- OD_2007$Z_1997 OD_1997$ZONA_D_PAD <- OD_1997$ZONA_D OD_2007$Z_1997.x <- NULL OD_2007$Z_1997.y <- NULL OD_2007$Z_1997 <- NULL #Trip origin OD_2007 <- merge.data.frame(OD_2007, correspzona, by.x = "ZONA_O", by.y = "Z_2007", all.x = TRUE, all.y = FALSE) OD_2007$ZONA_O_PAD <- OD_2007$Z_1997 OD_1997$ZONA_O_PAD <- OD_1997$ZONA_O OD_2007$Z_1997.x <- NULL OD_2007$Z_1997.y <- NULL OD_2007$Z_1997 <- NULL rm(correspzona) ##Doing the same for subzones subzonas1997 <- readOGR("C:/Users/miguel.jacob/Documents/Miguel/Dissertação/Dados/OD/Gis", layer="Subzonas_1997_CA", stringsAsFactors = F) subzonas1997$SubSeq <- as.numeric(subzonas1997$SubSeq) #Household OD_2007_NoNA <- OD_2007[!is.na(OD_2007$CO_DOM_X),] OD_2007_NoNA <- OD_2007_NoNA[!is.na(OD_2007_NoNA$CO_DOM_Y),] coordinates(OD_2007_NoNA) <- cbind(OD_2007_NoNA$CO_DOM_X , OD_2007_NoNA$CO_DOM_Y) proj4string(OD_2007_NoNA) <- CRS("+proj=utm +zone=23 +south +ellps=intl +units=m +no_defs") OD_2007_NoNA_SZ <- over(OD_2007_NoNA, subzonas1997) OD_2007_NoNA_SZ$SZSEQ <- OD_2007_NoNA_SZ$SubSeq OD_2007_NoNA_SZ <- as.data.frame(OD_2007_NoNA_SZ[,c("SZSEQ")]) OD_2007_NoNA <- as.data.frame(OD_2007_NoNA) OD_2007_NoNA <- cbind(OD_2007_NoNA$ID_UNICO, OD_2007_NoNA_SZ) names(OD_2007_NoNA) <- c("ID_UNICO","SZSEQ") OD_2007 <- merge(OD_2007, OD_2007_NoNA, by.x="ID_UNICO",by.y="ID_UNICO", all.x=TRUE, all.y=FALSE) rm(OD_2007_NoNA_SZ, OD_2007_NoNA) #Trip Origin OD_2007_NoNA <- OD_2007[!is.na(OD_2007$CO_O_X),] OD_2007_NoNA <- OD_2007_NoNA[!is.na(OD_2007_NoNA$CO_O_Y),] coordinates(OD_2007_NoNA) <- cbind(OD_2007_NoNA$CO_O_X , OD_2007_NoNA$CO_O_Y) proj4string(OD_2007_NoNA) <- CRS("+proj=utm +zone=23 +south +ellps=intl +units=m +no_defs") OD_2007_NoNA_SZ <- over(OD_2007_NoNA, subzonas1997) OD_2007_NoNA_SZ$SZOSEQ <- OD_2007_NoNA_SZ$SubSeq OD_2007_NoNA_SZ <- as.data.frame(OD_2007_NoNA_SZ[,c("SZOSEQ")]) OD_2007_NoNA <- as.data.frame(OD_2007_NoNA) OD_2007_NoNA <- cbind(OD_2007_NoNA$ID_UNICO, OD_2007_NoNA_SZ) names(OD_2007_NoNA) <- c("ID_UNICO","SZOSEQ") OD_2007 <- merge(OD_2007, OD_2007_NoNA, by.x="ID_UNICO",by.y="ID_UNICO", all.x=TRUE, all.y=FALSE) rm(OD_2007_NoNA_SZ, OD_2007_NoNA) #Trip Destination OD_2007_NoNA <- OD_2007[!is.na(OD_2007$CO_D_X),] OD_2007_NoNA <- OD_2007_NoNA[!is.na(OD_2007_NoNA$CO_D_Y),] coordinates(OD_2007_NoNA) <- cbind(OD_2007_NoNA$CO_D_X , OD_2007_NoNA$CO_D_Y) proj4string(OD_2007_NoNA) <- CRS("+proj=utm +zone=23 +south +ellps=intl +units=m +no_defs") OD_2007_NoNA_SZ <- over(OD_2007_NoNA, subzonas1997) OD_2007_NoNA_SZ$SZDSEQ <- OD_2007_NoNA_SZ$SubSeq OD_2007_NoNA_SZ <- as.data.frame(OD_2007_NoNA_SZ[,c("SZDSEQ")]) OD_2007_NoNA <- as.data.frame(OD_2007_NoNA) OD_2007_NoNA <- cbind(OD_2007_NoNA$ID_UNICO, OD_2007_NoNA_SZ) names(OD_2007_NoNA) <- c("ID_UNICO","SZDSEQ") OD_2007 <- merge(OD_2007, OD_2007_NoNA, by.x="ID_UNICO",by.y="ID_UNICO", all.x=TRUE, all.y=FALSE) rm(OD_2007_NoNA_SZ, OD_2007_NoNA, subzonas1997) OD_1997$SZOSEQ[OD_1997$SZOSEQ==0] <- NA OD_1997$SZDSEQ[OD_1997$SZDSEQ==0] <- NA #### 0.3 Inputing zones centroids#### ##Since this takes a while to run, I put it in an auxiliar dataframe that can be reproduced by the # ! elimination below #!DIST_OD_1997 <- OD_1997[,c("ID_UNICO","SZOSEQ","SZDSEQ","ZONA_O_PAD","ZONA_D_PAD")] #!DIST_OD_2007 <- OD_2007[,c("ID_UNICO","SZOSEQ","SZDSEQ","ZONA_O_PAD","ZONA_D_PAD")] #!centroidssubzonas97 <- read.dbf(paste0(dir(Centroids_subzonas_97.dbf"), as.is = T) #!centroidssubzonas97$SubSeq <- as.numeric(centroidssubzonas97$SubSeq) #!centroidssubzonas97_O<-centroidssubzonas97 #!names(centroidssubzonas97_O) <- c("SubSeq","CENTROID_SZO_CORRALE_X","CENTROID_SZO_CORRALE_Y","CENTROID_SZO_WGS84_X","CENTROID_SZO_WGS84_Y") #!centroidssubzonas97_D<-centroidssubzonas97 #!names(centroidssubzonas97_D) <- c("SubSeq","CENTROID_SZD_CORRALE_X","CENTROID_SZD_CORRALE_Y","CENTROID_SZD_WGS84_X","CENTROID_SZD_WGS84_Y") #!DIST_OD_1997 <- merge(DIST_OD_1997, centroidssubzonas97_O, #! by.x="SZOSEQ",by.y="SubSeq", #! all.x=T, all.y=F) #!#!DIST_OD_1997 <- merge(DIST_OD_1997, centroidssubzonas97_D, #! by.x="SZDSEQ",by.y="SubSeq", #! all.x=T, all.y=F) #! #!DIST_OD_2007 <- merge(DIST_OD_2007, centroidssubzonas97_O, #! by.x="SZOSEQ",by.y="SubSeq", #! all.x=T, all.y=F) #!DIST_OD_2007 <- merge(DIST_OD_2007, centroidssubzonas97_D, #! by.x="SZDSEQ",by.y="SubSeq", #! all.x=T, all.y=F) #!rm(centroidssubzonas97_O,centroidssubzonas97_D,centroidssubzonas97) #!centroidszonas97 <- read.csv(paste0(dir,"Datasets/Centroids_zonas_97.csv"), header = T, sep = ";") #!centroidszonas97_O<-centroidszonas97 #!names(centroidszonas97_O) <- c("Zona","CENTROID_ZO_WGS84_X","CENTROID_ZO_WGS84_Y","CENTROID_ZO_CORRALE_X","CENTROID_ZO_CORRALE_Y") #!centroidszonas97_D<-centroidszonas97 #!names(centroidszonas97_D) <- c("Zona","CENTROID_ZD_WGS84_X","CENTROID_ZD_WGS84_Y","CENTROID_ZD_CORRALE_X","CENTROID_ZD_CORRALE_Y") #!DIST_OD_1997 <- merge(DIST_OD_1997, centroidszonas97_O, #! by.x="ZONA_O_PAD",by.y="Zona", #! all.x=T, all.y=F) #!DIST_OD_1997 <- merge(DIST_OD_1997, centroidszonas97_D, #! by.x="ZONA_D_PAD",by.y="Zona", #! all.x=T, all.y=F) #!DIST_OD_2007 <- merge(DIST_OD_2007, centroidszonas97_O, #! by.x="ZONA_O_PAD",by.y="Zona", #! all.x=T, all.y=F) #!DIST_OD_2007 <- merge(DIST_OD_2007, centroidszonas97_D, #! by.x="ZONA_D_PAD",by.y="Zona", #! all.x=T, all.y=F) #!rm(centroidszonas97, centroidszonas97_D, centroidszonas97_O) ##Calculating the distance between subzones centroids (O-D) for 1997 #!OD_1997_nona <- DIST_OD_1997[!is.na(DIST_OD_1997$CENTROID_SZO_WGS84_X),] #!OD_1997_nona$DISTANCIA_CENTROIDS_SZ_OD <- sapply(1:nrow(OD_1997_nona),function(i) #! spDistsN1(as.matrix(OD_1997_nona[i,c("CENTROID_SZO_CORRALE_X","CENTROID_SZO_CORRALE_Y")]),as.matrix(OD_1997_nona[i,c("CENTROID_SZD_CORRALE_X","CENTROID_SZD_CORRALE_Y")]),longlat=F)) #summary(OD_1997_nona$DISTANCIA_CENTROIDS_SZ_OD) #!OD_1997_nona <- OD_1997_nona[,c("ID_UNICO","DISTANCIA_CENTROIDS_SZ_OD")] #!DIST_OD_1997 <- merge(DIST_OD_1997, OD_1997_nona, #! by.x = "ID_UNICO", by.y = "ID_UNICO", #! all.x = TRUE, all.y = FALSE) #!rm(OD_1997_nona) ##Calculating the distance between subzones centroids (O-D) for 2007 #!OD_2007_nona <- DIST_OD_2007[!is.na(DIST_OD_2007$CENTROID_SZO_WGS84_X),] #!OD_2007_nona$DISTANCIA_CENTROIDS_SZ_OD <- sapply(1:nrow(OD_2007_nona),function(i) #! spDistsN1(as.matrix(OD_2007_nona[i,c("CENTROID_SZO_CORRALE_X","CENTROID_SZO_CORRALE_Y")]),as.matrix(OD_2007_nona[i,c("CENTROID_SZD_CORRALE_X","CENTROID_SZD_CORRALE_Y")]),longlat=F)) #!summary(OD_2007_nona$DISTANCIA_CENTROIDS_SZ_OD) #!OD_2007_nona <- OD_2007_nona[,c("ID_UNICO","DISTANCIA_CENTROIDS_SZ_OD")] #!DIST_OD_2007 <- merge(DIST_OD_2007, OD_2007_nona, #! by.x = "ID_UNICO", by.y = "ID_UNICO", #! all.x = TRUE, all.y = FALSE) #!rm(OD_2007_nona) ##Calculating the distance between zones centroids (O-D) for 1997 #!OD_1997_nona <- DIST_OD_1997[!is.na(DIST_OD_1997$CENTROID_ZO_WGS84_X),] #!OD_1997_nona$DISTANCIA_CENTROIDS_Z_OD <- sapply(1:nrow(OD_1997_nona),function(i) #! spDistsN1(as.matrix(OD_1997_nona[i,c("CENTROID_ZO_CORRALE_X","CENTROID_ZO_CORRALE_Y")]),as.matrix(OD_1997_nona[i,c("CENTROID_ZD_CORRALE_X","CENTROID_ZD_CORRALE_Y")]),longlat=F)) #summary(OD_1997_nona$DISTANCIA_CENTROIDS_Z_OD) #!OD_1997_nona <- OD_1997_nona[,c("ID_UNICO","DISTANCIA_CENTROIDS_Z_OD")] #!DIST_OD_1997 <- merge(DIST_OD_1997, OD_1997_nona, #! by.x = "ID_UNICO", by.y = "ID_UNICO", #! all.x = TRUE, all.y = FALSE) #!rm(OD_1997_nona) ##Calculating the distance between zones centroids (O-D) for 2007 #!OD_2007_nona <- DIST_OD_2007[!is.na(DIST_OD_2007$CENTROID_ZO_WGS84_X),] #!OD_2007_nona$DISTANCIA_CENTROIDS_Z_OD <- sapply(1:nrow(OD_2007_nona),function(i) #! spDistsN1(as.matrix(OD_2007_nona[i,c("CENTROID_ZO_CORRALE_X","CENTROID_ZO_CORRALE_Y")]),as.matrix(OD_2007_nona[i,c("CENTROID_ZD_CORRALE_X","CENTROID_ZD_CORRALE_Y")]),longlat=F)) #!summary(OD_2007_nona$DISTANCIA_CENTROIDS_Z_OD) #!OD_2007_nona <- OD_2007_nona[,c("ID_UNICO","DISTANCIA_CENTROIDS_Z_OD")] #!DIST_OD_2007 <- merge(DIST_OD_2007, OD_2007_nona, #! by.x = "ID_UNICO", by.y = "ID_UNICO", #! all.x = TRUE, all.y = FALSE) #!rm(OD_2007_nona) #!DIST_OD_1997$SZDSEQ <- NULL #!DIST_OD_1997$SZOSEQ <- NULL #!DIST_OD_1997$ZONA_O_PAD <- NULL #!DIST_OD_1997$ZONA_D_PAD <- NULL #!DIST_OD_1997 <- DIST_OD_1997[,order(names(DIST_OD_1997))] #!DIST_OD_2007$SZDSEQ <- NULL #!DIST_OD_2007$SZOSEQ <- NULL #!DIST_OD_2007$ZONA_O_PAD <- NULL #!DIST_OD_2007$ZONA_D_PAD <- NULL #!DIST_OD_2007 <- DIST_OD_2007[,order(names(DIST_OD_2007))] #save(file=paste0(dir,"Datasets/DIST_OD_1997.RData"),DIST_OD_1997)) #save(file=paste0(dir,"Datasets/DIST_OD_2007.RData",DIST_OD_2007)) load(file=paste0(dir,"Datasets/DIST_OD_1997.RData")) load(file=paste0(dir,"Datasets/DIST_OD_2007.RData")) ##Bringing centroids' distance to the original dataframe OD_1997 <- merge(OD_1997, DIST_OD_1997, by.x="ID_UNICO",by.y="ID_UNICO") OD_2007 <- merge(OD_2007, DIST_OD_2007, by.x="ID_UNICO",by.y="ID_UNICO") rm(DIST_OD_1997,DIST_OD_2007) ##Dummy whether individual lives in SP or in the MRSP OD_1997$MORASP <- 0 OD_1997$MORASP[OD_1997$MUNI_DOM=="São Paulo"] <- 1 OD_2007$MORASP <- 0 OD_2007$MORASP[OD_2007$MUNI_DOM=="São Paulo"] <- 1 ##Zone area areas <- read.dbf(paste0(dir,"Datasets/Gis/Subzonas_1997_CA.dbf"),as.is = T) names(areas) <- toupper(names(areas)) area_o <- areas[,c("SUBSEQ","AREA_SZ")] names(area_o) <- c("SUBSEQ","AREA_SZO") area_d <- areas[,c("SUBSEQ","AREA_SZ")] names(area_d) <- c("SUBSEQ","AREA_SZD") #1997 OD_1997 <- merge(OD_1997, area_o, by.x = "SZOSEQ", by.y = "SUBSEQ", all.x = TRUE, all.y = FALSE) OD_1997 <- merge(OD_1997, area_d, by.x = "SZDSEQ", by.y = "SUBSEQ", all.x = TRUE, all.y = FALSE) #2007 OD_2007 <- merge(OD_2007, area_o, by.x = "SZOSEQ", by.y = "SUBSEQ", all.x = TRUE, all.y = FALSE) OD_2007 <- merge(OD_2007, area_d, by.x = "SZDSEQ", by.y = "SUBSEQ", all.x = TRUE, all.y = FALSE) rm(areas, area_d, area_o) ##Dividing individuals within famliar income quantile #1997 #Creating another dataset and ordering it by "first familiy interview" OD_1997_individuos <- OD_1997[order(OD_1997$F_FAM, decreasing = TRUE),] #Keeping only one sample per family OD_1997_individuos <- OD_1997_individuos[!duplicated(OD_1997_individuos$ID_FAM),] #Ordering by familiar income OD_1997_individuos <- OD_1997_individuos[order(OD_1997_individuos$RENDATRI, decreasing = FALSE),] #Creating two variables that cumulatively sum families' expansion factor. One variable is percentage, the other is total #Example: the first family has FE=10 and, the second, FE=20. Together, they are equivalent to 3 families identical to them. OD_1997_individuos$FE_FAM_CUM_PCT <- cumsum(OD_1997_individuos$FE_FAM)/sum(OD_1997_individuos$FE_FAM) OD_1997_individuos$FE_FAM_CUM <- cumsum(OD_1997_individuos$FE_FAM) #Creating a variable that cuts the dataset in 10, according to the order OD_1997_individuos$DECIL <- cut(OD_1997_individuos$FE_FAM_CUM_PCT, breaks = c(0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1), labels = c(1,2,3,4,5,6,7,8,9,10)) #Creating a variable that cuts the dataset in 5, according to the order OD_1997_individuos$QUINTIL <- cut(OD_1997_individuos$FE_FAM_CUM_PCT, breaks = c(0,0.2,0.4,0.6,0.8,1), labels = c(1,2,3,4,5)) #Subseting the dataset OD_1997_individuos <- OD_1997_individuos[,c("ID_FAM","DECIL","QUINTIL")] names(OD_1997_individuos) <- c("ID_FAM","DECIL_FAM","QUINTIL_FAM") #Merging to the main dataset OD_1997 <- merge(OD_1997, OD_1997_individuos, by.x = "ID_FAM", by.y = "ID_FAM", all.x = TRUE, all.y = FALSE) rm(OD_1997_individuos) #2007 #Doing the same for 2007 OD_2007_individuos <- OD_2007[order(OD_2007$F_FAM, decreasing = TRUE),] OD_2007_individuos <- OD_2007_individuos[!duplicated(OD_2007_individuos$ID_FAM),] OD_2007_individuos <- OD_2007_individuos[order(OD_2007_individuos$RENDA_FA, decreasing = FALSE),] OD_2007_individuos$FE_FAM_CUM_PCT <- cumsum(OD_2007_individuos$FE_FAM)/sum(OD_2007_individuos$FE_FAM) OD_2007_individuos$FE_FAM_CUM <- cumsum(OD_2007_individuos$FE_FAM) OD_2007_individuos$DECIL <- cut(OD_2007_individuos$FE_FAM_CUM_PCT, breaks = c(0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1), labels = c(1,2,3,4,5,6,7,8,9,10)) OD_2007_individuos$QUINTIL <- cut(OD_2007_individuos$FE_FAM_CUM_PCT, breaks = c(0,0.2,0.4,0.6,0.8,1), labels = c(1,2,3,4,5)) OD_2007_individuos <- OD_2007_individuos[,c("ID_FAM","DECIL","QUINTIL")] names(OD_2007_individuos) <- c("ID_FAM","DECIL_FAM","QUINTIL_FAM") OD_2007 <- merge(OD_2007, OD_2007_individuos, by.x = "ID_FAM", by.y = "ID_FAM", all.x = TRUE, all.y = FALSE) rm(OD_2007_individuos) #### 0.4 Calculating the distance between zones centroids#### ##One of the main difficulties of working with 1997 data is the inexistence of a distance variable. #There is not, also variables indicating the coordinates of origin and destination. #Therefore, an estimation of the distance is conducted based on the distance of the centroids #of the (sampling) subzones. #The same analysis is conducted for 2007 in order to test the robustness of this proxy and it is acceptable. #Creating a varaible which attributes value 1 to the distance, in case of it is equals zero #Criando uma variável: atribui valor 1 à distância, caso ela seja NA (zero) (apenas 2007) OD_2007$DISTANCIA[is.na(OD_2007$DISTANCIA) & !is.na(OD_2007$FE_VIA)] <- 1 #Creating a variable for speed (actual, revealed, only for 2007) ##Criando uma variável para a velocidade (observada, apenas 2007) OD_2007$VELOCIDADE_OBS <- (OD_2007$DISTANCIA/1000)/(OD_2007$DURACAO/60) ##2007 #Creatring two variables: OD (zone) pair and dummy = 1 if the trip is intrazone #Criando duas variáveis: par O-D (zona) e dummy = 1 se a viagem é intrazona OD_2007$O_D <- factor(paste(OD_2007$ZONA_O_PAD,OD_2007$ZONA_D_PAD,sep = "_")) OD_2007$ZONA_D_PAD_factor <- as.factor(OD_2007$ZONA_D_PAD) OD_2007$ZONA_O_PAD_factor <- as.factor(OD_2007$ZONA_O_PAD) OD_2007$MUN_O_D <- factor(paste(OD_2007$MUNI_O,OD_2007$MUNI_D,sep = "_")) OD_2007$MESMA_ZONA <- 0 OD_2007$MESMA_ZONA[OD_2007$ZONA_O_PAD==OD_2007$ZONA_D_PAD] <- 1 OD_1997$O_D <- factor(paste(OD_1997$ZONA_O_PAD,OD_1997$ZONA_D_PAD,sep = "_")) OD_1997$ZONA_D_PAD_factor <- as.factor(OD_1997$ZONA_D_PAD) OD_1997$ZONA_O_PAD_factor <- as.factor(OD_1997$ZONA_O_PAD) OD_1997$MUN_O_D <- factor(paste(OD_1997$MUNI_O,OD_1997$MUNI_D,sep = "_")) OD_1997$MESMA_ZONA <- 0 OD_1997$MESMA_ZONA[OD_1997$ZONA_O_PAD==OD_1997$ZONA_D_PAD] <- 1 #Creatring two variables: OD (zone) pair and dummy = 1 if the trip is intrasubzone #Criando duas variáveis: par O-D (subzona) e dummy = 1 se a viagem é intrasubzona OD_2007$O_D_SZ <- factor(paste(OD_2007$SZOSEQ,OD_2007$SZDSEQ,sep = "_")) OD_2007$SZ_D_factor <- as.factor(OD_2007$SZDSEQ) OD_2007$SZ_O_factor <- as.factor(OD_2007$SZOSEQ) OD_2007$MESMA_SUBZONA <- 0 OD_2007$MESMA_SUBZONA[OD_2007$SZOSEQ==OD_2007$SZDSEQ] <- 1 OD_1997$O_D_SZ <- factor(paste(OD_1997$SZOSEQ,OD_1997$SZDSEQ,sep = "_")) OD_1997$SZ_D_factor <- as.factor(OD_1997$SZDSEQ) OD_1997$SZ_O_factor <- as.factor(OD_1997$SZOSEQ) OD_1997$MESMA_SUBZONA <- 0 OD_1997$MESMA_SUBZONA[OD_1997$SZOSEQ==OD_1997$SZDSEQ] <- 1 #Creating variable: duration^2 OD_2007$DURACAO_2 <- OD_2007$DURACAO^2 OD_1997$DURACAO_2 <- OD_1997$DURACAO^2 #save(file="C:/Users/miguel.jacob/Documents/Miguel/Dissertação/Dados/OD/OD_1997_ate800.RData", OD_1997) #save(file="C:/Users/miguel.jacob/Documents/Miguel/Dissertação/Dados/OD/OD_2007_ate800.RData", OD_2007) #load(file="C:/Users/miguel.jacob/Documents/Miguel/Dissertação/Dados/OD/OD_1997_ate800.RData") #load(file="C:/Users/miguel.jacob/Documents/Miguel/Dissertação/Dados/OD/OD_2007_ate800.RData") ###Modelo 1 - Utilizando somente (e somente para) as viagens intrazona na estimativa de distância ###First option - estimating the distance of the intrazone trips only (the others are assessed "centroid O" - "centroid D") ##Esquema visual: # --- # | # | - Zona o != zona d, DISTANCIA_CENTROIDS_OD = distância entre os centróides # | # | - Zona o = zona d, DISTANCIA_CENTROIDS_OD será estimada a partir de um modelo # 2007: Proxy de distância = variável DISTANCIA_CENTROIDS_OD < linear. Uma vez que, para 2007, há a distância (real) percorrida observada, # | é possível fazer um modelo da seguinte forma: # | DISTANCIA = b0 + b*{DURACAO+TIPOVG+IDADE+IDADE_2+REN_F_CORR+DESTINO_MOTIVO+ORIGEM_MOTIVO} # | Assim, a DISTANCIA_CENTROIDS_OD será igual ao valor estimado da DISTANCIA chapéu para esses pares de zona # | # --- # # # --- # | # | - Zona o != zona d, DISTANCIA_CENTROIDS_OD = distância entre os centróides # | # | - Zona o = zona d, DISTANCIA_CENTROIDS_OD será estimada a partir do modelo estimado para 2007. # 1997: Proxy de distância = variável DISTANCIA_CENTROIDS_OD < (modelo 2007) : DISTANCIA = b0 + b*{DURACAO+TIPOVG+IDADE+IDADE_2+REN_F_CORR+DESTINO_MOTIVO+ORIGEM_MOTIVO} # | Aplicam-se os coeficientes nesse subset da base de 1997, encontrando-se uma estimativa de distância # | percorrida para as viagens intrazonas. # | # | # --- ##Visual Scheme --- # | # | - If Orign Zone != Destination zone: Centroid O - Centroid D # | # | - If Orign Zone != Destination zone: a linear model is estimated based on the observed distance, to be used on the 1997 dataset # For 2007: < # | é possível fazer um modelo da seguinte forma: # | OBSERVED_DISTANCE = b0 + b*{SUBZONE+DURATION+MODE+AGE+AGE^2+F_INCOME+PURPOSE_O+PURPOSE_D} # | # | # --- # # # --- # | # | - If Orign Zone != Destination zone: Centroid O - Centroid D # | # | - If Orign Zone != Destination zone: the coefficients of the model estimated for 1997 are applied on the # For 1997: < intrasubzones trips dataset # | # | # --- #Creating a dataset containing only the intrasubzones trips #Criando uma base apenas contendo as viagens intrazona intrazona_07 <- OD_2007[OD_2007$MESMA_SUBZONA==1,] #outlierKD(intrazona_07, VELOCIDADE_OBS) #y #summary(intrazona_07$VELOCIDADE_OBS) intrazona_07$AUXDEL <- 0 corte <- (mean(intrazona_07$VELOCIDADE_OBS[intrazona_07$TIPOVG=="A pé"]) + sd(intrazona_07$VELOCIDADE_OBS[intrazona_07$TIPOVG=="A pé"])) intrazona_07$AUXDEL[intrazona_07$TIPOVG=="A pé" & intrazona_07$VELOCIDADE_OBS>corte] <- 1 intrazona_07 <- intrazona_07[intrazona_07$AUXDEL==0,] #hist(intrazona_07$VELOCIDADE_OBS[intrazona_07$TIPOVG=="A pé"]) intrazona_07$O_D_SZ <- droplevels(intrazona_07$O_D_SZ) intrazona_07$SZ_O_factor <- droplevels(intrazona_07$SZ_O_factor) #Distance prediction for 2007 #Fazendo um modelo de predição da distância lmintrazona_07 <- (lm(DISTANCIA ~ DURACAO+DURACAO_2+PERIODO_SAIDA+PERIODO_CHEG+TIPOVG+MODOPRIN+IDADE+IDADE_2+DESTINO_MOTIVO+ORIGEM_MOTIVO+AREA_SZO+D_MASCULINO+D_ESTUDANTE+QUINTIL_FAM+ZONA_O_PAD_factor, data = intrazona_07, weights = FE_VIA)) summary(lmintrazona_07) #stargazer(lmintrazona_07, out = "Modelo_estimação_distância_intrazonas.html") #lmintrazona_07$xlevels[["O_D"]] <- union(lmintrazona_07$xlevels[["O_D"]], levels(intrazona_07$O_D)) lmintrazona_07$xlevels[["TIPOVG"]] <- union(lmintrazona_07$xlevels[["TIPOVG"]], levels(intrazona_07$TIPOVG)) lmintrazona_07$xlevels[["DESTINO_MOTIVO"]] <- union(lmintrazona_07$xlevels[["DESTINO_MOTIVO"]], levels(intrazona_07$DESTINO_MOTIVO)) lmintrazona_07$xlevels[["ORIGEM_MOTIVO"]] <- union(lmintrazona_07$xlevels[["ORIGEM_MOTIVO"]], levels(intrazona_07$ORIGEM_MOTIVO)) lmintrazona_07$xlevels[["ZONA_O_PAD_factor"]] <- union(lmintrazona_07$xlevels[["ZONA_O_PAD_factor"]], levels(intrazona_07$ZONA_O_PAD_factor)) #Aplicando os coeficientes ao observado #Predicting the coefficients intrazona_07$DISTANCIA_OD_PREDICT <- predict(lmintrazona_07,intrazona_07) #Ajustando os predicts negativos #Adjusting negative distance hat intrazona_07$DISTANCIA_OD_PREDICT[intrazona_07$DISTANCIA_OD_PREDICT<1] <- 1 #plot(intrazona_07$DISTANCIA_OD_PREDICT, intrazona_07$DISTANCIA) #boxplot(intrazona_07$DISTANCIA) #boxplot(intrazona_07$DISTANCIA_OD_PREDICT) intrazona_07$DISTANCIA_INTRASUBZONA_PREDICT<- intrazona_07$DISTANCIA_OD_PREDICT #Colocando essa variável predita na base original #Moving this variable to the main dataset OD_2007 <- merge(OD_2007, intrazona_07[,c("ID_UNICO","DISTANCIA_INTRASUBZONA_PREDICT")], by.x="ID_UNICO", by.y="ID_UNICO", all.x=TRUE, all.y=FALSE) #Aplicando para a variável proxy de distância. Se a viagem é intrazona, ela assume o valor da distância predita. #Se a viagem não é intrazona, o valor da proxy de distância é a distância entre os centroides das zonas de origem e destino #Actually diferentiating the variables: distance hat is the distance between centroids if trip is between #two different subzones and is the estimation conducted above on the contrary OD_2007$DISTANCIA_CENTROIDS_SZ_OD[OD_2007$MESMA_SUBZONA==1] <- OD_2007$DISTANCIA_INTRASUBZONA_PREDICT[OD_2007$MESMA_SUBZONA==1] summary(OD_2007$DISTANCIA) summary(OD_2007$DISTANCIA_CENTROIDS_SZ_OD) rm(intrazona_07) ##1997 #Criando uma base apenas contendo as viagens intrazona #Criando uma base apenas contendo as viagens intrazona intrazona_97 <- OD_1997[OD_1997$MESMA_SUBZONA==1,] #intrazona_97$O_D <- droplevels(intrazona_97$O_D) #Predicting through 2007 model's coefficients intrazona_97$DISTANCIA_INTRASUBZONA_PREDICT <- predict(lmintrazona_07,intrazona_97) #Ajustando os predicts negativos #Adjusting negative distance hat intrazona_97$DISTANCIA_INTRASUBZONA_PREDICT[intrazona_97$DISTANCIA_INTRASUBZONA_PREDICT<1] <- 1 summary(intrazona_97$DISTANCIA_INTRASUBZONA_PREDICT) #Colocando essa variável predita na base original #Passing the predict variable to the main dataset OD_1997 <- merge(OD_1997, intrazona_97[,c("ID_UNICO","DISTANCIA_INTRASUBZONA_PREDICT")], by.x="ID_UNICO", by.y="ID_UNICO", all.x=TRUE, all.y=FALSE) #Aplicando para a variável proxy de distância. Se a viagem é intrazona, ela assume o valor da distância predita. #Se a viagem não é intrazona, o valor da proxy de distância é a distância entre os centroides das zonas de origem e destino #Actually diferentiating the variables: distance hat is the distance between centroids if trip is between #two different subzones and is the estimation conducted above on the contrary summary(OD_1997$DISTANCIA_CENTROIDS_SZ_OD) OD_1997$DISTANCIA_CENTROIDS_SZ_OD[OD_1997$MESMA_SUBZONA==1] <- OD_1997$DISTANCIA_INTRASUBZONA_PREDICT[OD_1997$MESMA_SUBZONA==1] summary(OD_1997$DISTANCIA_CENTROIDS_SZ_OD) summary(OD_2007$DISTANCIA_CENTROIDS_SZ_OD) OD_1997$DISTANCIA_CENTROIDS_SZ_OD[OD_1997$DISTANCIA_CENTROIDS_SZ_OD<1] <- 1 OD_2007$DISTANCIA_CENTROIDS_SZ_OD[OD_2007$DISTANCIA_CENTROIDS_SZ_OD<1] <- 1 summary(OD_1997$DISTANCIA_CENTROIDS_SZ_OD) summary(OD_2007$DISTANCIA_CENTROIDS_SZ_OD) rm(intrazona_97, lmintrazona_07) OD_1997$DISTANCIA_INTRAZONA_PREDICT <- NULL OD_2007$DISTANCIA_INTRAZONA_PREDICT <- NULL rm(corte) ###Modelo 2 - Utilizando todas as viagens na estimativa de distância ###Second option - Estimating the distance of all trips (not only intrasubzone) ##2007's coefficietns are applied on 1997 dataset #2007 #Fazendo um modelo de predição da distância lmtodasviagens_07 <- lm(DISTANCIA ~ DURACAO+DURACAO_2+PERIODO_SAIDA+PERIODO_CHEG+TIPOVG+MODOPRIN+IDADE+IDADE_2+DESTINO_MOTIVO+ORIGEM_MOTIVO+D_MASCULINO+D_ESTUDANTE+QUINTIL_FAM, data = OD_2007, weights = FE_VIA) summary(lmtodasviagens_07) #lmintrazona_07$xlevels[["O_D"]] <- union(lmintrazona_07$xlevels[["O_D"]], levels(intrazona_07$O_D)) lmtodasviagens_07$xlevels[["TIPOVG"]] <- union(lmtodasviagens_07$xlevels[["TIPOVG"]], levels(OD_2007$TIPOVG)) lmtodasviagens_07$xlevels[["DESTINO_MOTIVO"]] <- union(lmtodasviagens_07$xlevels[["DESTINO_MOTIVO"]], levels(OD_2007$DESTINO_MOTIVO)) lmtodasviagens_07$xlevels[["ORIGEM_MOTIVO"]] <- union(lmtodasviagens_07$xlevels[["ORIGEM_MOTIVO"]], levels(OD_2007$ORIGEM_MOTIVO)) #lmtodasviagens_07$xlevels[["ZONA_O_PAD_factor"]] <- union(lmtodasviagens_07$xlevels[["ZONA_O_PAD_factor"]], levels(OD_2007$ZONA_O_PAD_factor)) #Aplicando os coeficientes ao observado OD_2007$DISTANCIA_OD_PREDICT <- predict(lmtodasviagens_07,OD_2007) #Ajustando os predicts negativos OD_2007$DISTANCIA_OD_PREDICT[OD_2007$DISTANCIA_OD_PREDICT<1] <- 1 #plot(OD_2007$DISTANCIA_OD_PREDICT, OD_2007$DISTANCIA) summary(OD_2007$DISTANCIA) summary(OD_2007$DISTANCIA_OD_PREDICT) #1997 #Aplicando os coeficientes ao observado OD_1997$DISTANCIA_OD_PREDICT <- predict(lmtodasviagens_07,OD_1997) rm(lmtodasviagens_07) #Ajustando os predicts negativos OD_1997$DISTANCIA_OD_PREDICT[OD_1997$DISTANCIA_OD_PREDICT<1] <- 1 summary(OD_1997$DISTANCIA_OD_PREDICT) ##Comparando: Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #1.Observado 2007 (DISTANCIA) : 1 830 2559 5200 6910 84100 27032 #2.Estimado só intra 2007 (DISTANCIA_CENTROIDS_OD) : 1 1116 2865 5446 7276 88780 27832 #3.Estimado todas vg 2007 (DISTANCIA_OD_PREDICT) : 1 1891 4301 5637 8072 36720 27033 #4.Estimado só intra 1997 (DISTANCIA_CENTROIDS_OD) : 1 944 2538 5387 7168 85130 36106 #5.Estimado todas vg 1997 (DISTANCIA_OD_PREDICT) : 1 1500 3878 5217 7394 40060 36106 #Summary: #1 = 2007 observed #2 = 2007 only intrasubzones predicted and intersubzones being the difference between centroids #3 = 2007 all trips predicted based on subzones pairs #4 = 1997 only intrasubzones predicted and intersubzones being the difference between centroids #5 = 2007 all trips predicted based on subzones pairs ##Relembrando: 1 é o observado em 2007. 2 e 4 são a distância entre os centroids das zonas #(e quando a viagem for intrazona, o valor é estimado em um modelo cujas variáveis explicativas são #características da viagem e a explicada é a distância, em 2007; os parâmetros são aplicados depois para 1997). #3 e 5 são distância estimadas a partir dos parâmetros de uma regressão cuja variável explicada em 2007 é #a distância observada, e as explicativas são características da viagem; #posteriormente, os parâmetros são aplicados para 1997. ##Irei utilizar a variável da distância entre os centroids (2 e 4). Logo: ##The first option (2 and 4 above) presented themselves more adherent to 2007 observed. They will be used from now on #as trips distance, then. OD_1997$DIST <- OD_1997$DISTANCIA_CENTROIDS_SZ_OD OD_2007$DIST <- OD_2007$DISTANCIA_CENTROIDS_SZ_OD ##Distância ao quadrado OD_2007$DIST_2 <- OD_2007$DIST^2 OD_1997$DIST_2 <- OD_1997$DIST^2 #### 0.5 Creating other auxiliar variables #### #### 0.5.1 Estimating individual income #### #1997 ##Criando bases de indivíduos #1997 OD_1997_individuos <- OD_1997[order(OD_1997$F_FAM, decreasing = TRUE),] OD_1997_individuos$ID_PESSOA <- as.character(OD_1997_individuos$ID_PESS) OD_1997_individuos <- OD_1997_individuos[order(OD_1997_individuos$F_PESS, decreasing = TRUE),] OD_1997_individuos <- OD_1997_individuos[!duplicated(OD_1997_individuos$ID_PESS),] #OD_1997_individuos$ID_PESS <- droplevels(OD_1997_individuos$ID_PESS) levels(OD_1997_individuos$CONDMORA) OD_1997_individuos$CONDMORA[OD_1997_individuos$CONDMORA=="Não Respondeu"]<-NA OD_1997_individuos$CONDMORA <- droplevels(OD_1997_individuos$CONDMORA) OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$IDADE),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$TIPO_DOM),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$CONDMORA),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$D_MASCULINO),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$INSTRUCAO),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$D_EMPREGADO),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$D_ESTUDANTE),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_ASPIR),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_AUTO),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_BANHO),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_EMPRE),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_MICRO),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_MLAVA),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_RADIO),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_VIDEO),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$QT_TVCOR),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$VINC1),] OD_1997_individuos <- OD_1997_individuos[!is.na(OD_1997_individuos$REN_I_CORR),] OD_1997_individuos <- OD_1997_individuos[OD_1997_individuos$REN_I_CORR>0,] ##Regressão #97 #mudando variáveis OD_1997_individuos$CONDMORA_AJUST[OD_1997_individuos$CONDMORA=="Própria"]<-"Própria" OD_1997_individuos$CONDMORA_AJUST[OD_1997_individuos$CONDMORA=="Alugada"]<-"NãoPrópria" OD_1997_individuos$CONDMORA_AJUST[OD_1997_individuos$CONDMORA=="Cedida"]<-"NãoPrópria" OD_1997_individuos$CONDMORA_AJUST[OD_1997_individuos$CONDMORA=="Outros"]<-"NãoPrópria" OD_1997_individuos$TIPO_DOM_AJUST[OD_1997_individuos$TIPO_DOM=="Particular"]<-"Particular" OD_1997_individuos$TIPO_DOM_AJUST[OD_1997_individuos$TIPO_DOM=="Coletivo"]<-"Outras" OD_1997_individuos$TIPO_DOM_AJUST[OD_1997_individuos$TIPO_DOM=="Favela"]<-"Outras" #Modelo modelo5_97 <- lm(REN_I_CORR ~ IDADE+TIPO_DOM_AJUST+D_MASCULINO+ D_EMPREGADO+D_ESTUDANTE+QT_ASPIR+ QT_EMPRE+QT_MICRO+QT_MLAVA+QT_RADIO+QT_VIDEO, data = OD_1997_individuos, na.action = na.omit) summary(modelo5_97) #Predição OD_1997_individuos$REN_ESTIMADA <-fitted(modelo5_97) OD_1997_individuos$REN_ESTIMADA_AUX <- OD_1997_individuos$REN_ESTIMADA OD_1997_individuos$REN_ESTIMADA_AUX[OD_1997_individuos$REN_ESTIMADA_AUX<0] <- 0 OD_1997_individuos$REN_ESTIMADA <- OD_1997_individuos$REN_ESTIMADA_AUX OD_1997_individuos$REN_ESTIMADA_AUX <- NULL #Voltando à base original OD_1997 <- merge(OD_1997, OD_1997_individuos[,c('ID_PESS','REN_ESTIMADA')], by.x ='ID_PESS', by.y='ID_PESS', all.x=TRUE, all.y =FALSE) rm(OD_1997_individuos) ##2007 ##Criando bases de indivíduos #2007 OD_2007_individuos <- OD_2007[order(OD_2007$F_FAM, decreasing = TRUE),] OD_2007_individuos$ID_PESSOA <- as.character(OD_2007_individuos$ID_PESS) OD_2007_individuos <- OD_2007_individuos[order(OD_2007_individuos$F_PESS, decreasing = TRUE),] OD_2007_individuos <- OD_2007_individuos[!duplicated(OD_2007_individuos$ID_PESS),] levels(OD_2007_individuos$CONDMORA) OD_2007_individuos$CONDMORA[OD_2007_individuos$CONDMORA=="Não Respondeu"]<-NA OD_2007_individuos$CONDMORA <- droplevels(OD_2007_individuos$CONDMORA) OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$IDADE),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$TIPO_DOM),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$CONDMORA),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$D_MASCULINO),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$INSTRUCAO),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$D_EMPREGADO),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$D_ESTUDANTE),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_ASPIR),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_AUTO),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_BANHO),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_EMPRE),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_MICRO),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_MLAVA),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_RADIO),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_VIDEO),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$QT_TVCOR),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$VINC1),] OD_2007_individuos <- OD_2007_individuos[!is.na(OD_2007_individuos$REN_I_CORR),] OD_2007_individuos <- OD_2007_individuos[OD_2007_individuos$REN_I_CORR>0,] ##Regressão #97 #mudando variáveis OD_2007_individuos$CONDMORA_AJUST[OD_2007_individuos$CONDMORA=="Própria"]<-"Própria" OD_2007_individuos$CONDMORA_AJUST[OD_2007_individuos$CONDMORA=="Alugada"]<-"NãoPrópria" OD_2007_individuos$CONDMORA_AJUST[OD_2007_individuos$CONDMORA=="Cedida"]<-"NãoPrópria" OD_2007_individuos$CONDMORA_AJUST[OD_2007_individuos$CONDMORA=="Outros"]<-"NãoPrópria" OD_2007_individuos$TIPO_DOM_AJUST[OD_2007_individuos$TIPO_DOM=="Particular"]<-"Particular" OD_2007_individuos$TIPO_DOM_AJUST[OD_2007_individuos$TIPO_DOM=="Coletivo"]<-"Outras" OD_2007_individuos$TIPO_DOM_AJUST[OD_2007_individuos$TIPO_DOM=="Favela"]<-"Outras" #Modelo modelo5_07 <- lm(REN_I_CORR ~ IDADE+D_MASCULINO+INSTRUCAO_NUM +D_EMPREGADO+QT_ASPIR+QT_AUTO+QT_BANHO+ QT_EMPRE+QT_MICRO, data = OD_2007_individuos, na.action = na.omit) summary(modelo5_07) #Predição OD_2007_individuos$REN_ESTIMADA <-fitted(modelo5_07) OD_2007_individuos$REN_ESTIMADA_AUX <- OD_2007_individuos$REN_ESTIMADA OD_2007_individuos$REN_ESTIMADA_AUX[OD_2007_individuos$REN_ESTIMADA_AUX<0] <- 0 OD_2007_individuos$REN_ESTIMADA <- OD_2007_individuos$REN_ESTIMADA_AUX OD_2007_individuos$REN_ESTIMADA_AUX <- NULL #Voltando à base original OD_2007 <- merge(OD_2007, OD_2007_individuos[,c('ID_PESS','REN_ESTIMADA')], by.x ='ID_PESS', by.y='ID_PESS', all.x=TRUE, all.y =FALSE) rm(OD_2007_individuos) #Exportando os resultados dos modelos stargazer(modelo5_97, modelo5_07, type = "text",dep.var.labels = c("Income 1997/2007"), out = "Modelos_renda_prevista.txt") rm(modelo5_07, modelo5_97) #### 0.5.2 Variable that denotes the number of bus taken in the trip #### ##The code below has the objective to create a variable of how many SP bus were taken in each trip, #Since Bilhete Único is only accepted for São Paulo's municipality bus. #OD2007 has the information whether the bus is São Paulo's or other MRSP municipalities. 1997 don't. #Therefore, an approximation is conducted for 1997: it is considered that one of the bus taken by an individual #is São Paulo's if trip origin or destination is whithin city's boundaries. ##1997 ##criando variável Numero de ônibus de SP pegos #Calculo da variável "mudança" - indica se o indivíduo saiu de SP para outra cidade da RMSP e vice-versa OD_1997$MUN_O_AUX<-NA OD_1997$MUN_O_AUX[OD_1997$MUNI_O=="São Paulo"]<-"SP" OD_1997$MUN_O_AUX[OD_1997$MUNI_O!="São Paulo"]<-"OUT" OD_1997$MUN_D_AUX<-NA OD_1997$MUN_D_AUX[OD_1997$MUNI_D=="São Paulo"]<-"SP" OD_1997$MUN_D_AUX[OD_1997$MUNI_D!="São Paulo"]<-"OUT" OD_1997$MUDANCA<-paste(OD_1997$MUN_O_AUX,OD_1997$MUN_D_AUX, sep = "-") OD_1997$MUN_O_AUX<-NULL OD_1997$MUN_D_AUX<-NULL #Criando variável "ônibus cidade" - indica se o ônibus é de SP ou da RMSP OD_1997$ONIBUS1_CID<-NA OD_1997$ONIBUS2_CID<-NA OD_1997$ONIBUS3_CID<-NA OD_1997$ONIBUS4_CID<-NA OD_1997$ONIBUS1_CID[OD_1997$MUDANCA=="SP-SP"&OD_1997$MODAL1=="Ônibus"]<-"SP" OD_1997$ONIBUS2_CID[OD_1997$MUDANCA=="SP-SP"&OD_1997$MODAL2=="Ônibus"]<-"SP" OD_1997$ONIBUS3_CID[OD_1997$MUDANCA=="SP-SP"&OD_1997$MODAL3=="Ônibus"]<-"SP" OD_1997$ONIBUS4_CID[OD_1997$MUDANCA=="SP-SP"&OD_1997$MODAL4=="Ônibus"]<-"SP" OD_1997$ONIBUS1_CID[OD_1997$MUDANCA=="OUT-OUT"&OD_1997$MODAL1=="Ônibus"]<-"OUT" OD_1997$ONIBUS2_CID[OD_1997$MUDANCA=="OUT-OUT"&OD_1997$MODAL2=="Ônibus"]<-"OUT" OD_1997$ONIBUS3_CID[OD_1997$MUDANCA=="OUT-OUT"&OD_1997$MODAL3=="Ônibus"]<-"OUT" OD_1997$ONIBUS4_CID[OD_1997$MUDANCA=="OUT-OUT"&OD_1997$MODAL4=="Ônibus"]<-"OUT" OD_1997$ONIBUS1_CID[OD_1997$MUDANCA=="OUT-SP"&OD_1997$MODAL1=="Ônibus"]<-"OUT" OD_1997$ONIBUS2_CID[OD_1997$MUDANCA=="OUT-SP"&OD_1997$MODAL2=="Ônibus"]<-"SP" OD_1997$ONIBUS3_CID[OD_1997$MUDANCA=="OUT-SP"&OD_1997$MODAL3=="Ônibus"]<-"SP" OD_1997$ONIBUS4_CID[OD_1997$MUDANCA=="OUT-SP"&OD_1997$MODAL4=="Ônibus"]<-"SP" OD_1997$ONIBUS1_CID[OD_1997$MUDANCA=="SP-OUT"&OD_1997$MODAL1=="Ônibus"&!is.na(OD_1997$MODAL2)]<-"SP" OD_1997$ONIBUS1_CID[OD_1997$MUDANCA=="SP-OUT"&OD_1997$MODAL1=="Ônibus"&is.na(OD_1997$MODAL2)]<-"OUT" OD_1997$ONIBUS2_CID[OD_1997$MUDANCA=="SP-OUT"&OD_1997$MODAL2=="Ônibus"&!is.na(OD_1997$MODAL3)]<-"SP" OD_1997$ONIBUS2_CID[OD_1997$MUDANCA=="SP-OUT"&OD_1997$MODAL2=="Ônibus"&is.na(OD_1997$MODAL3)]<-"OUT" OD_1997$ONIBUS3_CID[OD_1997$MUDANCA=="SP-OUT"&OD_1997$MODAL3=="Ônibus"&!is.na(OD_1997$MODAL4)]<-"SP" OD_1997$ONIBUS3_CID[OD_1997$MUDANCA=="SP-OUT"&OD_1997$MODAL3=="Ônibus"&is.na(OD_1997$MODAL4)]<-"OUT" OD_1997$ONIBUS4_CID[OD_1997$MUDANCA=="SP-OUT"&OD_1997$MODAL4=="Ônibus"]<-"OUT" sum(!is.na(OD_1997$MUDANCA[OD_1997$MUDANCA=="SP-OUT"&OD_1997$ONIBUS1_CID=="SP"])) # Criando variável número de ônibus SP (número de ônibus de São Paulo utilizados na viagem) OD_1997$NUM_ONIBUS<-0 OD_1997$NUM_ONIBUS_AUX<-paste(OD_1997$ONIBUS1_CID,OD_1997$ONIBUS2_CID,OD_1997$ONIBUS3_CID,OD_1997$ONIBUS4_CID) OD_1997$NUM_ONIBUS<-str_count(OD_1997$NUM_ONIBUS_AUX,"SP") OD_1997$NUM_ONIBUS_AUX<-NULL ##2007 OD_2007$ONIBUS1_CID<-NA OD_2007$ONIBUS2_CID<-NA OD_2007$ONIBUS3_CID<-NA OD_2007$ONIBUS4_CID<-NA OD_2007$ONIBUS1_CID[OD_2007$MODO1=="Ônibus do Municipio de São Paulo"| OD_2007$MODO1=="Microônibus/van do Município de São Paulo"]<-"SP" OD_2007$ONIBUS1_CID[OD_2007$MODO1=="Ônibus Metropolitano"| OD_2007$MODO1=="Ônibus outros municípios"| OD_2007$MODO1=="Microônibus de outros municípios"| OD_2007$MODO1=="Microônibus/van metropolitano"]<-"OUT" OD_2007$ONIBUS2_CID[OD_2007$MODO2=="Ônibus do Municipio de São Paulo"| OD_2007$MODO2=="Microônibus/van do Município de São Paulo"]<-"SP" OD_2007$ONIBUS2_CID[OD_2007$MODO2=="Ônibus Metropolitano"| OD_2007$MODO2=="Ônibus outros municípios"| OD_2007$MODO2=="Microônibus de outros municípios"| OD_2007$MODO2=="Microônibus/van metropolitano"]<-"OUT" OD_2007$ONIBUS3_CID[OD_2007$MODO3=="Ônibus do Municipio de São Paulo"| OD_2007$MODO3=="Microônibus/van do Município de São Paulo"]<-"SP" OD_2007$ONIBUS3_CID[OD_2007$MODO3=="Ônibus Metropolitano"| OD_2007$MODO3=="Ônibus outros municípios"| OD_2007$MODO3=="Microônibus de outros municípios"| OD_2007$MODO3=="Microônibus/van metropolitano"]<-"OUT" OD_2007$ONIBUS4_CID[OD_2007$MODO4=="Ônibus do Municipio de São Paulo"| OD_2007$MODO4=="Microônibus/van do Município de São Paulo"]<-"SP" OD_2007$ONIBUS4_CID[OD_2007$MODO4=="Ônibus Metropolitano"| OD_2007$MODO4=="Ônibus outros municípios"| OD_2007$MODO4=="Microônibus de outros municípios"| OD_2007$MODO4=="Microônibus/van metropolitano"]<-"OUT" # Criando variável número de ônibus SP (número de ônibus de São Paulo utilizados na viagem) OD_2007$NUM_ONIBUS<-0 OD_2007$NUM_ONIBUS_AUX<-paste(OD_2007$ONIBUS1_CID,OD_2007$ONIBUS2_CID,OD_2007$ONIBUS3_CID,OD_2007$ONIBUS4_CID) OD_2007$NUM_ONIBUS<-str_count(OD_2007$NUM_ONIBUS_AUX,"SP") OD_2007$NUM_ONIBUS_AUX<-NULL #Calculo da variável "mudança" - tal qual feito em 1997 para efeitos de comparação OD_2007$MUN_O_AUX<-NA OD_2007$MUN_O_AUX[OD_2007$MUNI_O=="São Paulo"]<-"SP" OD_2007$MUN_O_AUX[OD_2007$MUNI_O!="São Paulo"]<-"OUT" OD_2007$MUN_D_AUX<-NA OD_2007$MUN_D_AUX[OD_2007$MUNI_D=="São Paulo"]<-"SP" OD_2007$MUN_D_AUX[OD_2007$MUNI_D!="São Paulo"]<-"OUT" OD_2007$MUDANCA<-paste(OD_2007$MUN_O_AUX,OD_2007$MUN_D_AUX, sep = "-") OD_2007$MUN_O_AUX<-NULL OD_2007$MUN_D_AUX<-NULL OD_2007$ONIBUS1_CID <- NULL OD_2007$ONIBUS2_CID <- NULL OD_2007$ONIBUS3_CID <- NULL OD_2007$ONIBUS4_CID <- NULL OD_1997$ONIBUS1_CID <- NULL OD_1997$ONIBUS2_CID <- NULL OD_1997$ONIBUS3_CID <- NULL OD_1997$ONIBUS4_CID <- NULL #### 0.5.2 Variable that denotes the number of train/subway taken in the trip #### #1997 OD_1997$NUM_FERREO<-NA OD_1997$NUM_FERREO_AUX<-paste(OD_1997$MODAL1,OD_1997$MODAL2,OD_1997$MODAL3,OD_1997$MODAL4) OD_1997$NUM_METRO<-str_count(OD_1997$NUM_FERREO_AUX,"Metrô") OD_1997$NUM_TREM<-str_count(OD_1997$NUM_FERREO_AUX,"Trem") OD_1997$NUM_FERREO <- OD_1997$NUM_METRO+OD_1997$NUM_TREM OD_1997$NUM_FERREO_AUX<-NULL #2007 OD_2007$NUM_FERREO<-NA OD_2007$NUM_FERREO_AUX<-paste(OD_2007$MODAL1,OD_2007$MODAL2,OD_2007$MODAL3,OD_2007$MODAL4) OD_2007$NUM_METRO<-str_count(OD_2007$NUM_FERREO_AUX,"Metrô") OD_2007$NUM_TREM<-str_count(OD_2007$NUM_FERREO_AUX,"Trem") OD_2007$NUM_FERREO <- OD_2007$NUM_METRO+OD_2007$NUM_TREM OD_2007$NUM_FERREO_AUX<-NULL #### 0.6 Checkpoint save ##### ##Salvando para modelo #save(OD_1997,file = paste0(dir,"Datasets/OD_1997_faceted.RData")) #save(OD_2007,file = paste0(dir,"Datasets/OD_2007_faceted.RData")) #load(paste0(dir,"Datasets/OD_1997_faceted.RData")) #load(paste0(dir,"Datasets/OD_2007_faceted.RData")) ##Salvando para estatísticas descritivas ##Padronizando classes de variáveis OD_1997$FAMILIA <- as.numeric(as.character(OD_1997$FAMILIA)) OD_1997$ID_FAM <- as.numeric(as.character(OD_1997$ID_FAM)) OD_2007$ID_DOM <- as.numeric(as.character(OD_2007$ID_DOM)) OD_1997$PESSOA <- as.numeric(as.character(OD_1997$PESSOA)) OD_2007$ZONA_D_PAD <- as.numeric(OD_2007$ZONA_D_PAD) OD_2007$ZONA_O_PAD <- as.numeric(OD_2007$ZONA_O_PAD) ODS <- rbind(OD_1997[intersect(colnames(OD_1997), colnames(OD_2007))], OD_2007[intersect(colnames(OD_1997), colnames(OD_2007))]) ODS <- ODS[,order(names(ODS))] colSums(is.na(ODS)) ##Removendo as variáveis que não estão padronizadas ODS <- ODS[, !(colnames(ODS) %in% c("MODO1","MODO2","MODO3","MODO4"))] #!Conferir se alguma variável não ficou de fora por causa do nome ##Transformando as variáveis necessárias ODS$ANO <- as.factor(ODS$ANO) #save(ODS, file = paste0(dir,"Datasets/ODS.RData")) #### 1 PREPARING DATASET FOR MODELS#### #### 1.0 Datasets might be recalled from the 0.6 checkpoint #### ##Abre as duas ODs load(paste0(dir,"Datasets/OD_1997_faceted.RData")) load(paste0(dir,"Datasets/OD_2007_faceted.RData")) #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/OD_1997_faceted.RData") #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/OD_2007_faceted.RData") ##Filtering for São Paulo OD_1997 <- OD_1997[OD_1997$MORASP==1,] OD_2007 <- OD_2007[OD_2007$MORASP==1,] ##Excluding non-trips observations OD_1997 <- OD_1997[!is.na(OD_1997$FE_VIA),] OD_2007 <- OD_2007[!is.na(OD_2007$FE_VIA),] #### 1.1 Creating a variable for the main mode used in the trip#### ##1997 OD_1997$GRUPO <- paste(OD_1997$MODAL1,OD_1997$MODAL2,OD_1997$MODAL3,OD_1997$MODAL4,sep = "_") OD_1997$GRUPO <- as.factor(OD_1997$GRUPO) OD_1997$MODAL_BASE_1 <- as.character(OD_1997$GRUPO) OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="A Pé_NA_NA_NA"] <- 'A_Pe' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_NA_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_NA_NA_NA" & OD_1997$NUM_ONIBUS==1] <- 'Um_Bus' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_NA_NA" & OD_1997$NUM_ONIBUS==1] <- 'Um_Bus' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Um_Bus' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Trem_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Trem_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Moto_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Passageiro de Automóvel" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Trem" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus Fretado_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus Fretado" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Trem" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Passageiro de Automóvel_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Táxi_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Transporte Escolar_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_Metrô" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Passageiro de Automóvel_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Táxi_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Metrô_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Dirigindo Automóvel" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Metrô" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Trem" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Outros_Ônibus_NA_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Transporte Escolar_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Metrô_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Mais_Um_Bus' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Trem_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Trem_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Moto_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Passageiro de Automóvel" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Trem" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus Fretado_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus Fretado" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Trem" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Passageiro de Automóvel_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Táxi_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Transporte Escolar_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_Metrô" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Passageiro de Automóvel_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Táxi_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Metrô_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Dirigindo Automóvel" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Metrô" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Trem" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Outros_Ônibus_NA_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Transporte Escolar_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Metrô_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS>1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Bicicleta_Trem_NA_NA"] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_NA_NA_NA"] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Trem_NA_NA"] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Metrô_Trem_NA"] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_NA_NA_NA"] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Bicicleta_Ônibus Fretado_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Bicicleta_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Metrô_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Metrô_Trem_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Ônibus Fretado_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Trem_Metrô_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Trem_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus Fretado_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Táxi_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Trem_Dirigindo Automóvel_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Moto_NA_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Moto_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Bicicleta_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Metrô_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_NA_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Trem_Metrô_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Trem_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Outros_Bicicleta_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Outros_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Outros_NA_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Outros_Táxi_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Bicicleta_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Metrô_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Metrô_Passageiro de Automóvel_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Metrô_Trem_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_NA_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus Fretado_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Táxi_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Transporte Escolar_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Trem_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Táxi_Metrô_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Táxi_NA_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Táxi_Trem_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Transporte Escolar_NA_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Transporte Escolar_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Transporte Escolar_Trem_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Bicicleta_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Metrô_Passageiro de Automóvel_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus Fretado_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Táxi_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Metrô_Ônibus_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Ônibus_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Moto_Ônibus_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Moto_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Moto_Passageiro de Automóvel_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Bicicleta_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus Fretado_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus Fretado_Passageiro de Automóvel_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Passageiro de Automóvel_Trem_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Táxi_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Transporte Escolar_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Táxi_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Táxi_Ônibus_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Transporte Escolar_Ônibus_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Bicicleta_Ônibus_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Bicicleta_NA_NA_NA"] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_NA_NA_NA" & OD_1997$NUM_ONIBUS!=1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Moto_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus Fretado_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus Fretado" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Trem" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Passageiro de Automóvel_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Táxi_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Transporte Escolar_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Passageiro de Automóvel_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Táxi_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Outros_Ônibus_NA_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Transporte Escolar_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Bicicleta_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Moto_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus Fretado_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Dirigindo Automóvel_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_NA_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Passageiro de Automóvel_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Trem_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Metrô_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Metrô_Trem_Ônibus"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_NA_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Dirigindo Automóvel_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_NA_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus Fretado_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Passageiro de Automóvel_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Táxi_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Trem_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Moto_Metrô_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Moto_Trem_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus Fretado_Metrô_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Bicicleta_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Metrô_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Metrô_Ônibus Fretado"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Metrô_Trem"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Moto_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_NA_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus Fretado_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Passageiro de Automóvel_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Metrô_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Táxi_Metrô_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Metrô_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Moto_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_NA_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Trem_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Passageiro de Automóvel_Ônibus_NA"] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Trem_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Trem_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_NA" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Passageiro de Automóvel" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Trem" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_Metrô" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_NA" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Metrô_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Dirigindo Automóvel" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Metrô" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Trem" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Metrô_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS==1] <- 'Multi_Publico' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="NA_NA_NA_NA"] <- 'NA' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_NA_NA_NA"] <- 'Auto' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Passageiro de Automóvel_NA_NA"] <- 'Auto' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Dirigindo Automóvel_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Auto' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Metrô_NA_NA"] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Metrô_Trem_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Metrô_Trem_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_NA" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Trem" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Trem" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_Metrô" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_NA" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Metrô" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Trem" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Metrô_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Metrô_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Trem_Ônibus_Trem_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Ferreos' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Moto_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Metrô_Passageiro de Automóvel" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_NA_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus Fretado_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus Fretado" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Passageiro de Automóvel_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Táxi_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Ônibus_Transporte Escolar_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Passageiro de Automóvel_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Táxi_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Ônibus_Trem_Ônibus_Dirigindo Automóvel" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Outros_Ônibus_NA_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_Ônibus" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Passageiro de Automóvel_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1[OD_1997$GRUPO=="Transporte Escolar_Ônibus_Ônibus_NA" & OD_1997$NUM_ONIBUS==0] <- 'Outros' OD_1997$MODAL_BASE_1 <- as.factor(OD_1997$MODAL_BASE_1) levels(OD_1997$MODAL_BASE_1) ##2007 OD_2007$GRUPO <- paste(OD_2007$MODAL1,OD_2007$MODAL2,OD_2007$MODAL3,OD_2007$MODAL4,sep = "_") OD_2007$GRUPO <- as.factor(OD_2007$GRUPO) OD_2007$MODAL_BASE_1 <- as.character(OD_2007$GRUPO) OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="A Pé_NA_NA_NA"] <- 'A_Pe' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_NA_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_NA_NA_NA" & OD_2007$NUM_ONIBUS==1] <- 'Um_Bus' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_NA_NA" & OD_2007$NUM_ONIBUS==1] <- 'Um_Bus' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Um_Bus' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Trem_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Trem_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Moto_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Passageiro de Automóvel" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Trem" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus Fretado_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus Fretado" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Trem" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Passageiro de Automóvel_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Táxi_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Transporte Escolar_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_Metrô" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Passageiro de Automóvel_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Táxi_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Metrô_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Dirigindo Automóvel" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Metrô" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Trem" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Outros_Ônibus_NA_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Transporte Escolar_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Metrô_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Metrô_Ônibus_Ônibus'] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Trem_Ônibus_Ônibus'] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Ônibus_Passageiro de Automóvel'] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Ônibus_Táxi'] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus Fretado_Metrô_Ônibus'] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Metrô_Ônibus Fretado'] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Ônibus_Metrô'] <- 'Mais_Um_Bus' #$OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Trem_Ônibus Fretado'] <- 'Mais_Um_Bus' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_NA_NA_NA"] <- 'Auto' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Auto' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Passageiro de Automóvel_NA_NA"] <- 'Auto' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Bicicleta_Trem_NA_NA"] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_NA_NA_NA"] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Trem_NA_NA"] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Trem_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Trem_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_NA" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Trem" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Trem" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_Metrô" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_NA" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Metrô_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Metrô" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Trem" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Metrô_NA_NA"] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Metrô_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Metrô_Trem_NA"] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_NA_NA_NA"] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Ônibus_Metrô' & OD_2007$NUM_ONIBUS==0] <- 'Ferreos' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Bicicleta_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Moto_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus Fretado_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Dirigindo Automóvel_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_NA_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Passageiro de Automóvel_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Trem_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Trem_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Trem_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Metrô_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Metrô_Trem_Ônibus"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_NA_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Dirigindo Automóvel_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_NA_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus Fretado_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Passageiro de Automóvel_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Táxi_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Trem_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Trem_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Metrô_Trem_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Moto_Metrô_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Moto_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Moto_Trem_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus Fretado_Metrô_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_NA" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Passageiro de Automóvel" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Passageiro de Automóvel" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Trem" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Trem" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus Fretado_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus Fretado" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Trem" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Passageiro de Automóvel_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Táxi_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Transporte Escolar_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_Metrô" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_Metrô" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_NA" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Passageiro de Automóvel_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Táxi_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Bicicleta_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Metrô_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Metrô_Ônibus Fretado"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Metrô_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Metrô_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Metrô_Trem"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Moto_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_NA_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus Fretado_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Dirigindo Automóvel" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Dirigindo Automóvel" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Metrô" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Metrô" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Trem" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Trem" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Passageiro de Automóvel_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Outros_Ônibus_NA_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Metrô_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Trem_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Táxi_Metrô_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Transporte Escolar_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Metrô_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Metrô_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Metrô_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Moto_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Metrô_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_NA_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Trem_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus_Trem_Ônibus" & OD_2007$NUM_ONIBUS>1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Passageiro de Automóvel_Ônibus_NA"] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Bicicleta_Trem_Metrô_NA'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Dirigindo Automóvel_Metrô_Trem_Táxi'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Dirigindo Automóvel_Trem_Metrô_Ônibus'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Ônibus_Ônibus Fretado_NA'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Ônibus_Ônibus_Ônibus'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Ônibus_Trem_Metrô'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Trem_Ônibus_Metrô'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Metrô_Ônibus_Ônibus'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Trem_Metrô_Ônibus'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Trem_Ônibus_Ônibus'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Moto_NA'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Ônibus_Passageiro de Automóvel'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Ônibus_Táxi'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Transporte Escolar_NA'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Trem_Passageiro de Automóvel'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Trem_Táxi'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus Fretado_Metrô_Ônibus'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Metrô_Ônibus Fretado'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Ônibus_Metrô' & OD_2007$NUM_ONIBUS==1] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Ônibus_Metrô'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Trem_Ônibus Fretado'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Trem_Dirigindo Automóvel_NA'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Trem_Táxi_NA'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Passageiro de Automóvel_Metrô_Trem_Ônibus'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Passageiro de Automóvel_Trem_Metrô_Ônibus'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Táxi_Trem_Ônibus_NA'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Trem_Ônibus_Passageiro de Automóvel_NA'] <- 'Multi_Publico' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="NA_NA_NA_NA"] <- 'NA' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Bicicleta_NA_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Bicicleta_Ônibus Fretado_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Bicicleta_Ônibus_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Bicicleta_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Metrô_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Metrô_Ônibus_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Metrô_Trem_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Ônibus Fretado_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Ônibus_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Trem_Metrô_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Dirigindo Automóvel_Trem_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Ônibus Fretado_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Táxi_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Metrô_Trem_Dirigindo Automóvel_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Moto_NA_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Moto_Ônibus_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Moto_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Bicicleta_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Metrô_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_NA_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Trem_Metrô_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus Fretado_Trem_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Bicicleta_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Moto_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Moto_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Moto_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Moto_Passageiro de Automóvel_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_NA_NA_NA" & OD_2007$NUM_ONIBUS!=1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus Fretado_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus Fretado_Passageiro de Automóvel_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Metrô_Passageiro de Automóvel" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_NA_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus Fretado_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus Fretado_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus Fretado" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus Fretado" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Ônibus_Trem" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Passageiro de Automóvel_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Passageiro de Automóvel_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Táxi_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Táxi_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Transporte Escolar_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Ônibus_Transporte Escolar_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Passageiro de Automóvel_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Passageiro de Automóvel_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Passageiro de Automóvel_Trem_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Táxi_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Táxi_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Táxi_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Transporte Escolar_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Ônibus_Trem_Ônibus_Dirigindo Automóvel" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Outros_Bicicleta_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Outros_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Outros_NA_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Outros_Ônibus_NA_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Outros_Ônibus_NA_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Outros_Táxi_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Bicicleta_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Metrô_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Metrô_Passageiro de Automóvel_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Metrô_Trem_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_NA_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus Fretado_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Metrô_Ônibus" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Ônibus_Táxi_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Táxi_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Transporte Escolar_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Passageiro de Automóvel_Trem_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Táxi_Metrô_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Táxi_NA_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Táxi_Ônibus_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Táxi_Trem_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Transporte Escolar_NA_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Transporte Escolar_Ônibus_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Transporte Escolar_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Transporte Escolar_Ônibus_Ônibus_NA" & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Transporte Escolar_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Transporte Escolar_Trem_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Bicicleta_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Dirigindo Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Metrô_Passageiro de Automóvel_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Ônibus Fretado_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Passageiro de Automóvel_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=="Trem_Táxi_NA_NA"] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Dirigindo Automóvel_Metrô_Ônibus Fretado_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Dirigindo Automóvel_Metrô_Passageiro de Automóvel_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Moto_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Transporte Escolar_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Trem_Bicicleta_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Trem_Ônibus Fretado_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Metrô_Trem_Passageiro de Automóvel_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Moto_Metrô_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Moto_Ônibus Fretado_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Moto_Trem_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Dirigindo Automóvel_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Metrô_Dirigindo Automóvel_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Metrô_Ônibus_Ônibus' & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Metrô_Ônibus_Ônibus' & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Metrô_Passageiro de Automóvel_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Moto_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Ônibus Fretado_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Ônibus_Metrô_Ônibus'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Táxi_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Trem_Ônibus_Ônibus' & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus Fretado_Trem_Ônibus_Ônibus' & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Ônibus_Passageiro de Automóvel' & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Ônibus_Passageiro de Automóvel' & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Ônibus_Táxi' & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Ônibus_Táxi' & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Metrô_Trem_Ônibus Fretado'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus Fretado_Metrô_Ônibus' & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus Fretado_Metrô_Ônibus' & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Metrô_Ônibus Fretado' & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Metrô_Ônibus Fretado' & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Trem_Ônibus Fretado' & OD_2007$NUM_ONIBUS==0] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Ônibus_Ônibus_Trem_Ônibus Fretado' & OD_2007$NUM_ONIBUS==1] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Passageiro de Automóvel_Metrô_Dirigindo Automóvel_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Passageiro de Automóvel_Metrô_Ônibus Fretado_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Passageiro de Automóvel_Metrô_Táxi_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Passageiro de Automóvel_Ônibus_Passageiro de Automóvel_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Passageiro de Automóvel_Passageiro de Automóvel_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Passageiro de Automóvel_Trem_Metrô_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Táxi_Ônibus_Táxi_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Táxi_Trem_Metrô_Dirigindo Automóvel'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Transporte Escolar_Metrô_NA_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Trem_Metrô_Dirigindo Automóvel_NA'] <- 'Outros' OD_2007$MODAL_BASE_1[OD_2007$GRUPO=='Trem_Moto_NA_NA'] <- 'Outros' unique(OD_2007$MODAL_BASE_1) OD_2007$MODAL_BASE_1 <- as.factor(OD_2007$MODAL_BASE_1) levels(OD_2007$MODAL_BASE_1) #### 1.2 Trips' speed#### OD_2007$VELOCIDADE <- (OD_2007$DIST/1000)/(OD_2007$DURACAO/60) OD_1997$VELOCIDADE <- (OD_1997$DIST/1000)/(OD_1997$DURACAO/60) #### 1.3 Creating a variable that denotes the share of one multimodal trip that was made by car#### ##In order to properly estimate its cost ##1997 OD_1997$SHARE_CAR<-0 OD_1997$SHARE_MOTO<-0 OD_1997$SHARE_CAR_AUX<-paste(OD_1997$MODAL1,OD_1997$MODAL2,OD_1997$MODAL3,OD_1997$MODAL4) OD_1997$SHARE_CAR<-str_count(OD_1997$SHARE_CAR_AUX,"Dirigindo Automóvel")/(4-str_count(OD_1997$SHARE_CAR_AUX,"NA")) OD_1997$SHARE_MOTO<-str_count(OD_1997$SHARE_CAR_AUX,"Moto")/(4-str_count(OD_1997$SHARE_CAR_AUX,"NA")) #OD_1997$CUSTO_CARRO <- 0.414845521*(OD_1997$DIST/1000)*OD_1997$SHARE_CAR*1.775180405 #OD_1997$CUSTO_MOTO <- 0.032750567*(OD_1997$DIST/1000)*OD_1997$SHARE_MOTO*1.775180405 OD_1997$SHARE_CAR_AUX <- NULL ##2007 OD_2007$SHARE_CAR<-0 OD_2007$SHARE_MOTO<-0 OD_2007$SHARE_CAR_AUX<-paste(OD_2007$MODAL1,OD_2007$MODAL2,OD_2007$MODAL3,OD_2007$MODAL4) OD_2007$SHARE_CAR<-str_count(OD_2007$SHARE_CAR_AUX,"Dirigindo Automóvel")/(4-str_count(OD_2007$SHARE_CAR_AUX,"NA")) OD_2007$SHARE_MOTO<-str_count(OD_2007$SHARE_CAR_AUX,"Moto")/(4-str_count(OD_2007$SHARE_CAR_AUX,"NA")) #OD_2007$CUSTO_CARRO <- 0.607945833*(OD_2007$DIST/1000)*OD_2007$SHARE_CAR #OD_2007$CUSTO_MOTO <- 0.094542667*(OD_2007$DIST/1000)*OD_2007$SHARE_MOTO OD_2007$SHARE_CAR_AUX <- NULL #### 1.4 Creating the trips' cost variable#### ##1997 #Auxiliares OD_1997$CUSTO1 <- 0 OD_1997$CUSTO2 <- 0 OD_1997$CUSTO3 <- 0 OD_1997$CUSTO4 <- 0 OD_1997$CUSTO5 <- 0 OD_1997$CUSTO6 <- 0 #Só ônibus - tarifa*número de ônibus tomados OD_1997$CUSTO1[OD_1997$NUM_ONIBUS>0&OD_1997$NUM_FERREO==0] <- 0.85*OD_1997$NUM_ONIBUS[OD_1997$NUM_ONIBUS>0&OD_1997$NUM_FERREO==0]*1.775180405 #Ônibus e férreo - tarifa ônibus*número de ônibus tomados + tarifa férreo OD_1997$CUSTO2[OD_1997$NUM_ONIBUS>0&OD_1997$NUM_FERREO>0] <- (0.85*OD_1997$NUM_ONIBUS[OD_1997$NUM_ONIBUS>0&OD_1997$NUM_FERREO>0] + 1.15)*1.775180405 #Só férreo - tarifa férreo OD_1997$CUSTO3[OD_1997$NUM_ONIBUS==0&OD_1997$NUM_FERREO>0] <- 1.15*1.775180405 #Carro OD_1997$CUSTO4 <- 0.414845521*(OD_1997$DIST/1000)*OD_1997$SHARE_CAR*1.775180405 #Moto OD_1997$CUSTO5 <- 0.032750567*(OD_1997$DIST/1000)*OD_1997$SHARE_MOTO*1.775180405 #A pé OD_1997$CUSTO6[OD_1997$MODAL_BASE_1=="A_Pe" & !is.na(OD_1997$MODAL_BASE_1)] <- 0* (OD_1997$DIST[OD_1997$MODAL_BASE_1=="A_Pe" & !is.na(OD_1997$MODAL_BASE_1)]/1000)#*1.775180405 ##Total OD_1997$CUSTO_VIAGEM <- OD_1997$CUSTO1 + OD_1997$CUSTO2 + OD_1997$CUSTO3 + OD_1997$CUSTO4 + OD_1997$CUSTO5 ##2007 #Auxiliares OD_2007$CUSTO1 <- 0 OD_2007$CUSTO2 <- 0 OD_2007$CUSTO3 <- 0 OD_2007$CUSTO4 <- 0 OD_2007$CUSTO5 <- 0 OD_2007$CUSTO6 <- 0 #Só ônibus - tarifa*número de ônibus tomados OD_2007$CUSTO1[OD_2007$NUM_ONIBUS>0&OD_2007$NUM_FERREO==0] <- 2.30 #Ônibus e férreo - tarifa ônibus*número de ônibus tomados + tarifa férreo OD_2007$CUSTO2[OD_2007$NUM_ONIBUS>0&OD_2007$NUM_FERREO>0] <- 3.50 #Só férreo - tarifa férreo OD_2007$CUSTO3[OD_2007$NUM_ONIBUS==0&OD_2007$NUM_FERREO>0] <- 2.30 #Carro OD_2007$CUSTO4 <- 0.607945833*(OD_2007$DIST/1000)*OD_2007$SHARE_CAR #Moto OD_2007$CUSTO5 <- 0.094542667*(OD_2007$DIST/1000)*OD_2007$SHARE_MOTO #A pé OD_2007$CUSTO6[OD_2007$MODAL_BASE_1=="A_Pe" & !is.na(OD_2007$MODAL_BASE_1)] <- 0* (OD_2007$DIST[OD_2007$MODAL_BASE_1=="A_Pe" & !is.na(OD_2007$MODAL_BASE_1)]/1000)#*1.775180405 ##Total OD_2007$CUSTO_VIAGEM <- OD_2007$CUSTO1 + OD_2007$CUSTO2 + OD_2007$CUSTO3 + OD_2007$CUSTO4 + OD_2007$CUSTO5 ##custo por km OD_1997$CUSTO_PKM_VIAGEM <- OD_1997$CUSTO_VIAGEM/(OD_1997$DIST/1000) OD_2007$CUSTO_PKM_VIAGEM <- OD_2007$CUSTO_VIAGEM/(OD_2007$DIST/1000) #boxplot(OD_2007$CUSTO_PKM_VIAGEM) #boxplot(OD_1997$CUSTO_PKM_VIAGEM) #### 1.5 Creating the General Cost of Transportation variable#### ##Renda Estimada OD_1997$CGT_ESTM <- OD_1997$CUSTO_VIAGEM + 0.5*OD_1997$REN_ESTIMADA*OD_1997$DURACAO/9600 OD_2007$CGT_ESTM <- OD_2007$CUSTO_VIAGEM + 0.5*OD_2007$REN_ESTIMADA*OD_2007$DURACAO/9600 ##Renda Observada OD_1997$CGT_OBS <- OD_1997$CUSTO_VIAGEM + 0.5*OD_1997$REN_I_CORR*OD_1997$DURACAO/9600 OD_2007$CGT_OBS <- OD_2007$CUSTO_VIAGEM + 0.5*OD_2007$REN_I_CORR*OD_2007$DURACAO/9600 #### 1.6 Tables for reeflection#### Tabelas_medias <- OD_2007 %>% group_by(MODAL_BASE_1) %>% summarise(CUSTO_07 = weighted.mean(CUSTO_VIAGEM, FE_VIA, na.rm=T), DISTANCIA_07 = weighted.mean(DIST, FE_VIA, na.rm=T), VELOCIDADE_07 = weighted.mean(VELOCIDADE, FE_VIA, na.rm=T)) Tabelas_medias_97 <- OD_1997 %>% group_by(MODAL_BASE_1) %>% summarise(CUSTO_97 = weighted.mean(CUSTO_VIAGEM, FE_VIA, na.rm=T), DISTANCIA_97 = weighted.mean(DIST, FE_VIA, na.rm=T), VELOCIDADE_97 = weighted.mean(VELOCIDADE, FE_VIA, na.rm=T)) Tabelas_medias <- merge(Tabelas_medias, Tabelas_medias_97, by.x="MODAL_BASE_1", by.y="MODAL_BASE_1", all.x=TRUE, all.y=FALSE) Tabelas_medias <- Tabelas_medias[,order(names(Tabelas_medias))] Tabelas_medias <- Tabelas_medias[,c(5,1:4,6:7)] rm(Tabelas_medias_97) levels(OD_1997$MODAL_BASE_1) #### 1.7 Creating wide dataset and removing outliers#### #https://www.r-bloggers.com/identify-describe-plot-and-remove-the-outliers-from-the-dataset/ outlierKD <- function(dt, var) { var_name <- eval(substitute(var),eval(dt)) na1 <- sum(is.na(var_name)) m1 <- mean(var_name, na.rm = T) par(mfrow=c(2, 2), oma=c(0,0,3,0)) boxplot(var_name, main="With outliers") hist(var_name, main="With outliers", xlab=NA, ylab=NA) outlier <- boxplot.stats(var_name)$out mo <- mean(outlier) var_name <- ifelse(var_name %in% outlier, NA, var_name) boxplot(var_name, main="Without outliers") hist(var_name, main="Without outliers", xlab=NA, ylab=NA) title("Outlier Check", outer=TRUE) na2 <- sum(is.na(var_name)) cat("Outliers identified:", na2 - na1, "n") cat("Propotion (%) of outliers:", round((na2 - na1) / sum(!is.na(var_name))*100, 1), "n") cat("Mean of the outliers:", round(mo, 2), "n") m2 <- mean(var_name, na.rm = T) cat("Mean without removing outliers:", round(m1, 2), "n") cat("Mean if we remove outliers:", round(m2, 2), "n") response <- readline(prompt="Do you want to remove outliers and to replace with NA? [yes/no]: ") if(response == "y" | response == "yes"){ dt[as.character(substitute(var))] <- invisible(var_name) assign(as.character(as.list(match.call())$dt), dt, envir = .GlobalEnv) cat("Outliers successfully removed", "n") return(invisible(dt)) } else{ cat("Nothing changed", "n") return(invisible(var_name)) } } levels(OD_1997$MODAL_BASE_1) ##1997 OD_1997_A_Pe <- OD_1997[OD_1997$MODAL_BASE_1=="A_Pe", c("ID_UNICO","VELOCIDADE")] OD_1997_A_Pe <- OD_1997_A_Pe[!is.na(OD_1997_A_Pe$ID_UNICO),] outlierKD(OD_1997_A_Pe, VELOCIDADE) y OD_1997_Auto <- OD_1997[OD_1997$MODAL_BASE_1=="Auto", c("ID_UNICO","VELOCIDADE")] OD_1997_Auto <- OD_1997_Auto[!is.na(OD_1997_Auto$ID_UNICO),] outlierKD(OD_1997_Auto, VELOCIDADE) y OD_1997_Mais_Um_Bus <- OD_1997[OD_1997$MODAL_BASE_1=="Mais_Um_Bus", c("ID_UNICO","VELOCIDADE")] OD_1997_Mais_Um_Bus <- OD_1997_Mais_Um_Bus[!is.na(OD_1997_Mais_Um_Bus$ID_UNICO),] outlierKD(OD_1997_Mais_Um_Bus, VELOCIDADE) y OD_1997_Ferreos <- OD_1997[OD_1997$MODAL_BASE_1=="Ferreos", c("ID_UNICO","VELOCIDADE")] OD_1997_Ferreos <- OD_1997_Ferreos[!is.na(OD_1997_Ferreos$ID_UNICO),] outlierKD(OD_1997_Ferreos, VELOCIDADE) y OD_1997_Um_Bus <- OD_1997[OD_1997$MODAL_BASE_1=="Um_Bus", c("ID_UNICO","VELOCIDADE")] OD_1997_Um_Bus <- OD_1997_Um_Bus[!is.na(OD_1997_Um_Bus$ID_UNICO),] outlierKD(OD_1997_Um_Bus, VELOCIDADE) y OD_1997_Multi_Publico <- OD_1997[OD_1997$MODAL_BASE_1=="Multi_Publico", c("ID_UNICO","VELOCIDADE")] OD_1997_Multi_Publico <- OD_1997_Multi_Publico[!is.na(OD_1997_Multi_Publico$ID_UNICO),] outlierKD(OD_1997_Multi_Publico, VELOCIDADE) y OD_1997_semouts <- rbind(OD_1997_A_Pe, OD_1997_Auto, OD_1997_Mais_Um_Bus, OD_1997_Ferreos, OD_1997_Um_Bus, OD_1997_Multi_Publico) OD_1997_semouts <- OD_1997_semouts[!is.na(OD_1997_semouts$VELOCIDADE),] rm(OD_1997_A_Pe, OD_1997_Auto, OD_1997_Mais_Um_Bus, OD_1997_Ferreos, OD_1997_Um_Bus, OD_1997_Multi_Publico) wide1997_MODAL_BASE_1 <- merge(OD_1997_semouts, OD_1997[,c("ID_UNICO","ID_PESS","MODAL_BASE_1","FE_VIA", "D_CARRO","D_EMPREGADO","D_MASCULINO","D_ESTUDANTE","MORASP","INSTRUCAO","MUNI_DOM","IDADE","IDADE_2","REN_F_CORR","REN_I_CORR","USA_VTRA", "DURACAO","CUSTO_VIAGEM","CUSTO_PKM_VIAGEM","DIST", "PERIODO_SAIDA","MOTIVACAO_D","MOTIVACAO_O","H_SAIDA")] ) wide1997_MODAL_BASE_1 <- merge(OD_1997_semouts, OD_1997[,c("ID_UNICO","ID_PESS","MODAL_BASE_1","FE_VIA", "D_CARRO","D_EMPREGADO","D_MASCULINO","D_ESTUDANTE","MORASP","INSTRUCAO","MUNI_DOM","IDADE","IDADE_2","REN_F_CORR","REN_I_CORR","USA_VTRA", "DURACAO","CUSTO_VIAGEM","CUSTO_PKM_VIAGEM","DIST", "PERIODO_SAIDA","MOTIVACAO_D","MOTIVACAO_O","H_SAIDA")] ) wide1997_MODAL_BASE_1_ODS <- merge(OD_1997_semouts, OD_1997[,c("ID_UNICO","ID_PESS","MODAL_BASE_1","FE_VIA", "D_CARRO","D_EMPREGADO","D_MASCULINO","D_ESTUDANTE","MORASP","INSTRUCAO","MUNI_DOM","IDADE","IDADE_2","REN_F_CORR","REN_I_CORR","USA_VTRA", "DURACAO","CUSTO_VIAGEM","CUSTO_PKM_VIAGEM","DIST", "PERIODO_SAIDA","MOTIVACAO_D","MOTIVACAO_O", "QUINTIL_FAM","H_SAIDA")] ) wide1997_MODAL_BASE_1 <- merge(OD_1997_semouts, OD_1997[,c("ID_UNICO","ID_PESS","MODAL_BASE_1","FE_VIA", "D_CARRO","D_EMPREGADO","D_MASCULINO","D_ESTUDANTE","MORASP","INSTRUCAO","MUNI_DOM","IDADE","IDADE_2","REN_F_CORR","REN_I_CORR","USA_VTRA", "DURACAO","CUSTO_VIAGEM","CUSTO_PKM_VIAGEM","DIST", "PERIODO_SAIDA","MOTIVACAO_D","MOTIVACAO_O","H_SAIDA")] ) rm(OD_1997_semouts) wide1997_MODAL_BASE_1$MODAL_BASE_1 <- droplevels(wide1997_MODAL_BASE_1$MODAL_BASE_1) ##2007 OD_2007_A_Pe <- OD_2007[OD_2007$MODAL_BASE_1=="A_Pe", c("ID_UNICO","VELOCIDADE")] OD_2007_A_Pe <- OD_2007_A_Pe[!is.na(OD_2007_A_Pe$ID_UNICO),] outlierKD(OD_2007_A_Pe, VELOCIDADE) y OD_2007_Auto <- OD_2007[OD_2007$MODAL_BASE_1=="Auto", c("ID_UNICO","VELOCIDADE")] OD_2007_Auto <- OD_2007_Auto[!is.na(OD_2007_Auto$ID_UNICO),] outlierKD(OD_2007_Auto, VELOCIDADE) y OD_2007_Mais_Um_Bus <- OD_2007[OD_2007$MODAL_BASE_1=="Mais_Um_Bus", c("ID_UNICO","VELOCIDADE")] OD_2007_Mais_Um_Bus <- OD_2007_Mais_Um_Bus[!is.na(OD_2007_Mais_Um_Bus$ID_UNICO),] outlierKD(OD_2007_Mais_Um_Bus, VELOCIDADE) y OD_2007_Ferreos <- OD_2007[OD_2007$MODAL_BASE_1=="Ferreos", c("ID_UNICO","VELOCIDADE")] OD_2007_Ferreos <- OD_2007_Ferreos[!is.na(OD_2007_Ferreos$ID_UNICO),] outlierKD(OD_2007_Ferreos, VELOCIDADE) y OD_2007_Um_Bus <- OD_2007[OD_2007$MODAL_BASE_1=="Um_Bus", c("ID_UNICO","VELOCIDADE")] OD_2007_Um_Bus <- OD_2007_Um_Bus[!is.na(OD_2007_Um_Bus$ID_UNICO),] outlierKD(OD_2007_Um_Bus, VELOCIDADE) y OD_2007_Multi_Publico <- OD_2007[OD_2007$MODAL_BASE_1=="Multi_Publico", c("ID_UNICO","VELOCIDADE")] OD_2007_Multi_Publico <- OD_2007_Multi_Publico[!is.na(OD_2007_Multi_Publico$ID_UNICO),] outlierKD(OD_2007_Multi_Publico, VELOCIDADE) y OD_2007_semouts <- rbind(OD_2007_A_Pe, OD_2007_Auto, OD_2007_Mais_Um_Bus, OD_2007_Ferreos, OD_2007_Um_Bus, OD_2007_Multi_Publico) OD_2007_semouts <- OD_2007_semouts[!is.na(OD_2007_semouts$VELOCIDADE),] rm(OD_2007_A_Pe, OD_2007_Auto, OD_2007_Mais_Um_Bus, OD_2007_Ferreos, OD_2007_Um_Bus, OD_2007_Multi_Publico) wide2007_MODAL_BASE_1_ODS <- merge(OD_2007_semouts, OD_2007[,c("ID_UNICO","ID_PESS","MODAL_BASE_1","FE_VIA", "D_CARRO","D_EMPREGADO","D_MASCULINO","D_ESTUDANTE","MORASP","INSTRUCAO","MUNI_DOM","IDADE","IDADE_2","REN_F_CORR","REN_I_CORR","USA_VTRA", "DURACAO","CUSTO_VIAGEM","CUSTO_PKM_VIAGEM","DIST", "PERIODO_SAIDA","MOTIVACAO_D","MOTIVACAO_O","QUINTIL_FAM","H_SAIDA")] ) wide2007_MODAL_BASE_1 <- merge(OD_2007_semouts, OD_2007[,c("ID_UNICO","ID_PESS","MODAL_BASE_1","FE_VIA", "D_CARRO","D_EMPREGADO","D_MASCULINO","D_ESTUDANTE","MORASP","INSTRUCAO","MUNI_DOM","IDADE","IDADE_2","REN_F_CORR","REN_I_CORR","USA_VTRA", "DURACAO","CUSTO_VIAGEM","CUSTO_PKM_VIAGEM","DIST", "PERIODO_SAIDA","MOTIVACAO_D","MOTIVACAO_O","H_SAIDA")] ) rm(OD_2007_semouts) wide2007_MODAL_BASE_1$MODAL_BASE_1 <- droplevels(wide2007_MODAL_BASE_1$MODAL_BASE_1) ## wide2007_MODAL_BASE_1 <- wide2007_MODAL_BASE_1[wide2007_MODAL_BASE_1$CUSTO_PKM_VIAGEM<101,] wide1997_MODAL_BASE_1 <- wide1997_MODAL_BASE_1[wide1997_MODAL_BASE_1$CUSTO_PKM_VIAGEM<101,] rm(outlierKD) wide1997 <- wide1997_MODAL_BASE_1 wide2007 <- wide2007_MODAL_BASE_1 #### 1.8 Tables for reflection after removing outliers#### Tabelas_medias <- wide2007 %>% group_by(MODAL_BASE_1) %>% summarise(CUSTO_07 = weighted.mean(CUSTO_VIAGEM, FE_VIA, na.rm=T), CUSTO_PKM_07 = weighted.mean(CUSTO_PKM_VIAGEM, FE_VIA, na.rm=T), DISTANCIA_07 = weighted.mean(DIST, FE_VIA, na.rm=T), VELOCIDADE_07 = weighted.mean(VELOCIDADE, FE_VIA, na.rm=T)) Tabelas_medias_97 <- wide1997 %>% group_by(MODAL_BASE_1) %>% summarise(CUSTO_97 = weighted.mean(CUSTO_VIAGEM, FE_VIA, na.rm=T), CUSTO_PKM_97 = weighted.mean(CUSTO_PKM_VIAGEM, FE_VIA, na.rm=T), DISTANCIA_97 = weighted.mean(DIST, FE_VIA, na.rm=T), VELOCIDADE_97 = weighted.mean(VELOCIDADE, FE_VIA, na.rm=T)) Tabelas_medias <- merge(Tabelas_medias, Tabelas_medias_97, by.x="MODAL_BASE_1", by.y="MODAL_BASE_1", all.x=TRUE, all.y=FALSE) Tabelas_medias <- Tabelas_medias[,order(names(Tabelas_medias))] Tabelas_medias <- Tabelas_medias[,c(7,1:6,8:9)] rm(Tabelas_medias_97) #### 1.9 Creating a dataset containing both 1997 and 2007#### wide1997_aux <- wide1997_MODAL_BASE_1_ODS wide1997_aux <- wide1997_aux[!is.na(wide1997_aux$ID_UNICO),] wide2007_aux <- wide2007_MODAL_BASE_1_ODS wide1997_aux$ANO <- 1997 wide2007_aux$ANO <- 2007 ODS_WIDE <- rbind(wide1997_aux, wide2007_aux) colSums(is.na(ODS_WIDE)) #!Conferir se alguma variável não ficou de fora por causa do nome ##Transformando as variáveis necessárias ODS_WIDE$ANO <- as.factor(ODS_WIDE$ANO) #save(ODS_WIDE, paste0(dir,"Datasets/ODS_WIDE_SP.RData")) rm(wide1997_aux, wide2007_aux, ODS_WIDE, wide1997_MODAL_BASE_1_ODS, wide2007_MODAL_BASE_1_ODS) #### 1.10 Checkpoint save#### ##Salvando para modelo wide1997 <- wide1997[!is.na(wide1997$MODAL_BASE_1),] wide2007 <- wide2007[!is.na(wide2007$MODAL_BASE_1),] #save(wide1997, file = paste0(dir,"Datasets/MODAL_BASE_1_wide1997_SP.RData")) #save(wide2007, file = paste0(dir,"Datasets/MODAL_BASE_1_wide2007_SP.RData")) rm(wide1997_MODAL_BASE_1, wide2007_MODAL_BASE_1, Tabelas_medias) #### 2 CREATING THE DEFINITIVE DATASET FOR MODELS#### #### 2.0 Datasets might be recalled from the 1.10 checkpoint #### load(paste0(dir,"Datasets/MODAL_BASE_1_wide1997_SP.RData")) load(paste0(dir,"Datasets/MODAL_BASE_1_wide2007_SP.RData")) wide1997 <- wide1997[!is.na(wide1997$MODAL_BASE_1),] wide2007 <- wide2007[!is.na(wide2007$MODAL_BASE_1),] levels(wide1997$MODAL_BASE_1) levels(wide2007$MODAL_BASE_1) #### 2.1 Creating the averages variables for estimation of contrafactual trips#### vm_A_Pe_1997 <- weighted.mean(wide1997$VELOCIDADE[wide1997$MODAL_BASE_1=="A_Pe"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="A_Pe"]) vm_Auto_1997 <- weighted.mean(wide1997$VELOCIDADE[wide1997$MODAL_BASE_1=="Auto"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Auto"]) vm_Mais_Um_Bus_1997 <- weighted.mean(wide1997$VELOCIDADE[wide1997$MODAL_BASE_1=="Mais_Um_Bus"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]) vm_Multi_Publico_1997 <- weighted.mean(wide1997$VELOCIDADE[wide1997$MODAL_BASE_1=="Multi_Publico"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Multi_Publico"]) vm_Ferreos_1997 <- weighted.mean(wide1997$VELOCIDADE[wide1997$MODAL_BASE_1=="Ferreos"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Ferreos"]) vm_Um_Bus_1997 <- weighted.mean(wide1997$VELOCIDADE[wide1997$MODAL_BASE_1=="Um_Bus"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Um_Bus"]) ##O custo médio das viagens de carro é computado por km. custo_A_Pe_1997 <- weighted.mean(wide1997$CUSTO_VIAGEM[wide1997$MODAL_BASE_1=="A_Pe"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="A_Pe"]) custo_Auto_1997 <- weighted.mean(wide1997$CUSTO_PKM_VIAGEM[wide1997$MODAL_BASE_1=="Auto"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Auto"]) custo_Mais_Um_Bus_1997 <- weighted.mean(wide1997$CUSTO_VIAGEM[wide1997$MODAL_BASE_1=="Mais_Um_Bus"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]) custo_Multi_Publico_1997 <- weighted.mean(wide1997$CUSTO_VIAGEM[wide1997$MODAL_BASE_1=="Multi_Publico"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Multi_Publico"]) custo_Ferreos_1997 <- weighted.mean(wide1997$CUSTO_VIAGEM[wide1997$MODAL_BASE_1=="Ferreos"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Ferreos"]) custo_Um_Bus_1997 <- weighted.mean(wide1997$CUSTO_VIAGEM[wide1997$MODAL_BASE_1=="Um_Bus"], wide1997$FE_VIA[wide1997$MODAL_BASE_1=="Um_Bus"]) vm_A_Pe_2007 <- weighted.mean(wide2007$VELOCIDADE[wide2007$MODAL_BASE_1=="A_Pe"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="A_Pe"]) vm_Auto_2007 <- weighted.mean(wide2007$VELOCIDADE[wide2007$MODAL_BASE_1=="Auto"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Auto"]) vm_Mais_Um_Bus_2007 <- weighted.mean(wide2007$VELOCIDADE[wide2007$MODAL_BASE_1=="Mais_Um_Bus"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]) vm_Multi_Publico_2007 <- weighted.mean(wide2007$VELOCIDADE[wide2007$MODAL_BASE_1=="Multi_Publico"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Multi_Publico"]) vm_Ferreos_2007 <- weighted.mean(wide2007$VELOCIDADE[wide2007$MODAL_BASE_1=="Ferreos"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Ferreos"]) vm_Um_Bus_2007 <- weighted.mean(wide2007$VELOCIDADE[wide2007$MODAL_BASE_1=="Um_Bus"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Um_Bus"]) custo_A_Pe_2007 <- weighted.mean(wide2007$CUSTO_VIAGEM[wide2007$MODAL_BASE_1=="A_Pe"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="A_Pe"]) custo_Auto_2007 <- weighted.mean(wide2007$CUSTO_PKM_VIAGEM[wide2007$MODAL_BASE_1=="Auto"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Auto"]) custo_Mais_Um_Bus_2007 <- weighted.mean(wide2007$CUSTO_VIAGEM[wide2007$MODAL_BASE_1=="Mais_Um_Bus"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]) custo_Multi_Publico_2007 <- weighted.mean(wide2007$CUSTO_VIAGEM[wide2007$MODAL_BASE_1=="Multi_Publico"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Multi_Publico"]) custo_Ferreos_2007 <- weighted.mean(wide2007$CUSTO_VIAGEM[wide2007$MODAL_BASE_1=="Ferreos"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Ferreos"]) custo_Um_Bus_2007 <- weighted.mean(wide2007$CUSTO_VIAGEM[wide2007$MODAL_BASE_1=="Um_Bus"], wide2007$FE_VIA[wide2007$MODAL_BASE_1=="Um_Bus"]) #### 2.2 Creating the contrafactual trips variables ##### ####2.2.1 Variables that varies with the mode#### ###########Distance ##Trabalhando para transformar essas variáveis em individual_specific e modal_specific #Criando as variáveis que variam com o modal #Distância (não varia, mas consta) wide1997$DIST.A_Pe <- wide1997$DIST wide1997$DIST.Auto <- wide1997$DIST wide1997$DIST.Mais_Um_Bus <- wide1997$DIST wide1997$DIST.Multi_Publico <- wide1997$DIST wide1997$DIST.Ferreos <- wide1997$DIST wide1997$DIST.Um_Bus <- wide1997$DIST #Período do dia (não varia, mas consta) wide1997$PERIODO_SAIDA.A_Pe <- wide1997$PERIODO_SAIDA wide1997$PERIODO_SAIDA.Auto <- wide1997$PERIODO_SAIDA wide1997$PERIODO_SAIDA.Mais_Um_Bus <- wide1997$PERIODO_SAIDA wide1997$PERIODO_SAIDA.Multi_Publico <- wide1997$PERIODO_SAIDA wide1997$PERIODO_SAIDA.Ferreos <- wide1997$PERIODO_SAIDA wide1997$PERIODO_SAIDA.Um_Bus <- wide1997$PERIODO_SAIDA #Motivo Origem (não varia, mas consta) wide1997$MOTIVACAO_O.A_Pe <- wide1997$MOTIVACAO_O wide1997$MOTIVACAO_O.Auto <- wide1997$MOTIVACAO_O wide1997$MOTIVACAO_O.Mais_Um_Bus <- wide1997$MOTIVACAO_O wide1997$MOTIVACAO_O.Multi_Publico <- wide1997$MOTIVACAO_O wide1997$MOTIVACAO_O.Ferreos <- wide1997$MOTIVACAO_O wide1997$MOTIVACAO_O.Um_Bus <- wide1997$MOTIVACAO_O #Motivo Destino (não varia, mas consta) wide1997$MOTIVACAO_D.A_Pe <- wide1997$MOTIVACAO_D wide1997$MOTIVACAO_D.Auto <- wide1997$MOTIVACAO_D wide1997$MOTIVACAO_D.Mais_Um_Bus <- wide1997$MOTIVACAO_D wide1997$MOTIVACAO_D.Multi_Publico <- wide1997$MOTIVACAO_D wide1997$MOTIVACAO_D.Ferreos <- wide1997$MOTIVACAO_D wide1997$MOTIVACAO_D.Um_Bus <- wide1997$MOTIVACAO_D ###########Duration #Duração: é o observado para o modal escolhido. Os outros modais alternativos (simulados), assumem o valor da média do modal wide1997$DURACAO.A_Pe <- wide1997$DURACAO wide1997$DURACAO.Auto <- wide1997$DURACAO wide1997$DURACAO.Mais_Um_Bus <- wide1997$DURACAO wide1997$DURACAO.Multi_Publico <- wide1997$DURACAO wide1997$DURACAO.Ferreos <- wide1997$DURACAO wide1997$DURACAO.Um_Bus <- wide1997$DURACAO wide1997$DIST <- wide1997$DIST/1000 #Duração das viagens simuladas - a pé #wide1997$DURACAO.A_Pe[wide1997$MODAL_BASE_1=="A_Pe"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="A_Pe"]/vm_A_Pe_1997)*60 wide1997$DURACAO.A_Pe[wide1997$MODAL_BASE_1=="Auto"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Auto"]/vm_A_Pe_1997)*60 wide1997$DURACAO.A_Pe[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]/vm_A_Pe_1997)*60 wide1997$DURACAO.A_Pe[wide1997$MODAL_BASE_1=="Multi_Publico"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Multi_Publico"]/vm_A_Pe_1997)*60 wide1997$DURACAO.A_Pe[wide1997$MODAL_BASE_1=="Ferreos"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Ferreos"]/vm_A_Pe_1997)*60 wide1997$DURACAO.A_Pe[wide1997$MODAL_BASE_1=="Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Um_Bus"]/vm_A_Pe_1997)*60 #Duração das viagens simuladas - auto wide1997$DURACAO.Auto[wide1997$MODAL_BASE_1=="A_Pe"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="A_Pe"]/vm_Auto_1997)*60 #wide1997$DURACAO.A_pe[wide1997$MODAL_BASE_1=="Auto"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Auto"]/vm_Auto_1997)*60 wide1997$DURACAO.Auto[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Auto_1997)*60 wide1997$DURACAO.Auto[wide1997$MODAL_BASE_1=="Multi_Publico"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Multi_Publico"]/vm_Auto_1997)*60 wide1997$DURACAO.Auto[wide1997$MODAL_BASE_1=="Ferreos"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Ferreos"]/vm_Auto_1997)*60 wide1997$DURACAO.Auto[wide1997$MODAL_BASE_1=="Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Um_Bus"]/vm_Auto_1997)*60 #Duração das viagens simuladas - Mais_Um_Bus wide1997$DURACAO.Mais_Um_Bus[wide1997$MODAL_BASE_1=="A_Pe"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="A_Pe"]/vm_Mais_Um_Bus_1997)*60 wide1997$DURACAO.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Auto"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Auto"]/vm_Mais_Um_Bus_1997)*60 #wide1997$DURACAO.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Mais_Um_Bus_1997)*60 wide1997$DURACAO.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Multi_Publico"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Multi_Publico"]/vm_Mais_Um_Bus_1997)*60 wide1997$DURACAO.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Ferreos"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Ferreos"]/vm_Mais_Um_Bus_1997)*60 wide1997$DURACAO.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Um_Bus"]/vm_Mais_Um_Bus_1997)*60 #Duração das viagens simuladas - Multi_Publico wide1997$DURACAO.Multi_Publico[wide1997$MODAL_BASE_1=="A_Pe"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="A_Pe"]/vm_Multi_Publico_1997)*60 wide1997$DURACAO.Multi_Publico[wide1997$MODAL_BASE_1=="Auto"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Auto"]/vm_Multi_Publico_1997)*60 wide1997$DURACAO.Multi_Publico[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Multi_Publico_1997)*60 #wide1997$DURACAO.Multi_Publico[wide1997$MODAL_BASE_1=="Multi_Publico"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Multi_Publico"]/vm_Multi_Publico_1997)*60 wide1997$DURACAO.Multi_Publico[wide1997$MODAL_BASE_1=="Ferreos"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Ferreos"]/vm_Multi_Publico_1997)*60 wide1997$DURACAO.Multi_Publico[wide1997$MODAL_BASE_1=="Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Um_Bus"]/vm_Multi_Publico_1997)*60 #Duração das viagens simuladas - Ferreos wide1997$DURACAO.Ferreos[wide1997$MODAL_BASE_1=="A_Pe"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="A_Pe"]/vm_Ferreos_1997)*60 wide1997$DURACAO.Ferreos[wide1997$MODAL_BASE_1=="Auto"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Auto"]/vm_Ferreos_1997)*60 wide1997$DURACAO.Ferreos[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Ferreos_1997)*60 wide1997$DURACAO.Ferreos[wide1997$MODAL_BASE_1=="Multi_Publico"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Multi_Publico"]/vm_Ferreos_1997)*60 #wide1997$DURACAO.Ferreos[wide1997$MODAL_BASE_1=="Ferreos"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Ferreos"]/vm_Ferreos_1997)*60 wide1997$DURACAO.Ferreos[wide1997$MODAL_BASE_1=="Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Um_Bus"]/vm_Ferreos_1997)*60 #Duração das viagens simuladas - Um_Bus wide1997$DURACAO.Um_Bus[wide1997$MODAL_BASE_1=="A_Pe"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="A_Pe"]/vm_Um_Bus_1997)*60 wide1997$DURACAO.Um_Bus[wide1997$MODAL_BASE_1=="Auto"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Auto"]/vm_Um_Bus_1997)*60 wide1997$DURACAO.Um_Bus[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Um_Bus_1997)*60 wide1997$DURACAO.Um_Bus[wide1997$MODAL_BASE_1=="Multi_Publico"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Multi_Publico"]/vm_Um_Bus_1997)*60 wide1997$DURACAO.Um_Bus[wide1997$MODAL_BASE_1=="Ferreos"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Ferreos"]/vm_Um_Bus_1997)*60 #wide1997$DURACAO.Um_Bus[wide1997$MODAL_BASE_1=="Um_Bus"] <- (wide1997$DIST[wide1997$MODAL_BASE_1=="Um_Bus"]/vm_Um_Bus_1997)*60 wide1997$DURACAO <- NULL rm(vm_A_Pe_1997, vm_Auto_1997, vm_Mais_Um_Bus_1997,vm_Metro_1997,vm_Moto_1997,vm_Multi_Individual_e_Publico_1997, vm_Multi_Publico_1997,vm_Ferreos_1997,vm_Um_Bus_1997) ###########Cost #Duração: é o observado para o modal escolhido. Os outros modais alternativos (simulados), assumem o valor da média do modal wide1997$CUSTO_VIAGEM.A_Pe <- wide1997$CUSTO_VIAGEM wide1997$CUSTO_VIAGEM.Auto <- wide1997$CUSTO_VIAGEM wide1997$CUSTO_VIAGEM.Mais_Um_Bus <- wide1997$CUSTO_VIAGEM wide1997$CUSTO_VIAGEM.Multi_Publico <- wide1997$CUSTO_VIAGEM wide1997$CUSTO_VIAGEM.Ferreos <- wide1997$CUSTO_VIAGEM wide1997$CUSTO_VIAGEM.Um_Bus <- wide1997$CUSTO_VIAGEM #Custo das viagens simuladas - a pé #wide1997$CUSTO_VIAGEM.A_Pe[wide1997$MODAL_BASE_1=="A_Pe"] <- custo_A_Pe_1997 wide1997$CUSTO_VIAGEM.A_Pe[wide1997$MODAL_BASE_1=="Auto"] <- custo_A_Pe_1997 wide1997$CUSTO_VIAGEM.A_Pe[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_A_Pe_1997 wide1997$CUSTO_VIAGEM.A_Pe[wide1997$MODAL_BASE_1=="Multi_Publico"] <- custo_A_Pe_1997 wide1997$CUSTO_VIAGEM.A_Pe[wide1997$MODAL_BASE_1=="Ferreos"] <- custo_A_Pe_1997 wide1997$CUSTO_VIAGEM.A_Pe[wide1997$MODAL_BASE_1=="Um_Bus"] <- custo_A_Pe_1997 #Custo das viagens simuladas - auto wide1997$CUSTO_VIAGEM.Auto[wide1997$MODAL_BASE_1=="A_Pe"] <- custo_Auto_1997*(wide1997$DIST[wide1997$MODAL_BASE_1=="A_Pe"]) #wide1997$CUSTO_VIAGEM.Auto[wide1997$MODAL_BASE_1=="Auto"] <- custo_Auto_1997*(wide1997$DIST[wide1997$MODAL_BASE_1=="Auto"]) wide1997$CUSTO_VIAGEM.Auto[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Auto_1997*(wide1997$DIST[wide1997$MODAL_BASE_1=="Mais_Um_Bus"]) wide1997$CUSTO_VIAGEM.Auto[wide1997$MODAL_BASE_1=="Multi_Publico"] <- custo_Auto_1997*(wide1997$DIST[wide1997$MODAL_BASE_1=="Multi_Publico"]) wide1997$CUSTO_VIAGEM.Auto[wide1997$MODAL_BASE_1=="Ferreos"] <- custo_Auto_1997*(wide1997$DIST[wide1997$MODAL_BASE_1=="Ferreos"]) wide1997$CUSTO_VIAGEM.Auto[wide1997$MODAL_BASE_1=="Um_Bus"] <- custo_Auto_1997*(wide1997$DIST[wide1997$MODAL_BASE_1=="Um_Bus"]) #Custo das viagens simuladas - Mais_Um_Bus wide1997$CUSTO_VIAGEM.Mais_Um_Bus[wide1997$MODAL_BASE_1=="A_Pe"] <- custo_Mais_Um_Bus_1997 wide1997$CUSTO_VIAGEM.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Auto"] <- custo_Mais_Um_Bus_1997 #wide1997$CUSTO_VIAGEM.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Mais_Um_Bus_1997 wide1997$CUSTO_VIAGEM.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Multi_Publico"] <- custo_Mais_Um_Bus_1997 wide1997$CUSTO_VIAGEM.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Ferreos"] <- custo_Mais_Um_Bus_1997 wide1997$CUSTO_VIAGEM.Mais_Um_Bus[wide1997$MODAL_BASE_1=="Um_Bus"] <- custo_Mais_Um_Bus_1997 #Custo das viagens simuladas - Multi_Publico wide1997$CUSTO_VIAGEM.Multi_Publico[wide1997$MODAL_BASE_1=="A_Pe"] <- custo_Multi_Publico_1997 wide1997$CUSTO_VIAGEM.Multi_Publico[wide1997$MODAL_BASE_1=="Auto"] <- custo_Multi_Publico_1997 wide1997$CUSTO_VIAGEM.Multi_Publico[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Multi_Publico_1997 #wide1997$CUSTO_VIAGEM.Multi_Publico[wide1997$MODAL_BASE_1=="Multi_Publico"] <- custo_Multi_Publico_1997 wide1997$CUSTO_VIAGEM.Multi_Publico[wide1997$MODAL_BASE_1=="Ferreos"] <- custo_Multi_Publico_1997 wide1997$CUSTO_VIAGEM.Multi_Publico[wide1997$MODAL_BASE_1=="Um_Bus"] <- custo_Multi_Publico_1997 #Custo das viagens simuladas - Ferreos wide1997$CUSTO_VIAGEM.Ferreos[wide1997$MODAL_BASE_1=="A_Pe"] <- custo_Ferreos_1997 wide1997$CUSTO_VIAGEM.Ferreos[wide1997$MODAL_BASE_1=="Auto"] <- custo_Ferreos_1997 wide1997$CUSTO_VIAGEM.Ferreos[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Ferreos_1997 wide1997$CUSTO_VIAGEM.Ferreos[wide1997$MODAL_BASE_1=="Multi_Publico"] <- custo_Ferreos_1997 #wide1997$CUSTO_VIAGEM.Ferreos[wide1997$MODAL_BASE_1=="Ferreos"] <- custo_Ferreos_1997 wide1997$CUSTO_VIAGEM.Ferreos[wide1997$MODAL_BASE_1=="Um_Bus"] <- custo_Ferreos_1997 #Custo das viagens simuladas - Um_Bus wide1997$CUSTO_VIAGEM.Um_Bus[wide1997$MODAL_BASE_1=="A_Pe"] <- custo_Um_Bus_1997 wide1997$CUSTO_VIAGEM.Um_Bus[wide1997$MODAL_BASE_1=="Auto"] <- custo_Um_Bus_1997 wide1997$CUSTO_VIAGEM.Um_Bus[wide1997$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Um_Bus_1997 wide1997$CUSTO_VIAGEM.Um_Bus[wide1997$MODAL_BASE_1=="Multi_Publico"] <- custo_Um_Bus_1997 #wide1997$CUSTO_VIAGEM.Um_Bus[wide1997$MODAL_BASE_1=="Ferreos"] <- custo_Um_Bus_1997 wide1997$CUSTO_VIAGEM.Um_Bus[wide1997$MODAL_BASE_1=="Um_Bus"] <- custo_Um_Bus_1997 rm(custo_A_Pe_1997, custo_Auto_1997, custo_Mais_Um_Bus_1997,custo_Metro_1997,custo_Moto_1997,custo_Multi_Individual_e_Publico_1997, custo_Multi_Publico_1997,custo_Ferreos_1997,custo_Um_Bus_1997) wide1997$CUSTO_VIAGEM <- NULL wide1997$CUSTO_PKM_VIAGEM <- NULL wide1997$DIST <- NULL ###########Distance 2007 ##Trabalhando para transformar essas variáveis em individual_specific e modal_specific #Criando as variáveis que variam com o modal #Distância (não varia, mas consta) wide2007$DIST.A_Pe <- wide2007$DIST wide2007$DIST.Auto <- wide2007$DIST wide2007$DIST.Mais_Um_Bus <- wide2007$DIST wide2007$DIST.Multi_Publico <- wide2007$DIST wide2007$DIST.Ferreos <- wide2007$DIST wide2007$DIST.Um_Bus <- wide2007$DIST #Período do dia (não varia, mas consta) wide2007$PERIODO_SAIDA.A_Pe <- wide2007$PERIODO_SAIDA wide2007$PERIODO_SAIDA.Auto <- wide2007$PERIODO_SAIDA wide2007$PERIODO_SAIDA.Mais_Um_Bus <- wide2007$PERIODO_SAIDA wide2007$PERIODO_SAIDA.Multi_Publico <- wide2007$PERIODO_SAIDA wide2007$PERIODO_SAIDA.Ferreos <- wide2007$PERIODO_SAIDA wide2007$PERIODO_SAIDA.Um_Bus <- wide2007$PERIODO_SAIDA #Motivo Origem (não varia, mas consta) wide2007$MOTIVACAO_O.A_Pe <- wide2007$MOTIVACAO_O wide2007$MOTIVACAO_O.Auto <- wide2007$MOTIVACAO_O wide2007$MOTIVACAO_O.Mais_Um_Bus <- wide2007$MOTIVACAO_O wide2007$MOTIVACAO_O.Multi_Publico <- wide2007$MOTIVACAO_O wide2007$MOTIVACAO_O.Ferreos <- wide2007$MOTIVACAO_O wide2007$MOTIVACAO_O.Um_Bus <- wide2007$MOTIVACAO_O #Motivo Destino (não varia, mas consta) wide2007$MOTIVACAO_D.A_Pe <- wide2007$MOTIVACAO_D wide2007$MOTIVACAO_D.Auto <- wide2007$MOTIVACAO_D wide2007$MOTIVACAO_D.Mais_Um_Bus <- wide2007$MOTIVACAO_D wide2007$MOTIVACAO_D.Multi_Publico <- wide2007$MOTIVACAO_D wide2007$MOTIVACAO_D.Ferreos <- wide2007$MOTIVACAO_D wide2007$MOTIVACAO_D.Um_Bus <- wide2007$MOTIVACAO_D ###########Duration 2007 #Duração: é o observado para o modal escolhido. Os outros modais alternativos (simulados), assumem o valor da média do modal wide2007$DURACAO.A_Pe <- wide2007$DURACAO wide2007$DURACAO.Auto <- wide2007$DURACAO wide2007$DURACAO.Mais_Um_Bus <- wide2007$DURACAO wide2007$DURACAO.Multi_Publico <- wide2007$DURACAO wide2007$DURACAO.Ferreos <- wide2007$DURACAO wide2007$DURACAO.Um_Bus <- wide2007$DURACAO wide2007$DIST <- wide2007$DIST/1000 #Duração das viagens simuladas - a pé #wide2007$DURACAO.A_Pe[wide2007$MODAL_BASE_1=="A_Pe"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="A_Pe"]/vm_A_Pe_2007)*60 wide2007$DURACAO.A_Pe[wide2007$MODAL_BASE_1=="Auto"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Auto"]/vm_A_Pe_2007)*60 wide2007$DURACAO.A_Pe[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]/vm_A_Pe_2007)*60 wide2007$DURACAO.A_Pe[wide2007$MODAL_BASE_1=="Multi_Publico"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Multi_Publico"]/vm_A_Pe_2007)*60 wide2007$DURACAO.A_Pe[wide2007$MODAL_BASE_1=="Ferreos"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Ferreos"]/vm_A_Pe_2007)*60 wide2007$DURACAO.A_Pe[wide2007$MODAL_BASE_1=="Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Um_Bus"]/vm_A_Pe_2007)*60 #Duração das viagens simuladas - auto wide2007$DURACAO.Auto[wide2007$MODAL_BASE_1=="A_Pe"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="A_Pe"]/vm_Auto_2007)*60 #wide2007$DURACAO.A_pe[wide2007$MODAL_BASE_1=="Auto"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Auto"]/vm_Auto_2007)*60 wide2007$DURACAO.Auto[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Auto_2007)*60 wide2007$DURACAO.Auto[wide2007$MODAL_BASE_1=="Multi_Publico"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Multi_Publico"]/vm_Auto_2007)*60 wide2007$DURACAO.Auto[wide2007$MODAL_BASE_1=="Ferreos"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Ferreos"]/vm_Auto_2007)*60 wide2007$DURACAO.Auto[wide2007$MODAL_BASE_1=="Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Um_Bus"]/vm_Auto_2007)*60 #Duração das viagens simuladas - Mais_Um_Bus wide2007$DURACAO.Mais_Um_Bus[wide2007$MODAL_BASE_1=="A_Pe"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="A_Pe"]/vm_Mais_Um_Bus_2007)*60 wide2007$DURACAO.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Auto"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Auto"]/vm_Mais_Um_Bus_2007)*60 #wide2007$DURACAO.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Mais_Um_Bus_2007)*60 wide2007$DURACAO.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Multi_Publico"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Multi_Publico"]/vm_Mais_Um_Bus_2007)*60 wide2007$DURACAO.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Ferreos"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Ferreos"]/vm_Mais_Um_Bus_2007)*60 wide2007$DURACAO.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Um_Bus"]/vm_Mais_Um_Bus_2007)*60 #Duração das viagens simuladas - Multi_Publico wide2007$DURACAO.Multi_Publico[wide2007$MODAL_BASE_1=="A_Pe"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="A_Pe"]/vm_Multi_Publico_2007)*60 wide2007$DURACAO.Multi_Publico[wide2007$MODAL_BASE_1=="Auto"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Auto"]/vm_Multi_Publico_2007)*60 wide2007$DURACAO.Multi_Publico[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Multi_Publico_2007)*60 #wide2007$DURACAO.Multi_Publico[wide2007$MODAL_BASE_1=="Multi_Publico"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Multi_Publico"]/vm_Multi_Publico_2007)*60 wide2007$DURACAO.Multi_Publico[wide2007$MODAL_BASE_1=="Ferreos"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Ferreos"]/vm_Multi_Publico_2007)*60 wide2007$DURACAO.Multi_Publico[wide2007$MODAL_BASE_1=="Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Um_Bus"]/vm_Multi_Publico_2007)*60 #Duração das viagens simuladas - Ferreos wide2007$DURACAO.Ferreos[wide2007$MODAL_BASE_1=="A_Pe"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="A_Pe"]/vm_Ferreos_2007)*60 wide2007$DURACAO.Ferreos[wide2007$MODAL_BASE_1=="Auto"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Auto"]/vm_Ferreos_2007)*60 wide2007$DURACAO.Ferreos[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Ferreos_2007)*60 wide2007$DURACAO.Ferreos[wide2007$MODAL_BASE_1=="Multi_Publico"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Multi_Publico"]/vm_Ferreos_2007)*60 #wide2007$DURACAO.Ferreos[wide2007$MODAL_BASE_1=="Ferreos"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Ferreos"]/vm_Ferreos_2007)*60 wide2007$DURACAO.Ferreos[wide2007$MODAL_BASE_1=="Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Um_Bus"]/vm_Ferreos_2007)*60 #Duração das viagens simuladas - Um_Bus wide2007$DURACAO.Um_Bus[wide2007$MODAL_BASE_1=="A_Pe"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="A_Pe"]/vm_Um_Bus_2007)*60 wide2007$DURACAO.Um_Bus[wide2007$MODAL_BASE_1=="Auto"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Auto"]/vm_Um_Bus_2007)*60 wide2007$DURACAO.Um_Bus[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]/vm_Um_Bus_2007)*60 wide2007$DURACAO.Um_Bus[wide2007$MODAL_BASE_1=="Multi_Publico"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Multi_Publico"]/vm_Um_Bus_2007)*60 wide2007$DURACAO.Um_Bus[wide2007$MODAL_BASE_1=="Ferreos"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Ferreos"]/vm_Um_Bus_2007)*60 #wide2007$DURACAO.Um_Bus[wide2007$MODAL_BASE_1=="Um_Bus"] <- (wide2007$DIST[wide2007$MODAL_BASE_1=="Um_Bus"]/vm_Um_Bus_2007)*60 wide2007$DURACAO <- NULL rm(vm_A_Pe_2007, vm_Auto_2007, vm_Mais_Um_Bus_2007,vm_Metro_2007,vm_Moto_2007,vm_Multi_Individual_e_Publico_2007, vm_Multi_Publico_2007,vm_Ferreos_2007,vm_Um_Bus_2007) ###########Cost 2007 #Duração: é o observado para o modal escolhido. Os outros modais alternativos (simulados), assumem o valor da média do modal wide2007$CUSTO_VIAGEM.A_Pe <- wide2007$CUSTO_VIAGEM wide2007$CUSTO_VIAGEM.Auto <- wide2007$CUSTO_VIAGEM wide2007$CUSTO_VIAGEM.Mais_Um_Bus <- wide2007$CUSTO_VIAGEM wide2007$CUSTO_VIAGEM.Multi_Publico <- wide2007$CUSTO_VIAGEM wide2007$CUSTO_VIAGEM.Ferreos <- wide2007$CUSTO_VIAGEM wide2007$CUSTO_VIAGEM.Um_Bus <- wide2007$CUSTO_VIAGEM #Custo das viagens simuladas - a pé #wide2007$CUSTO_VIAGEM.A_Pe[wide2007$MODAL_BASE_1=="A_Pe"] <- custo_A_Pe_2007 wide2007$CUSTO_VIAGEM.A_Pe[wide2007$MODAL_BASE_1=="Auto"] <- custo_A_Pe_2007 wide2007$CUSTO_VIAGEM.A_Pe[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_A_Pe_2007 wide2007$CUSTO_VIAGEM.A_Pe[wide2007$MODAL_BASE_1=="Multi_Publico"] <- custo_A_Pe_2007 wide2007$CUSTO_VIAGEM.A_Pe[wide2007$MODAL_BASE_1=="Ferreos"] <- custo_A_Pe_2007 wide2007$CUSTO_VIAGEM.A_Pe[wide2007$MODAL_BASE_1=="Um_Bus"] <- custo_A_Pe_2007 #Custo das viagens simuladas - auto wide2007$CUSTO_VIAGEM.Auto[wide2007$MODAL_BASE_1=="A_Pe"] <- custo_Auto_2007*(wide2007$DIST[wide2007$MODAL_BASE_1=="A_Pe"]) #wide2007$CUSTO_VIAGEM.Auto[wide2007$MODAL_BASE_1=="Auto"] <- custo_Auto_2007*(wide2007$DIST[wide2007$MODAL_BASE_1=="Auto"]) wide2007$CUSTO_VIAGEM.Auto[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Auto_2007*(wide2007$DIST[wide2007$MODAL_BASE_1=="Mais_Um_Bus"]) wide2007$CUSTO_VIAGEM.Auto[wide2007$MODAL_BASE_1=="Multi_Publico"] <- custo_Auto_2007*(wide2007$DIST[wide2007$MODAL_BASE_1=="Multi_Publico"]) wide2007$CUSTO_VIAGEM.Auto[wide2007$MODAL_BASE_1=="Ferreos"] <- custo_Auto_2007*(wide2007$DIST[wide2007$MODAL_BASE_1=="Ferreos"]) wide2007$CUSTO_VIAGEM.Auto[wide2007$MODAL_BASE_1=="Um_Bus"] <- custo_Auto_2007*(wide2007$DIST[wide2007$MODAL_BASE_1=="Um_Bus"]) #Custo das viagens simuladas - Mais_Um_Bus wide2007$CUSTO_VIAGEM.Mais_Um_Bus[wide2007$MODAL_BASE_1=="A_Pe"] <- custo_Mais_Um_Bus_2007 wide2007$CUSTO_VIAGEM.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Auto"] <- custo_Mais_Um_Bus_2007 #wide2007$CUSTO_VIAGEM.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Mais_Um_Bus_2007 wide2007$CUSTO_VIAGEM.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Multi_Publico"] <- custo_Mais_Um_Bus_2007 wide2007$CUSTO_VIAGEM.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Ferreos"] <- custo_Mais_Um_Bus_2007 wide2007$CUSTO_VIAGEM.Mais_Um_Bus[wide2007$MODAL_BASE_1=="Um_Bus"] <- custo_Mais_Um_Bus_2007 #Custo das viagens simuladas - Multi_Publico wide2007$CUSTO_VIAGEM.Multi_Publico[wide2007$MODAL_BASE_1=="A_Pe"] <- custo_Multi_Publico_2007 wide2007$CUSTO_VIAGEM.Multi_Publico[wide2007$MODAL_BASE_1=="Auto"] <- custo_Multi_Publico_2007 wide2007$CUSTO_VIAGEM.Multi_Publico[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Multi_Publico_2007 #wide2007$CUSTO_VIAGEM.Multi_Publico[wide2007$MODAL_BASE_1=="Multi_Publico"] <- custo_Multi_Publico_2007 wide2007$CUSTO_VIAGEM.Multi_Publico[wide2007$MODAL_BASE_1=="Ferreos"] <- custo_Multi_Publico_2007 wide2007$CUSTO_VIAGEM.Multi_Publico[wide2007$MODAL_BASE_1=="Um_Bus"] <- custo_Multi_Publico_2007 #Custo das viagens simuladas - Ferreos wide2007$CUSTO_VIAGEM.Ferreos[wide2007$MODAL_BASE_1=="A_Pe"] <- custo_Ferreos_2007 wide2007$CUSTO_VIAGEM.Ferreos[wide2007$MODAL_BASE_1=="Auto"] <- custo_Ferreos_2007 wide2007$CUSTO_VIAGEM.Ferreos[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Ferreos_2007 wide2007$CUSTO_VIAGEM.Ferreos[wide2007$MODAL_BASE_1=="Multi_Publico"] <- custo_Ferreos_2007 #wide2007$CUSTO_VIAGEM.Ferreos[wide2007$MODAL_BASE_1=="Ferreos"] <- custo_Ferreos_2007 wide2007$CUSTO_VIAGEM.Ferreos[wide2007$MODAL_BASE_1=="Um_Bus"] <- custo_Ferreos_2007 #Custo das viagens simuladas - Um_Bus wide2007$CUSTO_VIAGEM.Um_Bus[wide2007$MODAL_BASE_1=="A_Pe"] <- custo_Um_Bus_2007 wide2007$CUSTO_VIAGEM.Um_Bus[wide2007$MODAL_BASE_1=="Auto"] <- custo_Um_Bus_2007 wide2007$CUSTO_VIAGEM.Um_Bus[wide2007$MODAL_BASE_1=="Mais_Um_Bus"] <- custo_Um_Bus_2007 wide2007$CUSTO_VIAGEM.Um_Bus[wide2007$MODAL_BASE_1=="Multi_Publico"] <- custo_Um_Bus_2007 #wide2007$CUSTO_VIAGEM.Um_Bus[wide2007$MODAL_BASE_1=="Ferreos"] <- custo_Um_Bus_2007 wide2007$CUSTO_VIAGEM.Um_Bus[wide2007$MODAL_BASE_1=="Um_Bus"] <- custo_Um_Bus_2007 rm(custo_A_Pe_2007, custo_Auto_2007, custo_Mais_Um_Bus_2007,custo_Metro_2007,custo_Moto_2007,custo_Multi_Individual_e_Publico_2007, custo_Multi_Publico_2007,custo_Ferreos_2007,custo_Um_Bus_2007) wide2007$CUSTO_VIAGEM <- NULL wide2007$CUSTO_PKM_VIAGEM <- NULL wide2007$DIST <- NULL #### 2.3 Creating the long dataset#### long1997 <- mlogit.data(data = wide1997, choice = "MODAL_BASE_1", shape = "wide", varying = 22:57) long2007 <- mlogit.data(data = wide2007, choice = "MODAL_BASE_1", shape = "wide", varying = 22:57) rm(ODS) #### 2.4 Checkpoint save#### #save(long1997, file=paste0(dir,"Datasets/MODAL_BASE_1_long1997_SP.RData")) #save(long2007, file=paste0(dir,"Datasets/MODAL_BASE_1_long2007_SP.RData")) #### 2.5 Creating the same dataset as above but in English#### #### 2.6.1 Checkpoint recall#### load(paste0(dir,"Datasets/MODAL_BASE_1_wide1997_SP.RData")) load(paste0(dir,"Datasets/MODAL_BASE_1_wide2007_SP.RData")) #load("C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODAL_BASE_1_wide1997_SP.RData") #load("C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODAL_BASE_1_wide2007_SP.RData") #### 2.6.2 Variables Translation#### names(wide1997) <- c("ID_TRIP", "SPEED", "ID_INDI", "MODE", "W_TRIP", "D_CAR", "D_EMPLOY", "D_MALE", "D_STUDENT", "D_LIVE_SP", "SCHOLAR_LEVEL", "CITY_HOUSEHOLD", "AGE", "AGE_2", "INC_FAMILIAR", "INC_INDIVIDUAL","D_VOUCHER","DURATION", "COST", "COST_KM", "DISTANCE", "PERIOD", "PURPOSE_D", "PURPOSE_O","H_START") names(wide2007) <- c("ID_TRIP", "SPEED", "ID_INDI", "MODE", "W_TRIP", "D_CAR", "D_EMPLOY", "D_MALE", "D_STUDENT", "D_LIVE_SP", "SCHOLAR_LEVEL", "CITY_HOUSEHOLD", "AGE", "AGE_2", "INC_FAMILIAR", "INC_INDIVIDUAL","D_VOUCHER", "DURATION", "COST", "COST_KM", "DISTANCE", "PERIOD", "PURPOSE_D", "PURPOSE_O","H_START") levels(wide1997$MODE) <- c("Walking", "Car", "Rapid_Transit", "One_Plus_Bus", "Multi_Transit", "One_Bus") levels(wide2007$MODE) <- c("Walking", "Car", "Rapid_Transit", "One_Plus_Bus", "Multi_Transit", "One_Bus") levels(wide1997$SCHOLAR_LEVEL) <- c("Illiterate", "Elementary", "Junior High School", "High School", "Superior") levels(wide2007$SCHOLAR_LEVEL) <- c("Illiterate", "Elementary", "Junior High School", "High School", "Superior") levels(wide1997$PERIOD) <- c("Morning", "Night", "Afternoon") levels(wide2007$PERIOD) <- c("Morning", "Night", "Afternoon") levels(wide1997$PURPOSE_D) <- c("Work", "Study", "Leisure/Shopping/Healthcare/Other", "Residency") levels(wide2007$PURPOSE_D) <- c("Work", "Study", "Leisure/Shopping/Healthcare/Other", "Residency") levels(wide1997$PURPOSE_O) <- c("Work", "Study", "Leisure/Shopping/Healthcare/Other", "Residency") levels(wide2007$PURPOSE_O) <- c("Work", "Study", "Leisure/Shopping/Healthcare/Other", "Residency") #ID_TRIP ID_TRIP #SPEED SPEED #ID_INDI ID_INDI #MODE MODE #W_TRIP W_TRIP #D_CAR D_CAR #D_EMPLOY D_EMPLOY #D_MALE D_MALE #D_STUDENT D_STUDENT #D_LIVE_SP D_LIVE_SP #SCHOLAR_LEVEL SCHOLAR_LEVEL #CITY_HOUSEHOLD CITY_HOUSEHOLD #AGE AGE #AGE_2 AGE_2 #INC_FAMILIAR INC_FAMILIAR #INC_INDIVIDUAL INC_INDIVIDUAL #DURATION DURATION #COST COST #COST_KM COST_KM #DIST DISTANCE #PERIOD PERIOD #PURPOSE_D PURPOSE_D #PURPOSE_O PURPOSE_O #save(wide1997, file=paste0(dir,"Datasets/MODE_wide1997_SP_EN.RData")) #save(wide2007, file=paste0(dir,"Datasets/MODE_wide2007_SP_EN.RData")) wide1997$H_START <- as.factor(wide1997$H_START) wide2007$H_START <- as.factor(wide2007$H_START) #### 2.6.3 Re running 2.1 and 2.2#### ##Trabalhando para transformar essas variáveis em individual_specific e modal_specific #Criando as variáveis que variam com o modal #DISTANCEância (não varia, mas consta) wide1997$DISTANCE.Walking <- wide1997$DISTANCE wide1997$DISTANCE.Car <- wide1997$DISTANCE wide1997$DISTANCE.One_Plus_Bus <- wide1997$DISTANCE wide1997$DISTANCE.Multi_Transit <- wide1997$DISTANCE wide1997$DISTANCE.Rapid_Transit <- wide1997$DISTANCE wide1997$DISTANCE.One_Bus <- wide1997$DISTANCE #Período do dia (não varia, mas consta) wide1997$PERIOD.Walking <- wide1997$PERIOD wide1997$PERIOD.Car <- wide1997$PERIOD wide1997$PERIOD.One_Plus_Bus <- wide1997$PERIOD wide1997$PERIOD.Multi_Transit <- wide1997$PERIOD wide1997$PERIOD.Rapid_Transit <- wide1997$PERIOD wide1997$PERIOD.One_Bus <- wide1997$PERIOD #Motivo Origem (não varia, mas consta) wide1997$PURPOSE_O.Walking <- wide1997$PURPOSE_O wide1997$PURPOSE_O.Car <- wide1997$PURPOSE_O wide1997$PURPOSE_O.One_Plus_Bus <- wide1997$PURPOSE_O wide1997$PURPOSE_O.Multi_Transit <- wide1997$PURPOSE_O wide1997$PURPOSE_O.Rapid_Transit <- wide1997$PURPOSE_O wide1997$PURPOSE_O.One_Bus <- wide1997$PURPOSE_O #Motivo Destino (não varia, mas consta) wide1997$PURPOSE_D.Walking <- wide1997$PURPOSE_D wide1997$PURPOSE_D.Car <- wide1997$PURPOSE_D wide1997$PURPOSE_D.One_Plus_Bus <- wide1997$PURPOSE_D wide1997$PURPOSE_D.Multi_Transit <- wide1997$PURPOSE_D wide1997$PURPOSE_D.Rapid_Transit <- wide1997$PURPOSE_D wide1997$PURPOSE_D.One_Bus <- wide1997$PURPOSE_D ###Criando os índices vm_Walking_1997 <- weighted.mean(wide1997$SPEED[wide1997$MODE=="Walking"], wide1997$W_TRIP[wide1997$MODE=="Walking"]) vm_Car_1997 <- weighted.mean(wide1997$SPEED[wide1997$MODE=="Car"], wide1997$W_TRIP[wide1997$MODE=="Car"]) vm_One_Plus_Bus_1997 <- weighted.mean(wide1997$SPEED[wide1997$MODE=="One_Plus_Bus"], wide1997$W_TRIP[wide1997$MODE=="One_Plus_Bus"]) vm_Multi_Transit_1997 <- weighted.mean(wide1997$SPEED[wide1997$MODE=="Multi_Transit"], wide1997$W_TRIP[wide1997$MODE=="Multi_Transit"]) vm_Rapid_Transit_1997 <- weighted.mean(wide1997$SPEED[wide1997$MODE=="Rapid_Transit"], wide1997$W_TRIP[wide1997$MODE=="Rapid_Transit"]) vm_One_Bus_1997 <- weighted.mean(wide1997$SPEED[wide1997$MODE=="One_Bus"], wide1997$W_TRIP[wide1997$MODE=="One_Bus"]) ##O custo médio das viagens de carro é computado por km. custo_Walking_1997 <- weighted.mean(wide1997$COST[wide1997$MODE=="Walking"], wide1997$W_TRIP[wide1997$MODE=="Walking"]) custo_Car_1997 <- weighted.mean(wide1997$COST_KM[wide1997$MODE=="Car"], wide1997$W_TRIP[wide1997$MODE=="Car"]) custo_One_Plus_Bus_1997 <- weighted.mean(wide1997$COST[wide1997$MODE=="One_Plus_Bus"], wide1997$W_TRIP[wide1997$MODE=="One_Plus_Bus"]) custo_Multi_Transit_1997 <- weighted.mean(wide1997$COST[wide1997$MODE=="Multi_Transit"], wide1997$W_TRIP[wide1997$MODE=="Multi_Transit"]) custo_Rapid_Transit_1997 <- weighted.mean(wide1997$COST[wide1997$MODE=="Rapid_Transit"], wide1997$W_TRIP[wide1997$MODE=="Rapid_Transit"]) custo_One_Bus_1997 <- weighted.mean(wide1997$COST[wide1997$MODE=="One_Bus"], wide1997$W_TRIP[wide1997$MODE=="One_Bus"]) vm_Walking_2007 <- weighted.mean(wide2007$SPEED[wide2007$MODE=="Walking"], wide2007$W_TRIP[wide2007$MODE=="Walking"]) vm_Car_2007 <- weighted.mean(wide2007$SPEED[wide2007$MODE=="Car"], wide2007$W_TRIP[wide2007$MODE=="Car"]) vm_One_Plus_Bus_2007 <- weighted.mean(wide2007$SPEED[wide2007$MODE=="One_Plus_Bus"], wide2007$W_TRIP[wide2007$MODE=="One_Plus_Bus"]) vm_Multi_Transit_2007 <- weighted.mean(wide2007$SPEED[wide2007$MODE=="Multi_Transit"], wide2007$W_TRIP[wide2007$MODE=="Multi_Transit"]) vm_Rapid_Transit_2007 <- weighted.mean(wide2007$SPEED[wide2007$MODE=="Rapid_Transit"], wide2007$W_TRIP[wide2007$MODE=="Rapid_Transit"]) vm_One_Bus_2007 <- weighted.mean(wide2007$SPEED[wide2007$MODE=="One_Bus"], wide2007$W_TRIP[wide2007$MODE=="One_Bus"]) custo_Walking_2007 <- weighted.mean(wide2007$COST[wide2007$MODE=="Walking"], wide2007$W_TRIP[wide2007$MODE=="Walking"]) custo_Car_2007 <- weighted.mean(wide2007$COST_KM[wide2007$MODE=="Car"], wide2007$W_TRIP[wide2007$MODE=="Car"]) custo_One_Plus_Bus_2007 <- weighted.mean(wide2007$COST[wide2007$MODE=="One_Plus_Bus"], wide2007$W_TRIP[wide2007$MODE=="One_Plus_Bus"]) custo_Multi_Transit_2007 <- weighted.mean(wide2007$COST[wide2007$MODE=="Multi_Transit"], wide2007$W_TRIP[wide2007$MODE=="Multi_Transit"]) custo_Rapid_Transit_2007 <- weighted.mean(wide2007$COST[wide2007$MODE=="Rapid_Transit"], wide2007$W_TRIP[wide2007$MODE=="Rapid_Transit"]) custo_One_Bus_2007 <- weighted.mean(wide2007$COST[wide2007$MODE=="One_Bus"], wide2007$W_TRIP[wide2007$MODE=="One_Bus"]) ##Trabalhando para transformar essas variáveis em individual_specific e modal_specific #Criando as variáveis que variam com o modal #Distância (não varia, mas consta) wide1997$DISTANCE.Walking <- wide1997$DISTANCE wide1997$DISTANCE.Car <- wide1997$DISTANCE wide1997$DISTANCE.One_Plus_Bus <- wide1997$DISTANCE wide1997$DISTANCE.Multi_Transit <- wide1997$DISTANCE wide1997$DISTANCE.Rapid_Transit <- wide1997$DISTANCE wide1997$DISTANCE.One_Bus <- wide1997$DISTANCE #Período do dia (não varia, mas consta) wide1997$PERIOD.Walking <- wide1997$PERIOD wide1997$PERIOD.Car <- wide1997$PERIOD wide1997$PERIOD.One_Plus_Bus <- wide1997$PERIOD wide1997$PERIOD.Multi_Transit <- wide1997$PERIOD wide1997$PERIOD.Rapid_Transit <- wide1997$PERIOD wide1997$PERIOD.One_Bus <- wide1997$PERIOD #Motivo Origem (não varia, mas consta) wide1997$PURPOSE_O.Walking <- wide1997$PURPOSE_O wide1997$PURPOSE_O.Car <- wide1997$PURPOSE_O wide1997$PURPOSE_O.One_Plus_Bus <- wide1997$PURPOSE_O wide1997$PURPOSE_O.Multi_Transit <- wide1997$PURPOSE_O wide1997$PURPOSE_O.Rapid_Transit <- wide1997$PURPOSE_O wide1997$PURPOSE_O.One_Bus <- wide1997$PURPOSE_O #Motivo Destino (não varia, mas consta) wide1997$PURPOSE_D.Walking <- wide1997$PURPOSE_D wide1997$PURPOSE_D.Car <- wide1997$PURPOSE_D wide1997$PURPOSE_D.One_Plus_Bus <- wide1997$PURPOSE_D wide1997$PURPOSE_D.Multi_Transit <- wide1997$PURPOSE_D wide1997$PURPOSE_D.Rapid_Transit <- wide1997$PURPOSE_D wide1997$PURPOSE_D.One_Bus <- wide1997$PURPOSE_D #Duração: é o observado para o modal escolhido. Os outros modais alternativos (simulados), assumem o valor da média do modal wide1997$DURATION.Walking <- wide1997$DURATION wide1997$DURATION.Car <- wide1997$DURATION wide1997$DURATION.One_Plus_Bus <- wide1997$DURATION wide1997$DURATION.Multi_Transit <- wide1997$DURATION wide1997$DURATION.Rapid_Transit <- wide1997$DURATION wide1997$DURATION.One_Bus <- wide1997$DURATION wide1997$DISTANCE <- wide1997$DISTANCE/1000 #Duração das viagens simuladas - a pé #wide1997$DURATION.Walking[wide1997$MODE=="Walking"] <- (wide1997$DISTANCE[wide1997$MODE=="Walking"]/vm_Walking_1997)*60 wide1997$DURATION.Walking[wide1997$MODE=="Car"] <- (wide1997$DISTANCE[wide1997$MODE=="Car"]/vm_Walking_1997)*60 wide1997$DURATION.Walking[wide1997$MODE=="One_Plus_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Plus_Bus"]/vm_Walking_1997)*60 wide1997$DURATION.Walking[wide1997$MODE=="Multi_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Multi_Transit"]/vm_Walking_1997)*60 wide1997$DURATION.Walking[wide1997$MODE=="Rapid_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Rapid_Transit"]/vm_Walking_1997)*60 wide1997$DURATION.Walking[wide1997$MODE=="One_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Bus"]/vm_Walking_1997)*60 #Duração das viagens simuladas - Car wide1997$DURATION.Car[wide1997$MODE=="Walking"] <- (wide1997$DISTANCE[wide1997$MODE=="Walking"]/vm_Car_1997)*60 #wide1997$DURATION.Walking[wide1997$MODE=="Car"] <- (wide1997$DISTANCE[wide1997$MODE=="Car"]/vm_Car_1997)*60 wide1997$DURATION.Car[wide1997$MODE=="One_Plus_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Plus_Bus"]/vm_Car_1997)*60 wide1997$DURATION.Car[wide1997$MODE=="Multi_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Multi_Transit"]/vm_Car_1997)*60 wide1997$DURATION.Car[wide1997$MODE=="Rapid_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Rapid_Transit"]/vm_Car_1997)*60 wide1997$DURATION.Car[wide1997$MODE=="One_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Bus"]/vm_Car_1997)*60 #Duração das viagens simuladas - One_Plus_Bus wide1997$DURATION.One_Plus_Bus[wide1997$MODE=="Walking"] <- (wide1997$DISTANCE[wide1997$MODE=="Walking"]/vm_One_Plus_Bus_1997)*60 wide1997$DURATION.One_Plus_Bus[wide1997$MODE=="Car"] <- (wide1997$DISTANCE[wide1997$MODE=="Car"]/vm_One_Plus_Bus_1997)*60 #wide1997$DURATION.One_Plus_Bus[wide1997$MODE=="One_Plus_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Plus_Bus"]/vm_One_Plus_Bus_1997)*60 wide1997$DURATION.One_Plus_Bus[wide1997$MODE=="Multi_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Multi_Transit"]/vm_One_Plus_Bus_1997)*60 wide1997$DURATION.One_Plus_Bus[wide1997$MODE=="Rapid_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Rapid_Transit"]/vm_One_Plus_Bus_1997)*60 wide1997$DURATION.One_Plus_Bus[wide1997$MODE=="One_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Bus"]/vm_One_Plus_Bus_1997)*60 #Duração das viagens simuladas - Multi_Transit wide1997$DURATION.Multi_Transit[wide1997$MODE=="Walking"] <- (wide1997$DISTANCE[wide1997$MODE=="Walking"]/vm_Multi_Transit_1997)*60 wide1997$DURATION.Multi_Transit[wide1997$MODE=="Car"] <- (wide1997$DISTANCE[wide1997$MODE=="Car"]/vm_Multi_Transit_1997)*60 wide1997$DURATION.Multi_Transit[wide1997$MODE=="One_Plus_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Plus_Bus"]/vm_Multi_Transit_1997)*60 #wide1997$DURATION.Multi_Transit[wide1997$MODE=="Multi_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Multi_Transit"]/vm_Multi_Transit_1997)*60 wide1997$DURATION.Multi_Transit[wide1997$MODE=="Rapid_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Rapid_Transit"]/vm_Multi_Transit_1997)*60 wide1997$DURATION.Multi_Transit[wide1997$MODE=="One_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Bus"]/vm_Multi_Transit_1997)*60 #Duração das viagens simuladas - Rapid_Transit wide1997$DURATION.Rapid_Transit[wide1997$MODE=="Walking"] <- (wide1997$DISTANCE[wide1997$MODE=="Walking"]/vm_Rapid_Transit_1997)*60 wide1997$DURATION.Rapid_Transit[wide1997$MODE=="Car"] <- (wide1997$DISTANCE[wide1997$MODE=="Car"]/vm_Rapid_Transit_1997)*60 wide1997$DURATION.Rapid_Transit[wide1997$MODE=="One_Plus_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Plus_Bus"]/vm_Rapid_Transit_1997)*60 wide1997$DURATION.Rapid_Transit[wide1997$MODE=="Multi_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Multi_Transit"]/vm_Rapid_Transit_1997)*60 #wide1997$DURATION.Rapid_Transit[wide1997$MODE=="Rapid_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Rapid_Transit"]/vm_Rapid_Transit_1997)*60 wide1997$DURATION.Rapid_Transit[wide1997$MODE=="One_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Bus"]/vm_Rapid_Transit_1997)*60 #Duração das viagens simuladas - One_Bus wide1997$DURATION.One_Bus[wide1997$MODE=="Walking"] <- (wide1997$DISTANCE[wide1997$MODE=="Walking"]/vm_One_Bus_1997)*60 wide1997$DURATION.One_Bus[wide1997$MODE=="Car"] <- (wide1997$DISTANCE[wide1997$MODE=="Car"]/vm_One_Bus_1997)*60 wide1997$DURATION.One_Bus[wide1997$MODE=="One_Plus_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Plus_Bus"]/vm_One_Bus_1997)*60 wide1997$DURATION.One_Bus[wide1997$MODE=="Multi_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Multi_Transit"]/vm_One_Bus_1997)*60 wide1997$DURATION.One_Bus[wide1997$MODE=="Rapid_Transit"] <- (wide1997$DISTANCE[wide1997$MODE=="Rapid_Transit"]/vm_One_Bus_1997)*60 #wide1997$DURATION.One_Bus[wide1997$MODE=="One_Bus"] <- (wide1997$DISTANCE[wide1997$MODE=="One_Bus"]/vm_One_Bus_1997)*60 wide1997$DURATION <- NULL rm(vm_Walking_1997, vm_Car_1997, vm_One_Plus_Bus_1997,vm_Subway_1997,vm_Motorcycle_1997,vm_Multi_Pvt_Transit_1997, vm_Multi_Transit_1997,vm_Rapid_Transit_1997,vm_One_Bus_1997) #Duração: é o observado para o modal escolhido. Os outros modais alternativos (simulados), assumem o valor da média do modal wide1997$COST.Walking <- wide1997$COST wide1997$COST.Car <- wide1997$COST wide1997$COST.One_Plus_Bus <- wide1997$COST wide1997$COST.Multi_Transit <- wide1997$COST wide1997$COST.Rapid_Transit <- wide1997$COST wide1997$COST.One_Bus <- wide1997$COST #Custo das viagens simuladas - a pé #wide1997$COST.Walking[wide1997$MODE=="Walking"] <- custo_Walking_1997 wide1997$COST.Walking[wide1997$MODE=="Car"] <- custo_Walking_1997 wide1997$COST.Walking[wide1997$MODE=="One_Plus_Bus"] <- custo_Walking_1997 wide1997$COST.Walking[wide1997$MODE=="Multi_Transit"] <- custo_Walking_1997 wide1997$COST.Walking[wide1997$MODE=="Rapid_Transit"] <- custo_Walking_1997 wide1997$COST.Walking[wide1997$MODE=="One_Bus"] <- custo_Walking_1997 #Custo das viagens simuladas - Car wide1997$COST.Car[wide1997$MODE=="Walking"] <- custo_Car_1997*(wide1997$DISTANCE[wide1997$MODE=="Walking"]) #wide1997$COST.Car[wide1997$MODE=="Car"] <- custo_Car_1997*(wide1997$DISTANCE[wide1997$MODE=="Car"]) wide1997$COST.Car[wide1997$MODE=="One_Plus_Bus"] <- custo_Car_1997*(wide1997$DISTANCE[wide1997$MODE=="One_Plus_Bus"]) wide1997$COST.Car[wide1997$MODE=="Multi_Transit"] <- custo_Car_1997*(wide1997$DISTANCE[wide1997$MODE=="Multi_Transit"]) wide1997$COST.Car[wide1997$MODE=="Rapid_Transit"] <- custo_Car_1997*(wide1997$DISTANCE[wide1997$MODE=="Rapid_Transit"]) wide1997$COST.Car[wide1997$MODE=="One_Bus"] <- custo_Car_1997*(wide1997$DISTANCE[wide1997$MODE=="One_Bus"]) #Custo das viagens simuladas - One_Plus_Bus wide1997$COST.One_Plus_Bus[wide1997$MODE=="Walking"] <- custo_One_Plus_Bus_1997 wide1997$COST.One_Plus_Bus[wide1997$MODE=="Car"] <- custo_One_Plus_Bus_1997 #wide1997$COST.One_Plus_Bus[wide1997$MODE=="One_Plus_Bus"] <- custo_One_Plus_Bus_1997 wide1997$COST.One_Plus_Bus[wide1997$MODE=="Multi_Transit"] <- custo_One_Plus_Bus_1997 wide1997$COST.One_Plus_Bus[wide1997$MODE=="Rapid_Transit"] <- custo_One_Plus_Bus_1997 wide1997$COST.One_Plus_Bus[wide1997$MODE=="One_Bus"] <- custo_One_Plus_Bus_1997 #Custo das viagens simuladas - Multi_Transit wide1997$COST.Multi_Transit[wide1997$MODE=="Walking"] <- custo_Multi_Transit_1997 wide1997$COST.Multi_Transit[wide1997$MODE=="Car"] <- custo_Multi_Transit_1997 wide1997$COST.Multi_Transit[wide1997$MODE=="One_Plus_Bus"] <- custo_Multi_Transit_1997 #wide1997$COST.Multi_Transit[wide1997$MODE=="Multi_Transit"] <- custo_Multi_Transit_1997 wide1997$COST.Multi_Transit[wide1997$MODE=="Rapid_Transit"] <- custo_Multi_Transit_1997 wide1997$COST.Multi_Transit[wide1997$MODE=="One_Bus"] <- custo_Multi_Transit_1997 #Custo das viagens simuladas - Rapid_Transit wide1997$COST.Rapid_Transit[wide1997$MODE=="Walking"] <- custo_Rapid_Transit_1997 wide1997$COST.Rapid_Transit[wide1997$MODE=="Car"] <- custo_Rapid_Transit_1997 wide1997$COST.Rapid_Transit[wide1997$MODE=="One_Plus_Bus"] <- custo_Rapid_Transit_1997 wide1997$COST.Rapid_Transit[wide1997$MODE=="Multi_Transit"] <- custo_Rapid_Transit_1997 #wide1997$COST.Rapid_Transit[wide1997$MODE=="Rapid_Transit"] <- custo_Rapid_Transit_1997 wide1997$COST.Rapid_Transit[wide1997$MODE=="One_Bus"] <- custo_Rapid_Transit_1997 #Custo das viagens simuladas - One_Bus wide1997$COST.One_Bus[wide1997$MODE=="Walking"] <- custo_One_Bus_1997 wide1997$COST.One_Bus[wide1997$MODE=="Car"] <- custo_One_Bus_1997 wide1997$COST.One_Bus[wide1997$MODE=="One_Plus_Bus"] <- custo_One_Bus_1997 wide1997$COST.One_Bus[wide1997$MODE=="Multi_Transit"] <- custo_One_Bus_1997 #wide1997$COST.One_Bus[wide1997$MODE=="Rapid_Transit"] <- custo_One_Bus_1997 wide1997$COST.One_Bus[wide1997$MODE=="One_Bus"] <- custo_One_Bus_1997 rm(custo_Walking_1997, custo_Car_1997, custo_One_Plus_Bus_1997,custo_Subway_1997,custo_Motorcycle_1997,custo_Multi_Pvt_Transit_1997, custo_Multi_Transit_1997,custo_Rapid_Transit_1997,custo_One_Bus_1997) wide1997$COST <- NULL wide1997$COST_KM <- NULL wide1997$DISTANCE <- NULL ##Trabalhando para transformar essas variáveis em individual_specific e modal_specific #Criando as variáveis que variam com o modal #Distância (não varia, mas consta) wide2007$DISTANCE.Walking <- wide2007$DISTANCE wide2007$DISTANCE.Car <- wide2007$DISTANCE wide2007$DISTANCE.One_Plus_Bus <- wide2007$DISTANCE wide2007$DISTANCE.Multi_Transit <- wide2007$DISTANCE wide2007$DISTANCE.Rapid_Transit <- wide2007$DISTANCE wide2007$DISTANCE.One_Bus <- wide2007$DISTANCE #Período do dia (não varia, mas consta) wide2007$PERIOD.Walking <- wide2007$PERIOD wide2007$PERIOD.Car <- wide2007$PERIOD wide2007$PERIOD.One_Plus_Bus <- wide2007$PERIOD wide2007$PERIOD.Multi_Transit <- wide2007$PERIOD wide2007$PERIOD.Rapid_Transit <- wide2007$PERIOD wide2007$PERIOD.One_Bus <- wide2007$PERIOD #Motivo Origem (não varia, mas consta) wide2007$PURPOSE_O.Walking <- wide2007$PURPOSE_O wide2007$PURPOSE_O.Car <- wide2007$PURPOSE_O wide2007$PURPOSE_O.One_Plus_Bus <- wide2007$PURPOSE_O wide2007$PURPOSE_O.Multi_Transit <- wide2007$PURPOSE_O wide2007$PURPOSE_O.Rapid_Transit <- wide2007$PURPOSE_O wide2007$PURPOSE_O.One_Bus <- wide2007$PURPOSE_O #Motivo Destino (não varia, mas consta) wide2007$PURPOSE_D.Walking <- wide2007$PURPOSE_D wide2007$PURPOSE_D.Car <- wide2007$PURPOSE_D wide2007$PURPOSE_D.One_Plus_Bus <- wide2007$PURPOSE_D wide2007$PURPOSE_D.Multi_Transit <- wide2007$PURPOSE_D wide2007$PURPOSE_D.Rapid_Transit <- wide2007$PURPOSE_D wide2007$PURPOSE_D.One_Bus <- wide2007$PURPOSE_D #Duração: é o observado para o modal escolhido. Os outros modais alternativos (simulados), assumem o valor da média do modal wide2007$DURATION.Walking <- wide2007$DURATION wide2007$DURATION.Car <- wide2007$DURATION wide2007$DURATION.One_Plus_Bus <- wide2007$DURATION wide2007$DURATION.Multi_Transit <- wide2007$DURATION wide2007$DURATION.Rapid_Transit <- wide2007$DURATION wide2007$DURATION.One_Bus <- wide2007$DURATION wide2007$DISTANCE <- wide2007$DISTANCE/1000 #Duração das viagens simuladas - a pé #wide2007$DURATION.Walking[wide2007$MODE=="Walking"] <- (wide2007$DISTANCE[wide2007$MODE=="Walking"]/vm_Walking_2007)*60 wide2007$DURATION.Walking[wide2007$MODE=="Car"] <- (wide2007$DISTANCE[wide2007$MODE=="Car"]/vm_Walking_2007)*60 wide2007$DURATION.Walking[wide2007$MODE=="One_Plus_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Plus_Bus"]/vm_Walking_2007)*60 wide2007$DURATION.Walking[wide2007$MODE=="Multi_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Multi_Transit"]/vm_Walking_2007)*60 wide2007$DURATION.Walking[wide2007$MODE=="Rapid_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Rapid_Transit"]/vm_Walking_2007)*60 wide2007$DURATION.Walking[wide2007$MODE=="One_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Bus"]/vm_Walking_2007)*60 #Duração das viagens simuladas - Car wide2007$DURATION.Car[wide2007$MODE=="Walking"] <- (wide2007$DISTANCE[wide2007$MODE=="Walking"]/vm_Car_2007)*60 #wide2007$DURATION.Walking[wide2007$MODE=="Car"] <- (wide2007$DISTANCE[wide2007$MODE=="Car"]/vm_Car_2007)*60 wide2007$DURATION.Car[wide2007$MODE=="One_Plus_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Plus_Bus"]/vm_Car_2007)*60 wide2007$DURATION.Car[wide2007$MODE=="Multi_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Multi_Transit"]/vm_Car_2007)*60 wide2007$DURATION.Car[wide2007$MODE=="Rapid_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Rapid_Transit"]/vm_Car_2007)*60 wide2007$DURATION.Car[wide2007$MODE=="One_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Bus"]/vm_Car_2007)*60 #Duração das viagens simuladas - One_Plus_Bus wide2007$DURATION.One_Plus_Bus[wide2007$MODE=="Walking"] <- (wide2007$DISTANCE[wide2007$MODE=="Walking"]/vm_One_Plus_Bus_2007)*60 wide2007$DURATION.One_Plus_Bus[wide2007$MODE=="Car"] <- (wide2007$DISTANCE[wide2007$MODE=="Car"]/vm_One_Plus_Bus_2007)*60 #wide2007$DURATION.One_Plus_Bus[wide2007$MODE=="One_Plus_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Plus_Bus"]/vm_One_Plus_Bus_2007)*60 wide2007$DURATION.One_Plus_Bus[wide2007$MODE=="Multi_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Multi_Transit"]/vm_One_Plus_Bus_2007)*60 wide2007$DURATION.One_Plus_Bus[wide2007$MODE=="Rapid_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Rapid_Transit"]/vm_One_Plus_Bus_2007)*60 wide2007$DURATION.One_Plus_Bus[wide2007$MODE=="One_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Bus"]/vm_One_Plus_Bus_2007)*60 #Duração das viagens simuladas - Multi_Transit wide2007$DURATION.Multi_Transit[wide2007$MODE=="Walking"] <- (wide2007$DISTANCE[wide2007$MODE=="Walking"]/vm_Multi_Transit_2007)*60 wide2007$DURATION.Multi_Transit[wide2007$MODE=="Car"] <- (wide2007$DISTANCE[wide2007$MODE=="Car"]/vm_Multi_Transit_2007)*60 wide2007$DURATION.Multi_Transit[wide2007$MODE=="One_Plus_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Plus_Bus"]/vm_Multi_Transit_2007)*60 #wide2007$DURATION.Multi_Transit[wide2007$MODE=="Multi_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Multi_Transit"]/vm_Multi_Transit_2007)*60 wide2007$DURATION.Multi_Transit[wide2007$MODE=="Rapid_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Rapid_Transit"]/vm_Multi_Transit_2007)*60 wide2007$DURATION.Multi_Transit[wide2007$MODE=="One_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Bus"]/vm_Multi_Transit_2007)*60 #Duração das viagens simuladas - Rapid_Transit wide2007$DURATION.Rapid_Transit[wide2007$MODE=="Walking"] <- (wide2007$DISTANCE[wide2007$MODE=="Walking"]/vm_Rapid_Transit_2007)*60 wide2007$DURATION.Rapid_Transit[wide2007$MODE=="Car"] <- (wide2007$DISTANCE[wide2007$MODE=="Car"]/vm_Rapid_Transit_2007)*60 wide2007$DURATION.Rapid_Transit[wide2007$MODE=="One_Plus_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Plus_Bus"]/vm_Rapid_Transit_2007)*60 wide2007$DURATION.Rapid_Transit[wide2007$MODE=="Multi_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Multi_Transit"]/vm_Rapid_Transit_2007)*60 #wide2007$DURATION.Rapid_Transit[wide2007$MODE=="Rapid_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Rapid_Transit"]/vm_Rapid_Transit_2007)*60 wide2007$DURATION.Rapid_Transit[wide2007$MODE=="One_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Bus"]/vm_Rapid_Transit_2007)*60 #Duração das viagens simuladas - One_Bus wide2007$DURATION.One_Bus[wide2007$MODE=="Walking"] <- (wide2007$DISTANCE[wide2007$MODE=="Walking"]/vm_One_Bus_2007)*60 wide2007$DURATION.One_Bus[wide2007$MODE=="Car"] <- (wide2007$DISTANCE[wide2007$MODE=="Car"]/vm_One_Bus_2007)*60 wide2007$DURATION.One_Bus[wide2007$MODE=="One_Plus_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Plus_Bus"]/vm_One_Bus_2007)*60 wide2007$DURATION.One_Bus[wide2007$MODE=="Multi_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Multi_Transit"]/vm_One_Bus_2007)*60 wide2007$DURATION.One_Bus[wide2007$MODE=="Rapid_Transit"] <- (wide2007$DISTANCE[wide2007$MODE=="Rapid_Transit"]/vm_One_Bus_2007)*60 #wide2007$DURATION.One_Bus[wide2007$MODE=="One_Bus"] <- (wide2007$DISTANCE[wide2007$MODE=="One_Bus"]/vm_One_Bus_2007)*60 wide2007$DURATION <- NULL rm(vm_Walking_2007, vm_Car_2007, vm_One_Plus_Bus_2007,vm_Subway_2007,vm_Motorcycle_2007,vm_Multi_Pvt_Transit_2007, vm_Multi_Transit_2007,vm_Rapid_Transit_2007,vm_One_Bus_2007) #Duração: é o observado para o modal escolhido. Os outros modais alternativos (simulados), assumem o valor da média do modal wide2007$COST.Walking <- wide2007$COST wide2007$COST.Car <- wide2007$COST wide2007$COST.One_Plus_Bus <- wide2007$COST wide2007$COST.Multi_Transit <- wide2007$COST wide2007$COST.Rapid_Transit <- wide2007$COST wide2007$COST.One_Bus <- wide2007$COST #Custo das viagens simuladas - a pé #wide2007$COST.Walking[wide2007$MODE=="Walking"] <- custo_Walking_2007 wide2007$COST.Walking[wide2007$MODE=="Car"] <- custo_Walking_2007 wide2007$COST.Walking[wide2007$MODE=="One_Plus_Bus"] <- custo_Walking_2007 wide2007$COST.Walking[wide2007$MODE=="Multi_Transit"] <- custo_Walking_2007 wide2007$COST.Walking[wide2007$MODE=="Rapid_Transit"] <- custo_Walking_2007 wide2007$COST.Walking[wide2007$MODE=="One_Bus"] <- custo_Walking_2007 #Custo das viagens simuladas - Car wide2007$COST.Car[wide2007$MODE=="Walking"] <- custo_Car_2007*(wide2007$DISTANCE[wide2007$MODE=="Walking"]) #wide2007$COST.Car[wide2007$MODE=="Car"] <- custo_Car_2007*(wide2007$DISTANCE[wide2007$MODE=="Car"]) wide2007$COST.Car[wide2007$MODE=="One_Plus_Bus"] <- custo_Car_2007*(wide2007$DISTANCE[wide2007$MODE=="One_Plus_Bus"]) wide2007$COST.Car[wide2007$MODE=="Multi_Transit"] <- custo_Car_2007*(wide2007$DISTANCE[wide2007$MODE=="Multi_Transit"]) wide2007$COST.Car[wide2007$MODE=="Rapid_Transit"] <- custo_Car_2007*(wide2007$DISTANCE[wide2007$MODE=="Rapid_Transit"]) wide2007$COST.Car[wide2007$MODE=="One_Bus"] <- custo_Car_2007*(wide2007$DISTANCE[wide2007$MODE=="One_Bus"]) #Custo das viagens simuladas - One_Plus_Bus wide2007$COST.One_Plus_Bus[wide2007$MODE=="Walking"] <- custo_One_Plus_Bus_2007 wide2007$COST.One_Plus_Bus[wide2007$MODE=="Car"] <- custo_One_Plus_Bus_2007 #wide2007$COST.One_Plus_Bus[wide2007$MODE=="One_Plus_Bus"] <- custo_One_Plus_Bus_2007 wide2007$COST.One_Plus_Bus[wide2007$MODE=="Multi_Transit"] <- custo_One_Plus_Bus_2007 wide2007$COST.One_Plus_Bus[wide2007$MODE=="Rapid_Transit"] <- custo_One_Plus_Bus_2007 wide2007$COST.One_Plus_Bus[wide2007$MODE=="One_Bus"] <- custo_One_Plus_Bus_2007 #Custo das viagens simuladas - Multi_Transit wide2007$COST.Multi_Transit[wide2007$MODE=="Walking"] <- custo_Multi_Transit_2007 wide2007$COST.Multi_Transit[wide2007$MODE=="Car"] <- custo_Multi_Transit_2007 wide2007$COST.Multi_Transit[wide2007$MODE=="One_Plus_Bus"] <- custo_Multi_Transit_2007 #wide2007$COST.Multi_Transit[wide2007$MODE=="Multi_Transit"] <- custo_Multi_Transit_2007 wide2007$COST.Multi_Transit[wide2007$MODE=="Rapid_Transit"] <- custo_Multi_Transit_2007 wide2007$COST.Multi_Transit[wide2007$MODE=="One_Bus"] <- custo_Multi_Transit_2007 #Custo das viagens simuladas - Rapid_Transit wide2007$COST.Rapid_Transit[wide2007$MODE=="Walking"] <- custo_Rapid_Transit_2007 wide2007$COST.Rapid_Transit[wide2007$MODE=="Car"] <- custo_Rapid_Transit_2007 wide2007$COST.Rapid_Transit[wide2007$MODE=="One_Plus_Bus"] <- custo_Rapid_Transit_2007 wide2007$COST.Rapid_Transit[wide2007$MODE=="Multi_Transit"] <- custo_Rapid_Transit_2007 #wide2007$COST.Rapid_Transit[wide2007$MODE=="Rapid_Transit"] <- custo_Rapid_Transit_2007 wide2007$COST.Rapid_Transit[wide2007$MODE=="One_Bus"] <- custo_Rapid_Transit_2007 #Custo das viagens simuladas - One_Bus wide2007$COST.One_Bus[wide2007$MODE=="Walking"] <- custo_One_Bus_2007 wide2007$COST.One_Bus[wide2007$MODE=="Car"] <- custo_One_Bus_2007 wide2007$COST.One_Bus[wide2007$MODE=="One_Plus_Bus"] <- custo_One_Bus_2007 wide2007$COST.One_Bus[wide2007$MODE=="Multi_Transit"] <- custo_One_Bus_2007 #wide2007$COST.One_Bus[wide2007$MODE=="Rapid_Transit"] <- custo_One_Bus_2007 wide2007$COST.One_Bus[wide2007$MODE=="One_Bus"] <- custo_One_Bus_2007 rm(custo_Walking_2007, custo_Car_2007, custo_One_Plus_Bus_2007,custo_Subway_2007,custo_Motorcycle_2007,custo_Multi_Pvt_Transit_2007, custo_Multi_Transit_2007,custo_Rapid_Transit_2007,custo_One_Bus_2007) wide2007$COST <- NULL wide2007$COST_KM <- NULL wide2007$DISTANCE <- NULL #### 2.6.4 Creating the EN long dataset#### long1997 <- mlogit.data(data = wide1997, choice = "MODE", shape = "wide", varying = 22:57) long2007 <- mlogit.data(data = wide2007, choice = "MODE", shape = "wide", varying = 22:57) #### 2.7 Checkpoint save for EN dataset#### #save(long1997, file=paste0(dir,"Datasets/MODE_long1997_SP_EN.RData")) #save(long2007, file=paste0(dir,"Datasets/MODE_long2007_SP_EN.RData")) rm(OD_1997, OD_2007) #### 3 RUNNING THE MODELS#### ### 3.1 Multinomial Logit with no segmentation over data#### #Recalling datasets from 2.7 load(paste0(dir,"Datasets/MODE_wide1997_SP_EN.RData")) load(paste0(dir,"Datasets/MODE_wide2007_SP_EN.RData")) load(paste0(dir,"Datasets/MODE_long1997_SP_EN.RData")) load(paste0(dir,"Datasets/MODE_long2007_SP_EN.RData")) #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODE_wide1997_SP_EN.RData") #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODE_wide2007_SP_EN.RData") #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODE_long1997_SP_EN.RData") #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODE_long2007_SP_EN.RData") ### 3.1.2 Later variables' adjustments#### colSums(is.na(long1997)) colSums(is.na(long2007)) long1997$INC_FAMILIAR <- long1997$INC_FAMILIAR#*1.775180405 #deletei porque inclui no código anterior (D_0) long1997$INC_INDIVIDUAL <- long1997$INC_INDIVIDUAL#*1.775180405 long1997$COST <- long1997$COST#*1.775180405 long2007$ID_INDI <- as.factor(long2007$ID_INDI) long1997$ID_INDI <- as.factor(long1997$ID_INDI) long1997$COST_KM <- long1997$COST/(long1997$DISTANCE/1000) long2007$COST_KM <- long2007$COST/(long2007$DISTANCE/1000) long1997$DISTANCE <- long1997$DISTANCE/1000 long2007$DISTANCE <- long2007$DISTANCE/1000 long1997$INC_FAMILIAR_2 <- long1997$INC_FAMILIAR^2 long2007$INC_FAMILIAR_2 <- long2007$INC_FAMILIAR^2 long1997$INC_FAMILIAR <- long1997$INC_FAMILIAR/1000 long2007$INC_FAMILIAR <- long2007$INC_FAMILIAR/1000 long1997$D_VOUCHER <- as.factor(long1997$D_VOUCHER) long2007$D_VOUCHER <- as.factor(long2007$D_VOUCHER) ### 3.1.3 Formulas (specifications)#### f1 <- formula(MODE ~ COST + DURATION | INC_FAMILIAR + AGE + AGE_2 + D_MALE) f2 <- formula(MODE ~ COST + DURATION | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY) f3 <- formula(MODE ~ COST + DURATION | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY + D_STUDENT + D_CAR) f4 <- formula(MODE ~ COST | INC_FAMILIAR + AGE + AGE_2 + D_MALE | DURATION) f5 <- formula(MODE ~ COST | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY| DURATION) f6 <- formula(MODE ~ COST | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY + D_STUDENT + D_CAR | DURATION) fconstants1 <- formula(MODE ~ COST + DURATION | 1 | 1) fconstants2 <- formula(MODE ~ COST | 1 | DURATION) ### 3.1.4 Running the models and exporting the results#### ##1997 fconstants1_1997 <- mlogit(fconstants1,data=long1997, weights = W_TRIP) mf1_1997 <- mlogit(f1,data=long1997, weights = W_TRIP) mf2_1997 <- mlogit(f2,data=long1997, weights = W_TRIP) mf3_1997 <- mlogit(f3,data=long1997, weights = W_TRIP) fconstants2_1997 <- mlogit(fconstants2,data=long1997, weights = W_TRIP) mf4_1997 <- mlogit(f4,data=long1997, weights = W_TRIP) mf5_1997 <- mlogit(f5,data=long1997, weights = W_TRIP) mf6_1997 <- mlogit(f6,data=long1997, weights = W_TRIP) ##2007 fconstants1_2007 <- mlogit(fconstants1,data=long2007, weights = W_TRIP) mf1_2007 <- mlogit(f1,data=long2007, weights = W_TRIP) mf2_2007 <- mlogit(f2,data=long2007, weights = W_TRIP) mf3_2007 <- mlogit(f3,data=long2007, weights = W_TRIP) fconstants2_2007 <- mlogit(fconstants2,data=long2007, weights = W_TRIP) mf4_2007 <- mlogit(f4,data=long2007, weights = W_TRIP) mf5_2007 <- mlogit(f5,data=long2007, weights = W_TRIP) mf6_2007 <- mlogit(f6,data=long2007, weights = W_TRIP) ###Exporting stargazer(fconstants1_1997, mf1_1997, mf2_1997,mf3_1997, fconstants2_1997, mf4_1997,mf5_1997,mf6_1997, type='latex',title="Multinomial logit model - results for 1997", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic", "Cost coefficient in generic, duration is mode-specific"), column.separate = c(4,4),intercept.bottom = T,intercept.top = F, out = "multlogit1997_final.html", column.sep.width = "1pt", no.space = T) stargazer(fconstants1_1997, mf1_1997, mf2_1997,mf3_1997, fconstants2_1997, mf4_1997,mf5_1997,mf6_1997, type='latex',title="Multinomial logit model - results for 1997", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic", "Cost coefficient in generic, duration is mode-specific"), column.separate = c(4,4),intercept.bottom = T,intercept.top = F, out = "multlogit1997_final_coefs.html", column.sep.width = "1pt",report = "vc*", no.space = T) stargazer(fconstants1_1997, mf1_1997, mf2_1997,mf3_1997, fconstants2_1997, mf4_1997,mf5_1997,mf6_1997, type='latex',title="Multinomial logit model - results for 1997", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic", "Cost coefficient in generic, duration is mode-specific"), column.separate = c(4,4), out = "multlogit1997_final_ses.html", column.sep.width = "1pt",report = "s",intercept.bottom = T, no.space = T) stargazer(fconstants1_2007, mf1_2007, mf2_2007,mf3_2007, fconstants2_2007, mf4_2007,mf5_2007,mf6_2007, type='latex',title="Multinomial logit model - results for 2007", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic", "Cost coefficient in generic, duration is mode-specific"), column.separate = c(4,4),intercept.bottom = T,intercept.top = F, out = "multlogit2007_final.html", column.sep.width = "1pt", no.space = T) stargazer(fconstants1_2007, mf1_2007, mf2_2007,mf3_2007, fconstants2_2007, mf4_2007,mf5_2007,mf6_2007, type='latex',title="Multinomial logit model - results for 2007", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic", "Cost coefficient in generic, duration is mode-specific"), column.separate = c(4,4),intercept.bottom = T,intercept.top = F, out = "multlogit2007_final_coefs.html", column.sep.width = "1pt",report = "vc*", no.space = T) stargazer(fconstants1_2007, mf1_2007, mf2_2007,mf3_2007, fconstants2_2007, mf4_2007,mf5_2007,mf6_2007, type='latex',title="Multinomial logit model - results for 2007", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic", "Cost coefficient in generic, duration is mode-specific"), column.separate = c(4,4), out = "multlogit2007_final_ses.html", column.sep.width = "1pt",report = "s",intercept.bottom = T, no.space = T) ### 3.1.5 Estimating the elasticities#### z97 <- with(long1997, data.frame(COST = tapply(COST, index(mf6_1997)$alt, mean), DURATION = tapply(DURATION, index(mf6_1997)$alt, mean), INC_FAMILIAR = mean(INC_FAMILIAR), AGE = mean(AGE), AGE_2 = mean(AGE_2), D_MALE = mean(D_MALE), D_EMPLOY = mean(D_EMPLOY), D_STUDENT = mean(D_STUDENT), D_CAR = mean(D_CAR), W_TRIP = sum(W_TRIP))) z07 <- with(long2007, data.frame(COST = tapply(COST, index(mf6_2007)$alt, mean), DURATION = tapply(DURATION, index(mf6_2007)$alt, mean), INC_FAMILIAR = mean(INC_FAMILIAR), AGE = mean(AGE), AGE_2 = mean(AGE_2), D_MALE = mean(D_MALE), D_EMPLOY = mean(D_EMPLOY), D_STUDENT = mean(D_STUDENT), D_CAR = mean(D_CAR), W_TRIP = sum(W_TRIP))) stargazer(effects(mf6_1997, covariate = "COST", type = "rr", data = z97), type = 'latex',title = "Marginal effects with respect to price: Model (8), 1997", out = "E_1997_Cost.html") stargazer(effects(mf6_1997, covariate = "DURATION", type = "rr", data = z97), type = 'latex',title = "Marginal effects with respect to duration: Model (8), 1997", out = "E_1997_Time.html") stargazer(effects(mf6_2007, covariate = "COST", type = "rr", data = z07), type = 'latex',title = "Marginal effects with respect to price: Model (8), 2007", out = "E_2007_Cost.html") stargazer(effects(mf6_2007, covariate = "DURATION", type = "rr", data = z07), type = 'latex',title = "Marginal effects with respect to duration: Model (8), 2007", out = "E_2007_Time.html") effects(mf6_1997, covariate = "COST", type = "rr", data = z97) effects(mf6_2007, covariate = "COST", type = "rr", data = z07) effects(mf6_2007, covariate = "COST", type = "rr", data = z07) effects(mf6_2007, covariate = "DURATION", type = "rr", data = z07) effects(mf6_1997, covariate = "DURATION", type = "rr", data = z97) effects(mf6_1997, covariate = "COST", type = "rr", data = z97) ### 3.1.6 Estimating the aggregate probabilities#### apply(fitted(mf6_1997, outcome = FALSE), 2, mean) apply(fitted(mf6_2007, outcome = FALSE), 2, mean) apply(predict(mf6_1997, newdata = long2007), 2, mean) ##cross-sections 1997 e 2007 stargazer(apply(fitted(mf6_1997, outcome = FALSE), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 1997 (Model 8)", out = "P_1997.html", digits = 5) stargazer(apply(fitted(mf6_2007, outcome = FALSE), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 2007 (Model 8)", out = "P_2007.html", digits = 5) ##Aplicando os coeficientes de um modelo (1997) em outra base de dados (2007) stargazer(apply(predict(mf6_1997, newdata = long2007), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 2007 (Model 8), using coefficients of 1997", out = "P_19972007.html", digits = 5) ### 3.1.7 Descriptive statistics#### ##Tabelas de custos e distâncias e etc médios Tabelas_medias <- wide2007 %>% group_by(MODE) %>% summarise(CUSTO_07 = weighted.mean(COST, W_TRIP, na.rm=T), CUSTO_PKM_07 = weighted.mean(COST_KM, W_TRIP, na.rm=T), DISTANCIA_07 = weighted.mean(DISTANCE, W_TRIP, na.rm=T), VELOCIDADE_07 = weighted.mean(SPEED, W_TRIP, na.rm=T)) Tabelas_medias_97 <- wide1997 %>% group_by(MODE) %>% summarise(CUSTO_97 = weighted.mean(COST, W_TRIP, na.rm=T), CUSTO_PKM_97 = weighted.mean(COST_KM, W_TRIP, na.rm=T), DISTANCIA_97 = weighted.mean(DISTANCE, W_TRIP, na.rm=T), VELOCIDADE_97 = weighted.mean(SPEED, W_TRIP, na.rm=T)) Tabelas_medias <- merge(Tabelas_medias, Tabelas_medias_97, by.x="MODE", by.y="MODE", all.x=TRUE, all.y=FALSE) Tabelas_medias <- Tabelas_medias[,order(names(Tabelas_medias))] Tabelas_medias <- Tabelas_medias[,c(7,1:6,8:9)] rm(Tabelas_medias_97) rownames(Tabelas_medias) <- NULL ### 3.1.8 Tests over models (8)#### model_8_97 <- mf6_1997 model_8_07 <- mf6_2007 model_8_97_constrained <- fconstants2_1997 model_8_07_constrained <- fconstants2_2007 hmftest(model_8_97,z = c("Rapid_Transit","One_Plus_Bus","Multi_Transit","One_Bus")) hmftest(model_8_07,z = c("Rapid_Transit","One_Plus_Bus","Multi_Transit","One_Bus")) waldtest(model_8_97, model_8_97_constrained) waldtest(model_8_07, model_8_07_constrained) scoretest(model_8_97_constrained, model_8_97) scoretest(model_8_07_constrained, model_8_07) lrtest(model_8_97, model_8_97_constrained) lrtest(model_8_07, model_8_07_constrained) scoretest(mf6_1997_constrained, mf6_1997) scoretest(mf6_2007_constrained, mf6_2007) lrtest(mf6_1997, mf6_1997_constrained) lrtest(mf6_2007, mf6_2007_constrained) ##Wald Test: based only on the unconstrained model## waldtest(mf6_1997, mf6_1997_constrained) waldtest(mf6_2007, mf6_2007_constrained) stargazer(waldtest(mf6_1997, mf6_1997_constrained), type = 'latex',title = "Wald Test: Model (8), 1997", out = "waldtest_1997.html", notes = "Unconstrained model: (8); Constrained model: (5)") stargazer(waldtest(mf6_2007, mf6_2007_constrained), type = 'latex',title = "Wald Test: Model (8), 2007", out = "waldtest_2007.html", notes = "Unconstrained model: (8); Constrained model: (5)") ##Lagrange multiplier test (or score test): based only on the constrained model## scoretest(mf6_1997_constrained, mf6_1997) scoretest(mf6_2007_constrained, mf6_2007) ##Likelihood ratio test: based on the comparison of both model# lrtest(mf6_1997, mf6_1997_constrained) ##Hausman-McFadden test for IIA hmftest(mf6_1997,z = c("Rapid_Transit","One_Plus_Bus","Multi_Transit","One_Bus")) hmftest(mf6_2007,z = c("Rapid_Transit","One_Plus_Bus","Multi_Transit","One_Bus")) ### 3.2 Multinomial Logit - Dataset without Vale Transporte#### ##Calling the datasets elaborated parallelly load(paste0(dir,"Datasets/NOVT_MODE_wide1997_SP_EN.RData")) load(paste0(dir,"Datasets/NOVT_MODE_wide2007_SP_EN.RData")) load(paste0(dir,"Datasets/NOVT_MODE_long1997_SP_EN.RData")) load(paste0(dir,"Datasets/NOVT_MODE_long2007_SP_EN.RData")) #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODE_wide1997_SP_EN.RData") #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODE_wide2007_SP_EN.RData") #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODE_long1997_SP_EN.RData") #load(file="C:/Users/miguel.jacob/Dropbox/FGV/Dissertação/Dados/OD/MODE_long2007_SP_EN.RData") ### 3.2.2 Later variables' adjustments#### colSums(is.na(long1997)) colSums(is.na(long2007)) long1997$INC_FAMILIAR <- long1997$INC_FAMILIAR#*1.775180405 #deletei porque inclui no código anterior (D_0) long1997$INC_INDIVIDUAL <- long1997$INC_INDIVIDUAL#*1.775180405 long1997$COST <- long1997$COST#*1.775180405 long2007$ID_INDI <- as.factor(long2007$ID_INDI) long1997$ID_INDI <- as.factor(long1997$ID_INDI) long1997$COST_KM <- long1997$COST/(long1997$DISTANCE/1000) long2007$COST_KM <- long2007$COST/(long2007$DISTANCE/1000) long1997$DISTANCE <- long1997$DISTANCE/1000 long2007$DISTANCE <- long2007$DISTANCE/1000 long1997$INC_FAMILIAR_2 <- long1997$INC_FAMILIAR^2 long2007$INC_FAMILIAR_2 <- long2007$INC_FAMILIAR^2 long1997$INC_FAMILIAR <- long1997$INC_FAMILIAR/1000 long2007$INC_FAMILIAR <- long2007$INC_FAMILIAR/1000 long1997$D_VOUCHER <- as.factor(long1997$D_VOUCHER) long2007$D_VOUCHER <- as.factor(long2007$D_VOUCHER) ### 3.2.3 Formulas (specifications) #### f1 <- formula(MODE ~ COST + DURATION | INC_FAMILIAR + AGE + AGE_2 + D_MALE) f2 <- formula(MODE ~ COST + DURATION | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY) f3 <- formula(MODE ~ COST + DURATION | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY + D_STUDENT + D_CAR) f4 <- formula(MODE ~ COST | INC_FAMILIAR + AGE + AGE_2 + D_MALE | DURATION) f5 <- formula(MODE ~ COST | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY| DURATION) f6 <- formula(MODE ~ COST | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY + D_STUDENT + D_CAR | DURATION) fconstants1 <- formula(MODE ~ COST + DURATION | 1 | 1) fconstants2 <- formula(MODE ~ COST | 1 | DURATION) ### 3.2.4 Running the models and exporting the results #### fconstants1_1997 <- mlogit(fconstants1,data=long1997, weights = W_TRIP) mf1_1997 <- mlogit(f1,data=long1997, weights = W_TRIP) mf2_1997 <- mlogit(f2,data=long1997, weights = W_TRIP) mf3_1997 <- mlogit(f3,data=long1997, weights = W_TRIP) fconstants2_1997 <- mlogit(fconstants2,data=long1997, weights = W_TRIP) mf4_1997 <- mlogit(f4,data=long1997, weights = W_TRIP) mf5_1997 <- mlogit(f5,data=long1997, weights = W_TRIP) mf6_1997 <- mlogit(f6,data=long1997, weights = W_TRIP) #mf6_1997_nested <- mlogit(f6,data=long1997, weights = W_TRIP, # nests = list(public = c("One_Bus", "One_Plus_Bus", "Rapid_Transit", "Multi_Transit"), # private = c("Car","Walking"))) fconstants1_2007 <- mlogit(fconstants1,data=long2007, weights = W_TRIP) mf1_2007 <- mlogit(f1,data=long2007, weights = W_TRIP) mf2_2007 <- mlogit(f2,data=long2007, weights = W_TRIP) mf3_2007 <- mlogit(f3,data=long2007, weights = W_TRIP) fconstants2_2007 <- mlogit(fconstants2,data=long2007, weights = W_TRIP) mf4_2007 <- mlogit(f4,data=long2007, weights = W_TRIP) mf5_2007 <- mlogit(f5,data=long2007, weights = W_TRIP) mf6_2007 <- mlogit(f6,data=long2007, weights = W_TRIP) stargazer(fconstants1_1997, mf1_1997, mf2_1997,mf3_1997, fconstants2_1997, mf4_1997,mf5_1997,mf6_1997, type='latex',title="Multinomial logit model - results for 1997", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic", "Cost coefficient in generic, duration is mode-specific"), column.separate = c(4,4),intercept.bottom = T,intercept.top = F, out = "NOVT_multlogit1997_final.html", column.sep.width = "1pt", no.space = T) #stargazer(fconstants1_1997, # mf1_1997, mf2_1997,mf3_1997, # fconstants2_1997, # mf4_1997,mf5_1997,mf6_1997, # type='latex',title="Multinomial logit model - results for 1997", # dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", # column.labels = c("Cost and duration coefficients are generic", # "Cost coefficient in generic, duration is mode-specific"), # column.separate = c(4,4),intercept.bottom = T,intercept.top = F, # out = "NOVT_multlogit1997_final_coefs.html", # column.sep.width = "1pt",report = "vc*", # no.space = T) #stargazer(fconstants1_1997, # mf1_1997, mf2_1997,mf3_1997, # fconstants2_1997, # mf4_1997,mf5_1997,mf6_1997, # type='latex',title="Multinomial logit model - results for 1997", # dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", # column.labels = c("Cost and duration coefficients are generic", # "Cost coefficient in generic, duration is mode-specific"), # column.separate = c(4,4), # out = "multlogit1997_final_ses.html", # column.sep.width = "1pt",report = "s",intercept.bottom = T, # no.space = T) stargazer(fconstants1_2007, mf1_2007, mf2_2007,mf3_2007, fconstants2_2007, mf4_2007,mf5_2007,mf6_2007, type='latex',title="Multinomial logit model - results for 2007", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic", "Cost coefficient in generic, duration is mode-specific"), column.separate = c(4,4),intercept.bottom = T,intercept.top = F, out = "NOVT_multlogit2007_final.html", column.sep.width = "1pt", no.space = T) #stargazer(fconstants1_2007, # mf1_2007, mf2_2007,mf3_2007, # fconstants2_2007, # mf4_2007,mf5_2007,mf6_2007, # type='latex',title="Multinomial logit model - results for 2007", # dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", # column.labels = c("Cost and duration coefficients are generic", # "Cost coefficient in generic, duration is mode-specific"), # column.separate = c(4,4),intercept.bottom = T,intercept.top = F, # out = "multlogit2007_final_coefs.html", # column.sep.width = "1pt",report = "vc*", # no.space = T) #stargazer(fconstants1_2007, # mf1_2007, mf2_2007,mf3_2007, # fconstants2_2007, # mf4_2007,mf5_2007,mf6_2007, # type='latex',title="Multinomial logit model - results for 2007", # dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", # column.labels = c("Cost and duration coefficients are generic", # "Cost coefficient in generic, duration is mode-specific"), # column.separate = c(4,4), # out = "multlogit2007_final_ses.html", # column.sep.width = "1pt",report = "s",intercept.bottom = T, # no.space = T) #rm(mf1_1997, mf2_1997,mf3_1997,mf4_1997,mf5_1997,fconstants1_1997,fconstants2_1997, # mf1_2007, mf2_2007,mf3_2007,mf4_2007,mf5_2007,fconstants1_2007,fconstants2_2007) ### 3.2.5 Estimating the elasticities#### z97 <- with(long1997, data.frame(COST = tapply(COST, index(mf3_1997)$alt, mean), DURATION = tapply(DURATION, index(mf3_1997)$alt, mean), INC_FAMILIAR = mean(INC_FAMILIAR), AGE = mean(AGE), AGE_2 = mean(AGE_2), D_MALE = mean(D_MALE), D_EMPLOY = mean(D_EMPLOY), D_STUDENT = mean(D_STUDENT), D_CAR = mean(D_CAR), W_TRIP = sum(W_TRIP))) z07 <- with(long2007, data.frame(COST = tapply(COST, index(mf3_2007)$alt, mean), DURATION = tapply(DURATION, index(mf3_2007)$alt, mean), INC_FAMILIAR = mean(INC_FAMILIAR), AGE = mean(AGE), AGE_2 = mean(AGE_2), D_MALE = mean(D_MALE), D_EMPLOY = mean(D_EMPLOY), D_STUDENT = mean(D_STUDENT), D_CAR = mean(D_CAR), W_TRIP = sum(W_TRIP))) stargazer(effects(mf3_1997, covariate = "COST", type = "rr", data = z97), type = 'latex',title = "Marginal effects with respect to price: Model (8), 1997", out = "NOVT_E_1997_Cost.html") stargazer(effects(mf3_1997, covariate = "DURATION", type = "rr", data = z97), type = 'latex',title = "Marginal effects with respect to duration: Model (8), 1997", out = "NOVT_E_1997_Time.html") stargazer(effects(mf3_2007, covariate = "COST", type = "rr", data = z07), type = 'latex',title = "Marginal effects with respect to price: Model (8), 2007", out = "NOVT_E_2007_Cost.html") stargazer(effects(mf3_2007, covariate = "DURATION", type = "rr", data = z07), type = 'latex',title = "Marginal effects with respect to duration: Model (8), 2007", out = "NOVT_E_2007_Time.html") effects(mf6_1997, covariate = "COST", type = "rr", data = z97) effects(mf6_2007, covariate = "COST", type = "rr", data = z07) effects(mf6_2007, covariate = "COST", type = "rr", data = z07) effects(mf6_2007, covariate = "DURATION", type = "rr", data = z07) effects(mf6_1997, covariate = "DURATION", type = "rr", data = z97) effects(mf6_1997, covariate = "COST", type = "rr", data = z97) ### 3.2.6 Estimating the aggregate probabilities#### ##cross-sections 1997 e 2007 stargazer(apply(fitted(mf3_1997, outcome = FALSE), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 1997 (Model 4)", out = "NOVT_P_1997.html", digits = 5) stargazer(apply(fitted(mf3_2007, outcome = FALSE), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 2007 (Model 4)", out = "NOVT_P_2007.html", digits = 5) ##Aplicando os coeficientes de um modelo (1997) em outra base de dados (2007) stargazer(apply(predict(mf3_1997, newdata = long2007), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 2007 (Model 8), using coefficients of 1997", out = "NOVT_P_19972007.html", digits = 5) ### 3.2.7 Descriptive statistics#### ##Tabelas de custos e distâncias e etc médios Tabelas_medias <- wide2007 %>% group_by(MODE) %>% summarise(CUSTO_07 = weighted.mean(COST, W_TRIP, na.rm=T), CUSTO_PKM_07 = weighted.mean(COST_KM, W_TRIP, na.rm=T), DISTANCIA_07 = weighted.mean(DISTANCE, W_TRIP, na.rm=T), VELOCIDADE_07 = weighted.mean(SPEED, W_TRIP, na.rm=T)) Tabelas_medias_97 <- wide1997 %>% group_by(MODE) %>% summarise(CUSTO_97 = weighted.mean(COST, W_TRIP, na.rm=T), CUSTO_PKM_97 = weighted.mean(COST_KM, W_TRIP, na.rm=T), DISTANCIA_97 = weighted.mean(DISTANCE, W_TRIP, na.rm=T), VELOCIDADE_97 = weighted.mean(SPEED, W_TRIP, na.rm=T)) Tabelas_medias <- merge(Tabelas_medias, Tabelas_medias_97, by.x="MODE", by.y="MODE", all.x=TRUE, all.y=FALSE) Tabelas_medias <- Tabelas_medias[,order(names(Tabelas_medias))] Tabelas_medias <- Tabelas_medias[,c(7,1:6,8:9)] rm(Tabelas_medias_97) rownames(Tabelas_medias) <- NULL xtable(Tabelas_medias, include.rownames = FALSE) ((0.024-0.025)/0.025)/((2.30-3.13)/3.13) ### 3.2.8 Test over models (12)#### #f6 <- formula(MODE ~ COST | INC_FAMILIAR + AGE + AGE_2 + D_MALE + D_EMPLOY + D_STUDENT + D_CAR| DURATION) #mf6_1997_constrained <- update(mf6_1997, . ~ . | . - INC_FAMILIAR | .) #mf6_2007_constrained <- update(mf6_2007, . ~ . | . - INC_FAMILIAR | .) model_12_97 <- mf3_1997 model_12_07 <- mf3_2007 model_9_97_constrained <- fconstants1_1997 model_9_07_constrained <- fconstants1_2007 hmftest(model_12_97,z = c("Rapid_Transit","One_Plus_Bus","Multi_Transit","One_Bus")) hmftest(model_12_07,z = c("Rapid_Transit","One_Plus_Bus","Multi_Transit","One_Bus")) waldtest(model_12_97, model_9_97_constrained) waldtest(model_12_07, model_9_07_constrained) scoretest(model_9_97_constrained, model_12_97) scoretest(model_9_07_constrained, model_12_07) lrtest(model_12_97, model_9_97_constrained) lrtest(model_12_07, model_9_07_constrained) mf3_1997_constrained <- fconstants2_1997 mf3_2007_constrained <- fconstants2_2007 ##Wald Test: based only on the unconstrained model## stargazer(waldtest(mf3_1997, mf3_1997_constrained), type = 'latex',title = "Wald Test: Model (8), 1997", out = "NOVT_waldtest_1997.html", notes = "Unconstrained model: (8); Constrained model: (5)") stargazer(waldtest(mf3_2007, mf3_2007_constrained), type = 'latex',title = "Wald Test: Model (8), 2007", out = "NOVT_waldtest_2007.html", notes = "Unconstrained model: (8); Constrained model: (5)") ##Lagrange multiplier test (or score test): based only on the constrained model## scoretest(mf3_1997_constrained, mf3_1997) scoretest(mf3_2007_constrained, mf3_2007) ##Likelihood ratio test: based on the comparison of both model# lrtest(mf3_1997, mf3_1997_constrained) ##Hausman-McFadden test for IIA hmftest(mf3_1997,z = c("Rapid_Transit","One_Plus_Bus","Multi_Transit","One_Bus")) hmftest(mf3_2007,z = c("Rapid_Transit","One_Plus_Bus","Multi_Transit","One_Bus")) ### 3.3 Nested logit#### ##Calling the datasets elaborated parallelly load(paste0(dir,"Datasets/MODE_long1997_SP_EN_NOWALKING.RData")) load(paste0(dir,"Datasets/MODE_long2007_SP_EN_NOWALKING.RData")) load(paste0(dir,"Datasets/MODE_wide1997_SP_EN_NOWALKING.RData")) load(paste0(dir,"DatasetsMODE_wide2007_SP_EN_NOWALKING.RData")) #Nest structure nests_at <- list(auto = c("Car"), transit = c("One_Bus", "One_Plus_Bus","Rapid_Transit","Multi_Transit")) ### 3.3.1 Running the models and exporting the results#### #mnl_const_1997 <- mlogit(fconstants1,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl1_1997 <- mlogit(f1,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl2_1997 <- mlogit(f2,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl3_1997 <- mlogit(f3,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl_const2_1997 <- mlogit(fconstants2,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl4_1997 <- mlogit(f4,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl5_1997 <- mlogit(f5,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl6_1997 <- mlogit(f6,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T) mnl_const_1997_uel <- mlogit(fconstants1,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl1_1997_uel <- mlogit(f1,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl2_1997_uel <- mlogit(f2,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl3_1997_uel <- mlogit(f3,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl_const2_1997_uel <- mlogit(fconstants2,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl4_1997_uel <- mlogit(f4,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl5_1997_uel <- mlogit(f5,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl6_1997_uel <- mlogit(f6,data=long1997, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) #mnl_const_2007 <- mlogit(fconstants1,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl1_2007 <- mlogit(f1,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T) mnl2_2007 <- mlogit(f2,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl3_2007 <- mlogit(f3,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl_const2_2007 <- mlogit(fconstants2,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl4_2007 <- mlogit(f4,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl5_2007 <- mlogit(f5,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T) #mnl6_2007 <- mlogit(f6,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T) mnl_const_2007_uel <- mlogit(fconstants1,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl1_2007_uel <- mlogit(f1,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl2_2007_uel <- mlogit(f2,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl3_2007_uel <- mlogit(f3,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl_const2_2007_uel <- mlogit(fconstants2,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl4_2007_uel <- mlogit(f4,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl5_2007_uel <- mlogit(f5,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) mnl6_2007_uel <- mlogit(f6,data=long2007, weights = W_TRIP, nests = nests_at, unscaled = T, un.nest.el = T) stargazer(mnl_const_1997_uel, mnl1_1997_uel,mnl2_1997_uel,mnl3_1997_uel, mnl_const2_1997_uel,mnl4_1997_uel,mnl5_1997_uel,mnl6_1997_uel, type='latex',title="Nested logit model - results for 1997", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic - Nested elasticities", "Cost coefficient in generic, duration is mode-specific - Nested elasticities"), column.separate = c(4,4),intercept.bottom = T,intercept.top = F, out = "nestedlogit1997_final.html", column.sep.width = "1pt", no.space = T) stargazer(mnl_const_2007_uel, mnl1_2007_uel,mnl2_2007_uel,mnl3_2007_uel, mnl4_2007_uel,mnl5_2007_uel,mnl6_2007_uel, type='latex',title="Nested logit model - results for 2007", dep.var.labels = "Logistic function odds, estimate in each mode and covariates. Car is the base mode.", column.labels = c("Cost and duration coefficients are generic - Nested elasticities", "Cost coefficient in generic, duration is mode-specific - Nested elasticities"), column.separate = c(4,3),intercept.bottom = T,intercept.top = F, out = "nestedlogit2007_final.html", column.sep.width = "1pt", no.space = T) ### 3.3.2 Estimating the elasticities and the aggregate probabilities#### ##cross-sections 1997 e 2007 stargazer(apply(fitted(mnl6_1997_uel, outcome = FALSE), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 1997 (Model 8)", out = "P_1997_nested.html") stargazer(apply(fitted(mnl6_2007_uel, outcome = FALSE), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 2007 (Model 8)", out = "P_2007_nested.html") ##Aplicando os coeficientes de um modelo (1997) em outra base de dados (2007) stargazer(apply(predict(mnl6_1997_uel, newdata = long2007), 2, mean), type = 'latex', title = "Predict aggregate probabilities of each mode for 2007 (Model 8), using coefficients of 1997", out = "P_19972007_nested.html") ###Calculando os efeitos marginais P2007 <- predict(mnl6_2007_uel, newdata = long2007) long2007sim <- long2007 #long2007sim$COST[long2007sim$alt=="One_Bus"] <- long2007sim$COST[long2007sim$alt=="One_Bus"] + (sd(long2007sim$COST)/1000) long2007sim$COST[long2007sim$alt=="One_Bus"] <- mean(long2007sim$COST[long2007sim$alt=="One_Bus"])*1.01 P2007sim <- predict(mnl6_2007_uel, newdata = long2007sim) apply(P2007, 2, mean) apply(P2007sim, 2, mean) #100*(apply(P2007sim, 2, mean)[3]-apply(teste, 2, mean)[3]) 100*(apply(P2007sim, 2, mean)-apply(P2007, 2, mean)) stargazer((100*(apply(P2007sim, 2, mean)-apply(P2007, 2, mean))), type = 'latex', title = "Marginal effects with respect to bus price for 2007 (Model 8 - Nested logit)", out = "ME_2007_nested.html") rm(P2007, P2007sim, long2007sim) ##1997 P1997 <- predict(mnl6_1997_uel, newdata = long1997) long1997sim <- long1997 long1997sim$COST[long1997sim$alt=="One_Bus"] <- long1997sim$COST[long1997sim$alt=="One_Bus"] + (sd(long1997sim$COST)/1000) #long1997sim$COST[long1997sim$alt=="One_Bus"] <- mean(long1997sim$COST[long1997sim$alt=="One_Bus"])*1.01 P1997sim <- predict(mnl6_1997_uel, newdata = long1997sim) apply(P1997, 2, mean) apply(P1997sim, 2, mean) #100*(apply(P1997sim, 2, mean)[3]-apply(teste, 2, mean)[3]) 100*(apply(P1997sim, 2, mean)-apply(P1997, 2, mean)) stargazer((100*(apply(P1997sim, 2, mean)-apply(P1997, 2, mean))), type = 'latex', title = "Marginal effects with respect to bus price for 1997 (Model 8 - Nested logit)", out = "ME_1997_nested.html") rm(P1997, P1997sim, long1997sim) ### 3.3.3 Tests over models#### model_24_97 <- mnl6_1997_uel model_24_07 <- mnl6_2007_uel model_21_97_constrained <- mnl_const2_1997_uel model_21_07_constrained <- mnl_const2_2007_uel lrtest(model_24_97) lrtest(model_24_07)