# NOT RUN {
data(tracks.list)
#convert from list to data frame
tracks.list<- dplyr::bind_rows(tracks.list)
#only retain id and discretized step length (SL) and turning angle (TA) columns
tracks<- subset(tracks.list, select = c(SL, TA))
set.seed(1)
# Define model params
alpha=0.1
ngibbs=1000
nburn=ngibbs/2
nmaxclust=7
dat.res<- cluster_obs(dat = tracks, alpha = alpha, ngibbs = ngibbs,
nmaxclust = nmaxclust, nburn = nburn)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab