TIE for NTIDs [Power / Sample Size]

posted by Helmut Homepage – Vienna, Austria, 2018-02-06 13:34 (2268 d 19:49 ago) – Posting: # 18363
Views: 19,921

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
22,993 posts in 4,828 threads, 1,659 registered users;
65 visitors (0 registered, 65 guests [including 7 identified bots]).
Forum time: 10:24 CEST (Europe/Vienna)

So far as I can remember,
there is not one word in the Gospels
in praise of intelligence.    Bertrand Russell

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