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

posted by Helmut Homepage – Vienna, Austria, 2019-11-17 02:26 (2055 d 03:42 ago) – Posting: # 20814
Views: 9,362

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
23,425 posts in 4,928 threads, 1,683 registered users;
29 visitors (0 registered, 29 guests [including 10 identified bots]).
Forum time: 07:08 CEST (Europe/Vienna)

You can do one of two things; just shut up,
which is something I don’t find easy,
or learn an awful lot very fast,
which is what I tried to do.    Jane Fonda

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