R TIME-TO-EVENT

Question

私は先週自分自身を教え始め、このフォーラムには初めてです。

私はイベントの時間を決定する必要があるデータセットに取り組んでいます。私には3つの変数（Drug、Patient、Date）があり、薬物を切り替えるときに各患者の時間差を解決する必要があります。また、患者は薬剤Aから薬剤Bに移動して薬剤Aに戻ることができるので、日付順が重要である。

私は現在、このデータは、すべてのヘルプは素晴らしいことだ、と私はクリアまたはこのフォーラムのプロトコルから外れたものを持っていなかったごめんなさい「データ」

data <-data.frame(Drug=sample(c("Drug A","Drug B", "Drug C", "Drug D", "Drug E"),100, 
replace=TRUE),PAT=rep(1:10,each=10),Date=sample(seq(as.Date('2003/01/01'), 
as.Date('2016/01/01'), by="day"), 100)) 
data<-data[order(data$PAT,data$Date),] 

と呼ばれるデータフレームですが...

必要な出力は、各時点で最初の薬物から2番目の薬物に切り替わった患者の割合です（さらに2番目、3番目、3番目、4番目、最後に4番目から5番目）... 時間0（各患者の最初の記録が存在する場合）、患者の100％が切り替えられなかった場合、次の行は2日目（患者の99％がsその後、witched）、そして3日目、4日目など

乾杯

Answer 1

....「部分のドゥ」と答え、私は正しく意図を理解した場合。私は、シーケンスを同時に取得するために、日付の数を100から10に減らしました。

library(TraMineR) 

data <- data.frame(Drug=sample(c("Drug A","Drug B", "Drug C", "Drug D", "Drug E"),100,replace=TRUE), 
       PAT=rep(1:10,each=10), 
       Date=sample(seq(as.Date('2003/01/01'),as.Date('2016/01/01'), by="day"), 10)) 

data <- data[order(data$PAT,data$Date),] 

data2 <- reshape(data, idvar="PAT", timevar="Date", direction="wide") 

data.seq <- seqdef(data2,2:11) 

seqiplot(data.seq) 
seqdplot(data.seq) 

与える最後のプロット機能....