t_all = 1:50
T1=c(1,25);T2=c(26,50)
data = datagen(ntotal=350,ntest=50,t_all=t_all,t_split=25,seed=1)
train = data$train
test = data$test
ke.fit = KE_fit(train=train,test=test,T1=T1,T2=T2,bw_time=1,bw_subj = 0.2)
ketraj.toy = KE_trajSCB(KE.fit.object = ke.fit,
nboot=10,alpha=0.05)
Run the code above in your browser using DataLab