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言語環境上で解析＆検討する」su/car -r での 基本コマンドの使い方をメモっておく（完全に自分用記事だなこれは、、、m(_ _)m） (2016/3/21 改定)bx(p,x指値%,sng損切%,rkk利確%,cnt,op) 箱ひげ図を出力 (2016/3/21 改定)mn(p,x指値%,sng損切%,rkk利確%,…

$su/car -r で「R言語環境上で解析＆検討する」ことができるようになったので、自分用の備忘録的に書いていくことにする 現在のスクショ↑ 現在のコマンド i() info 簡単な基本コマンド一覧が出る d() データを読み込む 例えばd(2008) で2008年のデータが読み…

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

検証用のデータフレームを出力するanaint07.cと 本日の買いシグナルを出すためのデータフレームを出力するnow07.c は中身がほとんど同じなので、ソースとして統合することにした 統合したソースは anaint07a.c （中身は省略）として carmk の中で ----------…

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

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

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

(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言語ソース（部分的）を自分用にメモ #自作関数で利益を計算 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を…

(2016/3/7 改定) Rプログラムにも引数を渡しておく 過去記事も改定したが 今のところ過去パラメタ遡りと未来データ出力が共に3日で固定されているので、car_cr07d3という専用のコマンドを作成 car_cr07d3 -------------------------- echo cd `dirname $0`cd…

まずはC言語でR言語で読み込めるデータフレームを出力するプログラムであるanaint07.cを改造して作成 now07.c (中身は省略) とにかく、本日の各パラメタ値を銘柄別にデータフレームとして出力する これを に渡せばシグナル発生させられるので、これをコマン…

今月より新システムでシグナル発生させて、実運用しています 昨年末の時点で稼働できるのは1ルールだけで複数のルールを稼働させるにはどうしようか？ 悩んでいたんだけど、、、 非常にシンプルな方法でとりあえず解決 now.R --------------- #標準入力から…