library(dplyr)
#library(stringr)
#library(gapminder)
library(tidyverse)
library(datasets)
#Lista_de_especies_RNP_Clements <- read_excel("CIAMB/TESIS/Data/Lista de especies RNP-Clements.xlsx")
#attach(paa_codazzi3)
paa_codazzi2 <- paa_codazzi %>%
rename(Entidad = ...1,Codigo = ...2, Descripcion=...3,Fecinicpro = ...4,fecpofer = ...5,plazo = ...6,unidad_plazo = ...7,modalidad = ...8,fuente = ...9,valor =...10,vlrvigactu = ...11)
list_codigos<-c("42203605","4323","81111","81112","81122","81123","81161501")
list_codexclude<-c("81111508","81111811","81111808")
codigo8 <- c(42203605,81161501)
#codigo5 <- c(81111,81112,81122,81123)
#codigo4 <- c(4323)
paa_codazzi3 <- paa_codazzi2 %>%
mutate(indicator = "X",
Codigo = as.character(Codigo), codigo4=substr(Codigo,1,4),codigo5=substr(Codigo,1,5)) %>%
filter(Codigo %in% list_codigos | codigo4 %in% list_codigos | codigo5 %in% list_codigos)
paa_codazzifinal <- paa_codazzi3 %>%
filter(Codigo != list_codexclude )
The last sentence is not working