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.