Nothing
## ----set-options,echo=FALSE---------------------------------------------------
options(width=80)
## ----message=FALSE, warning=FALSE---------------------------------------------
library(EMbC)
## ----fig.width=5, fig.height=4.0, fig.align='center'--------------------------
par(mgp=c(1.5, 0.4, 0), cex.lab=0.8, cex.axis=0.8)
plot(x2d@D, col=x2d@L, xlab='X1', ylab='X2')
# x2d@D is a matrix with the input data
# x2d@L is a numeric vector with the reference labeling
## -----------------------------------------------------------------------------
mybc <- embc(x2d@D)
## -----------------------------------------------------------------------------
slotNames(mybc)
## ----fig.width=3.8, fig.height=3.0, fig.show='hold'---------------------------
# the lkhp() function allows an offset parameter;
lkhp(mybc) # left panel
lkhp(mybc, 10) # right panel
## -----------------------------------------------------------------------------
stts(mybc)
## -----------------------------------------------------------------------------
mybc@P[[1]]
## -----------------------------------------------------------------------------
mybc@R
## ----fig.width=5, fig.height=2.5, fig.align='center'--------------------------
sctr(mybc)
## ----fig.width=5, fig.height=4.8, fig.align='center'--------------------------
sctr(mybc, x2d@L)
# the top plot shows the clustering result;
# the bottom plot shows the reference labeling;
## -----------------------------------------------------------------------------
cnfm(mybc, x2d@L)
## -----------------------------------------------------------------------------
head(expth)
## -----------------------------------------------------------------------------
mybcp <- stbc(expth, info=-1)
# info=-1 supresses any step wise output information
## -----------------------------------------------------------------------------
slotNames(mybcp)
## -----------------------------------------------------------------------------
stts(mybcp)
## ----fig.width=5, fig.height=3.0, fig.align='center'--------------------------
sctr(mybcp)
## -----------------------------------------------------------------------------
cnfm(mybcp)
# the expert labeling given in expth$lbl is used by default
## ----fig.width=5, fig.height=3.5, fig.align='center'--------------------------
# lims=c(a, b) limits the plot to a chunk of the trajectory
lblp(mybcp, lims=c(100, 500))
## ----fig.width=5, fig.height=3.5, fig.align='center'--------------------------
# this function allows a parameter lims=c(a,b) as well
view(mybcp, lims=c(100, 500))
## ----eval=FALSE---------------------------------------------------------------
# # point-wise kml doc generation;
# # display=TRUE launches google-earth from within R;
# pkml(bc, display=TRUE)
## ----fig.width=5, fig.height=4.8, fig.align='center'--------------------------
# plotting time-spans, distances and heading directions;
# this is the default behavior when we just pass the binClstPath instance;
varp(mybcp)
## ----fig.width=5, fig.height=3.5, fig.align='center'--------------------------
# plotting input data (estimated local values of velocity and turn);
varp(mybcp@X)
## ----fig.width=5, fig.height=3.5, fig.align='center'--------------------------
# plotting certainties associated to each data-point (and input feature)
varp(mybcp@U)
## ----message=FALSE, warning=FALSE---------------------------------------------
library(move)
data(leroy)
## ----warning=FALSE------------------------------------------------------------
# leroy is passed directly to the constructor
leroybc <- stbc(leroy, info=-1)
## -----------------------------------------------------------------------------
leroybc3 <- stbc(leroy, scv='height', info=-1)
## -----------------------------------------------------------------------------
stts(leroybc3)
## ----fig.width=6, fig.height=3.5, fig.align='center'--------------------------
sctr(leroybc3, showVars=c(1, 2, 3))
# showVars=c(1,2,3) is the default option and it is only shown for illustrative purposes
# by default the background colour is set to light-grey to enhance visibility
# the "bg"" parameter allows changing this default behavior
## ----eval=FALSE---------------------------------------------------------------
# sct3(leroybc3, showClst=c(5, 6, 7, 8))
# # with showClst=c() we can restrict the plot to a particular subset of clusters
## -----------------------------------------------------------------------------
# dlta is the maximum likelihood difference to accept a relabeling
# dlta=1 (accept all changes) is the default behavior
postbc3 <- smth(leroybc3, dlta=0.9)
## -----------------------------------------------------------------------------
# smth sets the smoothing time window length in hours
prebc3 <- stbc(leroy, smth=1, scv='height', info=-1)
## ----fig.width=6, fig.height=3.5, fig.align='center'--------------------------
lblp(postbc3, smth(prebc3), lims=c(200, 600))
# of note:
# although performing a pre-smoothing, we can still aply a post-smoothing;
# there is no real need to instantiate the smoothed copy of prebc3;
# this is useful for saving memory in case of long trajectories;
## ----eval=FALSE---------------------------------------------------------------
# pkml(smth(prebc3), showClst=6, display=TRUE)
## -----------------------------------------------------------------------------
rlbl(prebc3, 6, 5)
## ----fig.width=6, fig.height=3, fig.align='center'----------------------------
chkp(smth(prebc3), lims=c(200, 600))
# the solar height is the control variable used by default;
# note the relabeling we did before;
## ----fig.width=3.2, fig.height=3.3, fig.show='hold'---------------------------
tmp <- runif(nrow(expth))
# simulated trajectory of individual 1
expth1 <- expth[which(tmp<=0.5), ]
# simulated trajectory of individual 2
expth2 <- expth[which(tmp>=0.5), ]
## -----------------------------------------------------------------------------
# we can combine data.fame trajectories and move objects
# only for illustrative purposes !!!
mystck <- stbc(list(expth1, expth2, leroy), info=-1)
## -----------------------------------------------------------------------------
stts(mystck)
## ----fig.width=5, fig.height=3.5, fig.align='center'--------------------------
sctr(mystck)
## -----------------------------------------------------------------------------
cnfm(mystck)
# this will only work when expert labeling is given for all trajectories in the stack
## -----------------------------------------------------------------------------
slotNames(mystck)
## -----------------------------------------------------------------------------
class(mystck@bC)
## -----------------------------------------------------------------------------
class(mystck@bCS)
## -----------------------------------------------------------------------------
lapply(mystck@bCS, class)
## -----------------------------------------------------------------------------
bcInd1 <- slct(mystck,1)
## ----fig.width=3.7, fig.height=3.2, fig.show='hold'---------------------------
sctr(slct(mystck, 1)) # left panel
sctr(slct(mystck, 3)) # right panel
## -----------------------------------------------------------------------------
# sctr(slct(mystck,1)) yields the same output as sctr(bcInd1) or sctr(mystck@bCS[[1]]);
## -----------------------------------------------------------------------------
cnfm(stbc(expth1, info=-1), slct(mystck, 1))
# stbc(expth1, info=-1) is the individual level clustering corresponding to individual 1;
# slct(mystck, 1) is the population level clustering corresponding to individual 1;
## ----fig.width=6, fig.height=3.5, fig.align='center'--------------------------
lblp(slct(mystck, 1), slct(mystck, 2))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.