まず、csvを読み込み、xtsオブジェクトを作成します。
require(quantmod)
sugar <- as.xts(read.zoo("SUGAR.CSV", sep=",", format ="%m/%d/%Y", header=TRUE))
次に、TTR（quantmodでロード）を使用して新しい一連のRSI値を作成します
sugarRSI <- RSI(sugar)
今度は、毎月最終日の値のみを含む新しいシリーズを入手したいと思います。xtsにはlast（）関数がありますが、それを効率的にデプロイする方法が明確ではありません。