search for: darkorang

..., "2005-12-31", "2004-12-31")) ? value <-c(15348, 13136, 11733, 10737, 15674, 11098, 13721, 13209, 11099, 10087, 14987, 11098, 13421, 9023, 12098) ? model <- lm(value~date) ? plot(value~date ,col="grey",pch=20,cex=1.5,main="Plot") abline(model,col="darkorange",lwd=2) ? dfuture <- data.frame(date=seq(as.Date("2019-12-31"), by="1 year", length.out=10)) ? predict(model,dfuture,interval="prediction") ########################################################

...ab = FALSE) ix <- seq(1, length(tab), 3) labs <- format(time(tab), fmt) axis(1, at = time(tab)[ix], lab = labs[ix], tcl = -0.7, cex.axis = 0.9) } } plot.zoo(tab, plot.type="single", panel=my.panel, lty=c(1,2,3,4,5,1), lwd=c(8,2,2,2,2,8), col=c("darkorange", "red2","darkblue","darkblue","green","midnightblue"), xlab=" ",ylab = "euro/MWh",xaxt="n") #################################################################### This code produces a graph with a no...

...rokeWidth = 1, color = "black") %>% dySeries("..2",label = "Fit", drawPoints = FALSE, strokeWidth = 1, color = "red") %>% dySeries("..3",label = "Major LandMarks", drawPoints = TRUE, pointSize = 5, strokeWidth = 0, color = "darkorange") %>% dySeries("..4",label = "Minor LandMarks", drawPoints = TRUE, pointSize = 1, strokeWidth = 0, color = "darkblue") %>% dyRangeSelector() ###Estimating error with different parameters # RMSE <- vector() # for(i in seq(0.01,0.1,0.01)){ # dat <...

...really like the smoothScatter function. It is easy to use, and I believe it's relatively new. Thanks in advance. -Clayton > clayton <- c("white", "lightblue", "blue", "darkgreen", "green", "yellow", "orange", "darkorange", "red", "darkred") > x <- read.table("c:/users/ccolling/log_u1m1.txt", sep ="\t") > smoothScatter(x$V8~x$V7, nbin=1000, colramp = colorRampPalette(c(clayton)), nrpoints=Inf, pch=&...

...tors= F) data$Pt <-as.numeric(data$Pt) npts <- unique(data$Pt) xrange = c(min(data$Coordinate), max(data$Coordinate)) yrange = c(min(data$Log2Ratio), max(data$Log2Ratio)) colors <-c("red","blue","green","darkmagenta","darkgreen","darkorange","darkred","gold","midnightblue","seagreen1","tomato","slateblue","violet","purple4","palegreen","darkviolet","forestgreen","firebrick"...up to 60 colors) labels <- c(...

I have written a function to emulate minitab's QQ plotting output (with SW test and AD test results on the graph): mtab.norm<-function(x) { library(nortest) library(lattice) x<-as.numeric(x) x<-as.vector(x) plot.ht<-4.6 plot.wd<-4.6 pt.ht=plot.ht/5 txt.sz<-(plot.ht/7.5) X11(width=plot.wd, height=plot.ht, bg='gray96') qqplot(x, pch=16, cex=pt.ht,

I would like to hear from some one who has ecb, multiple modes with ruby mode + html mode, rails mode all working together and playing well. I had ecb working with Ruby syntax highlighting. That was a no-brainer since I just had to apt-get them on my Debian Sarge box. It got a bit more comlex after I got most of the .el files in the articles http://www.emacswiki.org/cgi-bin/emacs/RubyOnRails

..."#8B008B", "darkolivegreen", "#556B2F", "darkolivegreen1", "#CAFF70", "darkolivegreen2", "#BCEE68", "darkolivegreen3", "#A2CD5A", "darkolivegreen4", "#6E8B3D", "darkorange", "#FF8C00", "darkorange1", "#FF7F00", "darkorange2", "#EE7600", "darkorange3", "#CD6600", "darkorange4", "#8B4500", "darkorchid", "#9932CC", "darkorchid1...

...quoise", "orange", "lightpink", "lavender", "yellow", "lightgreen", "lightgrey", "lightblue", "darkkhaki", "darkmagenta", "darkolivegreen", "lightcyan", "darkorange", "darkorchid", "darkred", "darksalmon", "darkseagreen", "darkslateblue", "darkslategray", "darkslategrey", "darkturquoise", "darkviolet", "lightgray", &q...