search for: shading_hcl

Suppose we start with data("Titanic") mosaic(Titanic, shade = TRUE) How do I combine the dashed box contours of shading_Friendly to indicate negative residuals, with three levels of gray: dark for abs(Pearson Resid) > 4, lighter for 4 > abs(Pearson Resid) > 2, and lightest for bs(Pearson Resid) < 2 ? Thanks, Michael ______________________________________________

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

...pes that are different enough to communicate the difference between positive and negative residuals clearly. Your assistance is appreciated. >mosaic(~educ+trade_off_scaled, shade=TRUE, main="Support For Environmental Protection At The Expense of Creating Jobs By Education", gp=shading_hcl(CST17$observed, CST17$expected, ASR17, df=6, h=c(260,0), c=c(100,0), l=c(90,0)), labeling_args=list(rot_labels=c(25,90,0,0), offset_labels=c(1,0,0,2), offset_varnames=c(2,0,0,4), set_varnames=c(trade_off_scaled="Protecting The Environment Is More Important Than Creating Jobs", e...

...cd) library(MASS) term.1 <- gl(2,1,8, labels = LETTERS[1:2]) term.2 <- gl(2,2,8, labels = LETTERS[3:4]) term.3 <- gl(2,4,8, labels = LETTERS[5:6]) cell.count <- c(72, 19, 5, 8, 117, 115, 81, 85) mosaic(loglm(formula = cell.count ~ term.1 + term.2 + term.3), shade = TRUE, gp = shading_hcl, legend = TRUE, labeling_args = list(rot_labels = rep(0,4)), gp_args = list(lty = 1:2),legend_width = unit(0.2, "npc")) ------------------------------------------------------------ Dr Michael Townsley Senior Research Fellow Jill Dando Institute of Crime Science Universi...