diff options
author | i <isomorphisms@sdf.org> | 2013-08-09 18:13:08 -0400 |
---|---|---|
committer | i <isomorphisms@sdf.org> | 2013-08-09 18:13:08 -0400 |
commit | f0d771ddea5537e98ef47462c5c8c41b0314f856 (patch) | |
tree | 559956880865d8ed969a7f5c2245f282ac7c73a8 /r.html.markdown | |
parent | b86da2e2082e7fd1438d48e12125aeaa6a187b92 (diff) |
Bender Bending Rodríguez
Let's make the function example do something a little more interesting.
Diffstat (limited to 'r.html.markdown')
-rw-r--r-- | r.html.markdown | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/r.html.markdown b/r.html.markdown index dd94072b..e7921299 100644 --- a/r.html.markdown +++ b/r.html.markdown @@ -2,6 +2,7 @@ language: R contributors: - ["e99n09", "http://github.com/e99n09"] + - ["isomorphismes", "http://twitter.com/isomorphisms"] filename: learnr.r --- @@ -296,14 +297,13 @@ if (4 > 3) { # FUNCTIONS # Defined like so: -myFunc <- function(x) { - x <- x * 4 - x <- x - 1 +jiggle <- function(x) { + x+ rnorm(x, sd=.1) #add in a bit of (controlled) noise return(x) } # Called like any other R function: -myFunc(5) # 19 +jiggle(5) # 5±ε. After set.seed(2716057), jiggle(5)==5.005043 ######################### # Fun with data: vectors, matrices, data frames, and arrays |