为 R 中具有两个状态的马尔可夫链模型准备数据

Question

我有这个事件发生时的事件 ID 和时间戳的数据集。例如在 9/2/2019 17:06。我想用两个状态 noevent 和 event 建立马尔可夫链模型。为了避免构建连续时间马尔可夫链，我想将周期分成 30 秒，并检查这 30 秒内事件是否发生。也许有人可以帮助我如何在 R 中做到这一点？谢谢！

我只准备了日期格式，并计算了两个事件之间的时间以及两个事件之间有多少没有事件发生。

data$timestamp <- as.POSIXct(data$timestamp,format="%m/%d/%Y %H:%M:%S")

nrow <- nrow(data)
for (i in 2:nrow) {
data$diff[i] <- difftime(data$timestamp[i], data$timestamp[i-1], units="secs")}
data$NUm <-round(data$diff/30)