Site admin: motohiro PukiWiki 1.5.1 © 2001-2016 PukiWiki Development Team. Powered by PHP 7.4.33
HTML convert time: 0.017 sec.
[[過去の日録]] [[Lattice Multivariate Data Visualization with R:http://www.springer.com/statistics/computational/book/978-0-387-75968-5]] //http://d.hatena.ne.jp/hdtooo/20081208/1228754676 #ref(R_Lattice/lattice113.png) * 2009 年 3 月 18 日 (水) 晴 [#g18aeb81] -- 06:00 起床 -- 07:20 研究室着 - 午前 -- [[RMeCab]] に共頻度行列作成機能を付ける準備を始めた． -- 11:00- 12:30 心理のS先生らと TextMining についてちょっとした話． - 午後 -- 共頻度行列だが，[[RMeCab]]のdocMatrix()関数の出力があるとして，次のようなコードを，雑多な用事の合間に書いてみたが，何か見落としがないであろうか． また正しいとして，apply() は使えないだろうか． x <- matrix(c(2,0,1,1, 0,0,2,0, 1,2,0,2), nrow = 4) rownames(x) <- c("W1","W2","W3", "W4") ## ターム名とする colnames(x) <- c("D1","D2","D3") ## 文書名とする x ## D1 D2 D3 ## W1 2 0 1 ## W2 0 0 2 ## W3 1 2 0 ## W4 1 0 2 ## 行名のタームに対して，列名のタームが出現した回数 ## 左右対称行列ではない y <- diag(rowSums(x)) colnames(y) <- rownames(y) <- rownames(x) for(i in 1:(nrow(x)-1)){ for(j in 4:2){ if(i == j) break y[i,j] <- sum(x[i, x[j,]> 0]) y[j,i] <- sum(x[i, x[j,]> 0]) } } y ## W1 W2 W3 W4 ## W1 3 1 2 3 ## W2 1 2 0 2 ## W3 2 0 3 1 ## W4 3 2 1 3 ## 行名のタームと列名のタームが共起した回数 ## 左右対称行列である y <- diag(nrow(x)) colnames(y) <- rownames(y) <- rownames(x) for(i in 1:(nrow(x)-1)){ for(j in 4:2){ if(i == j) break y[j,i] <- y[i,j] <- sum(x[i, x[j,]> 0] > 0 ) } } y ## W1 W2 W3 W4 ## W1 1 1 1 2 ## W2 1 1 0 1 ## W3 1 0 1 1 ## W4 2 1 1 1 ### 行名のタームと列名のタームが共起したか否か ## 左右対称行列である y[y > 0] <- 1 y ## W1 W2 W3 W4 ## W1 1 1 1 1 ## W2 1 1 0 1 ## W3 1 0 1 1 ## W4 1 1 1 1 * 2009 年 3 月 17 日 (火) 晴 [#b6b41a4a] -- 06:00 起床 -- 07:20 研究室着 - 午前 -- 先週末からの懸案の解決方法がわかった。ようするに明示的に文字コードを指定しない問題である。真っ先に疑っていたのだが、しかし短い文章の場合はちゃんと解析した結果が返ってくるので，これ以外の可能性ばかりを検討していた． NSString* request = [[NSString stringWithFormat:@"%@%@", Url, query] stringByAddingPercentEscapesUsingEncoding: NSUTF8StringEncoding]; - 午後 -- Baayen * 2009 年 3 月 16 日 (月) 晴 [#te2bfc74] -- 06:00 起床 -- 07:20 研究室着 - 午前 -- 体調ひどく悪し。 -- 09:00-13:00 大学院面接。がっくり疲れた。 -午後 -- 14:15-16:00 ジンジの面接 -- iPhoneでMeCab解析の続き。 --- 複数の形態素からなる文章を解析させる操作をすると、アプリが落ちる。デバッグすると、 NSXMLParserErrorDomain error 5. と出る。この中身は[[ここ:http://forums.macrumors.com/showthread.php?t=568251]]によれば Code: NSXMLParserPrematureDocumentEndError The document ended unexpectedly. Available in Mac OS X v10.3 and later. Declared in NSXMLParser.h ということなのだが。さらに検索すると[[こういう情報:http://www.iphonedevsdk.com/forum/iphone-sdk-development/12355-can-not-parse-simple-xml.html]]もあった。 > The problem is that is an invalid xmll document. There is only one root elment allowed in the XML document. Most if not all parsers will fail on that. Try chaning you xml from: < だとすると NSXMLParserは使えないということになる.しかしクエリーの結果をファイルに保存して、これを読み込ませるとうまくいく。 -- うーーん。ここに[[こんな情報:http://www.osxentwicklerforum.de/thread.php?postid=62076]]があった。明日試してみよう。 > Hehehe, fileURLWithPath statt URLWithString, dann geht's, hab das hier mal ausprobiert. < --- [翌日：試してみたが，結果は変わらん．．．] //[[ここの情報:http://discussions.apple.com/thread.jspa?threadID=1716226&tstart=839]]が参考になるかもしれない。明日試してみよう。 * 2009 年 3 月 15 日 (日) 晴 [#g2e0daa0] -- 07:00 起床 - 午後。自宅で仕事。 * 2009 年 3 月 14 日 (土) 雨 [#e664e3e1] -- 07:00 起床 -- 08:20 研究室着 - 午前 -- iPod Touch と Xcode をあれこれいじる． -午後 -- iPod Touch で最初のアプリケーションを作った。日本語文章を入力すると形態素解析し、その結果をテーブルに表示するというごく簡単なプログラムである。 * 2009 年 3 月 13 日 (金) 雨 [#dce2e4e6] -- 06:10 起床 -- 07:30 研究室着 - 午前 -- [[iPodTouch の認証と実機へのインストール>Provisioning設定]]．えらい手間取った． - 午後 -- [[Baayen>R_Baayen]] 関連で依頼されている仕事．落ち着いて iPod SDK のチェックをする時間もない．．． * 2009 年 3 月 12 日 (木) 晴 [#ba2fa677] -- 05:30 起床 -- 07:00 研究室着 - 午前 -- iPhone SDK をいじってみる． -- 花粉症の薬をもらいにいく．受付が勘違いして，受け取りが大幅に遅れた． - 午後 -- [[Baayen>R_Baayen]] 関連で依頼されている仕事にかかる．Baayen のホームページにアクセスできない． * 2009 年 3 月 11 日 (水) 晴 [#pae34de2] -- 06:20 起床 -- 07:40 研究室着 - 午前 -- iPhone SDK をいじってみる． -- Object Cでコードを書くのは初めてだが、ストレスたまる。 たとえば文字列オブジェクトの初期化は NSString * mystring; mystring = [[ NSString alloc] initWithString:@"iPod Touch" autorelease]; とする。以下でもいいらしい。 mystring = [NSString stringWithString:@"iPod Touch"]; が，引数が増えてくると，とたんに混乱してくる． - 午後 -- DELLのVista に TeX Meadow Yatex をインストール． -- 15:00-17:00 ジンジ会議． * 2009 年 3 月 10 日 (火) 晴 [#j71fe9bd] -- 06:00 起床 -- 07:30 研究室着 - 午前 -- ちょっと一段落したので iPhone SDK をいじってみる． -- ところが，この SDK のダウンロードがなかなか終わらない． -- ようやくダウンロードが終わったが，今度はインストールに時間がかかる．もっとも Visual Studio もインストールには時間がかかったものだが． - 午後．蓬莱小焼きめし520 -- SDK を引き続き試してみる． -- 定番の HelloWorldを作ってみる．Xcodeを使ってFramework をいじるのははじめてなので，[[いろいろとまどうこと:>UIKit]]が多い． * 2009 年 3 月 9 日 (月) 曇 [#xf70b2c4] -- 06:00 起床 -- 07:30 研究室着 - 午前 -- いろいろとプログラミング作業 - 午後 --16:00-18:30 ジンジの会議 * 2009 年 3 月 8 日 (日) 曇 [#ge696755] -- 07:00 起床 - 午前． -- 自転車のブレーキワイヤとブレーキシューの交換に行ったが，2時間，4205 円かかってしまった． * 2009 年 3 月 7 日 (土) 晴 [#c54f1d36] -- 06:00 起床 -- 07:30 研究室着 - 午前 -- [[RMeCab]] と [[R2MeCab]] に新規追加した関数のバグ削除． - 午後 -- サーバーのアドレスを変更した．ついでにアップデート． -- [[R2MeCab]] の様子を見て，CRAN に登録したいと思う． * 2009 年 3 月 6 日 (金) 雨・曇 [#u1fb0b9d] -- 06:00 起床 -- 07:30 研究室着 - 午前 -- [[RMeCab]] に関数を追加する作業． -- 10:00-11:00 会議 - 午後 -- [[RMeCab]]が肥大化してしまったので，[[R2MeCab]]なんてものを作った． //http://mamopage.blog65.fc2.com/blog-entry-232.html * 2009 年 3 月 5 日 (木) 曇 [#k6ab90a7] -- 06:00 起床 -- 07:30 研究室着 - 午前 -- [[RMeCab]] に関数を追加する作業． - 午後 -- [[RMeCab]] に関数を追加する作業． -- 14:20-17:00 会議 --, * 2009 年 3 月 4 日 (水) 曇 [#f7182d32] -- 06:00 起床 -- 07:30 研究室着 - 午前 --昨日完成させた [[Lattice Multivariate Data Visualization with R:http://www.springer.com/statistics/computational/book/978-0-387-75968-5]] 訳稿を整理． -午後 -- [[RMeCab]] に関数を追加する作業． -- [[RMeCab]] に関数を追加する作業． * 2009 年 3 月 3 日 (火) 曇 [#pac227e3] -- 06:00 起床 -- 07:30 研究室着 - 午前 -- [[Lattice Multivariate Data Visualization with R:http://www.springer.com/statistics/computational/book/978-0-387-75968-5]] - 午後 -- [[Lattice Multivariate Data Visualization with R:http://www.springer.com/statistics/computational/book/978-0-387-75968-5]]をひとまず完成． -, * 2009 年 3 月 2 日 (月) 曇 [#cb912249] -- 08:00 起床 -- 09:30 研究室着 - 午前，午後とも -- [[Lattice Multivariate Data Visualization with R:http://www.springer.com/statistics/computational/book/978-0-387-75968-5]] * 2009 年 3 月 1 日 (日) 晴 [#p30f3a16] - 一日自宅