日録2010年12月のバックアップ(No.5)

Your borwser is not supporting object tag. Please use one of the latest browsers. Your borwser is not supporting object tag. Please use one of the latest browsers. Your borwser is not supporting object tag. Please use one of the latest browsers. Your borwser is not supporting object tag. Please use one of the latest browsers. Your borwser is not supporting object tag. Please use one of the latest browsers. Your borwser is not supporting object tag. Please use one of the latest browsers. Your borwser is not supporting object tag. Please use one of the latest browsers. Your borwser is not supporting object tag. Please use one of the latest browsers.

_ 2010 年 12 月 06 日（月）晴

07:50 起床
09:00 研究室

午前
- の翻訳作業
午後

↑

_ 2010 年 12 月 05 日（日）晴

自宅での翻訳作業

↑

_ 2010 年 12 月 04 日（土）晴

06:10 起床
07:30 研究室

午前
- The Joy of Stats

午後
- の翻訳作業

↑

_ 2010 年 12 月 03 日（金）晴

06:10 起床
風が強い
07:30 研究室

午前
- の翻訳作業
- C&R社向け原稿
午後．来客と食事
- ヤマダ電機で Pocket Wifi を検討
- の翻訳作業

↑

_ 2010 年 12 月 02 日（木）晴

06:10 起床
07:30 研究室

午前
- の翻訳作業
午後
- 12:50-14:25 演習
- の翻訳作業
- 16:30 会議

↑

_ 2010 年 12 月 01 日（水）晴

06:10 起床
07:30 研究室

午前
- 08:40-10:10 演習
- Rでグラフを作成する際，色覚に問題がある人にも優しい色を選ぶにはdichromatパッケージを使います．
午後
- 14:35-16:05
- の翻訳作業
- RMeCabのdocMatrix2の出力を頻度順に並び替えるコードを泥縄で書いたが，もう少し，ましな方法があるわな

res2 <- docMatrix2("writers", pos = c("名詞","形容詞"),  minFreq = 5)

#　各行（ターム）の頻度合計を列に追加したデータフレームを作成する
#  あるいはオブジェクトを上書きしてしまう．
#　ついでに降順に並び替える

z <- data.frame(term = rownames(res2)[ order(rowSums(res2), decreasing= T ) ] ,
                   sums = rowSums(res2)[order(rowSums(res2), decreasing  = T )] )
# 頻度別の単語数は
table(z$sums)
# 頻度が100を超えるタームを抽出
z[z$sums > 100,]
# Termが"の"の行を確認
res[rownames(res)  == "の", ]

RcppGSL extends Rcpp in the direction of the GNU Scientific Library
Wubiのgrub2が逝かれたのを修復しようとしてVistaのMBRを破壊してしまった．ここからVistaのBootISOを取得して起動．システム回復コンソールから

Bootrec /FixMbr

で復活させた．

アールメカブ