# smoothLines: draw smoothed lines In berryFunctions: Function Collection Related to Plotting and Hydrology

## Description

draw smoothed lines with an n-level partially transparent haze

## Usage

 `1` ```smoothLines(x, y, lwd = 1, col = 1, n = 5, alpha = 0.1, ...) ```

## Arguments

 `x` numerical. x-coordinates. x can be a matrix, then the y coordinates are taken from the second column `y` numerical. y-coordinates `lwd` single integer. line width `col` color. DEFAULT: 1 (black) `n` single integer. number of transparent lines overlayed with sinking line widths. DEFAULT: 5 `alpha` Transparency of color. DEFAULT: 0.1 (very transparent) `...` further arguments as in `lines`

## Value

none, draws lines

## Author(s)

Berry Boessenkool, [email protected], 2011/2012

`lines`, `col2rgb`, `rgb`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16``` ```x <- 1:5 ; y <- c(0.31, 0.45, 0.84, 0.43, 0.25) plot(x,y) smoothLines(x,y) #png("smoothLines.png") par(mar=c(2,2,2,0)+.5) plot(1:100, las=1, type="n", main="usage of smoothLines(x,y, lwd, col, n, alpha ...)") abline(h=0:10*10, v=0:10*10, col=6); box() for(i in 0:9) { smoothLines(x=c(0,10,25,35), y=c(i*10, i*10, i*10+12, i*10+7), lwd=i) text(25, i*10+5, paste("n=5,lwd=", i, sep="")) } for(i in 0:9) { smoothLines(x=c(40,50,65,75), y=c(i*10, i*10, i*10+12, i*10+7), n=i) text(65, i*10+5, paste("n=",i,",lwd=1", sep="")) } for(i in 0:9/20) { smoothLines(x=c(80,90,105), y=c(i*200, i*200+12, i*200+12), alpha=i) text(90, i*200+10, paste("alpha=", i, sep=""), adj=0) } text(5,10, "default", adj=c(0.5,-0.2)); text(45,50, "default", adj=c(0.5,-0.2)) #dev.off() ```