16952
$$\sum_{n=1}^k \sin 2n\pi p $$  
をk=1から4までのパターンでcbindしたい（以下の様な感じ）のですが、どのようにプログラムすればよいでしょうか？  
ちなみにこの文の外にfor文があるのでcycleは上書きになっても構いません。

```

    cycle<-cbind(sin(2*pi*p))
    cycle<-cbind(sin(2*pi*p),sin(4*pi*p))
    cycle<-cbind(sin(2*pi*p),sin(4*pi*p),sin(6*pi*p))
    cycle<-cbind(sin(2*pi*p),sin(4*pi*p),sin(6*pi*p),sin(8*pi*p))
    
```
CC BY-SA 3.0
2015-09-26T08:56:14.557
16951
2015-10-11T09:44:15.893
2015-10-11T09:44:15.893
12457
12457
question
r
Rでシグマ計算をcbindしたいです
p の値は適当ですが、以下の様になりますでしょうか。

```

    p <- c(0.1, 0.2, 0.3, 0.4)
    
    cycle <- NULL
    for (k in 1:4) {
      c <- NULL
      for (n in 1:k) {
        c <- cbind(c, sin(2*n*pi*p))
      }
      cycle <- cbind(cycle, c)
    }
    
```

**追記**

コメントの内容から考えますと、以下の様になるのでしょうか？

```

    cycle <- NULL
    for (k in 1:4) {
      cycle <- cbind(cycle, sin(2*k*pi*p))
    }
    
```
CC BY-SA 3.0
2015-09-26T09:40:13.227
16952
2015-09-27T09:08:02.350
2015-09-27T09:08:02.350
16951
answer