Tamaño de Muestra

#SETWD

setwd("~/MAESTRIA EPIDEMIOLOGIA ICESI/ensayos_clinicos/tamano_muestra")

Instalar paquetes

Llamar paquetes

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.5.3

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(tidyr)

## Warning: package 'tidyr' was built under R version 4.5.3

library(stats)

EJERCICIO 1 - Diferencia de promedios

“Eficacia del entrenamiento muscular respiratorio en el destete de la ventilación mecánica en pacientes con ventilación mecánica por 48 o más horas: un ensayo clínico controlado”

¿El entrenamiento muscular respiratorio afecta el tiempo del retiro de la ventilación mecánica?

#Parámetros

sd <- 52.8        
delta_grupos <- 24       
alfa <- 0.05     
poder <- 0.80     
dropout <- 0.10