exercicio4-bigdata-calculos.r

#Calcule Media, Max, Min, Moda, Media, Variância e 
#Desvio Padrão dos atributos possíveis.

setwd('/home/rstudio/impacta/POS-BI_AULA_31082017/aula4/')
db1 <- read.table("5_TRANSACAO.txt",header = T,sep="|")
head(db1,  2)
values <- as.numeric(gsub(",", ".", db1$Valor))
dates <- as.Date(db1$Vencimento)

#1
#return moda 
getmode <- function(v) {
  uniqv <- unique(v)
  uniqv[which.max(tabulate(match(v, uniqv)))]
}

#media
mean(values, na.rm = T)

#max
max(values)
max(dates)

#min
min(values)
min(dates)

#moda valor
getmode(values)
getmode(dates)
getmode(db1$NumeroTitulo)

#media
median(values)

#variancy
var(values)
var(dates)

#desvio padrao
sd(values)
sd(dates)