What do you want to achieve? [General Sta­tis­tics]

posted by Helmut Homepage – Vienna, Austria, 2019-11-17 02:26 (1178 d 14:23 ago) – Posting: # 20814
Views: 6,322

Hi Victor,

I tried to reconstruct your original post as good as I could. Since it was broken before the first “\(\mathcal{A}\)”, I guess you used an UTF-16 character whereas the forum is coded in UTF-8. Please don’t link to large images breaking the layout of the posting area and forcing us to scroll our viewport. THX.

I think that your approach has same flaws.

library(PowerTOST)
design <- "2x2x2" # for others, see known.designs()
n      <- 24
CV     <- 0.25
PE     <- 0.95
alpha  <- power.TOST(CV = CV, n = n, theta0 = 1.25, design = design)
beta   <- 1 - power.TOST(CV = CV, n = n, theta0 = PE, design = design)
cat("alpha =", alpha,
    "\nbeta  =", beta, "\n"


Gives
alpha = 0.04999527
beta  = 0.2608845


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
22,485 posts in 4,710 threads, 1,603 registered users;
20 visitors (0 registered, 20 guests [including 8 identified bots]).
Forum time: 16:49 CET (Europe/Vienna)

The difference between a surrogate and a true endpoint
is like the difference between a cheque and cash.
You can get the cheque earlier but then,
of course, it might bounce.    Stephen Senn

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