我用R读取非标准的时间序列产生如下问题，请高手帮忙看看怎么解决，数据文件在附件
GSPC <- as.xts(read.zoo("test1.csv", header = T))
Error in read.table(file, ...) : more columns than column names