informe APTR 300

library(readxl)
rabia <- read_excel("C:/Users/ogomez/Desktop/APTR SE 22 evento 300  S.xlsx")
View(rabia)

require(table1)

## Loading required package: table1

## Warning: package 'table1' was built under R version 4.3.3

## 
## Attaching package: 'table1'

## The following objects are masked from 'package:base':
## 
##     units, units<-

table1(~sexo_+area_+per_etn_,data=rabia)

	Overall (N=120)
sexo_
F	61 (50.8%)
M	59 (49.2%)
area_
Mean (SD)	1.22 (0.505)
Median [Min, Max]	1.00 [1.00, 3.00]
per_etn_
Mean (SD)	5.94 (0.473)
Median [Min, Max]	6.00 [1.00, 6.00]

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.