[B! データ] thorikawaのブックマーク

そろそろRの本当の力を見せておくか - yasuhisa's blog

「RってTwitterで遊ぶためのものなのか」とか思われるとあれなので、ちょいまじめネタで行くことにします。「株価データの収集、基本的なデータの解析、株価の予想モデルの作成まで全部Rでできちゃうよ」編です*1。とりあえず、株価データの収集をしてくる関数から。infoseekのファイナンスのところから取ってきてます。 finance <- function(site){ ruby <- paste(" #!/usr/bin/ruby -Ke # -*- coding: utf-8 -*- require %q[rubygems] require %q[mechanize] require %q[kconv] finance = \"",site,"\" agent = WWW::Mechanize.new agent.max_history = 1 page = agent.get(fin

thorikawa 2009/04/07

リンク

株価を取得する - へたっぴ日記

まずは？株価を取得しよう。ネット証券にログインすればリアルタイムな株価が取得できるんだけど、そこまでは必要ないのでYahoo!ファイナンスさんから。 #!/usr/bin/perl -w use strict; use warnings; use HTTP::Request::Common; use LWP::UserAgent; sub get_stock_price { my ($code) = @_; my $url = sprintf('http://quote.mobile.yahoo.co.jp/f?a=d&sy=%s&k=', $code); my $response = LWP::UserAgent->new->simple_request(GET $url); my ($price) = $response->content =~ /取引値 ([\d,-]+)/; $pr