[R] need held in r coding.

[MacQueen, Don]

It's pretty clear from the error message that dat$Date is not an appropriate time-based object.

Since dat$Date is created by the get_majorlandmarks() function, and your question provides no information about that, it's hard to be more specific.

However, I would suggest looking at the output of
  class(dat$Date)
and
  str(dat$Date)
The results should indicate that dat$Date somehow indicates a time-based ordering. 

I wouldn't be surprised if dat$Date is a factor (the class() function will tell you if it is), in which case something is wrong with how dat is constructed. For example, there might be invalid values in an input file.

The other thing is whether dates are acceptable to xts() for the order.by argument. I don't know.

-Don

--
Don MacQueen
Lawrence Livermore National Laboratory
7000 East Ave., L-627
Livermore, CA 94550
925-423-1062
Lab cell 925-724-7509
 
 

On 9/27/17, 2:31 PM, "R-help on behalf of istiyak ahamad" <r-help-bounces at r-project.org on behalf of istiyak.mba at gmail.com> wrote:

    Need Help in Debugging below script:--------------------------------
    
    
    
    dat <- get_majorlandmarks(dat,Dmin,Per)
    fit_xts <- xts(dat$fit,order.by = dat$Date,frequency = 365)
    close_xts <- xts(dat$Close, order.by = dat$Date, frequency = 365 )
    majorlandmarks_xts <-xts(dat$Close[dat$majorlandmarks==TRUE], order.by =
    dat$Date[dat$majorlandmarks==TRUE], frequency = 365 )
    minorlandmarks_xts <-  xts(dat$Close[dat$minorlandmarks==TRUE], order.by =
    dat$Date[dat$minorlandmarks==TRUE], frequency = 365 )
    landmarkschart_data <-
    cbind(close_xts,fit_xts,majorlandmarks_xts,minorlandmarks_xts)
    
    
    
    Error:------------- order.by requires an appropriate time-based object
    
    dygraphs::dygraph(landmarkschart_data, xlab = "Time",ylab = "Price") %>%
      dySeries("..1",label = "Close", drawPoints = FALSE,  strokeWidth = 1,
    color = "black") %>%
      dySeries("..2",label = "Fit", drawPoints = FALSE,  strokeWidth = 1, color
    = "red") %>%
      dySeries("..3",label = "Major LandMarks", drawPoints = TRUE, pointSize =
    5, strokeWidth = 0, color = "darkorange") %>%
      dySeries("..4",label = "Minor LandMarks", drawPoints = TRUE, pointSize =
    1, strokeWidth = 0, color = "darkblue") %>%
      dyRangeSelector()
    ###Estimating error with different parameters
    # RMSE <- vector()
    # for(i in seq(0.01,0.1,0.01)){
    #   dat <- get_majorlandmarks(dat,i,0.01)
    #   RMSE[i] <- sqrt(sum((dat$fit-dat$Close)^2)/nrow(dat))
    # }
    # plot(RMSE)
    
    	[[alternative HTML version deleted]]
    
    ______________________________________________
    R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
    https://stat.ethz.ch/mailman/listinfo/r-help
    PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
    and provide commented, minimal, self-contained, reproducible code.