R株価の相違点：Deltと適用

Question

私は各列が株式の価格履歴であるデータフレームを持っています。私はそれからその価格の百分率の変化の行列を作成したいので、quantmodのDelt関数を使用しようとしています。私がapplyDelt関数を次のコードを使用してしようとすると、結果に不正な変更があります。個別の列にDeltを適用すると、正しい変更が表示されます。私は間違って何をしていますか？ここで

ここでdata

> library(quantmod) 
> m<-read.csv(file="C:/Users/Desktop/prices.csv", header=TRUE, sep=",", row.names=1) 
> head(apply(m, 2, Delt, k=1)) 
       A   B    C   D   E 
[1,]   NA   NA   NA   NA   NA 
[2,] 0.013883218 0.02402696 -0.0028845060 0.10537081 0.065129843 
[3,] -0.261075312 -0.27656116 0.0064643504 -0.03748629 0.003693638 
[4,] 0.100354272 0.28212656 -0.0006447236 0.01986472 0.022154153 
[5,] -0.033372547 0.11482705 -0.0023028136 -0.06562413 0.093813308 
[6,] -0.004419677 -0.18058097 0.0007338350 -0.03160490 -0.010180472 
> head(Delt(m[,1])) 
    Delt.1.arithmetic 
[1,]    NA 
[2,]  -0.009326258 
[3,]  0.015094952 
[4,]  0.015403475 
[5,]  -0.017321925 
[6,]  0.019550238 

であるMの最初の30行である：

   A  B  C  D  E 
6/1/2006 186.57 15.16001 12.88992 128.04 63.23111 
7/1/2006 184.83 13.93923 12.87614 127.91 63.17918 
8/1/2006 187.62 14.40092 12.86571 128.26 63.33122 
9/1/2006 190.51 13.87444 12.85661 128.34 63.60919 
10/1/2006 187.21 12.84720 12.83384 126.74 62.97229 
11/1/2006 190.87 13.52174 12.85892 127.57 64.05329 
12/1/2006 198.13 13.81215 12.86256 133.37 64.81722 
1/1/2007 195.92 14.24603 12.85711 132.01 65.18905 
2/1/2007 196.68 13.95810 12.81181 130.22 65.17205 
3/1/2007 195.84 13.74382 12.79951 131.86 65.47931 
4/1/2007 196.78 13.76690 12.79787 133.54 65.93696 
5/1/2007 199.87 14.22677 12.78429 136.04 65.77217 
6/1/2007 198.24 14.10437 12.80410 134.49 65.31252 
7/1/2007 200.87 14.19849 12.79181 135.41 65.34666 
8/1/2007 203.25 14.08153 12.77221 136.67 65.90654 
9/1/2007 201.71 13.99091 12.82413 136.30 65.55228 
10/1/2007 204.35 14.62587 12.87034 142.31 67.68648 
11/1/2007 208.01 15.15703 12.89241 144.25 68.97027 
12/1/2007 205.63 14.69767 12.84175 146.33 69.04170 
1/1/2008 198.64 14.58832 12.82002 145.92 69.43480 
2/1/2008 196.51 13.58696 12.82676 148.02 70.73637 
3/1/2008 198.91 12.77139 12.85116 151.79 71.66404 
4/1/2008 197.59 12.52536 12.83977 156.14 72.56894 
5/1/2008 197.48 13.14181 12.82874 154.74 73.44301 
6/1/2008 198.23 13.14060 12.81345 155.54 73.41066 
7/1/2008 199.49 12.67957 12.82051 157.93 73.46999 
8/1/2008 197.50 13.85022 12.81246 155.64 72.86505 
9/1/2008 180.14 12.89408 12.81132 146.17 70.21979 
10/1/2008 176.97 12.13371 12.87266 140.09 69.55070 
11/1/2008 160.76 10.22495 12.90323 127.26 67.40361 

Answer 1

は、lapply

lst <- lapply(m, Delt, k=1) 
head(data.frame(lst)) 
#Delt.1.arithmetic Delt.1.arithmetic.1 Delt.1.arithmetic.2 Delt.1.arithmetic.3 Delt.1.arithmetic.4 
#1    NA     NA     NA     NA     NA 
#2  -0.009326258   -0.08052690  -0.0010687188  -0.001015308  -0.0008213299 
#3  0.015094952   0.03312212  -0.0008105454   0.002736299  0.0024065873 
#4  0.015403475   -0.03655914  -0.0007071123   0.000623733  0.0043890342 
#5  -0.017321925   -0.07403839  -0.0017710656  -0.012466885  -0.0100125948 
#6  0.019550238   0.05250490  0.0019545514   0.006548840  0.0171662816 

---

場合、またはを使用する方がよいです私たちは私たちですapplyをINGの、我々はベクトルをunnameた場合、それが正しい出力を与える、

head(apply(unname(m), 2, quantmod::Delt)) 
#   [,1]  [,2]   [,3]  [,4]   [,5] 
#[1,]   NA   NA   NA   NA   NA 
#[2,] 0.013883218 0.02402696 -0.0028845060 0.10537081 0.065129843 
#[3,] -0.261075312 -0.27656116 0.0064643504 -0.03748629 0.003693638 
#[4,] 0.100354272 0.28212656 -0.0006447236 0.01986472 0.022154153 
#[5,] -0.033372547 0.11482705 -0.0023028136 -0.06562413 0.093813308 
#[6,] -0.004419677 -0.18058097 0.0007338350 -0.03160490 -0.010180472 

しかし、全体のデータセットは、正しい結果が得られません

head(apply(m, 2, function(x) Delt(as.vector(x), k = 1))) 
#    A   B    C   D    E 
#[1,]   NA   NA   NA   NA   NA 
#[2,] -0.009326258 -0.08052690 -0.0010687188 -0.001015308 -0.0008213299 
#[3,] 0.015094952 0.03312212 -0.0008105454 0.002736299 0.0024065873 
#[4,] 0.015403475 -0.03655914 -0.0007071123 0.000623733 0.0043890342 
#[5,] -0.017321925 -0.07403839 -0.0017710656 -0.012466885 -0.0100125948 
#[6,] 0.019550238 0.05250490 0.0019545514 0.006548840 0.0171662816 

as.vectorがをunnamingでvectorに変換

head(apply(m, 2, function(x) Delt(unname(x), k=1))) 
#    A   B    C   D    E 
#[1,]   NA   NA   NA   NA   NA 
#[2,] -0.009326258 -0.08052690 -0.0010687188 -0.001015308 -0.0008213299 
#[3,] 0.015094952 0.03312212 -0.0008105454 0.002736299 0.0024065873 
#[4,] 0.015403475 -0.03655914 -0.0007071123 0.000623733 0.0043890342 
#[5,] -0.017321925 -0.07403839 -0.0017710656 -0.012466885 -0.0100125948 
#[6,] 0.019550238 0.05250490 0.0019545514 0.006548840 0.0171662816 

本質的には、Deltが必要ですa vectorにはrowname属性がありません。 apply内のas.vectorとunnameはこれらの属性を削除しますが、lapplyはデフォルトで削除します。

はちょうどそれが

head(apply(`row.names<-`(m, NULL), 2, Delt, k=1)) 
#    A   B    C   D    E 
#[1,]   NA   NA   NA   NA   NA 
#[2,] -0.009326258 -0.08052690 -0.0010687188 -0.001015308 -0.0008213299 
#[3,] 0.015094952 0.03312212 -0.0008105454 0.002736299 0.0024065873 
#[4,] 0.015403475 -0.03655914 -0.0007071123 0.000623733 0.0043890342 
#[5,] -0.017321925 -0.07403839 -0.0017710656 -0.012466885 -0.0100125948 
#[6,] 0.019550238 0.05250490 0.0019545514 0.006548840 0.0171662816