我试图在R中使用BTYDplus，但我无法绘制时间模式

Question

data<-read.csv(file="C:/Users/rs1a17/Desktop/data.csv",header=TRUE,sep=",")
 plotTimingPatterns(data, n=30,T.cal = "2000-06-01", headers = c("past", "future"),title="")

  

as.numeric（date）中的错误：无法将类型'closure'强制转换为vector   类型为“ double”

数据集：

id, source, cost, giftdate, amt

2000015,92UULUUUUU,0,1993-11-05,10

2000015,92UULUUUUU,0,1993-11-25,15

2000015,94AAAAAUUU,0,1994-12-06,25

对于绘图，我不知道该如何解决，谢谢您的帮助