Я хочу применить функцию TSE-STS к моему набору данных TSE:
ID activity timestamp
1 scrl 10:20:32
1 reqt 10:21:00
2 reqt 10:22:10
2 down 10:23:12
Сначала я применил функцию seqecreate(), и она работает, например, я получил следующую последовательность событий:
[1] (REQT)-50-(REQT)-14-(SCRL)-4-(SCRL)-1-(SCRL)-4-(RACS,SCRL)-21-(REOV)-3-(DOWN)-1-(DOWN,DOWN)-27-(RACS)-2209039372
Когда я хочу запустить функцию TES-STS со следующим кодом
# ---------------TSE to STS--------------------
events <- c("DOWN", "RACS", "RANV", "RCTM", "REOV", "REQT", "ROCV", "SCRL")
# --- Dropping all previous events.
stm <- seqe2stm(events, dropList=list(DOWN=events[-1],RACS=events[-2], RANV=events[-3],RCTM=events[-4], REOV=events[-5], REQT=events[-6], ROCV=events[-7], SCRL=events[-8]))
lookupframe<-as.data.frame(lookup[1:1655,])
lookupSTS <- TSE_to_STS(lookupframe, id= 4, timestamp = 2, event= 5, stm = stm, tmin = 1, tmax = 12, firstState = "None")
Я получил эту ошибку, и я не понимаю, что я должен делать:
Ошибка в sts [myi, prevTime: tt] <- prevState: длинные векторы еще не поддерживаются: ../include/Rinlinedfuns.h:519</p>