メモ library(RFinanceYJ) library(aplpack) library(RColorBrewer) SINCE <- '2012-01-01' DATE.END <- '2012-12-31' Yahoo <- quoteStockTsData('4689.T',since=SINCE, date.end=DATE.END) DeNA <- quoteStockTsData('2432.T',since=SINCE, date.end=DATE.…

先日購入したK-01が楽しくてたまらない。 何が楽しいって、マニュアルレンズで撮りやすいのが最高に楽しい。 で、ついにM42マウントのレンズにも手を出してしまった。 しかもロシア（ソ連）レンズ。 K-01にぴったりなパンケーキレンズ INDUSTAR 50-2。 もっ…

ggplot2は記法が独特なので敬遠してきたのですが、最近ggplot2を使うと良さそうな事案に遭遇したので勉強中です。 library(ggplot2) p1 <- ggplot(iris, aes(Petal.Length, fill=Species)) p1 + geom_histogram() + opts(title="積み重ねヒストグラム") p1 +…

ネットワーク分析の再勉強。 # snaパッケージ library(sna) el.sna <- matrix(c( 1, 2, 1, 2, 1, 1, 1, 3, 1, 3, 1, 1, 1, 4, 1, 4, 1, 1, 5, 2, 1, 5, 6, 1, 6, 5, 1, 6, 2, 1, 7, 2, 1, 8, 2, 1, 9, 2, 1, 10, 2, 1, 11, 2, 1, 12, 2, 1, 13, 2, 1, 14, 3,…

Rのバージョンアップの際、これまで使っていたパッケージも同時にアップデートしたいんだけど、毎回その効率的なやり方を忘れてしまうのでここにメモしておく。 ネタ元は神戸大の中澤先生のメモ（ http://minato.sip21c.org/swtips/R.html ）。 最新版のRを…

Tokyo.SciPy#3で id:AntiBayesian さんがLTされていた「ガチャとは心の所作」が非常に興味深かったのでRでもやってみました。 （もっとも、ustがなかったので私は発表資料を読んだだけですが…） 「ガチャとは心の所作」 d:id:AntiBayesian:20120318 Rで書い…

まずは直接測定法 # テスト用データ cheap <- c(rep(2, 5), rep(4, 20), rep(6, 25), rep(8, 30), rep(10, 15), rep(12, 5)) expensive <- c(rep(12, 5), rep(14, 5), rep(16, 15), rep(18, 25), rep(20, 30), rep(22, 15), rep(24, 5)) # 度数の算出、テー…

ちょっとリクエストがあったのでRでコレスポンデンス分析（対応分析）の例。 メジャーなのはMASSパッケージに入っているcorresp関数を使うもので『S-PLUSによる統計解析』『Rによる統計解析』『R言語逆引きハンドブック』などでも紹介されています。金先生の…

CP+ 2012 でPentaxのミラーレスカメラ K-01 を触ってきました。で、K-01 + XR Rikenon 50mm f2.0 というマニアックな組み合わせの写真を。

Rで共分散構造分析を行うにはこれまでは John Fox さんの{sem}パッケージを使うのが普通でした。 私も以前、{sem}パッケージの使い方についてエントリーを書いています。 id:bob3:20091226 id:bob3:20091227 id:bob3:20100530 しかし最近は{OpenMX}や{lavaan…

Twitterで「#所有してるカメラとレンズを晒せ」というタグが廻ってきた。 ちょうど良い機会なのでレンズの棚卸してみる。 カメラ本体は Pentax K10D のみ。 単焦点 オートフォーカス Pentax FA 28mm F2.8（初期型） Pentax FA 35mm F2.0 Pentax FA 50mm F1.4…

2011年6月4日(土)に開催された第3回 さくさくテキストマイニング勉強会に参加してきました。 過去２回は青山にあるオラクル社の超豪華な会場をお借りして開催されたのですが、今回からは数理システム社のご厚意により新宿にあるセミナールームをお借りしての…

ぼやーっとツイッターを眺めていたら、[twitter:@R_Linux]先生のツイートが目に留まった。 window.twttr = (function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0], t = window.twttr || {}; if (d.getElementById(id)) return t; js = d.create…

K10Dで針穴写真に挑戦中。 そのままだといまいちな感じだったのでトイカメラ風にエフェクトをかけています。 レンズ？は韓国製のPinhole Lens 025。 画像の加工にはTOYCAMERA ANALOGCOLORを使いました。 センサーに付いたゴミが悩みの種…

近所のハードオフで見つけたジャンクレンズ。 Ｋマウントで「SIGMA 1:3.5 f=200mm MULTI-COATED」と表記がある。 レンズにカビのような斑点があってボンヤリ曇っているのがジャンクの理由。 200mmの単焦点はすでにPentaxのK200mm/F4を持っているけど、若干コ…

航空自衛隊入間基地の航空祭に行ってきました。 特にミリタリー好きというわけではないので機種名とか分かりませんが… 前半は基地内から、後半のブルーインパルスは稲荷山公園の中から撮影しました。 カメラはK10D、レンズは Pentax DA 16-45mm F4 と SIGMA …

このままだと今月は更新できそうに無いので、とりあえず今月撮った写真24枚を貼り付け。 すべてK10D。巾着田 巾着田 巾着田 巾着田 巾着田 新宿 秋の気配 秋の気配 秋の気配 川越まつり 川越まつり 川越まつり 川越まつり 川越まつり 川越まつり 川越まつり …

Mélanie Pain には癒されるなぁ。 来日しないかな。

ステレオ写真、楽しい〜。 平行法です。PENTAX ステレオアダプターDセット 30338出版社/メーカー: ペンタックス発売日: 2004/12/17メディア: Camera クリック: 6回この商品を含むブログを見るもともと銀塩用に数十年前から発売されていた製品だけに、仕組み…

けっこう嬉しい。

内容の詳細は[twitter:@hamadakoichi]さんのレポート(id:hamadakoichi:20100724)を参照してください。 例によって写真のみ。 [twitter:@yanashi](id:yanashi)さんによる「PythonとR」 [twitter:@tyatsuta](id:yatsuta:20100724)さんによる「R Language Defin…

DEVOの20年ぶりの新譜が届いてた。 誰が2010年にDEVOの新譜が出ると予想しただろうか？ サムシング・フォー・エヴリバディアーティスト: ディーヴォ出版社/メーカー: ワーナーミュージック・ジャパン発売日: 2010/06/23メディア: CD クリック: 21回この商品…

詳細は [twitter:@hamadakoichi](id:hamadakoichi) さんのレポート(http://bit.ly/9gpy3g) や [twitter:@yanaoki] さんのレポート(http://bit.ly/9De5ae) を参照のこと。 原宿なんて久しぶり。 勉強会の内容はハイレベルかつ実践的な内容ばかりでクラクラし…

[twitter:@carrion_crow](id:carrion-crow)さんにお借りした Phenix MC 24mm で試し撮り。PHENIX 一眼レフ用広角レンズ24?Ｋマウント出版社/メーカー: ＰＨＥＮＩＸメディア: エレクトロニクス クリック: 9回この商品を含むブログ (1件) を見る 無限遠が出な…

今回の会場は歌舞伎町のど真ん中、なかなかディープな場所にありました。 このときは準備中でそれほど人がいませんが、開始時には後ろの椅子だけの席までびっしり参加者で埋まりました。 1. Rによるやさしい統計学 第16章 : 因子分析 ([twitter:@holidaywork…

明日のデータマイニング+WEB 勉強会＠東京 (Tokyo.Webmining)の発表で使っているコードです。発表資料はこちら→ http://bit.ly/bupfT1Twitterをしている現役国会議員をネットワーク分析してクラスタリング。 無駄に長いです。 library(twitteR) library(igra…

[twitter:@babathegiant]さんのつながり企画「単焦点レンズ」に参加です。使ったレンズは和製ズミクロン XR RIKENON 50mm F2 （初期型）。 SMC PENTAX (K) 200mm F4 も１枚再掲。 カメラはすべてK10Dです。 XR RIKENON 50mm F2 （初期型）。 和製ズミクロン…

window.twttr = (function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0], t = window.twttr || {}; if (d.getElementById(id)) return t; js = d.createElement(s); js.id = id; js.src = "https://platform.twitter.com/widgets.js"; fjs.paren…

半年ぐらい前にR言語のsemパッケージで共分散構造分析の練習をしました。 id:bob3:20091226#p1 id:bob3:20091227#p1 このたび、次々回のTokyo.R#7で『Ｒによるやさしい統計学』の第17章「共分散構造分析」パートを担当することになったので復習中。 Rによる…