myData <-结构(时间= c(1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900,1900.08,1900.08,1900.08,1900.08,1900.08,1900.08,1900.08,1900.08,1900.08,1900.08,1900.08,19