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

posted by Helmut Homepage – Vienna, Austria, 2009-10-07 04:18 (5737 d 04:27 ago) – Posting: # 4309
Views: 34,050

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,671 registered users;
48 visitors (0 registered, 48 guests [including 11 identified bots]).
Forum time: 08:46 CEST (Europe/Vienna)

Medical researches can be divided into two sorts:
those who think that meta is better and those
who believe that pooling is fooling.    Stephen Senn

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