TIE for NTIDs [Power / Sample Size]

posted by Helmut Homepage – Vienna, Austria, 2018-02-06 13:34 (2356 d 00:25 ago) – Posting: # 18363
Views: 20,486

Dear Detlew,

❝ […] the entry suggest for me that the TIE (with values >0.05) is significant <0.05. Maybe it's my misunderstanding. To avoid this many statisticians state "significant at alpha=0.05". But then the Hypotheses have to be given else.


I see!

Change lines 17 and 32 from
res  <- cbind(CVs, n=NA, forced=FALSE, GMR=NA, TIE=NA,
              signif=" n. s.", stringsAsFactors=FALSE)
  if (res[j, "TIE"] > bt.sig) res[j, "signif"] <- "p<0.05"

to
res  <- cbind(CVs, n=NA, forced=FALSE, GMR=NA, TIE=NA,
              "signif >0.05"="n. s.", stringsAsFactors=FALSE)
  if (res[j, "TIE"] > bt.sig)
    res[j, "signif >0.05"] <- "at alpha=0.05"

Will give
swT/swR: 2
   CVwT   CVwR   n      GMR      TIE  signif >0.05
 0.0600 0.0300 430 1.032106 0.050580 at alpha=0.05
 0.0801 0.0400 156 1.043027 0.048675         n. s.
 ...

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,112 posts in 4,858 threads, 1,644 registered users;
106 visitors (1 registered, 105 guests [including 14 identified bots]).
Forum time: 14:59 CEST (Europe/Vienna)

Statistics means you never have to say you’re certain.    David L. Streiner

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