# load data samples
sporades <- sporades()
topo <- sporades$topo
labs <- sporades$labs
correction <- sporades$correction
curve <- sporades$curve
# subset first and last period
curve <- curve[[c(1,dim(curve)[3])]]
# reconstruct
rec <- reconstruct(topo=topo,
region=labs,
curve=curve,
correction=correction,
reclabs='name'
)
groups <- get_groups(rec,unnest=FALSE)
ids <- get_groups(rec,unnest=TRUE)
Run the code above in your browser using DataLab