k1=3
k2=3
epsilon=0.05
Sample_T=50
p1=40
p2=20
r=8
m=p2
# generate data
Y=gen.data(Sample_T,p1,p2,k1,k2,tau=0.5,change=1,pp=0.5)
# calculate cv for "ps" with eta=0.45 and "wc"
cv1=getcv(0.05,method="ps",eta=0.45)
cv2=getcv(0.05,method="wc")
## test with Y, flat version
test.once.flat(Y,k1+1,m,epsilon,r,0,method="ps",eta=0.25)
test.once.flat(Y,k1+1,m,epsilon,r,0,method="ps",eta=0.45,cv1)
test.once.flat(Y,k1+1,m,epsilon,r,0,method="wc",eta=0.5,cv2)
Run the code above in your browser using DataLab