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

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

本家はこちら↓
f:id:sucar:20151115183011p:plain

SU/CAR-ST-APplication-cellsの安倍野ミックスと申します
来訪ありがとうございます
シストレツールを自作してます

f:id:sucar:20150414193802p:plain

R言語

if ~ else ~と ifelse の違い

ifelse(x>0,1,0) と if (x>0) { 1} else { 0} の根本的な違いは? x<-0として実行してみると > x<-0> ifelse(x>0,1,0)[1] 0> if (x>0) {+ 1+ } else {+ 0+ }[1] 0 同じ結果が返ってくるが x<-0:9 とベクトルで試してみると違いが出てくる > x<-0:9> ifelse(x…

「R言語環境上で解析&検討する」はどうなった?

年初に て、記事書いて、R言語環境上で全部やった方が、、、、って思ってたんだけど、ようやく進展したので、ちょっと書いておく まず、 $su/car -r と、rオプションを付けて起動するとR言語環境であるRguiが立ち上がるようにしておく(とりあえず、最後セー…

only~ 先頭〇個だけsum/mean(R言語自分用メモ)

シストレ検証用ソフトを作ってて、ある条件のトレードを抽出、結果を集計し、期待値が~、PFが~、資産曲線グラフが~、、、、 ってやっているわけですけど たとえば、ある日に100個も買いシグナルが出て、とかの場合、全部トレードするには相当な資金力が必要…

Rscriptにコマンドラインから引数を渡す(R言語自分用メモ)

Rを立ち上げて対話的に使うのではなくて、ターミナルからバッチ処理させるのにRscriptを使うのだけど、その際に引数を渡す際に発見したこと(自分用メモ) 例えば、 Rscript --vanilla ./R/R07/teststdinrule.R 3 $1 $2 3 というように引数を渡してRscriptを…

orderを使ってデータフレームをソート(R言語自分用メモ)

とにかくデータは全部データフレームに読み込んでR言語上で処理しているのだけど、ソートのやり方がわかったので、自分用にメモ --------------------------------- #データにルールを適用し買いシグナル銘柄を絞り込むsource("./rule.R") #sortするsindex<-…

資産増減グラフ改良(R言語自分用メモ)

(2016/3/7 改定) 簡単に資産増減グラフのようなものを描かせるR言語ソース(部分的)を改良横軸問題をある程度解決 #自作関数で利益を計算sk2a<-sashi3a0(p$hjm1,p$yas1,p$owa1,p$tak2,p$tak3,kai_k,uri_k,p$owa0,p$owa3,tsry) #計算結果ベクトルをデータフ…

同じ日付で集計(R言語自分用メモ)

簡単に資産増減グラフのようなものを描かせるR言語ソース(部分的)を自分用にメモ #自作関数で利益を計算 sk2a<-sashi3a0(p$hjm1,p$yas1,p$owa1,p$tak2,p$tak3,kai_k,uri_k,p$owa0,p$owa3,tsry) #計算結果ベクトルをデータフレームに追加p$sk2<-sk2a #p$jを…