コードの最初の数行に、次のように表示されます。
###############################################################################
# Load Systematic Investor Toolbox (SIT)
# http://systematicinvestor.wordpress.com/systematic-investor-toolbox/
###############################################################################
そのURLをたどると、「SIT」をロードする別の方法が見つかります。私にとって(@RicardoSaportaによって提案されたように)一般的な方法で(https、バイナリファイルなどのために)動作する可能性が最も高いものとして飛び出したものがRCurl
メソッドでした。(最初にRCurlがインストールされていることを確認してください!)
###############################################################################
# Load Systematic Investor Toolbox (SIT): Requires RCurl package
###############################################################################
require(RCurl)
sit = getURLContent('https://github.com/systematicinvestor/SIT/raw/master/sit.gz', binary=TRUE, followlocation = TRUE, ssl.verifypeer = FALSE)
con = gzcon(rawConnection(sit, 'rb'))
source(con)
close(con)
これを最初の数行に使用すると、残りのコードを処理できるようになります。
または、 https://github.com/systematicinvestor/SIT/raw/master/sit.gzからファイルを手動でダウンロードし、次のコマンドでロードします。
con = gzcon(file('path/to/sit.gz', 'rb')) ## Replace with actual path
source(con)
close(con)
そこから進んでください。
それ以外に、リンク先のブログ投稿には、重要な情報、つまり、インストールしてロードする必要のあるパッケージについては触れられていません。スクリプトの残りの部分を実行する前に、「xts」と「quantmod」をインストールしてロードする必要があります。
install.packages("xts")
install.packages("quantmod")
library(xts)
library(quantmod)