53歳限界プログラマの憂鬱

SU/CAR-ST-APplication-cellsから派生したプログラマのブログ

来訪ありがとうございます
シストレツールを自作してました
自分用の記事が多いのであまり役には立たないブログでした

f:id:sucar:20150414193802p:plain

自作システム詳細目次

dnow()で現在パラメタ値データフレームを読む

su/car -r で

d()を実行すれば、最新データを読み込むが、読み込むのはストラテジー検証用データなので、結果の出てない現時点からn日分はデータが存在しない

ストラテジー検証用ではなくて、単に市場動向を見るために各パラメタ値だけをデータフレームにするためのデータも用意できたので、これを読み込む関数を作成する

-------------------

#nowdata読み込み
dnow <- function() {
cat("nd<-read.table(\"../output/nowdata.txt\",header=TRUE, sep=\"\\t\")\n")
source("./fn/read_now.R")
}

---------------------

これをsucar_base.Rに追加して

実体の./fn/read_now.Rの方は

nd<-read.table("../output/nowdata.txt",header=TRUE, sep="\t")

となっている

読み込むデータフレームobjectはsじゃなくてndとしたので注意

このデータをどう利用するかは次の記事にて