TIE for NTIDs [Power / Sample Size]

posted by Helmut Homepage – Vienna, Austria, 2018-02-06 13:34 (3065 d 02:13 ago) – Posting: # 18363
Views: 26,349

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,656 posts in 4,994 threads, 1,570 registered users;
264 visitors (0 registered, 264 guests [including 22 identified bots]).
Forum time: 16:47 CEST (Europe/Vienna)

Most scientists today are devoid of ideas, full of fear, intent on
producing some paltry result so that they can add to the flood
of inane papers that now constitutes “scientific progress”
in many areas.    Paul Feyerabend

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