質問編集履歴
1
検証用のデータを追加させて頂きました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -32,6 +32,20 @@
|
|
|
32
32
|
#2019-01-10 1594
|
|
33
33
|
#2019-01-11 1601
|
|
34
34
|
|
|
35
|
+
#ここから検証用
|
|
36
|
+
library(quantmod)
|
|
37
|
+
|
|
38
|
+
x <- {
|
|
39
|
+
x.mat <- matrix(1:5, ncol = 1)
|
|
40
|
+
rownames(x.mat) <- as.character(as.Date("2012-12-31") + 1:5)
|
|
41
|
+
as.xts(x.mat)
|
|
42
|
+
}
|
|
43
|
+
y <- {
|
|
44
|
+
x.mat <- matrix(10:6, ncol = 1)
|
|
45
|
+
rownames(x.mat) <- as.character(as.Date("2012-12-31") + 1:5)
|
|
46
|
+
as.xts(x.mat)
|
|
47
|
+
}
|
|
48
|
+
|
|
35
49
|
plot(x)
|
|
36
50
|
par(new = T)
|
|
37
51
|
plot(y)
|