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)
data.sample = data$train
bwsele.toy = KE_bwselection(data=data.sample,
bw_time=c(1,2),bw_subj=c(0.1,0.5),T1=T1,T2=T2)
bwsele.toy$optimalBW
Run the code above in your browser using DataLab