ANOVA of Model 1 [General Sta­tis­tics]

posted by Helmut Homepage – Vienna, Austria, 2024-10-04 12:11 (607 d 14:09 ago) – Posting: # 24215
Views: 10,178

Hi BEQool,

you have a point!

anova1 <- anova(model1)
num    <- as.numeric(anova1["group:treatment", c(3, 1)])
denom  <- as.numeric(anova1["group:sequence:subject", c(3, 1)])
cat(pf(num[1] / denom[1], num[2], denom[2], lower.tail = FALSE), "\n")

Gives for the first símulation above:

0.1501297


However, I’m puzzled because then p(G×T) of our meta study are not uniformly distributed any more. :confused:

[image][image]

Compare them to these plots.

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,653 posts in 4,991 threads, 1,571 registered users;
442 visitors (0 registered, 442 guests [including 54 identified bots]).
Forum time: 02:20 CEST (Europe/Vienna)

I’m all in favor of the democratic principle
that one idiot is as good as one genius, but I draw the line
when someone takes the next step and concludes
that two idiots are better than one genius.    Leo Szilard

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