「R & knitr で文芸的プログラミング的な何か」のWEBファイル

lp.R

## ----include=FALSE-------------------------------------------------------
library(knitr)
opts_chunk$set(tidy=TRUE)


## ----平均しますね--------------------------------------------------------------
Mean <- function(x) {
  
  y <- 
    sum(x)
    
  z <- 
    y / length(x)
    
  return(z)
}


## ----足して足して, eval=FALSE--------------------------------------------------
## sum(x)


## ----割る, eval=FALSE------------------------------------------------------
## y / length(x)


## ------------------------------------------------------------------------
x <- 
  rnorm(1000)
Mean(x)


## ----数字をいっぱいつくって, eval=FALSE---------------------------------------------
## rnorm(1000)

lp.Rmd

# R & knitr で文芸的プログラミング的な何か

```{r include=FALSE}
library(knitr)
opts_chunk$set(tidy=TRUE)
```

平均とは「足して、足して、割る！」「足して、足して、足して、割る！」ということです。

では、平均を計算する関数を作ってみましょう。`Mean`という関数を作ります。

```{r 平均しますね}
Mean <- function(x) {
  
  y <- 
    <<足して足して>>
    
  z <- 
    <<割る>>
    
  return(z)
}
```

これから、各パーツを作ります。
足すためには`sum`を使っちゃいましょう。

### 足して足してする部分
```{r 足して足して, eval=FALSE}
sum(x)
```

### 割り割りする部分
```{r 割る, eval=FALSE}
y / length(x)
```

# 実行!!

では、使ってみましょう。

```{r}
x <- 
  <<数字をいっぱいつくって>>
Mean(x)
```

どうだっ！


そうそう、数字をつくるには乱数生成がいいですね。こんな感じ。
```{r 数字をいっぱいつくって, eval=FALSE}
rnorm(1000)
```

とまあ、こんなかんじですが、プログラム書くのに文芸的にこだわるとちょっとつらいですね。

weaveした例 http://rpubs.com/kohske/13498
tangleした例は lp.R
これをsourceするとMeanが定義されます。