search for: m_x

....3 + 1L, n.3), c(n.3 + 1L, n.3, n.3 + 1L) )) groups <- lapply(list(groups), as.factor) # (gain a bit in tapply()) ## Step 2 ## sort *both* x & y "along x": x <- sort.int(x, index.return = TRUE) y <- y[x$ix] x <- x$x if(plot.) plot(x,y) ## Step 3 m_x <- tapply(x, groups, median) m_y <- tapply(y, groups, median) if(plot.) { points(m_x, m_y, cex=2, pch=3, col="red") segments(m_x[1],m_y[1], m_x[3],m_y[3], col="red") } ## Step 4 R <- if(n == 2) 2L else 3L slope <- (m_y[[R]] - m_y[[1]]) / (m_x[...

Here is an attached patch. Best, Serguei. Le 29/05/2017 ? 12:21, Serguei Sokol a ?crit : > The problem or actual R implementation relies on an assumption > that median(x[i] | x[i] <= quantile(x, 1/3)) == quantile(x, 1/6) > which reveals not to be true despite very trustful appearance. > > If we continue with the example of x=y=1:9 > then quantile(x, 1/6)=2.5 (here quantile()

...ycodes.html for a list of identifiers. - - -h3(#KeyEvent_mmetadown). KeyEvent#m__meta_down - -boolm_metaDown - -true if the Meta key is pressed down. - - -h3(#KeyEvent_mshiftdown). KeyEvent#m__shift_down - -boolm_shiftDown - -true if shift is pressed down. - - -h3(#KeyEvent_mx). KeyEvent#m__x - -intm_x - -X position of the event. - - -h3(#KeyEvent_my). KeyEvent#m__y - -intm_y - -Y position of the event. - - </del><span class="cx"> h3(#KeyEvent_new). KeyEvent.new </span><span class="cx"> </span><span class="cx"> *KeyEvent.new*(%(...

Along the same lines as the last question - how can I get to functions like MakeOpenFile via Win32API? It doesn''t seem to be exported by msvcrt-ruby18. Possible? Or am I out of luck? Dan This communication is the property of Qwest and may contain confidential or privileged information. Unauthorized use of this communication is strictly prohibited and may be unlawful. If you have