Power of TOST (R package MBESS) [🇷 for BE/BA]

posted by Helmut Homepage – Vienna, Austria, 2009-10-07 04:18 (6104 d 12:28 ago) – Posting: # 4309
Views: 45,784

Dear D Labes!

❝ Have a look at the R package MBESS. If I had seen it right there is a function power.equivalence.md that will give you some spare time.


Quick tests

require(MBESS)
n  <- c(8,12,18,24,30,40,60) # total sample size
df <- n-2
power.equivalence.md.plot(.05, logscale=TRUE, .8, 1.25, .20,
                          n, df, 'Diletti, Figure 1c')


[image]
In the text output power is the theoretical value 0.05 (=α) at the borders of the acceptance range.

Now for ElMaestro's candidates:
n <- 6
power.equivalence.md(.05, logscale=TRUE, 0.8, 1.25, 0.95, 0.65, n, n-2)
[1] 0.001048352
n <- 38
power.equivalence.md(.05, logscale=TRUE, 0.8, 1.25, 0.95, 0.65, n, n-2)
[1] 0.01392505

Yet some other values for our collection. ;-)

Dif-tor heh smusma 🖖🏼 Довге життя Україна! [image]
Helmut Schütz
[image]

The quality of responses received is directly proportional to the quality of the question asked. 🚮
Science Quotes

Complete thread:

UA Flag
Activity
 Admin contact
23,655 posts in 4,993 threads, 1,570 registered users;
116 visitors (0 registered, 116 guests [including 15 identified bots]).
Forum time: 16:47 CEST (Europe/Vienna)

Scientists often have a naïve faith that
if only they could discover enough facts about a problem,
these facts would somehow arrange themselves
in a compelling and true solution.    Theodosius Dobzhansky

The Bioequivalence and Bioavailability Forum is hosted by
BEBAC Ing. Helmut Schütz
HTML5