search for: seagreen

...round(runif(150,10,20))) q$grp <- paste(q$D,q$a,sep=":") q$grp <- ordered(q$grp, levels=unique(q$grp)) q$dcol <- unlist(sapply(q$D,function(x) switch(x,"D1"="orange","D2"="blue","D3"="red", "D4"="seagreen", "D5"="black"))) q2 <- q[order(q$G,q$D,q$a,q$t),] ref3 <- subset(q2, !duplicated(a)) xyplot(b~t|G,data=q2,groups=grp,type="l",as.table=T, layout=c(3,1), par.strip.text = list(lines = 2), panel=panel.superpose, panel.groups=function(x=x,y=y,subscrip...

...ares <- tabLimiar(arrayMetricas[,i]) op <- par(mfrow=c(4,2),pty="s") par(mfg=c(j,k)) plot(limiares,main=a[i],ylab="frequencia",xlab="limiares",bg="white",col="green",col.main="seagreen",type="b") box(which="figure",lty="solid",col="white") par(op) i <- i+1 if(i == ncol(arrayMetricas)) break } } ... Patricia. -...

...to factors. Metabolites_raw= read.csv(file.choose(), head = TRUE) #file 21Metabolites.csv Metabolites_t=t(Metabolites_raw[,2:82]) ord <- metaMDS(Metabolites_t, distance="bray") symbol=as.numeric(Metab_metadata$LandType) col.list <- c("red","slategray","seagreen","cyan","pink","brown","black", "blue","yellow","magenta") palette(col.list) plot(ord$points, col = Metab_metadata$Day+2,pch=symbol, xlim=c(-0.3,0.35)) legend(.28,.25, c("0", "8", "16"),fil...

...;) panel.stripplot(x[3], y[3], pch=19, col='chocolate',cex=1.3,xaxt='n') panel.stripplot(x[4], y[4], pch=19, col='blue',cex=1.3,xaxt='n') panel.stripplot(x[5], y[5], pch=19, col='violet',cex=1.3,xaxt='n') panel.stripplot(x[6], y[6], pch=19, col='seagreen',cex=1.3,xaxt='n') panel.stripplot(x[7], y[7], pch=19, col='purple',cex=1.3,xaxt='n') panel.stripplot(x[8], y[8], pch=19, col='yellow',cex=1.3,xaxt='n')}) print(graf.my.label) [[alternative HTML version deleted]]

...round(runif(150,10,20))) q$grp <- paste(q$D,q$a,sep=":") q$grp <- ordered(q$grp, levels=unique(q$grp)) q$dcol <- unlist(sapply(q$D,function(x) switch(x,"D1"="orange","D2"="blue","D3"="red", "D4"="seagreen", "D5"="black"))) q2 <- q[order(q$G,q$D,q$a,q$t),] xyplot(b~t|G,data=q2,groups=grp,type="l",as.table=T, layout=c(3,1), par.strip.text = list(lines = 2), scales=list(x=list(rela='free',alternating=0),y=list(rela='free',alternating=0),col=1,tc...

...aph: the x-axis refers to time; the y-axis refers to the maturities and the z-axis are the yields. The following code works fine: persp(y, x, as.matrix(ypper), xlab="Last 50 periods", ylab="Maturities (months)",zlab="Yields", zlim=c(3,6),theta=130, phi=15, col="Seagreen", box=T, ticktype="detailed", shade=0.3, ltheta=270, lphi=30, r=sqrt(3), expand=.75, main="Historical yield curves") Now, I want to replace the x- and y-axis with character strings, such that: temp<-seq(ISOdate(1999,1,1), by="week", length=(nrow(yall))) temp...

...rownames in first column rownames <- my.data[,1] # define colours for the categories col = c ("red ","orange ","yellow ","green ","violet ","cyan","blue","pink","peachpuff","tomato","seagreen","salmon") my.dataNcol <- ncol(my.data[,2:ncol(my.data)]) my.dataColour <- col[1:my.dataNcol] # a bar plot with stacked bars if (is.null(sample_output)) { pdf( "BarPlot.pdf") } else { pdf(file=paste("BarPlot_", sample_output, ".pdf", sep=&q...

...ticks <- pretty(z) par(mar=c(2,2,2,2)) z <- TPSSLmc x <- (1:nrow(z)+1980) y <- (1:ncol(z)) z0 <- min(z) z <- rbind(z0, cbind(z0, z, z0), z0) x <- c(min(x) - 1e-10, x, max(x) + 1e-10) y <- c(min(y) - 1e-10, y, max(y) + 1e-10) fill <- matrix("seagreen", nr = nrow(z)-1, nc = ncol(z)-1) fill[ , i2 <- c(1,ncol(fill))] <- "grey" fill[i1 <- c(1,nrow(fill)) , ] <- "grey" fcol <- fill zi <- TPSSLmc[-1,-1] + TPSSLmc[ -1,-12] + TPSSLmc[-20,-1] + TPSSLmc[-20,-12] ## / 4 fcol[-i1,-i2] <- hea...

...round(runif(150,10,20))) q$grp <- paste(q$D,q$a,sep=":") q$grp <- ordered(q$grp, levels=unique(q$grp)) q$dcol <- unlist(sapply(q$D,function(x) switch(x,"D1"="orange","D2"="blue","D3"="red", "D4"="seagreen", "D5"="black"))) q2 <- q[order(q$G,q$D,q$a,q$t),] ref3 <- subset(q2, !duplicated(a)) xyplot(b~t|G,data=q2,groups=grp,type="l",as.table=T,par.settings=my.theme, layout=c(3,1), par.strip.text = list(lines = 2), scales=list(x=list(rot=90,rela='f...

Hi, Is there a function in any of R-packages that can produce and plot the impulse response function for any model.. Thank you Ahmad Abu Hammour -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]subscribe" (in the "body",

...E, vp=NULL) grid.circle(x=0.5, y=0.5, r=3*(0.077894), default.units="npc", name=NULL, gp=gpar(fill="aliceblue",col=NULL), draw=TRUE, vp=NULL) grid.circle(x=0.5, y=0.5, r=3*(0.061884), default.units="npc", name=NULL, gp=gpar(fill="seagreen",col=NULL), draw=TRUE, vp=NULL) grid.circle(x=0.5, y=0.5, r=3*(0.050740), default.units="npc", name=NULL, gp=gpar(fill="lightpink2",col=NULL), draw=TRUE, vp=NULL) grid.circle(x=0.5, y=0.5, r=3*(0.045906), default.units="npc", name=NULL,...

...darkorchid1", "#BF3EFF", "darkorchid2", "#B23AEE", "darkorchid3", "#9A32CD", "darkorchid4", "#68228B", "darkred", "#8B0000", "darksalmon", "#E9967A", "darkseagreen", "#8FBC8F", "darkseagreen1", "#C1FFC1", "darkseagreen2", "#B4EEB4", "darkseagreen3", "#9BCD9B", "darkseagreen4", "#698B69", "darkslateblue", "#483D8B", "d...