2017年1月16日月曜日

ベイズ統計を学ぶ

ようやく時間がとれるようになってきたので,統計の知識をアップデートしています。緑本を読んで,GLMMはある程度わかったような気になっています。これだけいろいろできたら分散分析はオワコンになるわ……。
ベイズ統計にも手をつけはじめましたが,Rは進化が早いので,Webの情報がすぐobsoleteなものになっちゃいますね。というわけでメモ。

ベイズ流のGLMM

清水先生のglmmstan()が鉄板かと思いきや,動かないようです。いまはRStanArmを使うそうな。devtoolsでinstall_github()を使ってインストールする記事も見かけましたが,いまはCRANからふつーにインストールできます。パッケージ名どおり,Stanで動きます。
> install.packages("rstanarm")
> library(rstanarm)
> fit <- stan_glm(y ~ x, data=dat, family="gaussian",
                  chains=4, iter=2000, cores=4)
> summary(fit)
> plot(fit)

ベイズ流の構造方程式モデリング

blavaanというパッケージを使うようです。こちらはJAGSを使うので,あらかじめAPTで入れておきます。Windowsはわからぬ。
$ sudo apt install jags
そしてR上で
> install.packages("blavaan")
> library(blavaan)
> model <- '
+ x =~ x1 + x2 + x3 
+ y =~ y1 + y2 + y3
+ '
> result.model <- bcfa(model, data = dat)
> summary(result.model, standardized = TRUE)
> fitMeasures(result.model)
などとします。要はlavaanの関数名の頭に”b”をつけるだけみたいですね。
ラッパーに頼らずにStanのコードを書けるようになったほうがいいんでしょうなあ。がんばります。

2017年1月6日金曜日

ゆく年くる年2016-2017

あけましておめでとうございます。
例年,年末に1年の振り返りの記事を書いているのですが,今回はすっかり抜けてしまいました。そこで,去年の振り返りと今年の抱負をまとめて書いてみます。
まず,去年の業績を振り返ってみます。

業績

論文

  • 押江隆・梅野智美(印刷中). 「体験過程流箱庭療法」開発の試み(2)──セラピストが箱庭作品を味わう方法の検討, 7.

学会発表など

口頭発表・ポスター発表

  • 押江隆(2016)挫折体験の意味づけとフォーカシング的経験および外傷後成長との関連の検討 日本人間性心理学会第35回大会(口頭発表)
  • 山根倫也・押江隆(2016)児童の教師に対する態度認知と学級集団形成および学校適応感の関連──ロジャーズの3条件態度の認知による検討 日本人間性心理学会第35回大会(口頭発表)
  • 押江隆・藤田洋子(2016)PCAGIP法にパーソン・センタード・スーパービジョンを組み合わせた「リフレキシブPCAGIP」の開発 日本心理臨床学会第35回大会(ポスター発表)
  • 坂本和久・押江隆(2016)洞察学習における社会的促進の検討 中国四国心理学会第72回大会(ポスター発表)

座長

  • 吉川麻衣子(2016)「戦争体験を糧に生きる」ということ──沖縄での15年の縦断的調査を通して 日本人間性心理学会第35回大会(口頭発表)

シンポジウム・自主企画等

  • 飯長喜一郎(シンポジスト)・新田泰生(シンポジスト)・押江隆(シンポジスト)・中野愛(シンポジスト)・三國牧子(司会)(2016)人間性心理学──世代を超えた対話 日本人間性心理学会第35回大会(理事会・準備委員会合同企画)
  • 押江隆(講演者)・伊藤義美(司会)(2016)パーソンセンタード・コミュニティアプローチの実践と課題 日本人間性心理学会第35回大会(奨励賞受賞記念講演)

講演会・研修会等

  • 「新しい事例検討法『PCAGIP法』を体験する(第4回)」講師(山口大学教育学部)2016年1月22日
  • 「日本人間性心理学会中国・四国部会第1回研修会」話題提供・ファシリテーター(広島オフィスセンター)2016年2月7日
  • 「犯罪被害者等直接支援員養成講座(テーマ:自己に気づく)」講師(山口被害者支援センター)2016年6月22日
  • 「平成28年度三大学合同カンファレンス」スーパーバイザー(山口大学教育学部)2016年9月23日
  • 「アンガーマネジメント〜怒りとつきあおう〜」講師(山口調停協会)2016年10月3日
  • 「ともに生きていく心理臨床──子どものフリースペースをめぐって」講師・パネルディスカッションファシリテーター(NPO法人おひさま生活塾)2016年11月20日
  • 「付添人としての少年・保護者への面接技法」講師(山口少年友の会)2016年6月27日・7月25日・10月3日・11月28日

社会的活動

  • 公益社団法人山口被害者支援センター理事(平成28年度)
