ejemplo_markdown.R

In feranpre/feR: Basic functions that I use all the time

#' ---
#' title: "Prueba de exportación de resultados"
#' output:
#'    html_document:
#'         toc: yes
#'         toc_depth: 4
#'         number_sections: true
#'         toc_float:
#'            collapsed: true
#' ---

#+ , echo=FALSE, include=FALSE
rm(list = ls())

data_ <- data.frame(AGE = rnorm(30, mean = 30, sd = 5),
                    HEIGHT = sample(x = 120:205, size = 30, replace = TRUE ),
                    SEX = sample(x = c("Male", "Female"), prob = c(.5,.5), size = 30, replace = TRUE),
                    BLOND = sample(x = c("Yes", "No"), prob = c(.2,.8), size = 30, replace = TRUE),
                    HEALTH = sample(x = c("Bad", "Normal", "Excelent"), prob = c(0.3,.3,.3), size = 30, replace = TRUE)
)
data_ <- rbind(data_, list(34,NA,NA,NA,NA))
data_ <- rbind(data_, list(33,NA,"Male",NA,NA))
data_ <- rbind(data_, list(22,NA,NA,"No",NA))
data_ <- rbind(data_, list(NA,NA,NA,"No","Bad"))
data_$EMPTY <- rep(NA,nrow(data_))
data_$HEALTH <- as.factor(data_$HEALTH)


# fer.table <- function() {
#   t <- "|     |     |     |\n"
#   t <- paste0(t,"|-----|-----|-----|\n")
#   t <- paste0(t,"| 1   |  2  |  3  |\n")
#   print(t)
# }

#' # TABLES
#'
#+ , results = 'asis', error = TRUE,  eval =TRUE, echo = FALSE, message = FALSE, warning = FALSE, width = 25, height = 25, unit = "cm", comment = ""
f <- feR::fable(mtcars)
# print("TITULOS -> ")
# print(attr(f,"TITLES.ROW"))
print(feR::fable(mtcars, padding = 15, align = "right"))


#' # TABLES
#'
#+ , results = 'asis', error = TRUE,  eval =TRUE, echo = FALSE, message = FALSE, warning = FALSE, width = 25, height = 25, unit = "cm", comment = ""
print(feR::fable(mtcars, padding = 2, align = "center"))
# print(knitr::kable(mtcars))

feR::compare(feR::feRdata$blond, feR::feRdata$health)


feR::describe(feR::feRdata$blond, feR::feRdata$health, x.name = "blond", y.name = "health")


#'
#' # Mean
#'
#' ## Global
#'
#' ### Passing vector
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::describe(feR::feRdata$AGE)
#'
#' #### Passing vector ERROR
#+ , echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::describe(feR::feRdata$SEX, stop.on.error = F)

#'
#' ### Passing data.frame and var as string
#'
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"



#'
#' ## GRUPOS
#'
#' ### Passing vector and BY as vector
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::means(data_$AGE, by = data_$SEX)

#'
#' ### Passing data.frame and var as string and BY as vector
#'
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::means(data_, "AGE", "AGE", by = data_$SEX)



#'
#' ### Passing data.frame and var as string and BY as string
#'
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::means(data_, "AGE", "AGE", by = "SEX")

#'
#' ### Passing data.frame and var as string and BY as string vector
#'
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::means(data_, "AGE", "HEIGHT", by = c("SEX","BLOND"))



#' ## Comparison
#'
#' ### Non paired
#'
#' #### 2 groups
#'
#' ##### x=vector, by = vector
#'
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::comp.means(data_$AGE, by = data_$SEX)

#'
#' ##### x=vector, by = data.frame
#'
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::comp.means(data_$AGE, by = data_[,c("SEX","BLOND")])

#'
#' ##### x=data.frame, by = data.frame
#'
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::comp.means(data_, by = data_[,c("SEX","BLOND")])

#'
#' ##### x=data.frame, by = string/s (var.name/s)
#'
#+ , results = 'asis', echo = FALSE, error = TRUE, message = FALSE, warning = FALSE, eval =TRUE, width = 25, height = 25, unit = "cm"
feR::comp.means(data_, by = c("SEX","BLOND"))