ようやくbase64エンコーディングができました。 base64.table <- c(LETTERS, letters, unlist(strsplit("0123456789+/", ""))) tobase64 <- function(str){ r <- charToRaw(str) paddings <- (3-length(r))%%3 r1 <- c(r, as.raw(rep(0, paddings))) m <- ma…

Base64 - Wikipedia http://www.python.jp/doc/2.4/lib/module-base64.html 8bit*3ずつ読んで、6bit*4ずつ書くというアルゴリズムらしい。Rにも文字列 バイナリーの関数はあるのだけど、ビットの内部表現がリトルエンディアン（？）なので非常にみにくい。 >…

Rはこういうことをするための言語じゃないような・・・と思いつつ、いい練習なので色々考えてるんですが。やはりRの標準機能で双方向パイプは無理っぽいのです。片方向はできるのよ。 > ls <- pipe("ls /") > ls description class mode text opened can rea…

m <- 4 m <- matrix(c(1,0), n, n-1, byrow=!as.logical(n%%2)) 反則かも。。。要は互い違いに棒を入れれば必ず逆順になるわけで。。。 って今見たら気づいている人いっぱいいたよ！うは。

・・・のかどうか分からないけど。Rのsub系は\1で*1マッチした文字列を展開してくれるのですが、これを関数の引数にしたりすることはできないらしい。あくまで文字列の一部にしか使えないと。うぐぅ。 例えば gsub("(\\d+)", "\\1abcde", txt, perl=TRUE) み…

なんか間違えてたっぽい・・・。瀬戸の花嫁は微妙な感じかも。一応スクリプト完成版。 # df: title, before.score, after.score calc.all <- function(df){ # create rank colnames(df) = c("title", "b", "a") df <- df[sort.list(df$b, dec=TRUE),] df <- …

http://sheet.zoho.com/public.do?docurl=a%2Fga3qvYNJ7%2BuVm31GQvyw%3D%3D&name=joIhttsX89xdWlUs9ES03w%3D%3D で、クリップボードにデータをコピーする。例えば列AからJまで選択してクリップボードへ。その後Rで読む時、ファイル名に"clipboard"を指定す…

sort.listという関数があります。ほんとRは何でもあるな！ > df2 <- df[sort.list(df$total_begin, decreasing=TRUE),] > df[c(1,2,3),] abb total_begin total_3m 1 らき☆すた 1304 915 2 グレンラガン 585 362 3 アイドルマスター 426 305 > df2[c(1,2,3),…

で。正規分布がダメなので別な手法で行くことにする。簡単に思い浮かぶのは、正規分布じゃなくてデータ自身から累積分布関数を作ろうっていうノンパラメトリックな手法。分布関数はさっき作った密度関数から作ることにする。せっかくあるんだから使わねば。 …

まず2007年2q開始アニメについて、前の調査で拾い切れなかったアニメ（電脳コイルとかね）を全て網羅した結果と、3ヵ月後（6月最終週だ）に同じ集計をした結果について調査しました。↓で公開。 http://sheet.zoho.com/public.do?docurl=a%2Fga3qvYNJ7%2BuVm3…