【R言語】統計解析フリーソフトＲ 第５章【GNU R】
■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん
2013/09/26(木) 13:07:22.66統計計算で重宝するデータ型や、複数要素を処理する演算や関数、
解析結果を表示するグラフィックなど、多彩な機能を提供します。
●関連サイト
The R Project
http://www.r-project.org/
RjpWiki
http://www.okada.jp.org/RWiki/
リンク集
http://www.okada.jp.org/RWiki/?%A5%EA%A5%F3%A5%AF%BD%B8
0002１３２人目の素数さん
2013/09/26(木) 13:08:40.45＝ 統計解析フリーソフト Ｒ ＝
http://science4.2ch.net/test/read.cgi/math/1062650510/
http://mimizun.com/log/2ch/math/1062650510/
＝ 統計解析フリーソフト Ｒ 【第２章】 ＝
http://science6.2ch.net/test/read.cgi/math/1152449095/
http://mimizun.com/log/2ch/math/1152449095/
統計解析フリーソフト Ｒ 【第３章】
http://kamome.2ch.net/test/read.cgi/math/1224142396/
http://mimizun.com/log/2ch/math/1224142396/
【R言語】統計解析フリーソフトＲ 第４章【GNU R】
http://uni.2ch.net/test/read.cgi/math/1294561909/
0003１３２人目の素数さん
2013/09/26(木) 19:29:05.38乙。前スレが落ちたの >>989 付近？
0004１３２人目の素数さん
2013/09/28(土) 14:07:33.740005１３２人目の素数さん
2013/09/29(日) 11:02:05.99判別的中率の計算の途中で
次のようなコマンドを実行したいのですが、
hanbetsu.result <- table(データセット$朝食有無, データセット$予測群)
↓これ、だとうまくいきません。
doItAndPrint(paste("hanbetsu.result <- table(",ActiveDataSet(),"$",tclvalue(lhsVariable),",",ActiveDataSet(),"$予測群)" sep=""))
,（コンマ）をペーストするにはどうしたらいいのでしょうか？
0006１３２人目の素数さん
2013/09/30(月) 13:03:24.56Rcmdrはまったく分からないんだけど、
> ,（コンマ）をペーストするにはどうしたらいいのでしょうか？
","で合っているよ。うまくいかない原因は別にあると思うよ。
いずれにせよ、読んでいる人が再現できるものを提示しないと、
誰も助言できないよ。
特に、GUIな人は、トラブルを全て「うまくいきません」ですませてしまって、
読んでいる側は意味不明。←他人からは解決する気がないと判断される
あと、いちいちsep=""と書くのは面倒ではありませんか？
私はpaste0()を使います。
0007１３２人目の素数さん
2013/10/01(火) 00:18:59.84うまくいったのはこちらです。
doItAndPrint(paste("hanbetsu <- table(", ActiveDataSet(), "$", tclvalue(lhsVariable), ",", ActiveDataSet(), "$予測群)", sep=""))
コンマの後の空白をきちんと空けたのが良かったようです。ありがとうございました。
0008１３２人目の素数さん
2013/10/01(火) 09:42:04.68> コンマの後の空白をきちんと空けたのが良かった
違うと思う。 >>5 はsepの前にあるべきコンマが抜けていたから。
0009１３２人目の素数さん
2013/10/01(火) 21:53:45.05比較するとそうですね。
ありがとうございます。勉強になりました。
0010１３２人目の素数さん
2013/10/12(土) 18:44:10.94フォントとか配置とかそういう感じの
0011あのこうちやんは始皇帝だった
2013/10/12(土) 19:13:14.79無職のクソガキども！ 大変なコトになるな！
憲法改正だ！ ９６条を改正してから、９条を改正する。 そして、何条を改正するか？
１８条だ！ そうして、国家総動員法ができて、オマエたち、無職のクソガキどもは、真っ先に徴兵だ！
オマエたちは、頭デッカチの虚弱児・ひ弱だから、最下等兵！ すぐ戦死だ！
アハハハハハハハハハハ！！！！！！！！！！！！！！！！！！！！
死にゆく、クソガキどもに、大伴家持の詩を贈ってやろう！
海行かば 水浸く屍 山行かば 草むす屍 大君の 辺にこそ死なめ かえりみはせじ！
0013１３２人目の素数さん
2013/10/13(日) 11:32:28.63質問の意味が分からないぞ。
TeXの書き方（ソースの書き方なら全くの自由だ）の規定と、
フォントの配置（TDSのことか？）がどう関係があるの？
Rのコーディング作法なら、Googleが提唱しているものがある。
ttp://google-styleguide.googlecode.com/svn/trunk/Rguide.xml
また、作法通りに整形し直してくれるパッケージもある。
001410
2013/10/13(日) 11:55:33.09すいません確かに意味不明でした
文章中に「TeX」と書くときは「全部大文字でEはTより下で・・・が本当の表記だけど出来ないならしょうがないからTeXと書くように」とか決まっていたと思います
Rも同様に書式の決まりがありますか？
というのも、文章で「R」ただ1字を書くとどうも可読性が悪い気がしてしまって、何かいい方法はないかと・・・フォントくらい変えた方がいいかと悩み中です
0015１３２人目の素数さん
2013/10/13(日) 12:48:58.90全く文意をくみ取れていなかったようだorz
¥TeX{}のR版を探しているといことだよね。
R界隈の論文を見れば分かると思うけど、*ない*です。
journal of statistical softwareのLaTeXクラスファイルに定義されていた気もするが、
標準化されていない。
スライドなど少々の遊びが許される場合で、Rの可読性を高めるたいなら、
「全ての解析は¥includegraphic[with=1.5zw]{Rlogo-4.png} ver.3.01で行いました。」
などと、ロゴを使えばどうか。
ttp://developer.r-project.org/Logo/
001610
2013/10/13(日) 13:16:07.80なるほど、ロゴを使うというのは盲点でした
今度試してみます
ありがとうございました
0017１３２人目の素数さん
2013/10/22(火) 20:02:55.39表示されなくておかしくなる。そういうものなの？
0018１３２人目の素数さん
2013/10/22(火) 20:35:19.99おかしくなるも何も、負の値を含む積み上げって、
どういう図を期待しているんだ。
> barplot(matrix(c(1:3, -1, 4:5),3))
予想通りの図になるが、これがおかしいということ？
0019１３２人目の素数さん
2013/10/22(火) 21:02:15.43サンクスｗそのグラフで俺の頭がおかしかった事に気がついたｗ
0020１３２人目の素数さん
2013/10/25(金) 00:01:31.530021１３２人目の素数さん
2013/10/27(日) 23:06:08.310022１３２人目の素数さん
2013/10/28(月) 05:58:06.04ヨーロッパサマータイムあるのに意味分からん。
0023１３２人目の素数さん
2013/10/28(月) 06:58:08.95EDT指定してもできなかったがAmerica/New_Yorkにしたらできたわ。イミフだわ。
0024１３２人目の素数さん
2013/10/28(月) 09:18:36.85MC法が何か勉強してから、もう１度来なさい。
ttp://ebsa.ism.ac.jp/ebooks/node/1264
>>22-23
意味不明。POSIXt()の引数が期待通りでなかったってこと？
New YorkならEST5EDTじゃないの？
0025１３２人目の素数さん
2013/10/28(月) 11:13:49.49引数にEDT入れたらそんなのありませんって言われたｗ
EST5EDTって入れればいいのかな？まぁ"America/New_York"って入れたらできたから解決したけど。
ちなみにBSTイギリス夏時間もだめだった。でもWET西ヨーロッパ夏時間はちゃんと認識した。
できたりできなかったりよくわからんわ。
0026１３２人目の素数さん
2013/10/31(木) 08:57:31.37層別ランダム割付という手法があるというところまでは調べられました。
Rでランダム割付が可能と聞いたのですが、やり方を解説しているサイトなどありませんか？
またはご存知の方いらっしやいませんか？
0027１３２人目の素数さん
2013/10/31(木) 21:11:36.63Stratified Randomizationって、実際にはBlock Randomizationの方法で実現するわけだから、
Block Randomizationのパッケージblockrandを使えばよいと思うよ。
ttp://cran.r-project.org/web/packages/blockrand/
オレは使ったことがないけどね:-p
002827
2013/10/31(木) 21:28:55.98cranの中を探したら、他にもいろいろあるみたいだ。
全文検索システムのnamazuでいろいろと検索してみてください。
ttp://search.r-project.org/cgi-bin/namazu.cgi
あと、↓充実した説明で助かるね！
ttp://en.wikipedia.org/wiki/Randomized_block_design
0029１３２人目の素数さん
2013/11/09(土) 14:18:52.90ar(データ）
データ$aic
では、相対的なAICの値しか表示されないため、最適な次数はわかってもAICの値がわかりません。
また、arima(データ, order=c(x,0,0))
で行うと定数項が含まれているため純粋なARモデルのAICを求める事が出来ません。
ARモデルのAICを求める方法、教えてください。
0030１３２人目の素数さん
2013/11/09(土) 15:32:47.80> ar(lh)$aic
0 1 2 3 4 5 6
18.3066645 0.9956542 0.5380214 0.0000000 1.4903597 3.2127890 4.9932119
7 8 9 10 11 12 13
6.4694960 8.4625678 8.7411958 10.7408834 12.5338637 14.4847850 16.4617958
14 15 16
18.0437158 17.4398358 19.3449467
> library(timsac)
> unimar(lh)$aic
[1] -34.34604 -46.87367 -47.40513 -46.86175 -44.86637 -43.20116 -41.34344
[8] -40.37922 -38.39713 -41.00437 -39.38885 -37.39977 -35.53922 -33.63709
0031１３２人目の素数さん
2013/11/09(土) 16:34:03.27ありがとうございます。
無事できました。
0032１３２人目の素数さん
2013/11/10(日) 17:33:34.060033１３２人目の素数さん
2013/11/10(日) 19:25:09.00例えば(E:\R)となりこのままではsetwd("E:\R")と行うことができません。
いつもはsetwd("E:\\R")やsetwd("E:/R")に手で修正しています。
何かもっと簡単な方法はないでしょうか？
0034１３２人目の素数さん
2013/11/11(月) 00:01:41.40Windowsをやめると幸せになれます
>>32
人による。
なお、コーディングはひたすら他人のコードを読むのが上達の近道。
0035１３２人目の素数さん
2013/11/11(月) 09:34:32.91"E:\R"を"E:\\R"や"E:/R"に自動置換してsetwd()に渡すオレ様関数を書けばよいのでは。
my.setwd <- function(p) setwd(nomalizePath(p))
こんな感じかな。こちらはWindowsじゃないので未検証。
ちなみに、文化の違いだと思うけど、
私は、対象ディレクトリに移動して、
ごにょごにょ作業や確認をしてからRを起動するので、
setwd()が必要な場面に出会わない。
0036１３２人目の素数さん
2013/11/11(月) 18:55:03.91何をやりたいかによる。
しかし確実に言えるのは、日本人(含在日)の本は全てダメ。
0037１３２人目の素数さん
2013/11/11(月) 22:23:05.34文系で、あまり高度でない実験結果や計量分析のまとめなど、普通はSPSSとかでやる人が多いことをRでやるばあいは？
0038１３２人目の素数さん
2013/11/12(火) 00:05:48.49Excel使ってろよ
0039１３２人目の素数さん
2013/11/12(火) 00:30:43.010040１３２人目の素数さん
2013/11/12(火) 08:17:12.09R Cookbook （邦訳あり）で忘れたことを参照したり、
R Graphics Cookbook でグラフの書き方を学んだら？
あとは、reshape や plyr の使い方を作者の論文で勉強しておくと便利
0041１３２人目の素数さん
2013/11/12(火) 09:08:54.40> R in Action
おぉ、これは初めて知った。
講義に使えそう。
0042１３２人目の素数さん
2013/11/13(水) 21:18:08.570043１３２人目の素数さん
2013/11/13(水) 23:09:37.07par(mfrow=c(5,5))
0044１３２人目の素数さん
2013/11/14(木) 00:27:16.43plot(〜〜)を何度もする場合は確かにそれでなりますが、今は一回のplot（〜〜）で
「クリックまたはENTERキーを押すと次のページに移ります」って出て
エンターを押すたびに次のグラフがプロットされるようなものなので出来ません。
0045１３２人目の素数さん
2013/11/14(木) 06:22:47.170046１３２人目の素数さん
2013/11/14(木) 09:56:30.46ask=TRUEになっていても、mfrow=c(1,1)でなければ、
一度に描画されると思うが。
>>44は何か勘違いをしていないか。
具体的に再現できるコードを示して。
0047１３２人目の素数さん
2013/11/14(木) 10:20:09.41library(vars)
data(Canada)
plot(VAR(Canada))
などです。
0048１３２人目の素数さん
2013/11/14(木) 10:40:11.97どんだけ特殊なケースを持ち出すんだよ。
plot.varest()って、ここまで変態な関数にはびっくりだ。
vars:::plot.varest を見たら分かると思うけど、layout()を使っている時点で、
mfrowで制御できないし、
if (nv > 1)
par(ask = TRUE)
ってハードコーディングされているから、関数のオプションでどうにかなるものでもない。
結論は、あきらめろ。
0049１３２人目の素数さん
2013/11/14(木) 12:26:28.31なるほど
難しいことはわかりませんがどうにもならないということだけはわかりました
別々に保存して並べて貼るぐらいで我慢します
ありがとうございます
0050１３２人目の素数さん
2013/11/14(木) 12:38:30.96厳密に言うと、どうにもならないこともないんだけど、
必要な労力は、その目的にペイしないと思う。
pdf(file="hoge.pdf")
plot(VAR(Canada))
dev.off()
ってして、3ページになっているhoge.pdfをぐりぐりスクロールして見るのはだめなの？
3つをきちんと並べて1枚の図にしなくてはいけないの？
0051１３２人目の素数さん
2013/11/14(木) 23:29:34.23一つの場合はカンマを取って変換を行えば良いとわかるのですが、
文字列の数が２００あるのといくつかの文字列の小数点の位置が僅かに異なるため、効率よく行う方法が知りたいです。
0052１３２人目の素数さん
2013/11/14(木) 23:56:07.42それ専用の関数を見たことがあるが、どのパッケージだったか覚えていない。
5000パッケージなんて数が増えすぎ。
まぁ、普通に置換すれば良いと思うが。
> a <- "123,456,789.123"
> options(digits = 15)
> as.numeric(gsub(',','',a))
[1] 123456789.123
0053１３２人目の素数さん
2013/11/15(金) 00:04:31.57先回りするが、文字列の数がいくつあろうが、
小数点の位置が異なろうが、>>52の提案はそのまま通用する。
> A <- rep(a, 10)
> A[5] <- paste0(A[5], "4")
> A[6] <- "9.1"
> A
[1] "123,456,789.123" "123,456,789.123" "123,456,789.123" "123,456,789.123"
[5] "123,456,789.1234" "9.1" "123,456,789.123" "123,456,789.123"
[9] "123,456,789.123" "123,456,789.123"
> as.numeric(gsub(",","",A))
[1] 123456789.1230 123456789.1230 123456789.1230 123456789.1230 123456789.1234
[6] 9.1000 123456789.1230 123456789.1230 123456789.1230 123456789.1230
0054１３２人目の素数さん
2013/11/15(金) 00:54:39.62あぁこれは確かに楽でなかなかいい感じだなー
管理するにしてもこっちの方がよさそう
0055１３２人目の素数さん
2013/11/15(金) 00:55:31.21ご丁寧にありがとうございます。
無事できました。
0056狸 ◆BvcplLXSGo
2013/11/15(金) 01:55:03.29○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●
●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○
○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●
●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○
○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●
●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○
○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●
●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○
○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●
●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○
○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●
●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○●○
0057１３２人目の素数さん
2013/11/18(月) 05:16:45.180058１３２人目の素数さん
2013/11/18(月) 14:19:17.46そんな小中学生みたいな反応は好きにすればよいが、
REXPじゃなくて何でSEXPなんだろうかと疑問に思ったまま幾数年。
0059１３２人目の素数さん
2013/11/19(火) 23:40:18.38難易度は高いですか？というかできますか？
0060１３２人目の素数さん
2013/11/20(水) 01:21:25.57出来ます。
難易度は人によりますが、
そのような質問をする人には無理だと思います。
0061１３２人目の素数さん
2013/11/20(水) 12:44:19.25ありがとう。できることがわかれば、時間をかければなんとか、、。
0062１３２人目の素数さん
2013/11/20(水) 14:01:24.55やる気があるなら、ヒントを追加。
読むべきドキュメント： ttp://cran.r-project.org/doc/manuals/R-exts.html
手順としては、そのDLLとRを仲介するインターフェイスをCで書く。
その際、>>57 の型を使う。
たぶん、20-50行程度ですむような気がする。
MinGWを含むRtoolsをインストールして、書いたCソースをコンパイル。
Rから、インターフェイスをロードして、使えるかどうかチェック。
デバッグしながら、Cソースを直して、再度チェック、その繰り返し。
0063１３２人目の素数さん
2013/11/20(水) 23:38:43.40tmp <- sample(1:150, 100)
のtmpって何を表してるんですか？
参考書のどこにも説明がなくて困ってます
0064１３２人目の素数さん
2013/11/21(木) 10:16:15.79何を表しているのかという問いに対する答えはRオブジェクトです。
tmpという文字列はRオブジェクトにつける名前で、
ユーザが任意に決めます。
0065１３２人目の素数さん
2013/11/21(木) 23:52:37.83ヒントありがとうございました。MinGWですか、、VC++で無理目だったらMinGWでアタックしてみます。
時間はあるんで、いろいろ勉強していきます。
0066１３２人目の素数さん
2013/11/26(火) 21:31:29.060067１３２人目の素数さん
2013/12/10(火) 07:27:48.64result <- lm(Sepal.Length ~ ., data=iris)
とでもして、result$coefficientsを取り出したいとき、
result$coe
でも出ちゃうんですが、この補完機能（？）は切れないのでしょうか？
ちょっとスペルが足りなくてもエラーがでないのでいつか問題が起きそうな気が
してしまうのですが、それとも心配しすぎでしょうか
0068１３２人目の素数さん
2013/12/10(火) 09:41:58.44逆に、プログラムの内部で、
result$coefficientsの代わりにresult$coeとコーディングしているものがあれば、
プログラムが動かなくなるけど、そういう副作用はいいの？
一意の場合は省略可能というルールがある限り、そのルールでRが動いているのだから、
それでよいのでは？
0069１３２人目の素数さん
2013/12/11(水) 01:32:30.36http://readwrite.jp/archives/2534
0070１３２人目の素数さん
2013/12/11(水) 07:27:37.57http://blogs.computerworld.com/big-data/23204/python-really-supplanting-r-data-work
http://blog.revolutionanalytics.com/2013/12/r-and-python.html
0071１３２人目の素数さん
2013/12/11(水) 10:31:49.73クラスタリングベクトルを出した後、その結果を元のデータフレームに結合して
それをもとに条件抽出し該当データフレームを抽出したいのですが、クラスタリングベクトルの数値を条件にすることはできないのでしょうか
たとえば、
SEX HEIGHT WEIGHT
1 F 158 51
2 F 162 55
3 M 177 72
4 M 173 57
5 M 166 64
とあったとき
SEX HEIGHT WEIGHT CLUSTER
1 F 158 51 1
2 F 162 55 2
3 M 177 72 3
4 M 173 57 3
5 M 166 64 2
というように結合してCLUSTERの数値をもとに抽出を行いたいです
0072１３２人目の素数さん
2013/12/11(水) 11:19:27.24両方使ってるけどね
0073１３２人目の素数さん
2013/12/11(水) 16:01:23.35> (a <- data.frame(sex=factor(c("F","F","M","M","M")), height=c(158,162,177,173,166), weight=c(51,55,72,57,64)))
sex height weight
1 F 158 51
2 F 162 55
3 M 177 72
4 M 173 57
5 M 166 64
> a$sex <- as.numeric(a$sex)
> cl <- kmeans(as.matrix(a), 3)
> (b <- cbind(a, cluster=cl$cluster))
sex height weight cluster
1 1 158 51 1
2 1 162 55 1
3 2 177 72 2
4 2 173 57 3
5 2 166 64 3
3だけ抽出
> b[b$cluster == 3, ]
sex height weight cluster
4 2 173 57 3
5 2 166 64 3
こういうこと？ちなみに、cbind()で結合する必要はないよ。
0074１３２人目の素数さん
2013/12/14(土) 16:20:31.15整形はExcelでやって、統計解析だけRを使うのは異端なのか？
0075１３２人目の素数さん
2013/12/14(土) 16:28:21.090076１３２人目の素数さん
2013/12/14(土) 19:08:13.080077１３２人目の素数さん
2013/12/14(土) 21:05:34.56そんなことはないし、Excelでも何でも使えるなら使えば良いと思う。
でも、世の中のデータはそんな単純なデータばかりじゃない。
0078１３２人目の素数さん
2013/12/14(土) 23:12:19.65RExcelとか使うでしょ。
他にも
「RとRubyによるデータ解析入門」とか
「R&JavaScriptによるデータ解析と視覚化テクニック」
とか言う本が出ているくらいだから、お察し。
ただ、最近は、R使わずに全部Pythonでやっちゃえとかいう Python好きが居て、
それはそれでうっとおしい。
0079１３２人目の素数さん
2013/12/15(日) 00:21:48.74コマンド一つで処理できれば言語はどうでもいい。適当なのを使えばいいだけ。
0080１３２人目の素数さん
2013/12/15(日) 01:35:28.58俺のことか？
0081１３２人目の素数さん
2013/12/19(木) 15:45:13.08t.test()だと、T検定の平均値ほかいくつもの結果が表示される。
他のプログラムからRの計算結果(信頼区間の下限値)だけを取り出したいのだが。
良い方法ありますか？
0082１３２人目の素数さん
2013/12/19(木) 16:11:17.73よく分からないな。
信頼区間の下限値を取り出せばよいのでは？
例えば、t.test()はhtestクラスのlistを返す。そのlistにはconf.intという名前の要素があり、
それは数値ベクトル(要素数は2)だ。その1つめの要素が下限。
他のプログラムって何？javaやpythonなど専用のインファーフェイスがあるよ。
探してみれば？
パイプで渡したいなら、パイプで渡せば良い。
パイプで渡すならこんな感じ？
$ Rscript -e 't.test(1:100)$conf.int[1]' |sed 's/¥[.¥]//g'
44.74349
0083１３２人目の素数さん
2013/12/19(木) 18:57:49.90をつけて解決しました。
ありがとうございます。
他のプログラムというのは、CのDLLです。Rccpを利用するか悩みどころです。
0084１３２人目の素数さん
2013/12/19(木) 19:33:06.33それ、下限じゃなくて上限では？
> 他のプログラムというのは、CのDLLです。Rccpを利用するか悩みどころです。
またしても意味不明瞭。よく分からないな。
Rの中からCプログラムを呼び出すのか、Cプログラムの中でRを呼び出したいのか。
なぜ、exeじゃなくてdllと言うのか。「CのDLL」という表現ならWindows限定なのか。
Windows限定ならRと通信する方法がもっと別にあるのじゃないだろうか。
0085１３２人目の素数さん
2013/12/19(木) 23:40:49.36すいません。$conf.int[1]で下限ですね。
>またしても意味不明瞭。よく分からないな。
>Rの中からCプログラムを呼び出すのか、Cプログラムの中でRを呼び出したいのか。
Cプログラムの中でRを呼び出したいです。
これはきちんと説明せねば。少し長くなりますが、、
MT4という為替取引（いわゆるFX）を支援するアプリがあり、
このアプリには自由に取引のアルゴリズムを作れるよう独自のプログラム作成機能があります。
その言語がC言語に似たmqlと呼ばれるものです。
通常は、mqlファイルを専用のコンパイラでコンパイルしてMT4で実行します。
ただ、MT4で実行されるものはメモリや実行速度において弱い部分があり、
その為、MT4に利用できる.dllをC言語などで作成し、dll上でアルゴリズム計算をさせMT4に返す
という方法をとる人もいます。というか自分がそういう状態です。
MT4(mql) → my.dll
記述的にはmqlファイルにmy.dllをimportさせます。
このdllから、Rに対して統計的な計算をさせその結果を得たいと思案して先の質問となりました。
t.test()で表示される内容は解っていたのですが、そこから数値だけをどうすれば返すのか、わからなかったのです。
0086１３２人目の素数さん
2013/12/19(木) 23:42:24.49どうやら、Rcppを使えば良いかも？というレベルです。
ただし、MT4において、mt4R.dllというフリーのライブラリがあり、それを用いると
簡単な記述でMT4とRを連携させることができます。それは当方も確認済みです。
下のような流れです。
MT4(mql) → mt4R.dll → R
さて、自分は my.dllを作成していますが、mt4R.dllを利用してRを計算するには、
MT4(mql) → my.dll → MT4(mql) → mt4R.dll → R
という手順を踏まないといけません。MT4(mql) ⇔ my.dllとの配列の扱いも実は面倒な仕様があり、できれば
MT4(mql) → my.dll → R
のように直接my.dllからRを呼び出し計算させその答えが得たらいいなと思います。
とりあえず、t.test()から知りたい統計結果だけをとりだせたのでまずは一歩すすみました。
Rcppを持ちいるほかに良い方法があるようでしたら、教えてくだされば幸いです。
0087１３２人目の素数さん
2013/12/20(金) 00:14:58.570088１３２人目の素数さん
2013/12/20(金) 00:41:08.46このあたりを読むか、
RCOMのようなものを使うか
ttp://sunsite.univie.ac.at/rcom/
0089１３２人目の素数さん
2013/12/20(金) 11:49:32.67よく読んで参考にさせていただきます。
0090１３２人目の素数さん
2013/12/20(金) 17:05:17.550091１３２人目の素数さん
2013/12/20(金) 17:10:08.260092１３２人目の素数さん
2013/12/21(土) 10:17:02.43参考になる意見だな
0093１３２人目の素数さん
2013/12/22(日) 19:47:07.69http://d.hatena.ne.jp/yutakikuchi/20120730/1343605481
kabu_data_close = as.ts( scan( "/home/yuta/work/R/kabu/data/kabu_ar_training_close.txt" ) )
ar_predict_result <- matrix()
arima_predict_result <- matrix()
j <- 1
for( i in 123:136) {
training_kabu_data <- kabu_data_close[1:i]
#ARModel
ar_data_close <- ar( training_kabu_data )
ar_predict_close <- predict( ar_data_close, n.ahead = 1 )
#ARIMAModel
arima_data_close <- arima( training_kabu_data, order=c(1,0,1) )
arima_predict_close <- predict( arima_data_close, n.ahead = i )
ar_predict_result[j] <- ar_predict_close$pred[1]
arima_predict_result[j] <- arima_predict_close$pred[1]
j <- j+1
}
scanでよみこんだtxtはデータの数が１２３こあります。なのにfor文は123：136で
<- kabu_data_close[1:i]となっています。123以降はkabu_data_closeには入ってないのではないのでしょうか？？
というか違うデータでですがError in na.fail.default(as.ts(x)) : missing values in object
とでます
0094１３２人目の素数さん
2013/12/22(日) 21:29:08.90エスパー募集ですか？
さすがに、kabu_data_closeの構造を秘密にされたら答えようがない。
str()ぐらい示そうよ
ちなみに、
> hoge <- as.ts(1:100)
> str(hoge)
Time-Series [1:100] from 1 to 100: 1 2 3 4 5 6 7 8 9 10 ...
> hoge[101:110]
[1] NA NA NA NA NA NA NA NA NA NA
という仕様。
0095１３２人目の素数さん
2013/12/22(日) 23:07:53.72返信ありがとうございます。
>>93のkabu_data_closeとは違いますが
> kabu_data_close = as.ts( scan( "C:/Users/root/Documents/kabu_ar_training_close.txt" ) )
Read 120 items
> ar_predict_result <- matrix()
> arima_predict_result <- matrix()
> j <- 1
> for( i in 120:133) {
+
+ training_kabu_data <- kabu_data_close[1:i]
以下同文
で
Error in na.fail.default(as.ts(x)) : missing values in object
> str(kabu_data_close)
Time-Series [1:120] from 1 to 120: 10688 10599 10508 10579 10653 ...
とでます
0096９３
2013/12/23(月) 00:09:31.23したいことは一回一回学習して予測することです。
+ j <- j+1
kabu_data_close[i+1]<-ar_predict_result[j]
}
を加えてみましたが
Error in `[<-.ts`(`*tmp*`, i, value = NA_real_) :
only replacement of elements is allowed
とでます。
0097９３
2013/12/23(月) 01:17:20.89サイトのコメント欄に同じ質問がありました。。。
0098１３２人目の素数さん
2013/12/23(月) 07:48:48.61そういうときは、どういう風に解決したかをまとめて、ここにも貼るものでしょ！
0099１３２人目の素数さん
2013/12/23(月) 08:53:02.60株価予測は株価だけしか使わないのが当たり前になってるのが不思議。
0100９３
2013/12/23(月) 09:00:50.98普通にfor文の136までのデータを使ってるようでした；；
技術的な問題じゃないので申し訳ないのですが
予測するデータは2012年7月以降、学習データは2012-01-04〜予測の前日
このサイトの流れから予測の前日というのが７月の前日まで
と勘違いしていました。；
0101１３２人目の素数さん
2013/12/23(月) 09:37:21.100102１３２人目の素数さん
2013/12/23(月) 10:59:31.69scan()するデータがそもそも間違っていたのに、
思い込みが原因で混乱していましたってことだろ（違うかもしれんが）。
最小のサンプルデータも提示せず、まさしく「エスパー募集」だったてことだ。
0103１３２人目の素数さん
2013/12/23(月) 12:14:20.03non-stationary AR part from CSS
In addition: Warning messages:
1: In arima(training_kabu_data, order = c(1, 0, 1)) :
possible convergence problem: optim gave code = 1
2: In arima(training_kabu_data, order = c(1, 0, 1)) :
possible convergence problem: optim gave code = 1
3: In arima(training_kabu_data, order = c(1, 0, 1)) :
possible convergence problem: optim gave code = 1
すみません。このエラーってどうゆう意味でしょうか；；
0104１３２人目の素数さん
2014/01/07(火) 14:10:27.54Rを用いて、パネル分析を行ったのですが、
「 以下にエラー swar(object, data, effect) :
the estimated variance of the individual effect is negative」
というエラーが出てきます。
どのような対処を行えば、エラーを解消することが可能でしょうか。
0105１３２人目の素数さん
2014/01/07(火) 14:47:31.73エスパー募集ですか？
負の分散が生じるということはデータに問題があり、解決策はない気がしますが、
あなたが書いた式にケアレスミスがあることが原因である場合は、
エスパーでもない限り、読み手には分かりません。
再現できる最小のサンプルデータセットと、サンプルコードを示せば、
誰かがあなたの間違いを指摘してくれるかも知れません。
まずは、データを半分、そのまた半分と削って、エラーの再現を確認してはどうですか。
0106１３２人目の素数さん
2014/01/11(土) 13:25:36.74何がおきているのでしょうか・・・
During startup - Warning messages:
1: Setting LC_CTYPE failed, using "C"
2: Setting LC_COLLATE failed, using "C"
3: Setting LC_TIME failed, using "C"
4: Setting LC_MESSAGES failed, using "C"
5: Setting LC_MONETARY failed, using "C"
[R.app GUI 1.62 (6558) x86_64-apple-darwin10.8.0]
WARNING: You're using a non-UTF8 locale, therefore only ASCII characters will work.
Please read R for Mac OS X FAQ (see Help) section 9 and adjust your system preferences accordingly.
[Workspace restored from /Users/ユーザ名/Documents/R/R_Working/.RData]
[History restored from /Users/ユーザ名/Documents/R/R_Working/.Rapp.history]
2014-01-11 13:20:07.129 R[1292:707] Can't open input server /Users/ユーザ名/Library/InputManagers/SafariStand5.1.182
0107１３２人目の素数さん
2014/01/11(土) 13:39:16.700108１３２人目の素数さん
2014/01/11(土) 13:55:39.23意味も何も、読んだそのままの意味だと思うけど。
ローケルがCなら、日本語を使っちゃダメだよ。
ターミナルでRと打ち込んでRを起動させたら何か変化がある？
0109106
2014/01/11(土) 14:30:33.12言語の問題だったですか・・・
最近、Macの言語環境を英語⇔日本語で何回か切り替えたのですがそれがいけなかったんでしょうか（ふだんは英語環境）
とりあえずあとでlocaleというのの設定をやってみます（localeという言葉をそもそも知らず、localかと思いました）
ターミナルから起動したら、とくに警告は表示されなかったです
0110１３２人目の素数さん
2014/01/12(日) 12:58:03.91[2]8 9 10
を
1
2
3
4
5
6
7
8
9
10
と表示させるにはどうせたらよいでしょうか
0111110
2014/01/12(日) 13:58:14.100112１３２人目の素数さん
2014/01/12(日) 14:05:21.37> a<-1:7
> b<-8:10
> c<-c(a,b)
> c.df<-as.data.frame(c)
> c.df
一応どうやって解決したかも書いてほしいな
0113１３２人目の素数さん
2014/01/12(日) 19:39:44.30ans2<-stepAIC(ans)
(略)
Step: AIC=6680.92
ans3<-lm(ch2~.,data)
ans4<-stepAIC(ans3)
（略）
Step: AIC=6260.8
：
（略）
：
ans47<-lm(ch24~.,data)
ans48<-stepAIC(47)
（略）
Step: AIC=8953.5
この出力されたAICの値（計24個）の値を比較して一番値が低いAICを表示したいです。
できる人いましたらやり方教えて下さい。
0114１３２人目の素数さん
2014/01/12(日) 21:27:42.56たとえば列が１月、２月、３月、、、ってなってて最後に年間計の列をつくりたいとか。
列を１個1個ベクトルで取り出して合計してからデータフレームに入れないとダメ？
0115１３２人目の素数さん
2014/01/12(日) 21:53:48.360116１３２人目の素数さん
2014/01/12(日) 22:09:11.87Rで統計計算ができるよお。だけじゃなくて、どうやってデータを揃えるかとかが大事になってくるなあ。
0117１３２人目の素数さん
2014/01/13(月) 00:19:12.09ありがとうございます。
そうでした、applyだった・・・
R-Tipsを読み直しました。
>>116
初心者なんですが、基本の操作を早く覚えたいです・・・
0118１３２人目の素数さん
2014/01/13(月) 11:04:58.62たとえば、"V1"という名称のベクトルから"V100"という名称のベクトルを、何らかの規則（たとえば1〜99までの奇数の列を1倍したベクトル、2倍したベクトル、3倍したベクトル……など）
ようは、規則にしたがって名前をたくさんつけるという操作が可能なのかどうかを知りたいです
0119１３２人目の素数さん
2014/01/13(月) 11:05:58.75列名称やベクトルの名称などの、数字ではない情報を、for文などによって繰り返しで大量に生成することってできますでしょうか？
たとえば、"V1"という名称のベクトルから"V100"という名称のベクトルを、何らかの規則（たとえば1〜99までの奇数の列を1倍したベクトル、2倍したベクトル、3倍したベクトル……など） に従って生成したい場合などです
ようは、規則にしたがって名前をたくさんつけるという操作が可能なのかどうかを知りたいです
0120１３２人目の素数さん
2014/01/13(月) 11:50:16.180121１３２人目の素数さん
2014/01/13(月) 16:12:10.530122１３２人目の素数さん
2014/01/13(月) 21:38:05.76ありがとうございます
0123１３２人目の素数さん
2014/01/15(水) 03:09:36.46ifの癖で間違っちゃうのだが。
0124１３２人目の素数さん
2014/01/15(水) 03:10:17.660125１３２人目の素数さん
2014/01/15(水) 13:59:16.86A B
10 0.6
20 1.7
30 6.9
2.5 0.3
15 5.7
30 6.9
11 0.1
38 3.2
45 4.8
70 6.8
というようなデータフレームがあるのですが
Bは0<B<7の範囲をとる数字になっていていくつもの昇順データの連結物になっています
これをBの値が大きいものから小さいものに変わったときで切ってデータフレームを新しく切り出したいのですがどうしたらいいでしょうか
0126１３２人目の素数さん
2014/01/15(水) 20:22:02.46traceの最後に出てくるAICはextractAIC()で取出せるから、
ans2, ans4, ..., ans48をリストにして、
sapply(selectedModelList, extractAIC)して、sort()
>>125
グループ化すれば
grp <- 1
for(i in 2:nrow(data)-1){
if(data$B[i] < data$B[i+1]) grp <- c(grp, grp[i])
else grp <- c(grp, grp[i]+1)
}
0127１３２人目の素数さん
2014/01/15(水) 21:33:41.22因子パタンだけを
write.csv(分析結果$loadings, "分析結果.csv", quote=F)
とかやることはできるのですが、一式全部出力できないもんかと……
0128１３２人目の素数さん
2014/01/17(金) 01:55:48.440129１３２人目の素数さん
2014/01/17(金) 10:39:00.75>一式全部
多義的な表現なので、全部とは具体的にどのことかきちんと説明しないと、
期待する助言は得られないよ。Rオブジェクトとそのものなのか、
printメソッドなのか、summaryメソッドなのか、strか？
0130１３２人目の素数さん
2014/01/17(金) 10:45:33.92ずばっとやる方法は思いつかないなぁ。
B[i] > B[i+1]が成立したときのiを取り出して、
そこで切るとか。
0132１３２人目の素数さん
2014/01/17(金) 18:02:57.01for文じゃなくてベクトルで一括処理するなら、
grp <- cumsum(c(F, diff(data$B)<0)) かな。
0133１３２人目の素数さん
2014/01/17(金) 20:05:05.18オォそれはスッキリ。皆よくヌルっとそういうのが出てくるね
0134１３２人目の素数さん
2014/01/17(金) 20:16:05.94すげー、天才だ！
こんなのが思いつくなって人間じゃない、イカれている
0135１３２人目の素数さん
2014/01/18(土) 17:02:01.35分析ごとにワーキングディレクトリをかえようと思っている場合、.Rprofileをコピーしてそれぞれのディレクトリにいれて、setwd()すればいいだけでしょうか？
Rを立ち上げているとき、どの.Rprofileが読み込まれて作動しているのか確認する方法が分からず・・・
どなたかアドバイスおねがいします
0136１３２人目の素数さん
2014/01/18(土) 17:45:25.40> どの.Rprofileが読み込まれて作動しているのか確認する方法
$ cat .Rprofile
Rprofile.version <- "1.0"
として、Rを起動してみると、
> ls()
[1] "Rprofile.version"
と.Rprofileが読み込まれている。
中身はもちろん
> Rprofile.version
[1] "1.0"
となる。つまり、識別のためのRオブジェクトを個別に.Rprofileに書いておけば、
区別はつく。
0137１３２人目の素数さん
2014/01/18(土) 17:57:56.34> .Rprofileって、ワーキングディレクトリに置いておけばいい
はい。ただし、起動時のカレントディレクトリとワーキングディレクトリが異なる場合は駄目。
?Rprofile
?Rprof
あたりは読もう。
0138１３２人目の素数さん
2014/01/18(土) 18:24:59.19なるほどたしかに！
ありがとうございます。
.Profileの置き場は、起動時の初期ワーキングディレクトリにおいてあるものが読み込まれるみたいなので、
preference > start upの画面で設定したディレクトリに置いとくしかないことも分かりました。
0139１３２人目の素数さん
2014/01/18(土) 18:26:04.88ありがとうございます
勉強します
0140１３２人目の素数さん
2014/01/18(土) 19:53:17.68Rを起動する流儀はひとそれぞれだけど、
csvファイルなどデータをおいたワーキングディレクトリに移動して、
csvファイルの中身や、その他のファイルの確認をしてから、
そこで（そのディレクトリで）Rを起動すると、
起動時のカレントディレクトリとワーキングディレクトリは同一になる。
つまり、ワーキングディレクトリに移動してからRを起動した方がいろいろと都合がよいし、
私はRを使い始めて10年来、このようにRを起動している。
どのディレクトリでRを起動しても、あなたの自由だよ。
0141１３２人目の素数さん
2014/01/18(土) 19:56:04.16ワーキングディレクトリに移動してからRを起動すると、
そのときにワーキングディレクトリに置かれた.Rprofileを読み込む。
だから、それぞれのワーキングディレクトリにそれぞれの.Rprofileを置くのは正解。
0142１３２人目の素数さん
2014/01/18(土) 23:17:37.61Rでは推測統計などで利用をしていましたが。プログラム的なものを作りたいと思うのですがちょっと歯が立たないです。
きっかかりを付けたいと思います。以下のような内容をスクリプトで書くと、どうなるかご提示いただけますでしょうか。
5*10の行列（一般的な意味）を用意して、これを"matA"とします。
//2行4列の場所をmatA[2][4]とします。
rowA = 3 colA = 5 coubA = 0.3 をmatAに入力します。
//上の式の意味はmatA[3][5]に0.3を配置します。という意味です。
以下同じように
rowA = 2 colA = 7 coubA = -0.3 をmatAに入力します。
rowA = 1 colA = 4 coubA = 0 をmatAに入力します。
rowA = 3 colA = 5 coubA = 0.4 をmatAに追加します。※
rowA = 1 colA = 4 coubA = 0.3 をmatAに追加します。※
//追加されたデータは元のデータ上に重ねていく3次元のイメージです。追加されるデータは、今後も増えていきます。
matA[2][7]を参照する。→ (-0.3) が返ってくる。(-0.3 0) が返ってくるのはNG
matA[3][5]を参照する。→ (0.3 0.4) が返ってくる。
matA[1][2]を参照する。→ 何も返さないか。(NA)が返ってくる。(0)や(0 0)が返ってくるのはNG
以上、お時間のある方、ぜひご教授くださいませ。
0143１３２人目の素数さん
2014/01/19(日) 01:07:18.05ありがとうございます
移動ってのは、ターミナルで操作されてるということでしょうか
0144１３２人目の素数さん
2014/01/19(日) 01:34:21.33arrayを使うのはどう？
簡単のために、重ねの最大が2つまでとして、
> matA <- array(NA, c(5, 10, 2))
> matA[3, 5, 1] <- 0.3; matA[2, 7, 1] <- -0.3; matA[1, 4, 1] <- 0;
> matA[3, 5, 2] <- 0.4; matA[1, 4, 2] <- 0.3
> matA[2, 7, ]
[1] -0.3 NA
> matA[3, 5, ]
[1] 0.3 0.4
> matA[1, 2, ]
[1] NA NA
NAがいやなら、na.exclude()でも使えばいい。
matA[3, 5, i]がNAでないなら、matA[3, 5, i + 1]に代入するような条件分岐で一般化すればいい。
別アプローチとしては、要素がlistの行列を作るという手もある。
0145１３２人目の素数さん
2014/01/19(日) 10:01:05.38matA<-matrix(NA,nrow=5,ncol=10)
じゃあダメなの？
0146１３２人目の素数さん
2014/01/19(日) 11:02:43.98>>145さん。matrix 使うべきなのか array を使うべきなのか list なのか。
まだよく分かっていないのが正直なところです。
>>144さん スクリプト作成。ありがとうございます。
リストを使うのは難しくなりますでしょうか？
イメージとしては5*10の行列の碁盤の上に、個々のベクトルが上に育っていくような。
わかりずらいですね、、。
追加されていく要素は、今後も増えていく予定です。
重ねの数を初期値で決めずに、追加される要素によって個々に増えていくという設定は難しい
でしょうか。
0147１３２人目の素数さん
2014/01/19(日) 14:17:08.53リストがお好みなら
> dat <- data.frame(rowA=c(3, 2, 1, 3, 1), colA=c(5, 7, 4, 5, 4), coubA=c(0.3, -0.3, 0, 0.4, 0.3)) #1
> dat2 <- dat[dat$coubA!=0] #2
> matA <- lapply(1:5, function(i) lapply(1:10, function(j) NULL))
> for(i in 1:nrow(dat2)) {
+ v <- dat2[i,]
+ matA[[v$rowA]][[v$colA]] <- c(matA[[v$rowA]][[v$colA]], v$coubA)
+ }
> matA[[2]][[7]]
[1] -0.3
> matA[[3]][[5]]
[1] 0.3 0.4
> matA[[1]][[2]]
NULL
#1 データはデータフレームが分かり易いかと思ってそうしたけど、ベクタでもマトリクスでも
#2 先にcoubA==0を除いたけど後から条件分岐でも良い。
#3 どうも俺が書くと美しくない...( ´･ω･`)
0148１３２人目の素数さん
2014/01/19(日) 16:01:58.81ダメに決まってるじゃん。
質問者の要件を良く読めよ。
146 > 重ねの数を初期値で決めずに、追加される要素によって個々に増えていくという設定
どうしても初期値があるとダメなら、
144 > 要素がlistの行列を作るという手
なんだけど（または >>147さんの方法）、
10000とか10000000000000000とか十分に大きな値を初期値に出来ないの？
>>143
はいそうです。実際には、Emacsの中でＲを起動する訳だけど、
ターミナルというか、シェルから起動するのと概念的に同じです。
ソフトウェアの起動には2つに大別できて、
(1) ランチャーメニューから起動→ファイルを読み込む
(2) ファイルのあるディレクトリまで移動してファイルを開く=ソフトを起動する
あなたは(1)の方法でRを起動し、私は(2)の方法で起動するという違い。
(2)の場合は、シェルの中で移動するわけだけど、
OS XやLinuxのシェルはbashだったり、WindowsのシェルだとExplorerだったり。
bashを使うにはターミナルが必要。
0149１３２人目の素数さん
2014/01/19(日) 20:40:17.23ありがとうございます。いただいたスクリプトを吟味させていただきます。
これだけ作っていただけたら、リファレンス本を元に解読して理解できるようになると思います。
ついで、、読み飛ばしてかまいません。
自分の環境では以下の行で
dat2 <- dat[dat$coubA!=0]
次のエラーが発生してそれ以降の行で実行不可になってしまったのですが、
underfined colums selected
何かの理由があるか、自分の基本的なところの無知なんでしょうね。
>>148
フォローありがとうございます。
>10000とか10000000000000000とか十分に大きな値を初期値に出来ないの？
最終的には、10000件もの行列の要素の上にデータを重ねようと思っています。
Rがどのようにメモリを扱っているかわかりませんが、初期値によってメモリを確保する
のであれば避けておきたいと思っています。
0150１３２人目の素数さん
2014/01/19(日) 21:25:30.81すんません。コピペの後ごにょごにょしてたらカンマを落としたようです。
dat2 <- dat[dat$coubA!=0,]
0151１３２人目の素数さん
2014/01/19(日) 21:49:59.450152１３２人目の素数さん
2014/01/22(水) 01:01:42.23ありがとうございます。
いろいろ検証させていただいています。
もう完璧ですね。Rに慣れていないから、と思っていたけど。
Rに慣れてもこのようなコード書けるかは自信がありません。
でもありがとうございました。
0153１３２人目の素数さん
2014/01/22(水) 23:50:01.230154１３２人目の素数さん
2014/01/23(木) 18:55:29.92http://journal.r-project.org/index.html
こんなんあったんですね
0155１３２人目の素数さん
2014/01/23(木) 19:52:35.00以前に、R NewsからJournalに昇格した。
0156１３２人目の素数さん
2014/01/23(木) 21:36:08.80scores <- data.frame()
scores <- edit(scores)
で、いきなりR落ちた。
0157１３２人目の素数さん
2014/01/23(木) 23:55:51.45あるアプリから、この文をRに渡したいのですが。1構文1行じゃないといけないらしくて。
単純に改行を削るだけではRでエラーを返してしまいます。
> for(i in 1:nrow(dat2)) {
+ v <- dat2[i,]
+ matA[[v$rowA]][[v$colA]] <- c(matA[[v$rowA]][[v$colA]], v$coubA)
+ }
0158１３２人目の素数さん
2014/01/24(金) 00:11:54.52よく分からないけど、1行なら
for(i in 1:nrow(dat2)){v <- dat2[i,]; matA[[v$rowA]][[v$colA]] <- c(matA[[v$rowA]][[v$colA]], v$coubA)}
だけど
0159１３２人目の素数さん
2014/01/24(金) 01:15:10.35セミコロンが構文の区切りなのですね。
うまく動きました。ありがとうございました。
0160１３２人目の素数さん
2014/01/24(金) 10:11:36.08まじで入門書を一度通読した方がよいと思う。
0161１３２人目の素数さん
2014/01/25(土) 00:04:22.240162１３２人目の素数さん
2014/01/25(土) 06:39:47.14そんなオナニー質問で、本気で助言をもらえると思ってるの？
0163１３２人目の素数さん
2014/01/25(土) 14:55:11.730164１３２人目の素数さん
2014/01/25(土) 15:34:42.28>>161本人か？
本人なら、分かるように質問し直せよ。
それとも、あんたは、
1. 先日拾った木材から寝室で使うような家具を作成する方法はありますか？
2. 朝摘みした野菜から夕食に出せるような食事を作成する方法はありますか？
3. 数字を使って数学のテストに出題するような問題を作成する方法ありますか？
という質問に対して、質問者が期待する回答を与えられるのか？
0165１３２人目の素数さん
2014/01/25(土) 16:42:32.84お前は単に偉そうに説教したいだけだろ
２ちゃんでやっすい承認要求みたしておめでたい奴だなw
0166１３２人目の素数さん
2014/01/25(土) 17:11:47.96説明したいやつが説明するだろうし
0167１３２人目の素数さん
2014/01/25(土) 17:31:43.37はぁ？じゃあ、あなたは何故>>161 に答えてあげないのですか？
オナニー質問には答えようがないからでしょう？違いますか？
違うなら、あなたが助言してあげて下さい。
自分しか理解できないオナニー質問をするかしないかは、
質問者が初心者かどうかとは独立です。
0168161
2014/01/25(土) 22:30:46.52その後Titanicのデータとepitoolsでなんとか理解することが出来ました．
カウントデータにNA が含まれていたため，分割表から個体ベースのデータフレームに出来ないことが判明しました．．
お騒がせして申し訳ありませんでした
0169１３２人目の素数さん
2014/01/25(土) 23:26:11.74>>163が>>161じゃなかったのなら非言申し訳ない。>>165が助言する様子はないので簡単に。
Rのglm()で指定するデータフレームは、必ずしも行が症例（個人）になっている必要はない。
条件ごとにカウントしたデータフレーム（たぶん、あなたが言う分割表）のデータフレームを用いる。
例えば、
> d <- data.frame(gender=rep(c("Male","Female"),c(6,6)),
+ dept=rep(LETTERS[1:6],2),
+ yes=c(512,353,120,138,53,22,89,17,202,131,94,24),
+ no=c(313,207,205,279,138,351,19,8,391,244,299,317))
> d
gender dept yes no
1 Male A 512 313
2 Male B 353 207
[snip]
11 Female E 94 299
12 Female F 24 317
という集計したデータフレームがあったとして、ロジスティックモデルを当てはめるには
下記のようにすればOK
> m <- glm(cbind(yes,no) ~ gender * dept, family = binomial(logit), data = d)
したがって、実験研究でよくあるカテゴリカルの場合は「個体ベースのデータフレーム」を用意する必要はない。
0170１３２人目の素数さん
2014/01/26(日) 00:26:27.29お勧めありますか。SQLiteを使っている人が多い気がしますが。
0171１３２人目の素数さん
2014/01/26(日) 12:34:15.85http://twicsy.com/i/gKwsMe
0172１３２人目の素数さん
2014/01/26(日) 21:49:02.61要するに、ほとんど運だということなのかね？
0173１３２人目の素数さん
2014/01/27(月) 22:44:56.77matB <- array(dim=c(5,10,2))
matB[3,5,1]<-0.3
matB[2,7,1]<--0.3
matB[1,4,1]<-0
matB[5,4,2]<-2.5
//という3次元の配列があるとします。
//数値要素以外はNAです。
//ここから3次元目の1つ目の表の最大値を取り出したいです。
//期待する値は0.3となります。
//apply(na.omit(matB),3,max)[1]など、いろいろ考えてみましたが
//違うようです。
//どのように表記すればよいか教えてください。
0174１３２人目の素数さん
2014/01/28(火) 00:39:30.32> max(matB[,,1], na.rm=TRUE)
[1] 0.3
0175１３２人目の素数さん
2014/01/28(火) 01:18:02.61ありがとうございました。
0176１３２人目の素数さん
2014/01/28(火) 10:13:11.86まぁ、これは初心者がはまりやすいポイントだからね。
> max(c(3, NA, 3, 3, 3))
[1] NA
> max(c(3, NA, 3, 3, 3), na.rm = TRUE)
[1] 3
0177１３２人目の素数さん
2014/01/28(火) 18:02:47.69//>すいません、また質問させてください。
matB <- array(dim=c(5,10,2))
matB[3,5,1]<-0.1
matB[2,7,1]<-0.3
matB[1,4,1]<-0.3
//上のような3次元の配列があります。3次元目の一つ目の表には値が含まれていますが、
//二つ目の表は値が含まれておりません。
//3次元の各表に対して、値が入っているか値が入っていないかを知りたいと思います。
length(na.omit(matB[,,1]))
length(na.omit(matB[,,2]))
//では駄目でした。
//期待とする値は、入っているか入っていないかのブール値でも、
//入っている要素数の数（全部の要素がNAならば0）でも構いません。
//どうぞよろしくお願いします。
0178１３２人目の素数さん
2014/01/28(火) 18:30:56.14何か、このスレ、オレしか答えいない。
> for(i in seq_len(dim(matB)[3])){print(ifelse(sum(! is.na(matB[,,i])) == 0, "空でーす", "入っています"))}
[1] "入っています"
[1] "空でーす"
上記はmatB[,,1]は「入っています」、matB[,,2]は「空でーす」という意味。
forが嫌いなら、sapplyでも。
オナニー質問じゃない限りなるべく答えるけど、関数の意味は自分で調べてね。
0179１３２人目の素数さん
2014/01/28(火) 20:19:43.46同じ人でしたか。恐縮です。
もちろん関数の意味は、自分で調べます。
本当にありがとうございました。
0180１３２人目の素数さん
2014/01/30(木) 14:41:21.33matB <- array(dim=c(5,10,2))
matB[3,5,1]<-0.3
matB[2,7,1]<--0.3
matB[1,4,1]<-0
matB[5,4,2]<-2.5
maxvol<-max(matB[,,1], na.rm=TRUE)
maxvecB<-which(matB == maxvol)
lenrowB<-length(matB[,1,1])
if(maxvecB%%lenrowB==0){rowB <- lenrowB;colB <- maxvecB%/%lenrowB}else {rowB <- maxvecB%%lenrowB; colB <- maxvecB%/%lenrowB+1}
//上記は3次元の配列のうち3次元目の一枚目の表から、最大値を求め
//その要素の行値、列値を求めるスクリプトです。以下のように返ってきます。
> rowB
[1] 3
> colB
[1] 5
//わざわざ、maxvecBの要素番号を列の総数で割り、その剰余を利用して答えをだしています。
//たまたま、maxvecBの要素番号が列順に振られているのでうまくいきましたが、行順に振られていたら
//誤った値が返ってくるかと思います。
//もうすこし、シンプルな書き方があるような気がしてなりません。
//修正できるとこがありましたら教えていただきたいと思います。
//よろしくお願いします。
0181１３２人目の素数さん
2014/01/30(木) 15:30:36.11> シンプルな書き方
まぁ、そうだね。
> arrayInd(which.max(matB[,,1]), dim(matB))
[,1] [,2] [,3]
[1,] 3 5 1
とか。この位置の値を確認したければ、
> matB[arrayInd(which.max(matB[,,1]), dim(matB))]
[1] 0.3
関数の意味は自分で調べてね。
0182１３２人目の素数さん
2014/01/30(木) 17:38:18.56自分のが恥ずかしいぐらいシンプルです。
こうかけるようになれたらいいなあ。
ありがとうございました。
0183１３２人目の素数さん
2014/01/30(木) 17:47:03.200184１３２人目の素数さん
2014/01/31(金) 20:29:09.260185１３２人目の素数さん
2014/02/02(日) 21:38:49.85レポートもどきを作成して，同僚に渡すようにしてる．やってることの解説と
code blockを交互に書くことで，同僚の理解も容易になって喜んでるんだけど，
問題は，code blockの数だけReturnを押さないといけないこと．5個や10個の
code blockなら良いけど，100個以上になると指がつりそうになる．全部を一気
に実行する方法を誰か知ってますか？ スレ違いならゴメン．
0186sage
2014/02/02(日) 22:53:46.35knitrはemacsもサポートしてるみたいだけど
0187１３２人目の素数さん
2014/02/02(日) 23:02:48.810188１３２人目の素数さん
2014/02/03(月) 00:02:22.420189１３２人目の素数さん
2014/02/03(月) 18:19:44.13以下のデータを3Dプロットしようとする時、modernの値が3の場合赤、2の場合白、1の場合黄色とし、x軸はLの値、y軸はAの値、z軸はＢの値としたいです。
L Ａ Ｂ modern
1 48 54 32 3
2 21 32 15 2
3 87 2 78 2
4 45 102 12 3
5 54 91 31 2
6 7 21 81 3
7 87 64 12 1
0190１３２人目の素数さん
2014/02/03(月) 18:47:25.023次元プロット自体はできるよね。
色分けは、例えばscatterplot3d()を使うなら、colorに色名のベクタを与えればよいだけ。
> modern <- c(3, 2, 2 ,3, 2, 3, 1)
なら、
> cols <- c("yellow", "white", "red")
> cols[modern]
[1] "red" "white" "white" "red" "white" "red" "yellow"
とすれば、色名のベクタが出来る
0191１３２人目の素数さん
2014/02/03(月) 19:08:02.33ありがとうございます。
3次元プロットは出来ます。
それぞれのデータ数が130ほどあるのですがこれも同じような形で解くのがよろしいのでしょうか？
質問ばかりしてしまい申し訳ないです。
0192１３２人目の素数さん
2014/02/03(月) 19:16:26.15本当に助かりました!
0193１３２人目の素数さん
2014/02/03(月) 22:32:09.24自己レスです．ox-ravel.elというのを使えば，org-modeからknitrを使えるこ
とが分かった．ttps://github.com/chasberry/orgmode-accessories
こいつでorg-modeからRhtmlを作って，それをRstudioにcompileさせるという流
れだな．複数のcode blockも一気に処理できるようだし，二度手間だけど100回
以上Return押すよりはマシなので，この方式に乗換を試してみる．初めて
knitr使ったけど，綺麗なhtmlできるのな．Rstudioちょっと見なおした．
> 186
ポイント，さんきゅ
0194１３２人目の素数さん
2014/02/04(火) 00:04:08.660195１３２人目の素数さん
2014/02/05(水) 16:42:31.84Basis splineで描画したグラフの任意の数値のy軸を求めることはできませんか？(下記Basis splineのドキュメント)
ttp://stat.ethz.ch/R-manual/R-patched/library/splines/html/bs.html
通常のspline補間では下記のサイトのようにやればpredictでx軸の数を指定すれば取得できたのですが
ttp://d.hatena.ne.jp/hoxo_m/20110408/p1
Basis splineでの取得方法はないでしょうか
通常のspline補間のように指定したxの数を入力するとyを返してくれる方法が分かりません
0196１３２人目の素数さん
2014/02/05(水) 16:58:45.69お騒がせしました
0197１３２人目の素数さん
2014/02/05(水) 22:57:41.23環境はWindows7 32bitで、R3.0.1です。
RからC++のコードを呼びたいのですが、うまくいかないという話です。
C/C++コンパイラは、MinGW 4.8.1を入れて、RもMinGWも単体では問題無く動いています。
とりあえず、
--------------------
#include <vector>
extern "C" void test(double* a) {
std::vector<std::vector<double> > x(5);
}
--------------------
という何もしないファイルを、test.cppとして作って、Rcmd.exe SHLIB test.cppでコンパイルして、
さらに、Rから、
dyn.load("test.dll")
.C("test", arg1=as.double(c(1,2,3)))
dyn.unload("test.dll")
とかすると、問題無く実行できます。
(まあ何もしないですが。)
続きます。
0198197
2014/02/05(水) 22:58:34.64でも、上のtest.cppを
--------------------
#include <vector>
extern "C" void test(double* a) {
std::vector<std::vector<double> > x(5);
std::vector<double> y(5);
}
--------------------
と変えてコンパイルして、Rから
dyn.load("test.dll")
dyn.unload("test.dll")
と実行すると、dyn.unloadのところでR毎エラーで止まってしまいます。
エラーメッセージは
Microsoft Visual C++ Runtime Library
This application has requested the Runtime to terminate it in an
unusual way.
Please contact the application's support tem for more information.
となぜか英語で出てきます。
メモリ管理周りが怪しい気がしますが、そもそも.Cでコードを実行していなくて、dllを
ロードしてアンロードしただけでエラーが出るのもわかりません。
だれが原因がわかるかたいませんか?
0199１３２人目の素数さん
2014/02/06(木) 09:50:21.68C++を使ったことがないので、
あまり価値のない情報だと思うが、
R 3.0.2 on Ubuntu 13.10で追試したところ、
x(5)のみのソースも、y(5)の行を足したソースも、
どちらも、エラーなし。
> dyn.load("test.so")
> .C("test", arg1=as.double(c(1,2,3)))
$arg1
[1] 1 2 3
> dyn.unload("test.so")
>
0200１３２人目の素数さん
2014/02/06(木) 22:02:51.67「data」+通し番号で150個存在するデータフレームがあるのですが
データを整形加工していくうちにデータ長が0になってしまったデータフレームをデータ長が1以上残っているものでリネームして通し番号を詰めていきたいのですが
地道に調べてやっていくしかないでしょうか
具体的には
data002がnrow(data002)＝0の時、次にnrowでデータ長を調べて0じゃないものがdata003の時
nrow(data003)>0の時data002<-data003
data004とdata005のデータ長が0でdata006が0じゃないときはdata004<-data006といった具合に
のように代入して詰めたいです
0201１３２人目の素数さん
2014/02/07(金) 10:25:41.62自分なら次のようにします。
操作が面倒なので、150個のデータフレームを1つのリストオブジェクトにぶち込んで、
nrow()で判定して、削除。次に、連番を振りながら、個々のデータフレームを出力。
これで少なくとも見かけ上は「番号を詰めた」状態になります。
> a <- list(data002 = data.frame(x=1:10), data003 = data.frame(), data004 = data.frame(x=1:10))
簡単のために3つのデータフレームからなるリストで説明すると、
リストaの2番目の要素であるデータフレームの行が空になった状態。
> i <- sapply(a, function(x){nrow(x) != 0})
> a.truncated <- a[i]
これで、nrow()が0のデータフレームが削除されたリストができる。
Rでは、"["関数を積極的に利用した方が効率がよいと思う。
分かりやすいように2行に分けてたけど、
> a.truncated <- a[sapply(a, function(x){nrow(x) != 0})]
1行で十分。
リストから、個々のデータフレームに出力するにはassign()を使えばいい。
> for(i in seq_along(a.truncated)){assign(paste0("data", sprintf("%03d", i)), a.truncated[[i]])}
とすれば、data001, data002が出力される。
0202１３２人目の素数さん
2014/02/07(金) 11:52:16.93ありがとうございました！
0203１３２人目の素数さん
2014/02/09(日) 14:53:49.19「workspaceを保存しますか。」というウィンドウが表示されます。
「いいえ」と答えて、そのまま閉じる過程まで、
スクリプトで指示することができますか？
0204１３２人目の素数さん
2014/02/09(日) 15:54:09.96さすがにこれはヘルプ見ろと叱られても仕方がないレベルでは？
?q
0205１３２人目の素数さん
2014/02/09(日) 16:31:07.01モチ(マスター)ベーション
があがったよ
0206１３２人目の素数さん
2014/02/09(日) 18:02:24.94おめでとう*\(^o^)/*
Macは本物のUNIXマシンだから
数学やるには最適
頑張ってね
0207１３２人目の素数さん
2014/02/09(日) 18:04:33.540208１３２人目の素数さん
2014/02/09(日) 21:21:46.25UNIXの発展系Cが本物のプログラム言語だから
いろいろな意味で最適
ならわかるがw
0209１３２人目の素数さん
2014/02/10(月) 03:32:55.67パクリもののなんちゃってUNIX。
0210１３２人目の素数さん
2014/02/10(月) 04:10:41.30OSXは正式にUNIX 03の商標を取得しているホンモノだよ。
UnixライクなOSとは別次元。
UNIX 03で個人が気軽に使えノートも有るのはMacだけ
0211１３２人目の素数さん
2014/02/10(月) 04:51:59.73まさに詐欺師。
0212１３２人目の素数さん
2014/02/10(月) 17:06:47.170213１３２人目の素数さん
2014/02/10(月) 18:03:51.66a1_1<-lm(x1_1~.,data_1)
a1_3<-lm(x1_2~.,data_1)
a1_5<-lm(x1_3~.,data_1)
:
a1_43<-lm(x1_22~.,data_1)
a1_45<-lm(x1_23~.,data_1)
a1_47<-lm(x1_24~.,data_1)
a2_1<-lm(x2-1~.,data_2)
a2_3<-lm(x2-2~.,data_2)
a2_5<-lm(x2-3~.,data_2)
:
a2_43<-lm(x2-22~.,data_2)
a2_45<-lm(x2-23~.,data_2)
a2_47<-lm(x2-24~.,data_2)
:
a12_1<-lm(x12_1~.,data_12)
a12_3<-lm(x12_2~.,data_12)
a12_5<-lm(x12_3~.,data_12)
:
a12_43<-lm(x12_22~.,data_12)
a12_45<-lm(x12_23~.,data_12)
a12_47<-lm(x12_24~.,data_12)
このようにa12までを、くり返し文を使って短く表すことは出来ますか？
参考書を見てもわからなかったので、質問しました。
0214１３２人目の素数さん
2014/02/10(月) 18:57:31.58> くり返し文を使って短く表す
念のために確認しますが、「繰り返し文」は必須ですか？
繰り返し文を使わずに短くするのがルール違反なら、面倒くさいんだけど。。。
0215214
2014/02/10(月) 20:06:33.32説明を簡単にするために、デモデータをdata_1の分だけ作成。
data_2...data_12は今から説明するlapply()を入れ子にすればよい。
> data_1 <- data.frame(matrix(runif(100 * 47), 100))
> names(data_1) <- paste("x1", 1:47, sep = "_")
さて、先に式のリストを作成する。
> a <- sapply(paste0("x1_", 1:47, "~."), as.formula)
このaに対して、lmを実行すればよい。
> lapply(a, function(x){lm(x, data_1)})
ちなみに、multicoreパッケージを入れると、
> library(multicore)
> system.i lapply(a, function(x){lm(x, data_1)})
system.file system.time
> system.time(lapply(a, function(x){lm(x, data_1)}))
ユーザ システム 経過
0.398 0.001 0.399
> system.time(mclapply(a, function(x){lm(x, data_1)}))
ユーザ システム 経過
0.347 0.083 0.183
こんなに早くなる。
0216１３２人目の素数さん
2014/02/10(月) 20:09:54.63system.file system.time 」
↑ゴミが入ったorz
0217１３２人目の素数さん
2014/02/11(火) 00:00:16.50できました。ありがとうございました。
一括化とマルチコア化は勉強になりました。
0218１３２人目の素数さん
2014/02/11(火) 14:52:18.340219１３２人目の素数さん
2014/02/11(火) 22:58:26.310220１３２人目の素数さん
2014/02/11(火) 23:18:33.31じゃあ誰がUNIXの精神を引き継いでいるんだ？
アホはMacを使いこなせないだけ
ノータリンのミュージシャンでも
Macは使えるが、ちゃんとUNIXとして
使えば偽UNIX類とは別次元の完成度だな
0221１３２人目の素数さん
2014/02/12(水) 21:50:50.47マカーもずっとUnixの悪口言ってたのに
どの口でMacこそ本物のUNIXとか言ってるんだろう？
ほんとマカーは馬鹿だと思う。
0222１３２人目の素数さん
2014/02/13(木) 19:00:41.28thinkpad
apple Mac ritena Pro
いろいろ便利だな〜
0223１３２人目の素数さん
2014/02/14(金) 22:03:16.24http://anago.2ch.net/test/read.cgi/bizplus/1392377730/
Microsoftがとうとうきたかw
Power BI for Office 365でビッグデータ解析の民主化とはな
0224１３２人目の素数さん
2014/02/14(金) 23:39:53.270225１３２人目の素数さん
2014/02/16(日) 15:52:28.14scatterplot3dで図を作ったのですが動かせるようにしてくれと言われたので…
0226１３２人目の素数さん
2014/02/16(日) 16:55:53.07ホームページを参考にして
color = rep( grey( c( length(Modern ):1 ) / length( Modern ) ) )
として
plot3d(x=l,y=a,z=b,col=color,size=8)としたら濃淡表示にはできるのですがmodernの数字と濃淡が一致しないのです…。
番号が小さいほど黒くしたいです。
0227１３２人目の素数さん
2014/02/16(日) 18:34:48.02濃淡（明度）と彩度と色相は独立なので、いまいち意味が分からないが、
君の言う「濃淡」とは、グレー階調のこと？
それなら、
grey(Modern / max(Modern))
とか、
grey(1 - Modern / max(Modern))
じゃないの？番号が小さい方を濃くしたいなら、前者か。
> color = rep( grey( c( length(Modern ):1 ) / length( Modern ) ) )
意味不明。特にrep()。
c( length(Modern ):1 )はc()を使う必要なし、( length(Modern ):1 ) でOK
> Modern <- sample(3, 10000000, TRUE)
> system.time(c( length(Modern ):1 ))
ユーザ システム 経過
0.154 0.052 0.359
> system.time(( length(Modern ):1 ))
ユーザ システム 経過
0.020 0.001 0.022
c()で激遅になる。
0228１３２人目の素数さん
2014/02/16(日) 18:50:03.22Ｒ初心者で分厚い本とＨＰを参考にしながら只今奮闘中です＾＾；
右も左もわからない自分にとってここのサイトはとても助かります!!
0229１３２人目の素数さん
2014/02/16(日) 19:06:06.58グレー階調を行った場合一番高い数字は白になりますか？
0230１３２人目の素数さん
2014/02/16(日) 19:18:51.27> grey(1)
[1] "#FFFFFF"
> grey(0)
[1] "#000000"
1を代入したら白ですね
0231１３２人目の素数さん
2014/02/16(日) 19:25:01.37なんとか白が見えるようにならないでしょうか？
背景色をかえれるかなと思ってコマンドを打ってみたのですが変わらなくて…
Modernの数値を変えたらいいのでしょうか？
0232１３２人目の素数さん
2014/02/16(日) 19:32:11.72bg3dではなくbgと打ってました…
0233１３２人目の素数さん
2014/02/21(金) 17:50:49.16Emacs に不可能はない
C-c C-v b or C-c C-v C-b org-babel-execute-buffer
0234１３２人目の素数さん
2014/02/22(土) 14:58:46.83X<-c(1,2,3,4,5,6,7,8,9,12,13,24)
T<-length(X) #データ数
q<-3 #次数
eps<-X #diff(log(X))#収益率
ty<-function(alpha,omega){
for( t in 1:T){
alpha[1]
alpha[2]
alpha[3]
omega
for( j in 1:q ){
AA <- alpha[j]*eps[t+3-j]*eps[t+3-j] + AA
A<-(log(omega+AA)^2)*(-1/2)
print(eps[abs(t+3-j)])
}
}
}
optimize(c(2,1,2,3),ty, maximum=TRUE)
0235１３２人目の素数さん
2014/02/22(土) 15:50:55.18何を最適化したいのかな
あとoptimizeは1変数じゃなかったっけ、optimのほうがいいかも
あとAAの初期値がいるかな
0236１３２人目の素数さん
2014/02/22(土) 16:03:21.43X<-c(1,2,3,4,5,6,7,8,9,12,13,24)
T<-length(X) #データ数
q<-3 #次数
eps<-X #diff(log(X))#収益率
AA<-0 #initial
ty<-function(par){
for( t in 1:T){
alpha<-c(par[1],par[2],par[3])
omega<-par[4]
for( j in 1:q ){
AA <- alpha[j]*eps[t+3-j]*eps[t+3-j] + AA
A<-(log(omega+AA)^2)*(-1/2)
#print(eps[abs(t+3-j)])
return(A)
}
}
}
opt.Nelder<-optim(c(2,1,2,3),ty,control=list(fnscale=-1,maxit=200000,
trace=TRUE),method="Nelder-Mead")
opt.BFGS<-optim(c(2,1,2,3),ty,control=list(fnscale=-1,maxit=200000,
trace=TRUE),method="BFGS")
0237１３２人目の素数さん
2014/02/22(土) 16:06:35.400238１３２人目の素数さん
2014/02/22(土) 16:11:09.60>AA <- alpha[j]*eps[t+3-j]*eps[t+3-j] + AA
これはepsの長さ超えるぞ
0239１３２人目の素数さん
2014/02/23(日) 02:23:09.17>>235
目的関数はAAです。オメガ、アルファを求めたいです。
optimで実行した際にエラーが出てしまい、optimizeで実行しろと表示されてしまったため、optimizeを使っています。
やりたい事は、ARCHモデルの対数尤度関数を表示したく、練習として３次のARCHモデルの対数尤度関数に近いものを作りました。
>>234
確かにepsの長さが超えてますね。ご指摘ありがとうございます。
自己回帰なので過去の値に戻りたいのですが．．．勉強します。
0241１３２人目の素数さん
2014/02/23(日) 08:31:12.95息抜きで作業してるとMacBook Pro13インチが小さく感じるな・・・
15インチかiMac 2□インチが必要な気が・・・
0242１３２人目の素数さん
2014/02/23(日) 08:38:03.42いったい何浪してるんだよ
0243１３２人目の素数さん
2014/02/24(月) 06:16:12.290244１３２人目の素数さん
2014/02/25(火) 17:06:50.33optim関数を実行した際に、「初期パラメータで関数を表示出来ません」とエラーが出てしまいます。
関数の式は間違ってないと思うのですが、原因がわからないため、ご教授お願いいたします。
コードはこちらです。
sai <- function(x)
{
T<-length(x); q<-3; eps<-diff(log(x))
ts.plot(eps)
Mean <- mean(x); Var <- var(x); S = 1e-6
parm <- c(0.1,0.1*Var )
archsai<-function(par){
for( t in 2:T){
alpha<-c(par[1])
omega<-par[2]
if(t<=1){
htt<-omega
}else {
htt <- (omega+alpha[1]*eps[t-1]^2)
ht <- sqrt(htt)
A <- -(log(htt))^2*(1/2)
B <- -(((eps[t])^2)/htt)*(1/2)
ln <- A+B
}
}
return(ln)
}
optim(parm,archsai,control = list(fnscale=-1) )
}
0245１３２人目の素数さん
2014/02/25(火) 21:18:55.66この前の人かな？xは前のXでいいのかな？
>B <- -(((eps[t])^2)/htt)*(1/2)
ここt-1じゃないのか
0246１３２人目の素数さん
2014/02/25(火) 21:32:07.00そうです。236の際はお世話になりました。
xは前のXで大丈夫です。
ありがとうございます。無事に出来ました。
0247１３２人目の素数さん
2014/02/25(火) 21:34:35.440248１３２人目の素数さん
2014/02/25(火) 21:36:48.35そうかそうか。一応言っておくけどhttが負になってsqrt()でwarnings()出てるよ
何か制約条件があれば追加したほうがいいかな
0249１３２人目の素数さん
2014/02/25(火) 22:29:08.17ご丁寧にありがとうございます。
条件つける事で無事解決しました。
0250１３２人目の素数さん
2014/02/25(火) 22:57:04.23日本にも世界にも巨大地震が起きませんように。
皆さんも一緒に祈って下さい。
太陽フレアのＸが発生しました。
太陽黒点数の100越えが24日間継続しているようです。
0251１３２人目の素数さん
2014/03/12(水) 20:18:06.86yield <- read.dta("http://www.stata-press.com/data/r12/yield.dta";)
tx <- with(yield, interaction(fertilizer, irrigation))
amod <- aov(yield ~ tx, data=yield)
library(agricolae)
HSD.test(amod, "tx", group=TRUE)
これをちゃんと動作させることって出来ますか？結果が出てきません。どこかミスしているんでしょうか？
ちなみにyield.dtaは表です。
0252１３２人目の素数さん
2014/03/13(木) 09:31:48.35動作しないとは具体的にどういうこと？
> HSD.test(amod, "tx", group=TRUE, console = TRUE)
Study: amod ~ "tx"
HSD Test for yield
Mean Square Error: 24.93463
tx, means
yield std r Min Max
1.0 36.91257 5.335857 20 25.54710 46.60105
[snip]
5.1 44.55313 4.663802 20 31.20605 51.55704
alpha: 0.05 ; Df Error: 190
Critical Value of Studentized Range: 4.527912
Honestly Significant Difference: 5.055736
Means with the same letter are not significantly different.
Groups, Treatments and means
a 2.1 51.18
ab 4.1 50.75
[snip]
0253１３２人目の素数さん
2014/03/13(木) 18:35:25.07#pre_vecB<- c(0,0)
out_vecB<-mean(pre_vecB[pre_vecB!=0])
0があれば、0を除いて平均を求める。
0しかなければ、NAを返す。(NAN)でない。
というスクリプトを書きたいのですが、スマートな書き方ありますでしょうか？
0254１３２人目の素数さん
2014/03/13(木) 19:36:48.92スマートかどうか分からんが、自分ならこうする。
ifelse(is.nan(a <- mean(pre_vecB[pre_vecB != 0])), NA, a)
0255１３２人目の素数さん
2014/03/13(木) 19:42:46.86ありがとうございます。結果が表示されるようになりました。ってconsole=TRUEが抜けてただけでした。
申し訳ありませんでした。R初心者にも門戸を開いて頂きありがとうございました。
私は分散分析、回帰分析がRで出来るようになれればなーと思っているところです。
SPSSからの移行です。頑張って精進します。
0256１３２人目の素数さん
2014/03/14(金) 22:43:43.25ありがとうございました。参考にさせてください。
0257１３２人目の素数さん
2014/03/15(土) 17:52:29.30普通にlmじゃ無理？
0258１３２人目の素数さん
2014/03/15(土) 18:09:43.39> RSiteSearch("heteroscedasticity white")
これでcarパッケージのhccm関数やrmsパッケージのrobcov関数にたどり着くよ
0259１３２人目の素数さん
2014/03/20(木) 19:50:08.95> x
[1] 1 3 5 7 9 11 13 15 17 19
こういったベクトルがあって、このベクトルの後ろからN個の要素
を抜き出したいです。
Nが4なら
13 15 17 19
と返したいです。どのように書けばよろしいでしょうか？
0260１３２人目の素数さん
2014/03/20(木) 21:15:45.460261１３２人目の素数さん
2014/03/21(金) 22:49:16.51ありがとうございます。そのまんまの関数ですね。
知らなかった。
0262１３２人目の素数さん
2014/03/22(土) 15:00:41.16というサンプルです。
これを実際に運用してみると、単に平均を求めるスクリプトに比べ大変時間が
掛かることに気づきました。
webで調べてみると、ifelse文を使うと遅くなるという記事をみかけます。
同じ意味で、早く稼働するスクリプトがありましたら教えてください。
#vecA<- c(0,0,0)
vecA<- c(1,3,0)
ifelse(is.nan(a<- mean(vecA[vecA!=0])),NA,a)
ifelse(is.na(b1<-median(pre_listB[pre_listB!=0])),0,b1)
0263１３２人目の素数さん
2014/03/24(月) 13:51:22.64ifelseを提示したのは、そちらの方が分かりやすいと思ったから。
すまなかったねぇ。
> system.time(sapply(1:1000, function(x){vecA = c(1, 3, 0); ifelse(is.nan(a <- mean(vecA[vecA != 0])), NA, a)}))
ユーザ システム 経過
0.042 0.000 0.059
> system.time(sapply(1:1000, function(x){vecA = c(1, 3, 0); if(is.nan(a <- mean(vecA[vecA != 0]))){mean(a)}else{NA}}))
ユーザ システム 経過
0.023 0.000 0.029
0264１３２人目の素数さん
2014/03/25(火) 15:18:11.06ありがとうございます。ifelse文がわかりやすかったから大変勉強に
なりました。
実装データの量が多くてどうしたもんだかと悩んでたもので、
新たなスクリプト助かります。
自分は基本Cを書いてますが、Rの文が摩訶不思議に思えてしまいます。
system.time()の使い方も初めて知りました。ありがとうございました。
0265１３２人目の素数さん
2014/03/25(火) 17:43:35.11Cの人から見たらRは摩訶不思議かも知れないけど、
変態言語のPerlよりもずっとまし。
0266１３２人目の素数さん
2014/03/26(水) 23:24:54.38sex <-c("F","F","M","M","M")
height<- c(180,192,170,175,180)
weight<- c(50,65,60,55,70)
(MYDATA<- data.frame(ID= id, SEX= sex, HEIGHT= height))
上のようなデータフレームがあるとします。
ここでid=3の行データを以下のように変更(差し替え)したいとするとき、
ID = 3;
SEX = "F"
HEIGHT =150
WEIGHT =55
どう書けばいいでしょうか？
0267１３２人目の素数さん
2014/03/27(木) 09:58:04.57>(MYDATA<- data.frame(ID= id, SEX= sex, HEIGHT= height))
じゃなくて、
> (MYDATA<- data.frame(ID= id, SEX= sex, HEIGHT= height, WEIGHT = weight))
だよね。で、date.frameのrow向きの差し替えは、べたな方法しかないと思うよ。
どこかのパッケージに当該機能を有する便利な関数があるのかもしれないが。
> MYDATA[3, ] <- list(ID = 3, SEX = "F", HEIGHT = 150, WEIGHT = 55)
> MYDATA
ID SEX HEIGHT WEIGHT
1 1 F 180 50
2 2 F 192 65
3 3 F 150 55
4 4 M 175 55
5 5 M 180 70
0268267
2014/03/27(木) 10:10:01.03> MYDATA[3, ] <- list(3, "F", 150, 55)
ただし、変数名があってもなくても、順番を間違えると、期待通りの結果を得られないから要注意。
また、変更箇所が多ければ、edit()を使うことを勧める。
うちは、
> Sys.getenv("EDITOR")
[1] "vi"
だけど、使い慣れたテキストエディタを設定しておいた方がよいだろう。
viのキーバインドを知らなかったら、混乱すると思う。
0269１３２人目の素数さん
2014/03/27(木) 15:38:26.02ありがとうございます。WEIGHT忘れてました。
list()と、MYDATA[,]でデータフレームのリスト要素を変更できるの
ですね。
これを使えば、変更（差し替え）だけでなく、列を追加するのにも
同じやり方なので便利ですね。
edit()の使い方もありがとうございました。
0270１３２人目の素数さん
2014/03/27(木) 16:23:23.60お役に立ったようで、どうも。
行(row)や列(col)の追加は、もっと簡単でrbind()やcbind()を使います。
列の場合は
MYDATA$新変数 <- runif(5)
とかでも、MYDATAデータフレームの中に新しく「新変数」が作成されます。
# RjpwikiのQ&Aで質問が放置されていたので回答したけど、
# 河童さんはやっぱりggplotが嫌いなんだな。
0271１３２人目の素数さん
2014/03/28(金) 15:07:08.25事前に0割を避ける条件文を作らなくてはいけないんだけど。
Rでは、Infが返ってくるだけなのだから、（クラッシュしない）
答を求めて、Infが出たときに対応の処理をさせてもいいですよね。
プログラムとして0割に対して特に対応しなくてもいいですかね。
0272１３２人目の素数さん
2014/03/28(金) 15:32:41.65そんなのプログラムによる話で、一般化できない。
0273１３２人目の素数さん
2014/03/29(土) 10:39:15.46まともな統計ソフトならみな対応してるよ
0274１３２人目の素数さん
2014/03/29(土) 11:28:09.36エ、エクセルとか（震え声）
0275１３２人目の素数さん
2014/03/29(土) 11:53:57.77アドインは発注品だし、マイクロソフトは統計ソフト作っているわけじゃないし。
アドインの酷さは検索すれば出てくるよ。
0276１３２人目の素数さん
2014/03/30(日) 18:10:19.21UCB
0277１３２人目の素数さん
2014/03/31(月) 13:39:43.19東京の人はチャーリー浜なんて知らないよね。
0278１３２人目の素数さん
2014/04/02(水) 07:56:27.99Windows版だとこれではなく、変わりに--essという起動オプションがあります
この２つのオプションの挙動に何か違いはありますか？
VimShellの:VemShellInteractiveで呼んでいるのですが、現状違いはないように
思えて、オプション名が違う理由がよくわかりません
0279１３２人目の素数さん
2014/04/02(水) 08:50:54.700280１３２人目の素数さん
2014/04/02(水) 17:15:20.26>VimShell
初めて聞いた。便利そうだけど、所詮、ESSには勝てないと思う
0281１３２人目の素数さん
2014/05/11(日) 14:07:13.75月曜日までに必要なのでお願いしますね
0282１３２人目の素数さん
2014/05/13(火) 09:43:49.49スルー検定は全員合格か。素晴らしい。
ExtraTrees法なら、extraTreesパッケージかな。
0283１３２人目の素数さん
2014/05/15(木) 01:39:45.150284１３２人目の素数さん
2014/05/15(木) 04:49:00.390285１３２人目の素数さん
2014/05/18(日) 12:35:30.99フレームバッファに書くとか
できますか？
■ このスレッドは過去ログ倉庫に格納されています