For each individual, compute the duration
compute_duration(data)Arguments
- data
data.frame containing
id, id of the trajectory,time, time at which a change occurs andstate, associated state.
Value
a vector containing the duration of each trajectories
See also
Other Descriptive statistics:
boxplot.timeSpent(),
compute_number_jumps(),
compute_time_spent(),
estimate_pt(),
hist.duration(),
hist.njump(),
plot.pt(),
plotData(),
statetable(),
summary_cfd()
Examples
# Simulate the Jukes-Cantor model of nucleotide replacement
K <- 4
PJK <- matrix(1 / 3, nrow = K, ncol = K) - diag(rep(1 / 3, K))
lambda_PJK <- c(1, 1, 1, 1)
d_JK <- generate_Markov(n = 10, K = K, P = PJK, lambda = lambda_PJK, Tmax = 10)
# compute duration of each individual
duration <- compute_duration(d_JK)
hist(duration)
