search for: split_vert

Estimados miembros de la lista. Estoy trabajando con la función mosaic del paquete vcd. Cómo puedo hacer para ver el contenido fe la función y modificar algunos de sus argumentos? Muchas gracias, Manuel -- *Manuel Spínola, Ph.D.* Instituto Internacional en Conservación y Manejo de Vida Silvestre Universidad Nacional Apartado 1350-3000 Heredia COSTA RICA mspinola@una.ac.cr

...aste(c(condnames, varnames), collapse = "+"))) > tab <- eval(m, parent.frame()) > mosaic.default(tab, main = main, sub = sub, highlighting = > highlighting, ...) > } > } > > mosaic.default <- function(x, condvars = NULL, > split_vertical = NULL, direction = NULL, > spacing = NULL, spacing_args = list(), > gp = NULL, expected = NULL, shade = NULL, > highlighting = NULL, > highlighting_fill = grey.colors, >...

...~", paste(c(condnames, varnames), collapse = "+"))) tab <- eval(m, parent.frame()) mosaic.default(tab, main = main, sub = sub, highlighting = highlighting, ...) } } mosaic.default <- function(x, condvars = NULL, split_vertical = NULL, direction = NULL, spacing = NULL, spacing_args = list(), gp = NULL, expected = NULL, shade = NULL, highlighting = NULL, highlighting_fill = grey.colors,...

..."+"))) > > tab <- eval(m, parent.frame()) > > mosaic.default(tab, main = main, sub = sub, highlighting = > > highlighting, ...) > > } > > } > > > > mosaic.default <- function(x, condvars = NULL, > > split_vertical = NULL, direction = NULL, > > spacing = NULL, spacing_args = list(), > > gp = NULL, expected = NULL, shade = NULL, > > highlighting = NULL, > > highlighting_fill = grey.co...

...), "Governments Should Not Oblige Treatment" =c('Agree', 'Disagree')) grid.newpage() pushViewport(viewport(layout=grid.layout(1,2))) pushViewport(viewport(layout.pos.col=1)) mosaic(.test, gp=shading_hsv, pop=FALSE, split_verticaL=FALSE, newpage=FALSE, labeling_args=list(offset_varnames=c(top=3), offset_labels=c(top=2))) labeling_cells(text=round(prop.table(.test, 1), 2)*100, clip=FALSE)(.test) popViewport() pushViewport(viewport(layout.pos.col=2)) mosaic(.test1, gp=shading_hsv, newpage=FALSE,pop=FALSE, split_vertica...

...plot. Best wishes, Muhammad Subianto library(vcd) oldpar <- par(mfrow=c(1, 2)) ## mosaic display for PreSex model data(PreSex) fm <- loglm(~ PremaritalSex * ExtramaritalSex * (Gender + MaritalStatus), data = aperm(PreSex, c(3, 2, 4, 1))) ## visualize Pearson statistic plot(fm, split_vertical = TRUE) ## visualize LR statistic plot(fm, split_vertical = TRUE, residuals_type = "deviance") par(oldpar) > version _ platform i386-pc-mingw32 arch i386 os mingw32 system i386, mingw32 status major 2 minor 1.1 year 2005 month 06 day 20 la...

Hi all: For stratified count data,how to perform regression analysis? My data: age case oc count 1 1 1 21 1 1 2 26 1 2 1 17 1 2 2 59 2 1 1 18 2 1 2 88 2 2 1 7 2 2 2 95 age: 1:<40y 2:>40y case: 1:patient 2:health oc: 1:use drug 2:not use drug My purpose: Anaysis whether case and

Hi, I''ve written a small app implementing SplitterWindow and have a problem with specifying the sash position on Windows. At the moment, I call split_vertically and pass it a positive integer for position. This works as expected on FreeBSD and Linux (Ubuntu and Debian), but seems to have no effect on Windows. Is there something particular I need to be doing to get this to work on Windows? Thank you

...gt;<span class="cx"> After using this constructor, you must create either one or two subwindows </span><del>-with the splitter window as parent, and then call one of "SplitterWindow#initialize":splitterwindow.html#SplitterWindow_initialize, "SplitterWindow#split_vertically":splitterwindow.html#SplitterWindow_splitvertically and "SplitterWindow#split_horizontally":splitterwindow.html#SplitterWindow_splithorizontally in </del><ins>+with the splitter window as parent, and then call one of "SplitterWindow#init":splitterwindow.ht...

...39;), "Governments Should Not Oblige Treatment" =c('Agree', 'Disagree')) grid.newpage() pushViewport(viewport(layout=grid.layout(1,2))) pushViewport(viewport(layout.pos.col=1)) mosaic(.test, gp=shading_hsv, pop=FALSE, split_verticaL=FALSE, newpage=FALSE, labeling_args=list(offset_varnames=c(top=3), offset_labels=c(top=2))) labeling_cells(text=round(prop.table(.test, 1), 2)*100, clip=FALSE)(.test) popViewport() pushViewport(viewport(layout.pos.col=2)) mosaic(.test1, gp=shading_hsv, newpage=FALSE,pop=FALSE, split_vertical...

...es a more extensive suite of similar structable functions, including as.matrix.structable; however that function doesn't supply appropriate dimnames for the dimensions. Given as.matrix.ftable(), that is easy to correct: # use as.matrix.ftable, but # need to remove other attributes: dnames, split_vertical library(vcd) as.matrix.structable <- function(x, sep="_", ...) { structure( as.matrix.ftable(x, sep, ...), dnames = NULL, split_vertical = NULL ) } Test: > as.matrix(structable(Gender ~ Admit + Dept, data=UCB)) Gender Admi...

...n J. Kiss mydat<-data.frame(gender=factor(rbinom(100, 1, 0.5), labels=c('female', 'male')), hair=factor(rbinom(100, 1, 0.5), labels=c('blonde', 'black'))) mosaic_1<-table(mydat) mosaic(mosaic_1, gp=shading_hsv, main='my title', pop=FALSE, split_vertical=FALSE, margins=c(4.1, 2.1, 8, 5.1), labeling_args=list(rot_labels=c(left=0), offset_labels=c(left=3), gp_main=gpar(cex=2), offset_varnames=c(left=5.5), gp_labels=gpar(cex=1.5), gp_varnames=gpar(cex=1.5), labeling_values=c('observed'))) labeling_cells(text=round(prop.table(mosaic_1, 1)*...

If we take the matel-haenszel test on these data of five 2x2 tables stratified along Penicillin.Levels array(c(0, 0, 6, 5, 3, 0, 3, 6, 6, 2, 0, 4, 5, 6, 1, 0, 2, 5, 0, 0), dim = c(2, 2, 5), dimnames = list( Delay = c("None", "1.5h"), Response = c("Cured", "Died"), Penicillin.Level =

...pan><span class="cx"> Wx::Log::set_active_target(Wx::LogTextCtrl.new(@log)) </span><span class="cx"> </span><del>- splitter2.split_horizontally(@nb, @log, 350) </del><span class="cx"> splitter.split_vertically(@tree, splitter2, 190) </span><ins>+ splitter2.split_horizontally(@nb, @log, 200) + </ins><span class="cx"> </span><span class="cx"> splitter.set_minimum_pane_size(20) </span><span class="cx&...

Hallo I encountered a behaviour which puzzles me (but finally I did get what I wanted). I used structable and strucplot but I wanted to change names of variables in structable object. I tried to subset it, use names but to no avail. So I tried str and expected to get a structure of an object but: > sss<-structable(Titanic) > str(sss) Error in "[.structable"(x, args[[1]],

Hello, I'm trying to use the vcd package to analyze survey data. Expert judges ranked possible features for product packaging. Seven features were listed, and 19 judges split between 2 cities ranked them. The following code (1) works, but the side-by-side plots for Cities PX, SF are shrunk too much. Stacking PX on top of SF would make for a better plot. (I could switch the order of

...ToolTip.enable true # Frame (splitter inside) splitter=SplitterWindow.new(self,-1) # Categories @cat=Categories.new(splitter) @cat.evt_tree_item_activated(@cat.get_id) { |e| self.show_pics() #if e.get_item == @cat.root } @pic=Pictures.new(splitter) splitter.split_vertically @cat,@pic,150 #set_auto_layout(TRUE) # Statusbar create_status_bar() # Events evt_menu(ID_NEW) {message_box "New db"} evt_menu(ID_OPEN) { filedlg=FileDialog.new(self,''Open catalog'','''','''',''...

Hi, Are there any effort in making wxDocument, wxView, etc types of classes avaiable under wxRuby? For supporting SDI/MDI architecture. Cheers, Phuah Yee Keat

These patches better implement ArtProvider and add the demo for it. I also expanded the bigdemo window a little bit. I really think we should go larger but I suppose there might be some people at 800x600 still. Note that creating your own art provider still doesn''t quite work correctly. I didn''t have time to get into that. The RubyConstants.i.patch file looks weird. Not

paul.allton at uk.bnpparibas.com wrote: > I''m a big fan of automated UI testing (i.e. driving the UI from some robot API). I appreciate this > is potentially a whole new project, but does wxwidgets provide a method of clicking buttons, > typing into components ... if so, would it be technically possible to expose this in wxruby. I like automated UI testing too, but