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

posted by Helmut Homepage – Vienna, Austria, 2024-10-04 12:11 (58 d 09:32 ago) – Posting: # 24215
Views: 1,354

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,328 posts in 4,898 threads, 1,661 registered users;
92 visitors (0 registered, 92 guests [including 13 identified bots]).
Forum time: 20:43 CET (Europe/Vienna)

Satisfaction of one’s curiosity is one of the greatest sources
of happiness in life.    Linus Pauling

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