Este projeto tem como objetivo exibir os resultados coletados atraves de um scrpit shell que busca coletar dados do computador durante o periodo de 7 minutos, seguindo as instruções passadas na atividade.
monitor <- read.csv("C:\\Users\\cesar\\Downloads\\analiseDeDesempenho\\atividades\\monitor.csv",sep = ";")
monitor$IO_READ <- as.numeric(gsub(",", "\\.", monitor$IO_READ))
monitor$IO_WRITE <- as.numeric(gsub(",", "\\.", monitor$IO_WRITE))
monitor$IO_QUEUE_LENGTH <- as.numeric(gsub(",", "\\.", monitor$IO_QUEUE_LENGTH))
monitor$IO_UTILIZATION <- as.numeric(gsub(",", "\\.", monitor$IO_UTILIZATION))
monitor$CPU_PERCENT_USR <- as.numeric(gsub(",", "\\.", monitor$CPU_PERCENT_USR))
monitor$CPU_PERCENT_SYS <- as.numeric(gsub(",", "\\.", monitor$CPU_PERCENT_SYS))
monitor$CPU_PERCENT_IOWAIT <- as.numeric(gsub(",", "\\.", monitor$CPU_PERCENT_IOWAIT))
monitor$CPU_PERCENT_IDLE <- as.numeric(gsub(",", "\\.", monitor$CPU_PERCENT_IDLE))
dados <- monitor %>%
mutate(base = case_when(
ELAPSED_TIME < 60 ~ "Before Experiment",
ELAPSED_TIME >= 60 & ELAPSED_TIME < 360 ~ "During Experiment",
ELAPSED_TIME >= 360 ~ "After Experiment"
))
tabela_estatisticas <- dados %>%
group_by(base) %>%
summarise(
media_taxa_leitura = mean(IO_READ, na.rm = TRUE),
desvio_taxa_leitura = sd(IO_READ, na.rm = TRUE),
media_taxa_escrita = mean(IO_WRITE, na.rm = TRUE),
desvio_taxa_escrita = sd(IO_WRITE, na.rm = TRUE),
media_ociosidade = mean(IO_UTILIZATION, na.rm = TRUE),
desvio_ociosidade = sd(IO_UTILIZATION, na.rm = TRUE),
media_memoria = mean(MEM_USED, na.rm = TRUE),
desvio_memoria = sd(MEM_USED, na.rm = TRUE),
media_cpu = mean(CPU_PERCENT_USR, na.rm = TRUE),
desvio_cpu = sd(CPU_PERCENT_USR, na.rm = TRUE)
)
kable(tabela_estatisticas, caption = "Tabela de medias e desvio padrao")
| base | media_taxa_leitura | desvio_taxa_leitura | media_taxa_escrita | desvio_taxa_escrita | media_ociosidade | desvio_ociosidade | media_memoria | desvio_memoria | media_cpu | desvio_cpu |
|---|---|---|---|---|---|---|---|---|---|---|
| After Experiment | 16.68694 | 0.3373454 | 0.6962903 | 0.0079412 | 16.17000 | 0.3082632 | 2444895 | 19602.55 | 7.570806 | 0.0041679 |
| Before Experiment | 28.04833 | 0.9137002 | 0.8348333 | 0.0185483 | 26.25000 | 0.8279012 | 2294598 | 50594.80 | 6.542833 | 0.0582540 |
| During Experiment | 21.28007 | 2.6668574 | 0.7500333 | 0.0273769 | 20.20463 | 2.3407620 | 2611580 | 73146.56 | 7.186533 | 0.2540113 |