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

posted by Helmut Homepage – Vienna, Austria, 2009-10-07 04:18 (5733 d 05:16 ago) – Posting: # 4309
Views: 34,006

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,424 posts in 4,927 threads, 1,672 registered users;
21 visitors (0 registered, 21 guests [including 16 identified bots]).
Forum time: 09:34 CEST (Europe/Vienna)

Truth and clarity are complementary.    Niels Bohr

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