Advertisement
Guest User

Untitled

a guest
Sep 26th, 2017
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.48 KB | None | 0 0
  1. structure(list(`1002538-1` = structure(list(ID.VINC.INST = c("1002538-1",
  2. "1002538-1"), DS_PREFIXO = c("FILHO (A) INVÁLIDO (A)", "VIÚVA"
  3. ), ID.FUNCIONAL = c(43189938L, 43189920L), NR_MATRICULA = c("0094712B",
  4. "0094712A"), NOME = c("RAQUEL ELCO CAMPOS", "CELINA ELCO CAMPOS"
  5. ), ID_FUNCIONAL_INSTITUIDOR = c(1002538L, 1002538L), VINCULO_INSTITUIDOR = c(1L,
  6. 1L), NUMPENS = c(2L, 1L), NM_INSTITUIDOR = c("JOCELINO VILLELA CAMPOS",
  7. "JOCELINO VILLELA CAMPOS"), VL_BRUTO = c(1182.13, 1182.13), MES_REF = c("01/08/2017",
  8. "01/08/2017"), CLASSE = c("CLASSE 1", "CLASSE 1"), Freq = c(2L,
  9. 2L)), .Names = c("ID.VINC.INST", "DS_PREFIXO", "ID.FUNCIONAL",
  10. "NR_MATRICULA", "NOME", "ID_FUNCIONAL_INSTITUIDOR", "VINCULO_INSTITUIDOR",
  11. "NUMPENS", "NM_INSTITUIDOR", "VL_BRUTO", "MES_REF", "CLASSE",
  12. "Freq"), row.names = 5:6, class = "data.frame"), `1003437-1` = structure(list(
  13. ID.VINC.INST = c("1003437-1", "1003437-1"), DS_PREFIXO = c("VIÚVA",
  14. "DEPENDENTE"), ID.FUNCIONAL = c(44227795L, 44235089L), NR_MATRICULA = c("0416908A",
  15. "0416908B"), NOME = c("VERGINIA MARIA DE OLIVEIRA ROSA",
  16. "EMILLY DE OLIVEIRA ROSA"), ID_FUNCIONAL_INSTITUIDOR = c(1003437L,
  17. 1003437L), VINCULO_INSTITUIDOR = c(1L, 1L), NUMPENS = 1:2,
  18. NM_INSTITUIDOR = c("ANTONIO PLACIDIO LOPES ROSA", "ANTONIO PLACIDIO LOPES ROSA"
  19. ), VL_BRUTO = c(3047.47, 3047.47), MES_REF = c("01/08/2017",
  20. "01/08/2017"), CLASSE = c("CLASSE 1", "OUTRAS"), Freq = c(2L,
  21. 2L)), .Names = c("ID.VINC.INST", "DS_PREFIXO", "ID.FUNCIONAL",
  22. "NR_MATRICULA", "NOME", "ID_FUNCIONAL_INSTITUIDOR", "VINCULO_INSTITUIDOR",
  23. "NUMPENS", "NM_INSTITUIDOR", "VL_BRUTO", "MES_REF", "CLASSE",
  24. "Freq"), row.names = 10:11, class = "data.frame"), `10087958-1` = structure(list(
  25. ID.VINC.INST = c("10087958-1", "10087958-1"), DS_PREFIXO = c("VIÚVA",
  26. "FILHO (A) MENOR"), ID.FUNCIONAL = c(50740172L, 50740202L
  27. ), NR_MATRICULA = c("", ""), NOME = c("ALEXANDRA GOMES DE OLIVEIRA MACIEL",
  28. "JUAN PEDRO DE OLIVEIRA MACIEL"), ID_FUNCIONAL_INSTITUIDOR = c(10087958L,
  29. 10087958L), VINCULO_INSTITUIDOR = c(1L, 1L), NUMPENS = 1:2,
  30. NM_INSTITUIDOR = c("MARCO ANTONIO DE OLIVEIRA MACIEL", "MARCO ANTONIO DE OLIVEIRA MACIEL"
  31. ), VL_BRUTO = c(3076.8, 3076.8), MES_REF = c("01/08/2017",
  32. "01/08/2017"), CLASSE = c("CLASSE 1", "CLASSE 1"), Freq = c(2L,
  33. 2L)), .Names = c("ID.VINC.INST", "DS_PREFIXO", "ID.FUNCIONAL",
  34. "NR_MATRICULA", "NOME", "ID_FUNCIONAL_INSTITUIDOR", "VINCULO_INSTITUIDOR",
  35. "NUMPENS", "NM_INSTITUIDOR", "VL_BRUTO", "MES_REF", "CLASSE",
  36. "Freq"), row.names = 19:20, class = "data.frame"), `10114963-1` = structure(list(
  37. ID.VINC.INST = c("10114963-1", "10114963-1"), DS_PREFIXO = c("FILHO (A) MENOR",
  38. "VIÚVA"), ID.FUNCIONAL = c(50853104L, 50853090L), NR_MATRICULA = c("",
  39. ""), NOME = c("GUILHERME DE ASSIS MARINHO", "ELISANGELA DE ASSIS SILVA MARINHO"
  40. ), ID_FUNCIONAL_INSTITUIDOR = c(10114963L, 10114963L), VINCULO_INSTITUIDOR = c(1L,
  41. 1L), NUMPENS = c(2L, 1L), NM_INSTITUIDOR = c("EDSON BORBA MARINHO",
  42. "EDSON BORBA MARINHO"), VL_BRUTO = c(3095.41, 3095.41), MES_REF = c("01/08/2017",
  43. "01/08/2017"), CLASSE = c("CLASSE 1", "CLASSE 1"), Freq = c(2L,
  44. 2L)), .Names = c("ID.VINC.INST", "DS_PREFIXO", "ID.FUNCIONAL",
  45. "NR_MATRICULA", "NOME", "ID_FUNCIONAL_INSTITUIDOR", "VINCULO_INSTITUIDOR",
  46. "NUMPENS", "NM_INSTITUIDOR", "VL_BRUTO", "MES_REF", "CLASSE",
  47. "Freq"), row.names = 27:28, class = "data.frame"), `10179151-1` = structure(list(
  48. ID.VINC.INST = c("10179151-1", "10179151-1", "10179151-1"
  49. ), DS_PREFIXO = c("FILHO (A) MENOR", "COMPANHEIRA", "FILHO (A) MENOR"
  50. ), ID.FUNCIONAL = c(43038824L, 43300464L, 43038816L), NR_MATRICULA = c("0410258B",
  51. "0410258C", "0410258A"), NOME = c("ERICA FERREIRA ROGERIO DE SOUZA",
  52. "PATRICIA FERREIRA DA SILVA", "ERIC ROGERIO DE SOUZA JUNIOR"
  53. ), ID_FUNCIONAL_INSTITUIDOR = c(10179151L, 10179151L, 10179151L
  54. ), VINCULO_INSTITUIDOR = c(1L, 1L, 1L), NUMPENS = c(2L, 3L,
  55. 1L), NM_INSTITUIDOR = c("ERIC ROGERIO DE SOUZA", "ERIC ROGERIO DE SOUZA",
  56. "ERIC ROGERIO DE SOUZA"), VL_BRUTO = c(416.04, 832.09, 416.04
  57. ), MES_REF = c("01/08/2017", "01/08/2017", "01/08/2017"),
  58. CLASSE = c("CLASSE 1", "CLASSE 1", "CLASSE 1"), Freq = c(3L,
  59. 3L, 3L)), .Names = c("ID.VINC.INST", "DS_PREFIXO", "ID.FUNCIONAL",
  60. "NR_MATRICULA", "NOME", "ID_FUNCIONAL_INSTITUIDOR", "VINCULO_INSTITUIDOR",
  61. "NUMPENS", "NM_INSTITUIDOR", "VL_BRUTO", "MES_REF", "CLASSE",
  62. "Freq"), row.names = 40:42, class = "data.frame"), `1031945-1` = structure(list(
  63. ID.VINC.INST = c("1031945-1", "1031945-1"), DS_PREFIXO = c("FILHO (A) MENOR",
  64. "FILHO (A) MENOR"), ID.FUNCIONAL = c(50840835L, 50840827L
  65. ), NR_MATRICULA = c("", ""), NOME = c("LUIZ SERGIO RAMOS TORRES",
  66. "JULIANA RAMOS TORRES"), ID_FUNCIONAL_INSTITUIDOR = c(1031945L,
  67. 1031945L), VINCULO_INSTITUIDOR = c(1L, 1L), NUMPENS = c(2L,
  68. 1L), NM_INSTITUIDOR = c("ETEVALDO CORREA TORRES", "ETEVALDO CORREA TORRES"
  69. ), VL_BRUTO = c(656.83, 656.83), MES_REF = c("01/08/2017",
  70. "01/08/2017"), CLASSE = c("CLASSE 1", "CLASSE 1"), Freq = c(2L,
  71. 2L)), .Names = c("ID.VINC.INST", "DS_PREFIXO", "ID.FUNCIONAL",
  72. "NR_MATRICULA", "NOME", "ID_FUNCIONAL_INSTITUIDOR", "VINCULO_INSTITUIDOR",
  73. "NUMPENS", "NM_INSTITUIDOR", "VL_BRUTO", "MES_REF", "CLASSE",
  74. "Freq"), row.names = 86:87, class = "data.frame")), .Names = c("1002538-1",
  75. "1003437-1", "10087958-1", "10114963-1", "10179151-1", "1031945-1"
  76. ))
  77.  
  78. df <- data.frame(LISTA = names(dados), CLASSE = T)
  79. for(i in 1:nrow(df)){
  80. ifelse(length(unique(dados[[i]]$CLASSE)) == 1, df$CLASSE[i] <- F, df$CLASSE[i] <- T)
  81. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement