need held in r coding.

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

need held in r coding.

istiyak ahamad
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]]

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: 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" <[hidden email] on behalf of [hidden email]> 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]]
   
    ______________________________________________
    [hidden email] 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.
   

______________________________________________
[hidden email] 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.