search for: tcol

Greetings all, I am curious to know if either of these two sets of code is more efficient? Example1: ## t-test ## colA <- temp [ , j ] colB <- temp [ , k ] ttr <- t.test ( colA, colB, var.equal=TRUE) tt_pvalue [ i ] <- ttr$p.value or Example2: tt_pvalue [ i ] <- t.test ( temp[ , j ], temp[ , k ], var.equal=TRUE) ------------- I have three loops, i, j, k. One to test the all of

...require(grid) panel.xyplot(x=x,y=y,subscripts=subscripts,pch=NA,lwd=1,type="l", col=q2$dcol[subscripts],lty=1,cex=0.7) rv0 <-ref3[ref3$G%in%unique(q2$G)[panel.number()],] tids <- paste(as.character(unique(rv0$D))) tcols <- unique(rv0$dcol) tlty <- 1 draw.key(list(columns=1,between=1,between.col=0.5, text=list(lab=tids,col=tcols,cex=0.8),title="Classes",cex.title=1.1 ), draw = T,vp = viewport(x = unit(0.8, "npc"), y = unit(0.9, "npc"))) }, strip=stri...

...panel.xyplot(x=x,y=y,subscripts=subscripts,pch=NA,lwd=1,type="l", col=q2$dcol[subscripts],lty=1,cex=0.7) rv0 <-ref3[ref3$G%in%unique(q2$G)[panel.number()],] tids <- paste(as.character(unique(rv0$D)))# as.character(rv0$NMID) tcols <- unique(rv0$dcol) tlty <- 1 draw.key(list(columns=1,between=1,between.col=0.5, lines=list(lty=tlty,col=tcols,size=3),text=list(lab=tids,col=tcols,cex=0.8),title="Classes",cex.title=1.1 ), draw = T,vp = viewport(x = unit(0.8, "npc"), y = unit(0.9, &...

...made colors transparent by pasting the hex equivalent of, say, 0.3*256 = 76.9 to the hex color code. e.q. for black it might be "#0000004d" and the 4d is 77 in hex. That way you don't need to convert back and forth so much. If col is "#000000" the transparent version is tcol <- paste0(col,"4d") This would work in one step on a whole palette. David David K Stevens, PhD, PE, Professor Civil and Environmental Engineering Utah Water Research Laboratory Utah State University 8200 Old Main Hill Logan, UT 84322-8200 david.stevens at usu.edu (435) 797-3229 (off...

...especially in the function "diagwl". Dos anybody know where I can put the code in the Internet to discuss it? I made from "C" for gradcelsius "?C" with: unit <- list( temp = expression (paste(#"T ", degree,"C")) ) mtext(unit$temp ,2,col=tcol,las=1,line=3,adj=0,at=55) mtext(paste(round(mean(tm*10))/10, ' ?', "C ",round(sum(p))," mm",sep="") But "mtext(paste(round(mean(tm*10))/10, ' ?', "C ",round(sum(p))," mm",sep="")" makes the ? and the C very shor...

Hi all, I wonder why there is so little software for carpet plots (german: Rasterdiagramm) (Three dimensional plot (x, y, z), the 3rd dimension (z) symbolized by colourgradients). Besides from one or the other non free software I only found an OpenOffice macro, a combination of Gnuplot and Excel (an Excel macro calling gnuplot) (http://www.johannes-hopf.de/2009/12/carpet-plot-version-1-3/9 and

Thanks That works nicely Nick On Sun, 23 Jul 2023 at 19:26, Ben Bolker <bbolker at gmail.com> wrote: > Does adjustcolor() help? > > cb8<- c("#000000", "#E69F00", "#56B4E9", "#009E73","#F0E442", "#0072B2", > "#D55E00", "#CC79A7") > plot(0,0,xlim=c(1,8),ylim=c(0,1)) > points(1:8,rep(0.5,8),col=cb8,pch=19,cex=2) >...

...ows, cols; + + ROSH_DEBUG("CMD: '%s'\npwd: '%s'\n", cmdstr, pwdstr); + /* Initialization */ + filestr[0] = 0; + cmdpos = 0; + if (getscreensize(1, &rows, &cols)) { + ROSH_DEBUG("getscreensize() fail; fall back\n"); + ROSH_DEBUG("\tROWS='%d'\tCOLS='%d'\n", rows, cols); + /* If either fail, go under normal size, just in case */ + if (!rows) + rows = 20; + if (!cols) + cols = 75; + } + ROSH_DEBUG("\tROWS='%d'\tCOLS='%d'\n", rows, cols); + + /* skip the first word */ + cmdpos = rosh_parse_sp_1(file...

...quot;, cmdstr, pwdstr); + ROSH_DEBUG("CMD: '%s'\n", cmdstr); /* Initialization */ filestr[0] = 0; cmdpos = 0; @@ -623,7 +882,7 @@ void rosh_more(const char *cmdstr, const char *pwdstr) if (!cols) cols = 75; } - ROSH_DEBUG("\tROWS='%d'\tCOLS='%d'\n", rows, cols); + ROSH_DEBUG("\tUSE ROWS='%d'\tCOLS='%d'\n", rows, cols); /* skip the first word */ cmdpos = rosh_parse_sp_1(filestr, cmdstr, cmdpos); @@ -640,6 +899,7 @@ void rosh_more(const char *cmdstr, const char *pwdstr) close(fd);...