Sample Size

Mean Sample Size

z <-  1.96
p <-  0.6 
d <-  0.05 
z^2 * p * (1 - p) / d^2

## [1] 368.7936

library(pwr)
library(epiR)

## Loading required package: survival

## Package epiR 2.0.85 is loaded

## Type help(epi.about) for summary information

## Type browseVignettes(package = 'epiR') to learn how to use epiR for applied epidemiological analyses

##

cat("1️⃣ Single Proportion (manual formula)\n")

## 1️⃣ Single Proportion (manual formula)

p <- 0.60; d <- 0.05; z <- 1.96
n1 <- (z^2 * p * (1 - p)) / d^2
cat("Sample size (Single Proportion):", ceiling(n1), "\n")

## Sample size (Single Proportion): 369

library(gtsummary)
library(dplyr)

## 
## Attaching package: 'dplyr'

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

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

head(trial)

trial %>% 
  tbl_summary()

trial %>% 
  select(trt, age, grade) %>% 
  tbl_summary()