Commit 870223c2 authored by Barry Rowlingson's avatar Barry Rowlingson

ad-hoc via median filter

parent 93826c57
......@@ -126,7 +126,10 @@ connecting_lines <- function(){
### 11. ad-hoc filter
ad_hoc <- function(){
baseplot("AD-HOC TODO")
## running median looks close
ym = runmed(xkcd$y,5)
baseplot("AD-HOC")
lines(xkcd$x, ym, col=xo()$col, lwd=xo()$lwd)
}
### 12. house of cards
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment