search for: hscale

...t plots/manipulates xts/xoo time series objects. I have the code I used from ## http://bioinf.wehi.edu.au/~wettenhall/RTclTkExamples/tkrplot.html : ## require(quantmod) require(tcltk) library(tkrplot) Sys.setenv(TZ="GMT") getSymbols("^GSPC", from = "1960-01-01") Myhscale <- 2.5 # Horizontal scaling Myvscale <- 1.25 # Vertical scaling plotFunction <- function(x) { params <- par(bg="white") plot(x,main="A time series") par(params) } tt <- tktoplevel() tkwm.title(tt,"Time Series") img <- tkrplot(tt...

...format.html { render :action => "new" } format.xml { render :xml => @ying.errors, :status => :unprocessable_entity } end end end YING.rb def scale_to_scene(params, scene) x1 = params[:x1].to_f*scene.wscale.to_f y1 = params[:y1].to_i*scene.hscale.to_f width = params[:width].to_f*scene.wscale.to_f height = params[:height].to_f*scene.hscale.to_f img = Magick::Image.read("#{RAILS_ROOT}/ public#{scene.avatar.public_filename}")[0] chopped = img.crop(Magick::ForgetGravity, x1, y1, width, height) path = "#{RAILS_ROOT}/publ...

...727,7 @@ int drm_atomic_helper_check_plane_state(struct drm_plane_state *plane_state, > struct drm_rect *src = &plane_state->src; > struct drm_rect *dst = &plane_state->dst; > unsigned int rotation = plane_state->rotation; > + struct drm_rect clip = {}; > int hscale, vscale; > > WARN_ON(plane_state->crtc && plane_state->crtc != crtc_state->crtc); > @@ -764,7 +763,10 @@ int drm_atomic_helper_check_plane_state(struct drm_plane_state *plane_state, > return -ERANGE; > } > > - plane_state->visible = drm_rect_clip_...

Dear R users graphing with plot(x) seams to work for a small length(x), when length(x) is too large it seams to clutter the display, a solution would be to display subsets of x at a time, yet a better way which I hope R supports is to place a sliding bar on the display window to control length(x) and thus the resolution, which will involve auto scaling the y axis as well as automatically

...can_position, @@ -729,6 +727,7 @@ int drm_atomic_helper_check_plane_state(struct drm_plane_state *plane_state, struct drm_rect *src = &plane_state->src; struct drm_rect *dst = &plane_state->dst; unsigned int rotation = plane_state->rotation; + struct drm_rect clip = {}; int hscale, vscale; WARN_ON(plane_state->crtc && plane_state->crtc != crtc_state->crtc); @@ -764,7 +763,10 @@ int drm_atomic_helper_check_plane_state(struct drm_plane_state *plane_state, return -ERANGE; } - plane_state->visible = drm_rect_clip_scaled(src, dst, clip, hscale, vsca...

...n',axes=F) axis(4) tmpusr <<- par('usr') tmpplt <<- par('plt') if(!is.na(curx)){ abline(v=curx, col='red', lty=2) abline(h=332, col='red', lty=2) points(curx,I0[curx],pch=16,col='red') } } img <- tkrplot(tt, f1,hscale=2,vscale=1.2) tkconfigure(img, cursor='crosshair') f2 <- function(...){ ol <- as.numeric(tclvalue(oldleft)) tclvalue(oldleft) <- tclvalue(left) r <- as.numeric(tclvalue(right)) tclvalue(right) <- as.character(r + as.numeric(...) - ol) tkrreplot(img) } f3...

Hi, I'm doing a k-means cluster with 6 clusters and 15 variables. Any suggestions on how to plot the results? I've tried the standard xy plot, but couldn't get much of it. Thansk in advance, Iuri.

....45). Thanks for any help, Philip Wilson library(rpanel) panel<-rp.control() plots<-function(panel) { par(mar=rep(1.5,4)) layout(rbind(1:3,4:6)) for (i in 1:6) plot(0:4*.25,runif(5),xlim=0:1,ylim=0:1) } click<-function(panel,x,y) {print(c(x,y)); panel} rp.tkrplot(panel,plot1,plots,click,hscale=1.8,vscale=1.8)

...type='s', col='cyan',axes=F) axis(4) tmpusr <<- par('usr') tmpplt <<- par('plt') if(!is.na(curx)){ abline(v=curx, col='red', lty=2) points(curx,myData[curx],pch=16,col='red') } } img <- tkrplot(tt, f1,hscale=2,vscale=1.2) tkconfigure(img, cursor='crosshair') f2 <- function(...){ ol <- as.numeric(tclvalue(oldleft)) tclvalue(oldleft) <- tclvalue(left) r <- as.numeric(tclvalue(right)) tclvalue(right) <- as.character(r + as.numeric(...) - ol) tkrreplot(im...

...727,7 @@ int drm_atomic_helper_check_plane_state(struct drm_plane_state *plane_state, > struct drm_rect *src = &plane_state->src; > struct drm_rect *dst = &plane_state->dst; > unsigned int rotation = plane_state->rotation; > + struct drm_rect clip = {}; > int hscale, vscale; > > WARN_ON(plane_state->crtc && plane_state->crtc != crtc_state->crtc); > @@ -764,7 +763,10 @@ int drm_atomic_helper_check_plane_state(struct drm_plane_state *plane_state, > return -ERANGE; > } > > - plane_state->visible = drm_rect_clip_...

Dear all R gurus, I have following syntax: y = c(1:10) chippy <- function(x) { y[5] = x sin(cos(t(y)%*%y)*exp(-t(y)%*%y/2)) } curve(chippy, 1, 20, n=200) But I am getting error while executing : Error in xy.coords(x, y, xlabel, ylabel, log) : 'x' and 'y' lengths differ In addition: Warning message: number of items to

...;start_cap = swfdec_line_cap_get (tmp); + tmp = swfdec_bits_getbits (bits, 2); + SWFDEC_LOG (" line join: %u", tmp); + stroke->join = swfdec_line_join_get (tmp); + has_pattern = swfdec_bits_getbit (bits); + SWFDEC_LOG (" has pattern: %d", has_pattern); + stroke->no_hscale = swfdec_bits_getbit (bits); + SWFDEC_LOG (" no hscale: %d", stroke->no_hscale); + stroke->no_vscale = swfdec_bits_getbit (bits); + SWFDEC_LOG (" no vscale: %d", stroke->no_vscale); + stroke->align_pixel = swfdec_bits_getbit (bits); + SWFDEC_LOG (" align...