arianpasquali

data.gateway = read.csv("gateway.csv", header = TRUE, sep = ";" , dec=",")
data.adquirente = read.csv("adquirente.csv", header = TRUE, sep = ";" , dec=",")
data.sumup = read.table("BASE_sumup.csv", header = TRUE, sep = ";", dec=",")

summary(data.sumup)
summary(data.adquirente)
summary(data.gateway)

# questao 1
data.sumup.approved <- data.sumup[data.sumup$TransactionStatus == "Aprovada",]