論文が少ないですなあ。書くネタはあるのですが,時間がまったくなかったです。今年こそは! ちなみにもう1本書いていて,3月ぐらいに出る予定です。
奨励賞講演は,準備するのすっごく大変でしたけど,自分の中ですっごく大事な講演になりました。職業生活にとっても,プライベートにとっても。これまでの総決算みたいな講演会でした。いい機会を提供してくださったことに感謝しています。ちなみにおひさま生活塾での講演は,この奨励賞講演の内容が下敷きになっています。おひさま生活塾では何度も講演してますけど,いままでで一番評判がよかったです。

FLOSS

FLOSSに関しては今年もいっさいなんにもできなかったですね……。何か原稿が書けたらいいなあと思っています。執筆環境の話とか?

昨年の抱負の進捗どうでしたか

昨年の抱負は自分の手で流れを決めるでしたけど,プライベートでも仕事でも,そこそこやれたと思っています。免許を取って大人になりましたし,またまたお引越しもしましたしね(謎)。

そして今年の抱負に至る

去年を振り返ってみると,ネガティブなことばかり,文句ばかり言って動かない,というようなことが多かったような気がします。もちろん忙しかったのもあるのですが,グジグジ言っているようではどんどん腐っていくような気がします。口ばかりでかいってのが,一番嫌ですしね。
そこで今年の抱負は「文句を言う前にまずは自分が動く」にしたいと思います。すでに動く準備は着々と進んでいます。ネガティブなことばかり言い始める病気が出てきたら,戒めてやってくださいね。
相変わらずこんな奴ですが,今年もどうぞよろしくお願いいたします。

2016年12月6日火曜日

普通の関西人が【山口市民】やってみた。

この記事はやまぐちの魅力 Advent Calendarの4日目のエントリーです。
僕は大阪府東大阪市の出身です。東大阪と言われても,どこかピンとこない方も多いかと思いますが,河内のあたり,と言われればなんとなくわかるのではないでしょうか。花園ラグビー場でも有名ですね。中小企業の町でもあります。
そんな僕が就職で山口市にやってきてもうすぐ5年になるわけですが,山口市に来てよかったなあと思った点をいくつか挙げたいと思います。

1. (必要最低限の)買い物で困らない

山口市は確かに田舎ではありますが,市街地にさえ出てしまえば(必要最低限の)買い物で困ることはありません。スーパーがたくさんありますし,ちょっと足を運べばイオンタウンやおのだサンパークでウィンドウショッピングができます。
まあ,ちょっと凝った買い物をしたければ県外に出る必要があるのであくまで「必要最低限の買い物」に限った話ではありますが,日常生活で困ることはあまりないです。

2. 人混みが少ない

僕は人混みが苦手です。たとえば梅田に行くと,あまりの人の多さに歩いているだけでも疲れ果ててしまいます。山口で人混みに出逢うことはあまりありません。「そこそこ買い物ができて,人混みが少ない」というのは,僕にとって気持ちよく過ごせる環境です。

3. イベントに人が集まる

確かに人混みは少ないのですが,何かイベントがあるとたくさんの人が集まってくるなあという印象があります。たとえばちょうちん祭り。日本三大火祭の1つということもあって,そこそこ大きいお祭りなのですが,とても盛り上がります。普段は閑散としている商店街にたくさんの人が集まっていて,山口市の底力を感じます,その他,ちょっとしたフリーマーケットにもそこそこ人が集まります。

4. 食べ物がおいしい

食べ物は重要ですよね。そこらのスーパーで買う刺身ですらおいしいです。大阪で食べてたゴムみたいなイカはいったい何だったんだろうって思います。もっといい魚を食べたければ,唐戸市場に行くといいですよ。何を食ってもうまいです。

5. 自然を満喫できる

キャンプ場もそこそこありますし,カヌーだってできます。春は桜が,秋は紅葉がきれいです。ちょっと行けば自然を満喫できるところがたくさんあります。
関西人の僕にとっても山口市は「心地よく不便」なところです。あなたも山口で過ごしてみませんか? おいでませ山口へ!

2016年10月11日火曜日

「おとな」になるということ

もうずいぶん前に自動車学校に通い始めたと言っていましたが、卒業検定に合格し、本日免許を取得しました。これで「運転できるのはマリオカートだけです」と言わなくて済みます。

免許を持っていなかったことは僕にとってちょっとした劣等感になっていて、じゃあ取ればいいじゃないかという話なんだけど、なんだか取りたくない自分もいて、ずっと取ってこなかったんですよね。そもそも車には(免許をとったいまも)さっぱり興味ないですし、それを言い訳にしてきたところもあります。

なんでずっと取りたくなかったのかな、とぼんやりと思いを巡らしてみると、要は「おとな」になりたくなかったんだと思います。僕にとって免許持ちは「おとな」で、免許のない自分は「車に乗る」という責任を回避できる「こども」でした。「できない」ということは、活動の範囲が狭いということでもありますが、逃げ口上にも使えてしまうところがあるように思います。免許をとったいま、いよいよ「おとな」の仲間入りになるのかなあ、などとぼんやりと考えています。もちろん37歳なのでとっくに大人なんですけどね。

