Using SampleSizeDiagnostics package

install.packages("SampleSizeDiagnostics")

#Sensitivity: 0.9
#Specificity: 0.85
#Prevalence: 0.2
#Desired width of the confidence interval: 0.1
#Confidence interval level: 0.95
library(SampleSizeDiagnostics)
result <- SampleSizeDiagnostics(sn = 0.9, sp = 0.85, p = 0.2, w = 0.1, CI = 0.95)
print(result)Code language: PHP (php)