## Simulated example ##
X=rproc2fdata(n=50,t=seq(0,1,l=101),sigma="OU")
beta0=fdata(mdata=rep(0,length=101)+rnorm(101,sd=0.05),
argvals=seq(0,1,l=101),rangeval=c(0,1))
beta1=fdata(mdata=cos(2*pi*seq(0,1,l=101))-(seq(0,1,l=101)-0.5)^2+
rnorm(101,sd=0.05),argvals=seq(0,1,l=101),rangeval=c(0,1))
# Null hypothesis holds
Y0=drop(inprod.fdata(X,beta0)+rnorm(50,sd=0.1))
# Null hypothesis does not hold
Y1=drop(inprod.fdata(X,beta1)+rnorm(50,sd=0.1))
## Not run:
# # Do not reject H0
# flm.Ftest(X,Y0,B=100)
# flm.Ftest(X,Y0,B=5000)
#
# # Reject H0
# flm.Ftest(X,Y1,B=100)
# flm.Ftest(X,Y1,B=5000)
# ## End(Not run)
Run the code above in your browser using DataLab