excel表有三个，data，date和id，其中data包含id和date，即有两列，第一列是id，第二列是date，如

18  2013-Jul
18  2013-Aug
20  2014-Jul

现在想将其转化成矩阵，行为id，列为date，如果一个id在date有得话，记为1，否则为0，如上

则矩阵的（18，2013-Jul）位置为1，（18，2013-Sep）位置为0.

我写的代码如下，有些不对，希望大家帮帮忙，多谢！


training1 <-read.csv("d:/Users/Lenovo-pc/Documents/data.csv",header=TRUE)
training2 <-read.csv("d:/Users/Lenovo-pc/Documents/id.csv",header=TRUE)
training3<-read.csv("d:/Users/Lenovo-pc/Documents/date.csv",header=TRUE)
y=matrix()
colname =training2
rowname=training3
dimnames=list(rowname, colname)
if training1.id=colname&&training2.date=rowname
y[training1.id, training2.date]=1
else=0