問題集 [音楽]
IBM SPSS Modeler - Essentials for R for Windowsのインストール [データサイエンス、統計モデル]
SPSS Modeler上でRを動かしてみようってことで、IBM SPSS Modeler - Essentials for R for Windowsをインストールしました。
IBM SPSS Modeler - Essentials for R for Windows
http://www.ibm.com/developerworks/spssdevcentral
からダウンロードできます。
その際に、"pasw.rstats"拡張がインストールされているフォルダーのパスを求められます。
SPSS Modeler15だと、"pasw.rstats"は存在しません。
IBM SPSS Analytic Serverが必要みたいです
SPSS Modeler 16からはインストール時に自動で"pasw.rstats"作られます。
データ処理の例として、与えられた日に1日追加するコードがあったので、試しに実行して正常に動くことを確認。
サンプルストリーム
ユーザ入力ノード
R変換ノード
ということで、とりあえず、動くことが確認できました。
入力した、シンタックスは、こちら。
******************************************************
day<-as.Date(modelerData$dob, format="%Y-%m-%d")
next_day<-day + 1
modelerData<-cbind(modelerData,next_day)
var1<-c(fieldName="Next day",fieldLabel="",fieldStorage="date",fieldMeasure="",fieldFormat="",
fieldRole="")
modelerDataModel<-data.frame(modelerDataModel,var1)
******************************************************
コンソール出力をみると、こんな感じになっていました。
*****************R Scripts****************************
while(ibmspsscfdata.HasMoreData()){
modelerDataModel <- ibmspsscfdatamodel.GetDataModel()
modelerData <- ibmspsscfdata.GetData(rowCount=1000,missing=NA,rDate="POSIXct",logicalFields=FALSE)
day<-as.Date(modelerData$dob, format="%Y-%m-%d")
next_day<-day + 1
modelerData<-cbind(modelerData,next_day)
var1<-c(fieldName="Next day",fieldLabel="",fieldStorage="date",fieldMeasure="",fieldFormat="",
fieldRole="")
modelerDataModel<-data.frame(modelerDataModel,var1)
ibmspsscfdatamodel.SetDataModel(modelerDataModel)
ibmspsscfdata.SetData(modelerData)
}******************************************************
IBM SPSS Modeler - Essentials for R for Windows
http://www.ibm.com/developerworks/spssdevcentral
からダウンロードできます。
その際に、"pasw.rstats"拡張がインストールされているフォルダーのパスを求められます。
SPSS Modeler15だと、"pasw.rstats"は存在しません。
IBM SPSS Analytic Serverが必要みたいです
SPSS Modeler 16からはインストール時に自動で"pasw.rstats"作られます。
データ処理の例として、与えられた日に1日追加するコードがあったので、試しに実行して正常に動くことを確認。
サンプルストリーム
ユーザ入力ノード
R変換ノード
ということで、とりあえず、動くことが確認できました。
入力した、シンタックスは、こちら。
******************************************************
day<-as.Date(modelerData$dob, format="%Y-%m-%d")
next_day<-day + 1
modelerData<-cbind(modelerData,next_day)
var1<-c(fieldName="Next day",fieldLabel="",fieldStorage="date",fieldMeasure="",fieldFormat="",
fieldRole="")
modelerDataModel<-data.frame(modelerDataModel,var1)
******************************************************
コンソール出力をみると、こんな感じになっていました。
*****************R Scripts****************************
while(ibmspsscfdata.HasMoreData()){
modelerDataModel <- ibmspsscfdatamodel.GetDataModel()
modelerData <- ibmspsscfdata.GetData(rowCount=1000,missing=NA,rDate="POSIXct",logicalFields=FALSE)
day<-as.Date(modelerData$dob, format="%Y-%m-%d")
next_day<-day + 1
modelerData<-cbind(modelerData,next_day)
var1<-c(fieldName="Next day",fieldLabel="",fieldStorage="date",fieldMeasure="",fieldFormat="",
fieldRole="")
modelerDataModel<-data.frame(modelerDataModel,var1)
ibmspsscfdatamodel.SetDataModel(modelerDataModel)
ibmspsscfdata.SetData(modelerData)
}******************************************************
IBM SPSS Modeler - モデルの構築およびスコアリング [データサイエンス、統計モデル]
SPSS ModelerからRにデータを渡して、簡単なモデリングの事例。
(※ modeler_r_nodes_book.pdf に載っています。)
コード(スクリプトはこんな感じ)
モデルと同時にプロットして、実測値と予測値の相関を求めています。
Rで作ったモデルなのに、SPSSで作ったモデルみたいにモデルノードがパレットに出来るのが新鮮ですね。
もちろん、スコアリングでもできます。
(※ modeler_r_nodes_book.pdf に載っています。)
コード(スクリプトはこんな感じ)
モデルと同時にプロットして、実測値と予測値の相関を求めています。
Rで作ったモデルなのに、SPSSで作ったモデルみたいにモデルノードがパレットに出来るのが新鮮ですね。
もちろん、スコアリングでもできます。
IBM SPSS Modelerによるモンテカルロ・シミュレーション [データサイエンス、統計モデル]
ver16以前のSPSS Modeler(クレメンタイン)だと、シミュレーションをするにはとても面倒でした。
例えば、乱数のデータを作成する場合、いったんユーザ入力ノードで仮のレコード(フィールド)を作成してから
diceという乱数のフィールドを作成します。
【dice】の中身
oneof([1, 2, 3, 4, 5, 6])
これが、ver16からは、インプットノードの代わりにシミュレーション生成ノードを使うことが出来るようになりました。
また、別の恩恵としては、インプットノードに大量の仮レコードを作成すると、データを作成するまでの時間がやたらかかってしまいます。
(10万回の試行回数)
以前の場合
情報: ストリーム実行の完了 経過時間=3.76 秒、CPU=0.92 秒
ver16
情報: ストリーム実行の完了 経過時間=0.08 秒、CPU=0.08 秒
(100万回の試行回数)
以前の場合
情報: ストリーム実行の完了 経過時間=38.63 秒、CPU=17.36 秒
ver16
情報: ストリーム実行の完了 経過時間=0.42 秒、CPU=0.41 秒
この例だと、10万回からいっきに100万回に増やした場合、以前のストリームだと、時間は40秒近くかかってしまいますが、このモンテカルロ・シミュレーションを使った場合、1秒以内で処理が完了します。
別の利点として、二つの変数間の相関を考慮することができます。
以前作ったMCMCの事例
Clementine で MCMC を実験
http://skellington.blog.so-net.ne.jp/2009-03-05
Clementine で MCMC を実験 その2
http://skellington.blog.so-net.ne.jp/2009-03-06
今回のシミュレーション生成ノードを使うと一瞬で出来ます。
相関がない場合(単なる乱数を発生した場合)
相関を0.8にした場合
この機能があると、たくさんのシミュレーションを発生することで、
予測値(点推定)だけでなく、予測幅(区間の推定)が可能になり、
上振れるリスクや下振れるリスクなども評価することができるようになりました。
変数間の相関は、
項目の選択のところにある【相関】
で設定できます。
例えば、乱数のデータを作成する場合、いったんユーザ入力ノードで仮のレコード(フィールド)を作成してから
diceという乱数のフィールドを作成します。
【dice】の中身
oneof([1, 2, 3, 4, 5, 6])
これが、ver16からは、インプットノードの代わりにシミュレーション生成ノードを使うことが出来るようになりました。
また、別の恩恵としては、インプットノードに大量の仮レコードを作成すると、データを作成するまでの時間がやたらかかってしまいます。
(10万回の試行回数)
以前の場合
情報: ストリーム実行の完了 経過時間=3.76 秒、CPU=0.92 秒
ver16
情報: ストリーム実行の完了 経過時間=0.08 秒、CPU=0.08 秒
(100万回の試行回数)
以前の場合
情報: ストリーム実行の完了 経過時間=38.63 秒、CPU=17.36 秒
ver16
情報: ストリーム実行の完了 経過時間=0.42 秒、CPU=0.41 秒
この例だと、10万回からいっきに100万回に増やした場合、以前のストリームだと、時間は40秒近くかかってしまいますが、このモンテカルロ・シミュレーションを使った場合、1秒以内で処理が完了します。
別の利点として、二つの変数間の相関を考慮することができます。
以前作ったMCMCの事例
Clementine で MCMC を実験
http://skellington.blog.so-net.ne.jp/2009-03-05
Clementine で MCMC を実験 その2
http://skellington.blog.so-net.ne.jp/2009-03-06
今回のシミュレーション生成ノードを使うと一瞬で出来ます。
相関がない場合(単なる乱数を発生した場合)
相関を0.8にした場合
この機能があると、たくさんのシミュレーションを発生することで、
予測値(点推定)だけでなく、予測幅(区間の推定)が可能になり、
上振れるリスクや下振れるリスクなども評価することができるようになりました。
変数間の相関は、
項目の選択のところにある【相関】
で設定できます。
中島みゆき 夜会VOL.18 橋の下のアルカディア [音楽]
中島みゆき『夜会VOL.18 橋の下のアルカディア』に行ってきました。
赤坂Bizタワーで夜会の半券を見せるを色々なサービスが受けられます。
夜会が始まる前に、デリリウムカフェ レゼルブに寄りました。
http://31urban.jp/store.php?iid=0010&tid=00000172
ベルギービールの生ビールが豊富です。
赤坂Bizタワーの2階には、過去の作品のポスターやミニチュアが置いてあり、自由に写真を撮ったりすることができました。
さて、夜会の方ですが、若干分かり難い部分がいくつかありましたが、パンフレットを買っておいたので、休み時間の間に確認したら、なんとなく納得!
初回の講演なので、まぁ、こういう部分も含めての夜会なのかな、って思いました。
見終わった感想として、自分が住んでいる地域ってどんな歴史があるんだろう、って調べようと思いました。
地域にしろ、会社にしろ、自分自身の家系にしろ、脈々と流れる歴史の積み重ねの上に今があり、今を重ねることで未来があります。
普段何気なく目にする橋の名前、その由来について、調べたくなりました。
赤坂Bizタワーで夜会の半券を見せるを色々なサービスが受けられます。
夜会が始まる前に、デリリウムカフェ レゼルブに寄りました。
http://31urban.jp/store.php?iid=0010&tid=00000172
ベルギービールの生ビールが豊富です。
赤坂Bizタワーの2階には、過去の作品のポスターやミニチュアが置いてあり、自由に写真を撮ったりすることができました。
さて、夜会の方ですが、若干分かり難い部分がいくつかありましたが、パンフレットを買っておいたので、休み時間の間に確認したら、なんとなく納得!
初回の講演なので、まぁ、こういう部分も含めての夜会なのかな、って思いました。
見終わった感想として、自分が住んでいる地域ってどんな歴史があるんだろう、って調べようと思いました。
地域にしろ、会社にしろ、自分自身の家系にしろ、脈々と流れる歴史の積み重ねの上に今があり、今を重ねることで未来があります。
普段何気なく目にする橋の名前、その由来について、調べたくなりました。
ウルトラマンゼロとのイベント [ウルトラマン]
ぐりんぱで七五三の撮影ができるってことで、
急きょ、富士山方面に1泊2日の旅行に行くことにしました。
静岡県 遊園地 富士山の自然と遊ぶ ぐりんぱ-Grinpa-
http://www.grinpa.com/
ただ、行ってみたら、着物の発注ミスとかで、ふつ~の握手会だけでした。
かなり残念…
ウルトラマンゼロとのイベントで、サイコロを振って遊ぶというものがありました。
特別なサイコロで、
3,3,3,5,5,5,7があります。
3が出ると、ゼロとワイドゼロショットの特訓をします。
5が出ると、ゼロとキックの練習。
そして、7が出ると、ゼロと空を飛ぶ練習。
ゼロと一緒にサイコロを振りたい春飛は、全力で手を挙げ、なんと、選ばれました!
そして、サイコロもなんと!7の目が出て、空を飛ぶ練習となりました。
七五三イベントは残念でしたが、逆に、ゼロとのショーは思い出に残るショーになったと思います。
ゼロとの写真撮影会
急きょ、富士山方面に1泊2日の旅行に行くことにしました。
静岡県 遊園地 富士山の自然と遊ぶ ぐりんぱ-Grinpa-
http://www.grinpa.com/
ただ、行ってみたら、着物の発注ミスとかで、ふつ~の握手会だけでした。
かなり残念…
ウルトラマンゼロとのイベントで、サイコロを振って遊ぶというものがありました。
特別なサイコロで、
3,3,3,5,5,5,7があります。
3が出ると、ゼロとワイドゼロショットの特訓をします。
5が出ると、ゼロとキックの練習。
そして、7が出ると、ゼロと空を飛ぶ練習。
ゼロと一緒にサイコロを振りたい春飛は、全力で手を挙げ、なんと、選ばれました!
そして、サイコロもなんと!7の目が出て、空を飛ぶ練習となりました。
七五三イベントは残念でしたが、逆に、ゼロとのショーは思い出に残るショーになったと思います。
ゼロとの写真撮影会
ホテル平成(BBHホテルグループ) [【旅行】小旅行、旅行その他]
3連休ということもあり、あまり空いている宿はなかったのですが、こちらに宿泊しました。
http://www.jalan.net/yad318248/?contHideFlg=1&rootCd=7003
ビジネスホテルっぽい感じですが、サービスと夕食が良かったです。
じゃらんの口コミを見ると、
総合 4.1
部屋 3.6
風呂 4.3
料理(朝食) 3.9
料理(夕食) 4.5
接客・サービス 4.5
清潔感 3.7
となっていますが、まさしくこんな感じ。
ちょっと夕食の準備が遅れるってことで、飲み放題のチケットをいただきました。
とはいえ、子連れだと、ぐびぐび飲めないので、2杯ほど飲んで部屋に戻りました。
http://www.jalan.net/yad318248/?contHideFlg=1&rootCd=7003
ビジネスホテルっぽい感じですが、サービスと夕食が良かったです。
じゃらんの口コミを見ると、
総合 4.1
部屋 3.6
風呂 4.3
料理(朝食) 3.9
料理(夕食) 4.5
接客・サービス 4.5
清潔感 3.7
となっていますが、まさしくこんな感じ。
ちょっと夕食の準備が遅れるってことで、飲み放題のチケットをいただきました。
とはいえ、子連れだと、ぐびぐび飲めないので、2杯ほど飲んで部屋に戻りました。
山梨県立愛宕山少年自然の家・こどもの国 [【旅行】小旅行、旅行その他]
宿泊したホテルから近くにある公園(山梨県立愛宕山少年自然の家・こどもの国)に行ってきました。
山梨県立愛宕山少年自然の家・こどもの国
http://atagoyama.yya.or.jp/
巨大なアスレチックがあったり、変わり種自転車があったりとけっこう楽しめます。
しかも、無料だし。
プラネタリウムは有料っぽい。
周りにいる同じくらいの友達と自然にお友達になっていました。
山梨県立愛宕山少年自然の家・こどもの国
http://atagoyama.yya.or.jp/
巨大なアスレチックがあったり、変わり種自転車があったりとけっこう楽しめます。
しかも、無料だし。
プラネタリウムは有料っぽい。
周りにいる同じくらいの友達と自然にお友達になっていました。
スバル・EXIGA(エクシーガ) [自動車 / バイク]
最近、車を色々見ていたのですが、こちらを買いました!
SUBARU:車種紹介>エクシーガ>グレード・価格
http://www.subaru.jp/exiga/exiga/grade/airbreak.html
トヨタのステップワゴンも見に行ったのですが、どうも好きになれず、、、
空間的には広いとは思います。
走っていて楽しいのは、スバルかな、って思いました。
ベーシックのEXIGAにするかどうか悩みましたが、AIRBREAK(エアブレイク)にしました。
SUBARU:車種紹介>エクシーガ>グレード・価格
http://www.subaru.jp/exiga/exiga/grade/airbreak.html
トヨタのステップワゴンも見に行ったのですが、どうも好きになれず、、、
空間的には広いとは思います。
走っていて楽しいのは、スバルかな、って思いました。
ベーシックのEXIGAにするかどうか悩みましたが、AIRBREAK(エアブレイク)にしました。
3月のライオン 10 [アニメ / コミック]
長かったですが、ついに3月のライオンが発売されますね。
発売日は、2014年11月28日!
特別版(?)として、BUMP OF CHICKENの新曲「ファイター」が付いてきます。
『3月のライオン』のために作ったCDらしい。
発売日は、2014年11月28日!
3月のライオン (10) [BUMP OF CHICKEN]CD付特装版 (ジェッツコミックス)
- 作者: 羽海野チカ
- 出版社/メーカー: 白泉社
- 発売日: 2014/11/28
- メディア: コミック
特別版(?)として、BUMP OF CHICKENの新曲「ファイター」が付いてきます。
『3月のライオン』のために作ったCDらしい。
劇団四季 アラジン [Disney / ディズニー]
先日、ニューヨークに行った時に、ブロードウェイのアラジンを観てきました。
KDD 2014, 8/24-27, New York:6日目 ブロードウェイ(Broadway)
http://skellington.blog.so-net.ne.jp/archive/20140901
いつか、日本で観たいな、と思っていたのですが、どうやら、来年の5月24日から日本でも観られるらしい。
アラジンの他には、王道のライオンキングとか、反響がすごいらしいリトルマーメイドなどなど、いろいろありますね。
アラジン
https://www.shiki.jp/applause/
リトルマーメイド(THE LITTLE MERMAID)
http://www.shiki.jp/applause/littlemermaid/
ライオンキング
http://www.shiki.jp/applause/lionking/
美女と野獣
http://www.shiki.gr.jp/applause/bb/
KDD 2014, 8/24-27, New York:6日目 ブロードウェイ(Broadway)
http://skellington.blog.so-net.ne.jp/archive/20140901
いつか、日本で観たいな、と思っていたのですが、どうやら、来年の5月24日から日本でも観られるらしい。
アラジンの他には、王道のライオンキングとか、反響がすごいらしいリトルマーメイドなどなど、いろいろありますね。
アラジン
https://www.shiki.jp/applause/
リトルマーメイド(THE LITTLE MERMAID)
http://www.shiki.jp/applause/littlemermaid/
ライオンキング
http://www.shiki.jp/applause/lionking/
美女と野獣
http://www.shiki.gr.jp/applause/bb/
しまじろう コンサート『ふしぎなくるみわりにんぎょう』 [ファミリー]
しまじろう コンサート『ふしぎなくるみわりにんぎょう』
http://kodomo.benesse.ne.jp/ap/hiroba_concert/
『ふしぎなくるみわりにんぎょう』に行ってきました。
去年のクリスマスコンサートの主役はとりっぴぃでしたが、今回はみみりんが主役でした。
『くるみ割り人形』のメロディーの歌やダンスだけでなく、クリスマスソングもたくさんあり、子どもから大人まで楽しめるコンサートでした。
かれこれ、4年くらいコンサートに行っている気がしますが、毎回、違うストーリーで楽しませてくれます。
次回のしまじろう コンサートは、しまじろうの妹のはなちゃんが登場するらしいです。
http://kodomo.benesse.ne.jp/ap/hiroba_concert/
『ふしぎなくるみわりにんぎょう』に行ってきました。
去年のクリスマスコンサートの主役はとりっぴぃでしたが、今回はみみりんが主役でした。
『くるみ割り人形』のメロディーの歌やダンスだけでなく、クリスマスソングもたくさんあり、子どもから大人まで楽しめるコンサートでした。
かれこれ、4年くらいコンサートに行っている気がしますが、毎回、違うストーリーで楽しませてくれます。
次回のしまじろう コンサートは、しまじろうの妹のはなちゃんが登場するらしいです。
新宿三丁目 鈴蘭(すずらん) [グルメ / クッキング]
しまじろうコンサートの帰りに、ラーメン屋に寄りました。
かな~り昔にここのラーメン屋に寄った気がします。
でも、その時のラーメンって赤、白、黒って種類の内容だった記憶があるのですが、つけ麺と煮干し中華麺になっていました。
確かに、店の雰囲気とか場所とか間違いなので、オーナーが変わったのかな、と思いました。
食べてみたら、意外と美味い!
つけ麺と煮干し中華麺を両方食べましたが、個人的には煮干し中華麺の方が美味かったです!
かな~り昔にここのラーメン屋に寄った気がします。
でも、その時のラーメンって赤、白、黒って種類の内容だった記憶があるのですが、つけ麺と煮干し中華麺になっていました。
確かに、店の雰囲気とか場所とか間違いなので、オーナーが変わったのかな、と思いました。
食べてみたら、意外と美味い!
つけ麺と煮干し中華麺を両方食べましたが、個人的には煮干し中華麺の方が美味かったです!
オーシャンズバーガー イン ららぽーと豊洲店 [グルメ / クッキング]
久々にららぽーとに行きました。
公園に行ってみると、雨上りのタケノコみたいに小さい子供が遊んでいました。
マンションがボコボコ建っていますが、以前に比べて、異常なくらい子供が増えていますね。。。(^^;
ランチに、オーシャンズバーガー イン ららぽーと豊洲店に寄りました。
http://tabelog.com/tokyo/A1313/A131307/13038441/
割と入れ替えのレストランが多い中、ここは、けっこう長く続いているハンバーガー屋かな、って思います。
アボガドバーガー、ロコモコを食べましたが、安定のクオリティでした。
デザートにパンケーキを頼んだのですが、チョコレートソースやクリームが少ない。。。
仕方ないので、メイプルシロップを別で注文しようとしたら、なかったです…。
ハチミツかチョコレートソースは、+100円で追加オーダーできましたが、最初からもう少しかけていてくれたらな、、、って感じました。
味の方もハンバーガーに比べてちょっと残念な感じでした。
公園に行ってみると、雨上りのタケノコみたいに小さい子供が遊んでいました。
マンションがボコボコ建っていますが、以前に比べて、異常なくらい子供が増えていますね。。。(^^;
ランチに、オーシャンズバーガー イン ららぽーと豊洲店に寄りました。
http://tabelog.com/tokyo/A1313/A131307/13038441/
割と入れ替えのレストランが多い中、ここは、けっこう長く続いているハンバーガー屋かな、って思います。
アボガドバーガー、ロコモコを食べましたが、安定のクオリティでした。
デザートにパンケーキを頼んだのですが、チョコレートソースやクリームが少ない。。。
仕方ないので、メイプルシロップを別で注文しようとしたら、なかったです…。
ハチミツかチョコレートソースは、+100円で追加オーダーできましたが、最初からもう少しかけていてくれたらな、、、って感じました。
味の方もハンバーガーに比べてちょっと残念な感じでした。