search for: lwds

...rnx, list(length.out = 1200))) cbind(f = f(xx), sspl = predict(m.sspl, xx)$y, mars = predict(fm1, xx)) -> fits plot(x,y, xlim=rnx, cex = 1/4, col = adjustcolor(1, 1/2)) cols <- c(adjustcolor(2, 1/3), adjustcolor(4, 2/3), adjustcolor("orange4", 2/3)) lwds <- c(3, 2, 2) matlines(xx, fits, col = cols, lwd = lwds, lty=1) legend("topleft", c("true f(x)", "smooth.spline()", "earth()"), col=cols, lwd=lwds, bty = "n") title(paste("earth() linear spline vs. smooth.spline(); n =", length(...

...-------------------------------- plot.yy <- function(x, yright, yleft, yleftlim=NULL, yrightlim = NULL, xlab = NULL, yylab=c("",""), pch=c(1,2), col=c(1,2), linky=F, smooth=0, lwds=1, length=10, format="%d-%H:%M", ... ) { par(mar=c(5,4,4,2),oma=c(0,0,0,3)) plot(x, yright, ylim=yrightlim, axes=F,ylab="", xlab=xlab, pch=pch[1],col=col[1], ...) axis(4,pretty(range(yright,na.rm=T),10),col=col[1]) if (linky) lines(x,yright,co...

...xx), > sspl = predict(m.sspl, xx)$y, > mars = predict(fm1, xx)) -> fits > > plot(x,y, xlim=rnx, cex = 1/4, col = adjustcolor(1, 1/2)) > cols <- c(adjustcolor(2, 1/3), > adjustcolor(4, 2/3), > adjustcolor("orange4", 2/3)) > lwds <- c(3, 2, 2) > matlines(xx, fits, col = cols, lwd = lwds, lty=1) > legend("topleft", c("true f(x)", "smooth.spline()", "earth()"), > col=cols, lwd=lwds, bty = "n") > title(paste("earth() linear spline vs. smooth.spline()...

How can I do automatic knot selection while fitting piecewise linear splines to two variables x and y? Which package to use to do it simply? I also want to visualize the splines (and the scatter plot) with a graph. Anupam [[alternative HTML version deleted]]

...], rx=D[,1], ry=D[,3]) or plot.yy(x=D[,1],yright=D[,3], yleft=D[,2]) which allows only one x axis (see below). Cheers Petr plot.yy <- function (x, yright, yleft, yleftlim = NULL, yrightlim = NULL, xlab = NULL, yylab = list(NA, NA), pch = c(1, 2), col = c(1,2), linky = F, smooth = 0, lwds = 1, length = 10, format = "%d/%m", rect = NULL, type = "p", ...) { par(mar = c(5, 4, 4, 2), oma = c(0, 0, 0, 3)) plot(x, yright, ylim = yrightlim, axes = F, ylab = "", xlab = xlab, pch = pch[1], col = col[1], type = type, ...) if (!is.null(...

...], rx=D[,1], ry=D[,3]) or plot.yy(x=D[,1],yright=D[,3], yleft=D[,2]) which allows only one x axis (see below). Cheers Petr plot.yy <- function (x, yright, yleft, yleftlim = NULL, yrightlim = NULL, xlab = NULL, yylab = list(NA, NA), pch = c(1, 2), col = c(1,2), linky = F, smooth = 0, lwds = 1, length = 10, format = "%d/%m", rect = NULL, type = "p", ...) { par(mar = c(5, 4, 4, 2), oma = c(0, 0, 0, 3)) plot(x, yright, ylim = yrightlim, axes = F, ylab = "", xlab = xlab, pch = pch[1], col = col[1], type = type, ...) if (!is.null(...

How do I plot using multiple(2) y-axes? I have two series that use the same x-data, but have very different scales. Appreciate any feedback, Per Bak

Dear useRs, I have this dataset (D) with three columns. > dput(D) structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 2.990484802, 3.005018792, 3.019552781, 3.03408677, 3.048620759, 3.063154749, 3.077688738, 3.092222727, 3.106756717, 3.121290706, 3.135824695, 3.150358684, 3.164892674, 3.179426663, 3.193960652, 3.208494642, 3.223028631, 3.23756262,

hi all i have another probably simple question. I have three variables say x, y and z. x and y are quite large and z is relative small. how can one plot the three variables on the same graph with two separate axis? (one for x and y and the other for z) e.g. x<-c(101,110,150,167,120) y<-c(120,135,175,95,200) z<-c(0.001, 0.15, 0.6, 0.8, 1) regards Allan