> es_2008=phys2eventtime(z=price_2008,events=sd_2008,width=10)
错误于if ((location <= 1) | (location >= length(x))) { :
  需要TRUE/FALSE值的地方不可以用缺少值