rm(list = ls())  
setwd("D:/Public/Documents/R/r_epidemiología/")  

data<-read.csv("dengueutiuti10.csv",header=TRUE, sep=";", dec=",")
head(data)
depVar=data$plt
grpVar=data$bleed

library(sjPlot)

sjp.aov1(depVar, grpVar, meansums = TRUE, title = NULL,
         axisLabels.y = NULL, reverseOrder = FALSE,
         stringIntercept = "(Intercept)", showAxisLabels.y = TRUE,
         axisTitle.x = "", axisLimits = NULL, geom.colors = c("#3366a0",
         "#aa3333"), geom.size = 3, breakTitleAt = 25, breakLabelsAt = 25,
         gridBreaksAt = NULL, expand.grid = TRUE, showValueLabels = TRUE,
         labelDigits = 2, y.offset = 0.1, showPValueLabels = TRUE,
         showModelSummary = TRUE, printPlot = TRUE)