Эквивалент PROC POWER SAMPLEFREQ в R

Question

Я хочу провести расчет мощности (тест эквивалентности: 2-стороннее биномиальное соотношение) в R. Я нашел аналогичный код в SAS (для справки показан ниже).

proc power;

onesamplefreq test = equiv_exact
alpha = 0.05
proportion = 0.30
lower = 0.2
upper = 0.4
ntotal = 500
power = .;
run;

Кто-нибудь может мне помочь, предоставив пример кода в R для аналогичного расчета?