たかが免許ひとつで何を大げさな、と思われちゃいそうですが、僕にとってはけっこう大きなテーマなんです。子どものときに一度時間が凍りついてしまった自分の。

まあ通勤には相変わらずチャリを使うつもりですが。でも、仕事の幅は広がりますねー。

2016年9月7日水曜日

日本人間性心理学会第35回大会で奨励賞記念講演をしてきました

企画・講演・総会・懇親会 | 日本人間性心理学会 第35回大会

めっちゃ個人的なことをたくさん話してきました。あまりまとまって話してこなかったことも、なかなか人に話せなかったことも。でも、全部自分の研究や実践につながってるし、話さないと伝わらないんです。人様にお伝えするためにも、そして自分自身のためにも、話せて本当によかった。聞きに来てくださった方々、丁寧に聞いてくださって、ありがとうございました。

研究業績だとか権力だとかそういうものにはほんとに興味なくて、ただただ、自分の人生を素朴に生きていきたいなあと改めて思いました。

たくさん笑いがとれてよかった!(結局)

2016年7月8日金曜日

mikutterでRhythmboxの #NowPlaying をツイートできるようにした

ずっとほしかった環境を作ることができたのでメモ。以下のページを参考にしました:
まずtweetnowplaying.pyをつくります。
#!/usr/bin/env python
# -*- coding: utf-8 -*-

import subprocess
from requests_oauthlib import OAuth1Session

CK = 'XXXXXXXXXXXXXXXXXXXXXX'                             # Consumer Key 
CS = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'         # Consumer Secret 
AT = 'XXXXXXXXX-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' # Access Token 
AS = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'         # Accesss Token Secert

# ツイート投稿用のURL
url = "https://api.twitter.com/1.1/statuses/update.json"

# コマンド
cmd = "rhythmbox-client\t--print-playing-format=#NowPlaying \"%tt\" by %ta from \"%at\""

# ツイート本文
params = {"status": subprocess.check_output(cmd.split("\t"))} # 標準出力を返す

# OAuth認証で POST method で投稿
twitter = OAuth1Session(CK, CS, AT, AS)
req = twitter.post(url, params = params)

# レスポンスを確認
if req.status_code == 200:
    print ("OK")
else:
    print ("Error: %d" % req.status_code)
保存して $HOME/bin に置きます。
  1. mikutter上で任意のコマンドをショートカットキーなどで実行できるようにするプラグインをインストール。Mikutterを再起動します。
  2. [設定]→[コマンド実行]→[command]に”python $HOME/bin/tweetnowplaying.py”と書いて[追加(A)]をクリック。
  3. [ショートカットキー]→[追加(A)]→[window]→[コマンド実行 python $HOME/bin/tweetnowplaying.py]を選択→[キーバインド]をクリックして[Ctrl]キーを押しながら[P]キーを押して[OK(O)]をクリック→さらに[OK]をクリックし,キーバインド一覧に追加されていることを確認します。
Rhythmboxで再生している楽曲の情報をMikutter上で[Ctrl]+[P]することでツイートすることができるようになります。おためしあれ。

2016年5月5日木曜日

神戸市立博物館に行ってきた

ある後輩同士の,三宮での結婚式にお招きいただき,お祝いをしてきました。ずいぶん長い間つきあっていたお2人なので,晴れの舞台なのにいつもどおりというか,すごく安定しているというか,そんな感想でしたねー。人様の結婚式のことをブログに書くのも野暮なのでこれ以上は書きませんが,末永くお幸せに。
その後ホテルに1泊し,その翌日に,親しくしていただいているあわしろいくやさんのお誘いで,神戸市立博物館に行ってきました。ほとんど行ったことがなかったのですが,博物館っておもしろいもんなんですねー。特に,その街の歴史を知るのがおもしろかったです。
街にはずっと昔から,いろいろな人が暮らしていて,どういう過程でいまに至ったのかなあ,日々の暮らしの中でどんなことを感じてきたのかなあなどと思いを馳せ,感慨深いものがありました。もともと人間ドラマが好きなわけで,おもしろくないわけがないですよねえ。
もともと暗記が大の苦手で,そもそもなんで年号を覚えなきゃいけないのか,1年くらいずれたところで何の問題があるのか,語呂合わせで暗記することに何の意味があるのかとか全然理解できなくて, 学校の歴史の勉強が大嫌いでした。学校の歴史の勉強のせいで,僕はずいぶん損をしてきたんじゃないかなあと思ってしまいましたよ……。でも,評価をするには試験をつくらないといけないわけで,試験をつくるためには正解・不正解が必要なわけで,正解・不正解を用意するには年号を出題するのが手っ取り早いわけで,教育っていったい何なのかなあとか……,ってこれはまた別の話ですね。
博物館巡りが新しい趣味になりそうです。とりあえず,地元の歴史民俗資料館に今度行ってみましょうかね。