ページ

2008年3月20日木曜日

数値の四捨五入と表示桁数

Rの防備録



数値を扱う際には、有効数字を考えなければいけない。

さてさて、Rにいろいろと計算をさせると、その結果は7桁で表示される(デフォルトの表示桁数)。

これを変更するには、関数option()の引数digitsを使う。





 >option(digits=2)   #表示桁数を2桁に変更







さらに、四捨五入のようにデータをまるめることが必要なときもある。

そんなときは、関数round()を使う。ただし、このとき正確には四捨五入ではない(場合がある)。

詳しくは、こちらを参照





 >round(x,digits=2)   #小数点以下2桁で丸める







ちなみに、書式付きでオブジェクトを表示する関数sprintf()もある。ただしこちらは、ダブルクオートがついてしまう。要注意。

2008年2月9日土曜日

文献の管理

 研究を進める際に必要になることのひとつとして、文献管理があります。しかし、重要だとわかっていても、継続にはかなりの根気がいります...

 小生も、いろいろと試してみたのですが、なかなか続きません。その理由はやはり、手入力というところでしょうか。

 そんなこんなで、研究予算で文献管理ソフトを導入しようかと検討してみると...



 やっぱりものすごく高い... あとで使いづらかったからと言い訳ができそうにないほど...



 そこで、Linuxの皆様はどうしているのかと検索してみると、JabRefなるフリーソフトがありました。これはかなり有名なソフトで、日本でのユーザーも多いらしい。



 でもでも、さらに検索してみるとzoteroなるやつが出現!!こいーつぁーすごい!!

 Firefoxのプラグインなんだけど、いろいろできる。使い方を解説したサイトも充実しているので、ものすごく使えるフリーソフトだと思います!!



 いい世の中になりましたね〜

2008年2月1日金曜日

HP Compaq nx4820へubuntuのインストール!!

 Linux&ubuntuユーザー歴わずか4ヶ月ながら、使い勝手の良さから、周囲の人々にubuntuを宣伝していた今日この頃。そんななかで、最初にLinuxを導入したHP Compaq nx4820を人手に譲る(正確には物々交換)ことになりました!!

このPCにはもともとubuntu7.04を入れていたんだけど、ついでに7.10に導入することに!!このPCの嫁ぎ先からの要望で、ある程度のセットアップはこちらですることになりました。



 このPCは無線LANがついてるんだけど、残念ながら相性の問題(BCM4306チップとカーネルの問題らしい...)で多少の設定が必要!そこで毎度のことながらndiswrapperを利用することに!!なるべくなら最新の安定版を使う方がよいらしいけど、以前さんざん失敗した経緯から、いつも通りSynapticからインストールすることに。バージョンは1.43.

 それがいつも通り無事にインストールが終わったら、ドライバのインストール!!HPのダウンロードサイトからも入手できるけど、なぜか今回はCDからbcmwl5.infをインストールすることに。









あとコマンド入力の利便性を考えて、ここを参考にホームフォルダの日本語表記を英語表記へ変更!!





LANG=C xdg-user-dirs-gtk-update

2008年1月30日水曜日

Rで低水準作図!!

 学会用のプレゼンでグラフが必要になったので、Rで作図してみることにしました。作成したのはこんなグラフです!!



crosssection.png

 このグラフは、河川の横断面図を表しています。堤防から堤防までの地形図です。



 最近Rをはじめとしてソースコードやら関数やらの物覚えが悪いので、とりあえず貼り付けておきます。







df<-read.table("data.txt",header=T)

X11()

#ディバイス領域を縦に3分割

par(mfrow=c(3,1))

#マージンを変更

par(mar=c(4,4,0,4))

#x軸、y軸の目盛を設定

int_x<-seq(-100,900,by=100)

int_y<-seq(-8,16,by=4)

#1番目のグラフをプロット

plot(df$X_16.4_1962,df$Y_16.4_1962,xlim=c(-100,900)

,ylim=c(-8,16),xlab="",ylab="",type="l",axes=F,

col=1)

lines(df$X_16.4_1972,df$Y_16.4_1972,col=2)

lines(df$X_16.4_1982,df$Y_16.4_1982,col=3)

lines(df$X_16.4_1991,df$Y_16.4_1991,col=4)

lines(df$X_16.4_2002,df$Y_16.4_2002,col=6)

axis(side=1,pos=-8,at=int_x)

axis(side=2,pos=-100,at=int_y)



<中略>

#eps形式で保存

dev.copy2eps(file="crosssection.eps",

width=8,height=10)





 やっぱりRのグラフは綺麗ですね〜!!

今日新しく勉強したLinuxコマンド

 今日は、複数のディレクトリを一括して移動するコマンドとディレクトリを削除するコマンドを勉強しました。メモがてら以下に...



カレントディレクトリの全ファイルを別のディレクトリ(ここではdir1)に移動するコマンド



cp -r * /dir1





このコマンド、かなり便利ですね〜!!



そして、次はディレクトリを削除するコマンド。ファイルを削除するには普通にrmでいいんだけど、ディレクトリの場合にはちょっと怒られてします(私の知識が乏しい故に)...

そこで調べてみるとこのコマンドを使うらしい!!!



rm -r dir1







今日もまた1つ賢くなりました!!

2008年1月24日木曜日

Lotus Symphonyが日本語対応!!

 無償のオフィススイートLotus Symphonyがβ3版ながら多言語に対応しました!!!



 ダウンロードは米IBMのホームページから〜

但し、ユーザー登録が必要!!!入力フォームから登録してダウンロード〜



 これでまた一つ、オフィススイーツの選択肢が増えましたね〜

2008年1月20日日曜日

特別な1日の始まり

おはようございます!!!



普段はまだ寝ている時間ですが、今日は早朝から個人的にうれしいニュースが入ってきました!!!



人生の特別な1日の始まりです!!!



さてさて、そんな個人的なニュースのほかにubuntu関係のニュースも1件!!!





私はubunutuを初めてまだ半年の初心者ですが、常日頃からubuntuに対するubuntuユーザーの皆様の熱い思いに非常に感謝しています。

このような皆様のおかげで、ubuntuは日本においてとても使いやすいLinuxディストリビューションに位置づけられると思います。



そんな日本のubuntu環境ですが、今日また新たにubuntuの魅力を発信するサイトが誕生しました。非常にありがたいものです。



サイトを管理しているu-bon様には、Viva! ubuntuでとてもお世話になっており、非常に感謝しています。サイト管理というものはたくさんの苦労があると思いますが、できる限り長く情報を発信していただけたらと思います。



u-bon様、陰ながら応援しています!!!!