search for: setlab

...Data = data,volEstimator = "RM", driftEstimator = "none",RM = "bipower", lookBackPeriod = 20,on = 'minutes', k = 5, marketOpen = "09:30:00",marketClose = "15:59:00") plot(LMtest) However, the error is that ''Error in xy.coords(x, y, setLab = FALSE) : 'x' and 'y' lengths differ''. I don't know how to correct it. [[alternative HTML version deleted]]

...ll contain one NA? for your example, the diff() call will produce two NAs by taking the difference with precedent and following number. Hence, the result. Here is a slightly modified code ox xyTable to handle NA too. xyTableNA <- function (x, y = NULL, digits) { ??? x <- xy.coords(x, y, setLab = FALSE) ??? y <- signif(x$y, digits = digits) ??? x <- signif(x$x, digits = digits) ??? n <- length(x) ??? number <- if (n > 0) { ??????? orderxy <- order(x, y) ??????? x <- x[orderxy] ??????? y <- y[orderxy] ??????? first <- c(TRUE, (x[-1L] != x[-n]) | (y[-1L] !...

...the diff() call will > produce two NAs by taking the difference with precedent and following > number. Hence, the result. > > Here is a slightly modified code ox xyTable to handle NA too. > > xyTableNA <- function (x, y = NULL, digits) > { > ??? x <- xy.coords(x, y, setLab = FALSE) > ??? y <- signif(x$y, digits = digits) > ??? x <- signif(x$x, digits = digits) > ??? n <- length(x) > ??? number <- if (n > 0) { > ??????? orderxy <- order(x, y) > ??????? x <- x[orderxy] > ??????? y <- y[orderxy] > ??????? first <- c(TRU...

...XP g0c7 [NAM(3)] (len=100, tl=0) 1,2,3,4,5,... .Internal(inspect(reg_xy[["y"]])) #> @2bb4880 14 REALSXP g0c7 [NAM(3)] (len=100, tl=0) 1,2,3,4,5,... # Differs from original only by using `if (is.unsorted(x))` new_regularize.values <- function (x, y, ties) { x <- xy.coords(x, y, setLab = FALSE) y <- x$y x <- x$x if (any(na <- is.na(x) | is.na(y))) { ok <- !na x <- x[ok] y <- y[ok] } nx <- length(x) if (!identical(ties, "ordered")) { if (is.unsorted(x)) { o <- order(x) x <- x[o] y <- y[o] }...

...XP g0c7 [NAM(3)] (len=100, tl=0) 1,2,3,4,5,... .Internal(inspect(reg_xy[["y"]])) #> @2bb4880 14 REALSXP g0c7 [NAM(3)] (len=100, tl=0) 1,2,3,4,5,... # Differs from original only by using `if (is.unsorted(x))` new_regularize.values <- function (x, y, ties) { x <- xy.coords(x, y, setLab = FALSE) y <- x$y x <- x$x if (any(na <- is.na(x) | is.na(y))) { ok <- !na x <- x[ok] y <- y[ok] } nx <- length(x) if (!identical(ties, "ordered")) { if (is.unsorted(x)) { o <- order(x) x <- x[o] y <- y[o] }...

Hi all, Posted this many years ago (https://stat.ethz.ch/pipermail/r-devel/2017-December/075224.html), but either this slipped under the radar or my feeble mind is unable to understand what xyTable() is doing here and nobody bothered to correct me. I now stumbled again across this issue. x <- c(1, 1, 2, 2, 2, 3) y <- c(1, 2, 1, 3, NA, 3) table(x, y, useNA="always") xyTable(x, y)

..."/usr/lib/python2.4/site-packages/xen/xend/server/SrvDaemon.py", line 288, in run xinfo = xc.xeninfo() error: (22, ''Invalid argument'') [2006-07-13 17:36:08 xend] INFO (SrvDaemon:185) Xend exited with status 1. Manogna Employee ID-53967 High Performance Computing SETLabs Infosys Technologies Limited Bangalore **************** CAUTION - Disclaimer ***************** This e-mail contains PRIVILEGED AND CONFIDENTIAL INFORMATION intended solely for the use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the o...