dados <- read.csv("BANCO.csv",dec=",", sep=";", stringsAsFactors=FALSE)
dput(dados)
structure(list(VAR = c("PJ", "PJ", "PF", "PF", "PJ", "PJ", "PJ",
"PF", "PJ", "PJ", "PF", "PJ", "PJ", "PJ"), Saldo = c(99514,04,
49781,73, 49731,17, 49723,11, 398253,84, 49805,66, 49764,19,
100363,2, 49739,54, 99580,98, 49781,73, 198958,16, 49739,54,
49830,54)), .Names = c("VAR", "Saldo"), class = "data.frame", row.names = c(NA,
-14L))