normality.R

library(tidyverse)
library(readr)
database <- read_csv("dados/experimento6.csv")

expSmall <- filter(database, request_size=="small")
expBig <- filter(database, request_size=="big")
exp1 <- expBig

javahttp <- filter(exp1, app_name=="javahttp")
javagrpc <- filter(exp1, app_name=="javagrpc")
gohttp <- filter(exp1, app_name=="gohttp")
gogrpc <- filter(exp1, app_name=="gogrpc")

# removing outliers with IQR

remover_outliers <- function(dados, campo) {
  # Calculando o primeiro e terceiro quartis
  Q1 <- quantile(dados[[campo]], 0.25)
  Q3 <- quantile(dados[[campo]], 0.75)
  IQR <- Q3 - Q1
  
  # Definindo os limites para considerar outliers
  limite_inferior <- Q1 - 3.5 * IQR
  limite_superior <- Q3 + 3.5 * IQR
  
  # Filtrando os dados para remover outliers
  dados_filtrados <- dados[dados[[campo]] >= limite_inferior & dados[[campo]] <= limite_superior, ]
  
  return(dados_filtrados)
}

javahttp <- remover_outliers(javahttp, "value")
javagrpc <- remover_outliers(javagrpc, "value")
gohttp <- remover_outliers(gohttp, "value")
gogrpc <- remover_outliers(gogrpc, "value")

# data transformation for time measures
javahttp$value <- log(javahttp$value + 1)
javagrpc$value <- log(javagrpc$value + 1)
gohttp$value <- log(gohttp$value + 1)
gogrpc$value <- log(gogrpc$value + 1)

# test data normality with histogram and shapiro test

par(mfrow=c(2,2))
hist(javahttp$value, breaks="Sturges", main="Java REST")
hist(javagrpc$value, breaks="Sturges", main="Java gRPC")
hist(gohttp$value, breaks="Sturges", main="Go REST")
hist(gogrpc$value, breaks="Sturges", main="Go gRPC")


qqnorm(javahttp$value)
qqline(javahttp$value)
qqnorm(javagrpc$value)
qqline(javagrpc$value)
qqnorm(gohttp$value)
qqline(gohttp$value)
qqnorm(gogrpc$value)
qqline(gogrpc$value)


shapiro.test(javahttp$value)
shapiro.test(javagrpc$value)
shapiro.test(gohttp$value)
shapiro.test(gogrpc$value)

ggplot(javahttp, aes(x=as.factor(id), y=value)) +
  geom_bar(stat="identity") +
  theme_minimal() +
  labs(title="Gráfico de Colunas das Requisições",
       x="Identificador Único",
       y="Valor da Requisição")