## Analysis using F1-LD-F1 design ##
data(tree)
attach(tree)
w.t<-c(1:4)
w.g<-c(1:3)
w.pat <- rbind(c(1:4), c(1:4), c(1:4))
ex.f1f1<-f1.ld.f1(y=resp, time=time, group=group, subject=subject,
w.pat=w.pat, w.t=w.t, w.g=w.g, time.name="Year", group.name="Area", 
description=FALSE)
# F1 LD F1 Model 
# ----------------------- 
# Check that the order of the time and group levels are correct.
# Time level:   1 2 3 4 
# Group level:   D0 D2 D1 
# If the order is not correct, specify the correct order in time.order or 
# group.order.
## Wald-type statistic 
ex.f1f1$Wald.test
#Area       4.510037  2 1.048716e-01
#Year      58.061097  3 1.525356e-12
#Area:Year 14.819966  6 2.170415e-02
## ANOVA-type statistic
ex.f1f1$ANOVA.test
#          Statistic       df      p-value
#Area       2.352854 1.968147 9.601181e-02
#Year      21.389142 2.729147 8.210954e-13
#Area:Year  3.113632 5.346834 6.768732e-03
## ANOVA-type statistic for the whole-plot factor
ex.f1f1$ANOVA.test.mod.Box
#     Statistic      df1     df2   p-value
#Area  2.352854 1.968147 64.3979 0.1040525
Run the code above in your browser using DataLab