初級Ｑ＆Ａ アーカイブ(9)
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
*COLOR(green){SIZE(20){初心者のための R および RjpWiki に...
新規投稿はできません
----
**COLOR(red){過去の記事のアーカイブ} 。 [#m1cf995c]
-[[初級Ｑ＆Ａ アーカイブ(8)]] (元記事が 2007-07-02 より 2...
-[[初級Ｑ＆Ａ アーカイブ(7)]] (元記事が 2007-02-01 より 2...
-[[初級Ｑ＆Ａ アーカイブ(6)]] (元記事が 2006-08-24 より 2...
-[[初級Ｑ＆Ａ アーカイブ(5)]] (元記事が 2005-03-13 より 2...
-[[初級Ｑ＆Ａ アーカイブ(4)]] (元記事が 2005-11-09 より 2...
-[[初級Ｑ＆Ａ アーカイブ(3)]] (元記事が 2005-05-02 より 2...
-[[初級Ｑ＆Ａ アーカイブ(2)]] (元記事が 2004-12-13 より 2...
-[[初級Ｑ＆Ａ アーカイブ(1)]] (元記事が 2004-08-03 より 2...
----
#contents
----
**主成分分析 [#p97b7b34]
>[[sumi]] (2008-11-15 (土) 12:14:00)~
~
初歩的な質問で大変恐縮です。~
~
主成分分析したものをバリマックス回転、もしくはプロマック...
~
また因子分析を実行しようとすると「これらの初期値からは最...
//
- 特に使用環境を添えるのは常識です。sessionInfo() とすれ...
- すみません。はじめて投稿するのでわかりませんでした。 --...
- R version 2.7.2 (2008-08-25) -- [[sumi]] &new{2008-11-...
R version 2.7.2 (2008-08-25)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932;
LC_MONETARY=Japanese_Japan.932;LC_NUMERIC=C;LC_TIME=Japan...
attached base packages:
[1] stats graphics grDevices utils datasets met...
- 回答者は神通力を持ってはいません。「これこれしたが、う...
- 対応分析でデータを標準化してｂｉｐｌｏｔでグラフを作ろ...
**RのＡＲモデルのAICについて [#l496cb0f]
>[[野沢菜]] (2008-11-14 (金) 21:52:52)~
~
お世話になります。~
~
ARモデルのAIC値について質問致します。~
~
どうやらRのARモデルのAIC値は最小モデルの値を0とし、相対値...
~
以下のような実験をしてみました。~
~
まずNileをAR(2)で計算させると ~
~
> ar(Nile,order=2) ~
~
Call: ~
ar(x = Nile, order.max = 2) ~
~
Coefficients: ~
1 2 ~
0.4081 0.1812 ~
~
Order selected 2 sigma^2 estimated as 21247 ~
~
>~
~
sigma^2を21247と推定してきました。同様にar(Nile,aic=FALSE...
~
ここでAICを求めると、~
~
> ar(Nile,order=3)$aic ~
0 1 2 3 ~
27.8938963 1.3373691 0.0000000 0.7625609 ~
> ~
~
と、AR(2)が最小で0、AR(3)は0.7625609だと言っています。一...
~
AR(2)σ^2 = 21247 ~
AR(3)σ^2 = 21204 ~
AR(2)AIC = 0.0000000 ~
AR(3)AIC = 0.7625609 ~
~
と言う事なのですが、回帰のAICでlength(Nile)が100なのでAIC...
差をみると~
~
> n<-100;si2<-21247;m<-2; ~
> AIC2 <- n*(log(2*pi)+1+log(si2))+2*(m+2) ~
> n<-100;si2<- 21204;m<-3; ~
> AIC3 <- n*(log(2*pi)+1+log(si2))+2*(m+2) ~
> AIC3-AIC2 ~
[1] 1.797413 ~
~
と、AR(3)AIC = 0.7625609 とは、かけ離れた値になってしまい...
~
私は、どこをどう間違っているのか、ご指摘をお願い致します。~
//
- 特に使用環境を添えるのは常識です。sessionInfo() とすれ...
- 2-100*(log(21247*0.97)-log(21204*0.96)) では？ -- [[asd...
- AR1:1.3373691->5.337865,AR2:0.0000000->000000,AR3:0.762...
- 2-100*(log(21247*0.97)-log(21204*0.96)) の値はAR(3)AIC ...
- Order selected 2 sigma^2 estimated as 21247 のように表...
**二元配置分散分析の求め方 [#wae304bc]
>[[flyer]] (2008-11-11 (火) 15:25:38)~
~
いつもお世話になっています。~
以下のようなデータで分散分析を二元配置の対応なしで分散分...
収穫量に対しての要因が品種と試験場が存在すると言う設定な...
よろしくお願いします。~
~
~
~
> 収穫量~
[1] 68 70 72 71 73 74 73 74 73 73 72 74 73 71 72 69 71 7...
> 品種~
[1] A1 A1 A1 A1 A1 A2 A2 A2 A2 A2 A3 A3 A3 A3 A3 A4 A4 A...
Levels: A1 A2 A3 A4~
> 試験場~
[1] B1 B2 B3 B4 B5 B1 B2 B3 B4 B5 B1 B2 B3 B4 B5 B1 B2 B...
Levels: B1 B2 B3 B4 B5~
> > summary(aov(収穫量~試験場*品種))~
> > Df Sum Sq Mean Sq
> >試験場 4 8.2000 2.0500~
> >品種 3 26.8000 8.9333~
> >試験場:品種 12 22.2000 1.8500~
//
- １セルにデータがひとつずつしかないからじゃないですか？ ...
- ほいさっさ さんのいうとおり。繰り返しがないから交互作用...
> summary(aov(収穫量~試験場+品種))
Df Sum Sq Mean Sq F value Pr(>F)
試験場 4 8.2000 2.0500 1.1081 0.39711
品種 3 26.8000 8.9333 4.8288 0.01982 *
Residuals 12 22.2000 1.8500
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1...
- ほいささっさささん、--さん、ありがとうございました。調...
- ほいささっさささん、--さん、ありがとうございました。調...
**xtabsとftableで複数の要素を行に入れたい場合 [#r1074ecb]
>[[たけ]] (2008-11-10 (月) 22:05:27)~
~
下記のようなデータセットで、地点 緯度 経度 年 月の列と各...
1)地点 緯度 経度 年 月全部の組み合わせを出力してしまい、...
2)出力されたテーブルは行の値は属性として入った状態になっ...
以上の2点について、xtabsとftableを用いたものでなくても構...
~
~
x <- read.csv("test.csv")
y <- ftable(xtabs(値~地点+緯度+経度+年+月+種類,x))
~
データの例：test.csv
年,月,地点,緯度,経度,種類,値
平成15年,1月,東京,139.766084,35.681382,いちご,10
平成15年,8月,東京,139.766084,35.681382,いちご,20
平成16年,1月,東京,139.766084,35.681382,いちご,10
平成16年,8月,東京,139.766084,35.681382,いちご,25
平成15年,1月,つくば,140.111234,36.082744,いちご,10
平成15年,8月,つくば,140.111234,36.082744,いちご,30
平成16年,1月,つくば,140.111234,36.082744,いちご,10
平成16年,8月,つくば,140.111234,36.082744,いちご,45
平成15年,1月,東京,139.766084,35.681382,みかん,100
平成15年,8月,東京,139.766084,35.681382,みかん,20
平成16年,1月,東京,139.766084,35.681382,みかん,100
平成16年,8月,東京,139.766084,35.681382,みかん,25
平成15年,1月,つくば,140.111234,36.082744,みかん,100
平成15年,8月,つくば,140.111234,36.082744,みかん,30
平成16年,1月,つくば,140.111234,36.082744,みかん,100
平成16年,8月,つくば,140.111234,36.082744,みかん,45
//
- 一部，うまく動かない理由が分からない。。なぜ，「みかん...
x <- read.csv("test.csv")
y <- ftable(xtabs(値~地点+緯度+経度+年+月+種類,x))
a <- data.frame(y)
b <- a[a$Freq>0,]
b[b$地点=="つくば",]
b[b$緯度=="140.111234",]
b[b$種類=="みかん",]
- x <- read.csv("test.csv",encoding="UTF-8") などと, UTF-...
- どんな表がほしいのか良くわからないですが、reshapeパッケ...
> library(reshape)
> x <- read.csv("c:/test.csv")
> colnames(x)[6]<-"variable"
> colnames(x)[7]<-"value"
> y<-cast(x)
> y
年 月 地点 緯度 経度 いちご みかん
1 平成15年 1月 つくば 140.1112 36.08274 10 100
2 平成15年 1月 東京 139.7661 35.68138 10 100
3 平成15年 8月 つくば 140.1112 36.08274 30 30
4 平成15年 8月 東京 139.7661 35.68138 20 20
5 平成16年 1月 つくば 140.1112 36.08274 10 100
6 平成16年 1月 東京 139.7661 35.68138 10 100
7 平成16年 8月 つくば 140.1112 36.08274 45 45
8 平成16年 8月 東京 139.7661 35.68138 25 25
で、dataframeにするには、
>z<-data.frame(y)
- encoding 指定すればちゃんとできた。。。~
factor ==> numeric は自分でやってね -- &new{2008-11-11 (...
> b[b$種類=="みかん",1]
[1] 東京 つくば 東京 つくば 東京 つくば 東京 つ...
Levels: 東京 つくば
> b[b$種類=="みかん",2]
[1] 139.766084 140.111234 139.766084 140.111234 139.7660...
139.766084 140.111234
Levels: 139.766084 140.111234
- あちゃー, encoding壊滅状態かも...SBCSはlatin1で, MBCSは...
- お返事遅くなり申し訳ありません、okinawaさん大変スマート...
- 色々いじっています。日本語がうまくとおらないですが、 ca...
**rbindするデータフレームの数が多い場合・・・ [#v5292f81]
>[[Shiro]] (2008-10-31 (金) 06:56:27)~
~
たとえば、各年のデータを含むデータフレーム、~
df.2000, df.2001, df.2002, df.2003, df.2004, df.2005~
があるとし、これを以下のようにバインドするとします。~
df.all <- rbind (df.2000, df.2001, df.2002, df.2003, df.2...
しかし、もしもバインドしたいデータフレーム数が膨大に増え...
そこで、下記のようにデータフレーム名を作成してみました。~
period = c(2000:2005)~
# データフレーム名の作成~
paste("df", period, sep = ".")~
[1] "df.2000" "df.2001" "df.2002" "df.2003" "df.2004" "df...
そして、これでは単なるcharacterなので、get関数で下記のよ...
df.all <- rbind (get(paste("df", period, sep = ".")))~
初心者です。調べた結果、pasteで名前を作るまではできたので...
//
- ヒント -- &new{2008-10-31 (金) 09:12:20};
x <- rnorm(10)
y <- rnorm(10)
eval(parse(text="cbind(x, y)"))
eval(parse(text="12+34"))
- eval(parse(***))を使う。要はプログラムの文字列を自動的...
period <-c(2000:2005)
dfname<-paste("df.", period, sep = "",collapse=",")
text<-paste("df.all <- rbind (",dfname,")",sep="")
eval(parse(text=text))
- こういうのもあり。 -- &new{2008-10-31 (金) 10:08:40};
df.all <- do.call("rbind",lapply(paste("df", period, sep...
- do.call("rbind",mget(ls(pattern="^df.[0-9]{4}"),envir=....
- すぐに丁寧なコメントを頂いて感激です。とても素晴らしい...
**範囲の指定 [#l66f128b]
>[[tt]] (2008-10-31 (金) 02:55:21)~
~
非常に初歩的な質問なんですが、hist()を使うときに、横軸の...
//
- xlim 引数で指定すればよいのでは？ -- &new{2008-10-31 (...
- できました。ありがとうございました。 -- [[tt]] &new{200...
**R で作る EPS ファイル [#a0edcc1b]
>[[ ]] (2008-10-29 (水) 21:32:23)~
~
postscript(file, family="Japan1Ryumin") で作る，日本語フ...
postscript(file) でローマ字だけのファイルなら，問題は生じ...
Windows, Mac 共に，同じ問題があるようです。~
//
- Adobe製品ならたとえ読めてもEPSなら普通に崩れるケースも...
- 回答ありがとうございました。普段はPDFでなんの支障もなく...
- PDFでお願いすればたぶん大丈夫なはずです. その場合は[[R...
**Rを用いたランダム効果解析 [#b964b5e8]
>[[初心者random]] (2008-10-26 (日) 14:24:04)~
~
教えてください。以下のデータ(data01)は、~
2元配置の変量モデル（変量因子groupAと変量因子groupB、それ...
における、2つの変量因子のeffectへの影響を解析するものです...
~
random効果として、groupAおよびgroupBを指定し、関数lme()を...
random効果の項の設定をうまくできません。~
~
random効果として、~
groupA+groupB+groupA*groupB ---(1)~
を設定したく考えております。~
~
model<-lme(effect~1,random=＊＊＊） この部分（＊＊＊）の...
~
これまで、random=~1|groupA, random=~1|groupA/groupBは試み...
(1) groupA+groupB+groupA*groupB ~
の設定ができず、質問させていただきました。~
~
よろしくお願いします。~
~
data01~
groupA groupB effect
1 1 1 13.2~
2 1 1 11.9~
3 1 2 16.1~
4 1 2 15.1~
5 1 3 9.1~
6 1 3 8.2~
7 2 1 22.8~
8 2 1 18.5~
9 2 2 24.5~
10 2 2 24.2~
11 2 3 11.9~
12 2 3 13.7~
13 3 1 21.8~
14 3 1 32.1~
15 3 2 26.9~
16 3 2 28.3~
17 3 3 15.1~
18 3 3 16.2~
19 4 1 25.7~
20 4 1 29.5~
21 4 2 30.1~
22 4 2 29.6~
23 4 3 15.2~
24 4 3 14.8~
//
**罫線を点線にしたい [#x6cd0c86]
>[[psa]] (2008-10-24 (金) 10:24:29)~
~
par(tck=1)でグラフ上に罫線を入れたのですが、その罫線を好...
par(tck=1)~
plot(1:100)~
//
- use 'abline' -- &new{2008-10-24 (金) 11:35:05};
> plot(1:100)
> abline(v=0:10*10, lty=3)
> abline(v=50, lwd=2)
- 読みたく無い量だけど, マニュアル読みましょう, いっぱい...
**epsファイルの作成 [#i601c726]
>[[taromaru]] (2008-10-23 (木) 16:42:25)~
~
WindowsXP上で、R2.7.2を使っております。epsファイルをRから...
~
hist(rnorm(100))
dev.copy2eps(file="temp.eps")
~
temp.epsというファイルはできますが、tex に読み込んでコン...
~
Failed to make temp.bmp by the command~
~
というエラーメッセージが出て、dviファイルには図が表示され...
~
Unknown in Prolog section at line 34:~
%%IncludeResource: CID fake Bold font HeiseiKakuGo-W5
~
~
Unknown in Prolog section at line 71:~
%%IncludeResource: CID font HeiseiKakuGo-W5-EUC-H
~
（以下省略）~
~
といったエラーメッセージが出て開けません。そこで、~
~
dev.copy2eps(file="temp.eps", paper="special", onefile=...
~
といったオプションもつけてみましたが、結果は同じです。ど...
//
- gsのインストール時のCJKに関するチェックを選択しなかった...
- どうもありがとうございます。CJKに関するチェックはしてい...
- うーん, 症状からすると, lib/cidmapの中しか思いつきませ...
- おっしゃるとおり、lib/cidfmap の中身をTexWiki に記載し...
**最尤法による最適関数の導出について [#ab854383]
>[[Saito]] (2008-10-22 (水) 21:35:20)~
~
いつもお世話になっております。~
似たような質問、トピックを捜しましたが見当たらなかったた...
手持ちのデータに当てはまりそうな関数を自分で作成して、そ...
a<-rep(0,50)
b<-rep(1:2,length=50)
c<-rep(3:10,length=50)
d<-c(a,b,c)
d2<-as.data.frame(table(d))
d2$Freq<-(d2$Freq)/d2[1,2]
plot(d2$d,d2$Freq)
のような形をしており、これに尤もらしく当てはまりそうな関...
f<-function(sig,beta) 1-exp(-(as.numeric(d2$d)/sig)^-(be...
を関数例として考えました(あんまりいい例ではないかもしれま...
なお、環境はWindowsXP、R-2.7.2です。~
よろしくお願いいたします。~
//
- nls は最尤法なんだろうか？ -- &new{2008-10-23 (木) 01:...
> # f<-function(sig,beta) 1-exp(-(as.numeric(d2$d)/sig)^...
> a <- rep(0,50)
> b <- rep(1:2,length=50)
> c <- rep(3:10,length=50)
> d <- c(a,b,c)
> d2 <- as.data.frame(table(d))
> d2$d <- as.integer(d2$d) # d2 が factor は百害あって一...
> d2$Freq <- (d2$Freq)/d2[1,2]
> plot(d2$d,d2$Freq)
> ans <- nls(Freq~1-exp(-(d/sig)^(-beta)), data=d2, star...
> summary(ans)
Formula: Freq ~ 1 - exp(-(d/sig)^(-beta))
Parameters:
Estimate Std. Error t value Pr(>|t|)
beta 1.5905 0.2278 6.981 6.46e-05 ***
sig 1.8398 0.1852 9.933 3.79e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1...
Residual standard error: 0.07757 on 9 degrees of freedom
Number of iterations to convergence: 8
Achieved convergence tolerance: 3.585e-06
> x2 <- seq(min(d2$d), max(d2$d), length=300)
> y2 <- predict(ans, newdata=data.frame(d=x2))
> lines(x2, y2, col="red")
#ref(nls.png)
- ご教授、ありがとうございます。今も調べているのですがお...
> AIC(ans)
[1] -21.23610
と返してくれるので、おそらく最尤推定をしてくれているのだ...
&new{2008-10-23 (木) 10:03:47};
- どうも、みたところ離散的な分布の確率密度関数を求めよう...
> spl <- rnorm(100) #サンプルを準備、平均０標準偏差１...
> sum(dnorm(spl, 0, 1, log=T)) #確率密度を掛け合わせ...
[1] -144.8611
> sum(dnorm(spl, 1, 1, log=T)) #平均と標準偏差が異な...
[1] -198.297
> sum(dnorm(spl, 1, 2, log=T)) #平均と標準偏差が異な...
[1] -187.8094
#この（対数）尤度を最大にするのが最尤法
> eval_fn <- function(x, spl){
+ m <- x[1]
+ sig <- x[2]
+ -sum(dnorm(spl, m, sig, log=T)) #optimは最小化...
+ } #平均と標準偏差をパラメータにした関数を定義する
#x[1]が平均、x[2]が標準偏差、splはサンプル
> eval_fn(c(1,1), spl)
[1] 198.297
> optim(c(1,1), eval_fn, lower=c(-Inf, 0.001), method="L...
#標準偏差は正の実数なので小さな実数を下限にする
$par
[1] -0.03435954 1.02867148 #１番目が最尤法で求められ...
$value
[1] 144.7206 #尤度関数の値、マイナスをつけたので正に...
$counts
function gradient
30 30
$convergence
[1] 0
$message
[1] "CONVERGENCE: REL_REDUCTION_OF_F <= FACTR*EPSMCH"
> mean(spl)
[1] -0.03435954 #実際のサンプルの平均、まったく同じ
> sd(spl)
[1] 1.033853 #標準偏差、最適化の精度の関係で若干上の...
- 同様のことをSaitoさんの例で行うと -- [[ななし]] &new{20...
> a<-rep(0,50)
> b<-rep(1:2,length=50)
> c<-rep(3:10,length=50)
> d<-c(a,b,c) #これがサンプル
> f<-function(x, spl){
+ sig <- x[1]
+ beta <- x[2]
+ -sum(log(1-exp(-(spl/sig)^-(beta))))
+ }
> f(c(1.5,1.5), d)
[1] 129.5854
> optim(c(1.5,1.5), f, lower=c(0.001, 0.001), method="L-...
$par
[1] 17.294329 5.655511
$value
[1] 1.433712e-09
$counts
function gradient
27 27
$convergence
[1] 0
$message
[1] "CONVERGENCE: REL_REDUCTION_OF_F <= FACTR*EPSMCH"
と、一応何か答えは出ました．
~が、sigが大きくなると、確率密度関数がどんな観測値に対し...
- 指数分布だと -- [[ななし]] &new{2008-10-23 (木) 12:46:0...
> f2<-function(x, spl){
+ ramda <- x[1]
+ -sum(log(ramda*exp(-ramda*spl)))
+ }
> f2(c(1.5), d)
[1] 530.1802
> optim(c(1.5), f2, lower=c(0.001), method="L-BFGS-B", s...
$par
[1] 0.3807116
$value
[1] 294.8573
$counts
function gradient
8 8
$convergence
[1] 0
$message
[1] "CONVERGENCE: REL_REDUCTION_OF_F <= FACTR*EPSMCH"
> hist(d)
> plot(d, 0.38*exp(-0.38*d))
- ななしさんありがとうございます。素晴らしい回答で、逆に...
まずnls()とoptim()の違いなのですが、得られたパラメータの...
そしてnls()とoptim()で得られた尤度でAICを求めて、それぞれ...
すみません、長くなりましたが私が最初やりたかったことはほ...
1.nls()とoptim()での違いは何か？別々の値が推定された場合...
2.xが離散値の場合、どちらが適切なのか？
3.2.でどちらでもよいというような場合、AICを用いてnls()とo...
です。ご教授いただければ幸いです。
ちなみに私がうまくいかないといっていたのは、functionの中...
**非アルファベット・数字のソート [#dcaf71e4]
>[[R初心者]] (2008-10-22 (水) 18:41:13)~
~
以下のような例は，どういう事になっているんでしょうか。UTF...
> sort(c("青", "赤", "黄", "緑", "紫"))
[1] "紫" "緑" "赤" "青" "黄"
日本語の読みの順序でソートするにはどのようにしたらよいで...
> sessionInfo()
R version 2.8.0 Patched (2008-10-20 r46764)
i386-apple-darwin9.5.0
locale:
ja_JP.UTF-8/ja_JP.UTF-8/C/C/ja_JP.UTF-8/ja_JP.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets me...
です。なんとなく予感がして，UNIX上のR-1.8.1(sessionInfo ...
> sort(c("青", "赤", "黄", "緑", "紫"))
[1] "黄" "紫" "青" "赤" "緑"
> Sys.getlocale()
[1] "ja_JP.EUC/ja_JP.EUC/C/C/ja_JP.EUC/C"
なるほど，なんとかできるのかな？~
//
- LC_COLLATEの値によって変化します. LANG=C R -q -e 'sort(...
- kakasiとかを使って「よみ」に変換してソートいう手もあり...
- 大仰で恐縮ですが，お遊びということで -- [[ishida]] &new...
~
kanji <- c("黄","紫","青","赤","緑")
x <- paste(kanji, collapse = " ")
write(as.character(x), file = "hoge.txt" )
library(RMeCab)
y <- RMeCabText("hoge.txt")
yomi <- character(length(y))
for(i in 1:length(y)){
yomi[i] <- y[[i]][9]
}
kanji[order(yomi)]
[1] "青" "赤" "黄" "緑" "紫"
file.remove("hoge.txt")
[1] TRUE
//
- おぉ、石田先生、RMeCabを作られたのですか！しばらく隠遁...
- とりあえず動く程度のものを[[ここ:http://cms.ias.tokushi...
**SVR（support vector regression)をipopソルバーで実装する...
>[[tottori]] (2008-10-20 (月) 03:08:30)~
~
SVMの回帰への拡張であるSVRをkernlabパッケージにあるipopソ...
分類（通常のSVM）の場合にはhelp(ipop)の例のように~
~
H <- kernelPol(rbf,x,,y)
c <- matrix(rep(-1,m))
A <- t(y)
b <- 0
l <- matrix(rep(0,m))
u <- matrix(rep(C,m))
r <- 0
~
と指定することで動きますが、回帰の場合にはどのように指定...
~
kenlabに関する文献「kernlab – An S4 Package for Ker...
~
アドバイスを頂きたいです。~
よろしくお願いします。~
//
- ksvm関数の説明のページにregressionのサンプルがあるのだ...
## regression
# create data
x <- seq(-20,20,0.1)
y <- sin(x)/x + rnorm(401,sd=0.03)
# train support vector machine
regm <- ksvm(x,y,epsilon=0.01,kpar=list(sigma=16),cross=3)
plot(x,y,type="l")
lines(x,predict(regm,x),col="red")
//
- お返事ありがとうございます。
ただ、定式化の部分をいじりたいと考えているので（例えばサ...
**flicker雑音 [#m757fd0b]
>[[kd]] (2008-10-16 (木) 10:23:37)~
~
flicker雑音をRで生成する良い方法はあるでしょうか？ （そ...
//
**C言語のプログラムの中身 [#t9520dc6]
>[[C言語のプログラムの中身]] (2008-10-15 (水) 15:44:22)~
~
isoMDSという関数を改良したくて，中身を見たのですが，その...
~
~
~
on.exit(.C(VR_mds_unload))
.C(VR_mds_init_data, as.integer(nd), as.integer(k), as...
as.integer(ord - 1), as.integer(order(ord) - 1), a...
as.double(p))
tmp <- .C(VR_mds_dovm, val = double(1), as.integer(max...
as.integer(trace), y = as.double(y), as.double(tol))
~
という部分がありました．調べた結果，「.C()」はC言語のプロ...
~
よろしくお願いします．~
//
- [[必要な関数を探す]] gonzui -- &new{2008-10-16 (木) 12...
- この関数はMASSライブラリの関数．MASSライブラリはVRパッ...
- 返信遅れて申し訳ありません。gonzuiさん、ななしさん、助...
**下限値を0に固定してプロット [#s92d5b06]
>[[ぬえ]] (2008-10-12 (日) 07:17:22)~
~
散布図行列を描くときに、軸の下限値を0に固定(上限値は自動...
パラメータごとに値のレンジがかなり違うので、単純にxlim、y...
~
たぶん、xlim=range(x)というような処理がどこかでされてるん...
それをxlim=range(c(0,x))に変えられたらいいんですけど。~
//
- xlim=c(, max(x)) でよいのでは？ -- &new{2008-10-12 (日...
- pairsでプロットしてるときに、x[[1]]とx[[2]]をプロットし...
- max(x［［1］］)=5、max(x［［2］］)=150といったデータな...
- やっぱし、mfrowとかで分割して一つづつ描くしかないんでし...
- pairs.default を使うと言うことでよいかな？関数を読んで...
localPlot(x[, j], x[, i], xlab = "", ylab = "", a...
type = "n", ...)
を
localPlot(x[, j], x[, i], xlab = "", ylab = "", a...
type = "n", xlim=c(0, max(x[,j])), ylim=c(0, ...
に
- ありがとうございます、バッチリです！既存の関数を書き換...
**構文チェックの方法 [#zc3e6f13]
>[[syou6162]] (2008-10-10 (金) 23:21:52)~
~
Rのコマンドラインオプションなどで構文チェックをする方法は...
~
Rubyで言えば~
$ ruby -c hoge.rb~
のようなものを考えています。~
//
- こんなのかなぁ -- [[なかま]] &new{2008-10-11 (土) 23:15...
$ R -q -e 'is.expression(try(parse(file=commandArgs(trai...
- おお。すごい。さすが。お願いすることが出来ればですが，...
- parse()がそもそもそれじゃないの？ -- [[okinawa]] &new{2...
- やはり-cオプションのようなものはないのですね。parseで解...
**データフレームのマッチング [#c84bbf10]
>[[Lee]] (2008-10-09 (木) 05:55:27)~
~
おそらく非常に簡単にできるのではないかとは思うのですが、...
~
下のような2つのデータフレームにおいて、df.A のColumn1の値...
たとえば、df.AのColumn1は日付、Column2はその日に採取した...
~
df_A df_B ~
Column1 Column2 Column1 Column2
Row1 a 5.5 Row1 a 102~
Row2 a 2.6 Row2 b 203~
Row3 a 3.2 Row3 c 302~
Row4 a 5.6 Row4 d 202~
Row5 b NA Row5 e 102~
Row6 b 6.3 Row6 f 301~
Row7 b 10.2 Row7 g 602~
Row8 c 3.9 Row8 h 302~
Row9 c 5 ~
Row10 a 6 ~
Row11 c NA ~
Row12 d 8.2 ~
Row13 d 2.9 ~
Row14 b 3.5 ~
Row15 a 6.2 ~
Row16 d 4.6 ~
以下続く ~
~
新df ~
Column1 Column2
Row1 a 5.5 102~
Row2 a 2.6 102~
Row3 a 3.2 102~
Row4 a 5.6 102~
Row5 b NA 203~
Row6 b 6.3 203~
Row7 b 10.2 203~
Row8 c 3.9 302~
Row9 c 5 302~
Row10 a 6 102~
Row11 c NA 302~
Row12 d 8.2 202~
Row13 d 2.9 202~
Row14 b 3.5 203~
Row15 a 6.2 102~
Row16 d 4.6 202~
以下続く~
//
- すみません、データフレームが見づらいので書き直します。 ...
- すみません、データフレームが見づらいので書き直してみま...
- df.A df.B 新df -- [[Lee]] &new{2008-10-09 (木)...
- この例なら
df.A[[3]] <- df.B[df.A[[1]],2]
で済みますが……。 -- [[中澤]] &new{2008-10-09 (木) 10:41:4...
- 実際のデータはもう少し複雑でしたが、どうやらこれでうま...
**作業スペースの保存 [#m2f5a415]
>[[tt]] (2008-10-08 (水) 16:31:54)~
~
作業スペースの保存を実行すると、~
~
以下にエラー gzfile(file, "wb") : コネクションを開くこと...
追加情報: Warning message:
In gzfile(file, "wb") :~
圧縮されたファイル 'C:\Documents and Settings／…
~
とでできて保存できません。~
どうしたらよいのでしょうか？~
//
- C:\ ？ バックスラッシュを使ってるんですか？バックスラ...
- 解決しました。ありがとうございました。 -- [[tt]] &new{2...
**Rcmd BATCH file.Rでplot表示を残すには? [#t7b90b42]
>[[ISHIMARU]] (2008-10-08 (水) 16:25:40)~
~
R-2.7.2をWindows XPで使用しています。~
たとえば、a.Rというファイルにplot(1:5)と記載して、Rcmd BA...
グラフが表示されず（残らず）、何事もなかったかのように終...
表示を残す方法があるのでしょうか。~
初級Ｑ＆Ａ アーカイブ(4) の「R CMD BATCHの使い方」を参考...
.Rprofileにlibrary(grDevices)と記載もしてみましたがだめで...
よい方法がありましたらご教授ください。~
//
- グラフをファイルに書き出すための方法を取らないとだめで...
- そうでしたか…。ご教授ありがとうございました。 -- [[ISHI...
- それにしても、なぜRCMD BATCHを使おうとしているのか気に...
- Perlスクリプトでfile.Rを吐き出した後、同じスクリプト内...
- ローカルでやられるのなら、RCMD BATCHではなくRterm.exe ...
.Rprofile (Rterm.exe や Rgui.exeとおなじところにおく）
library(graphics)
library(grDevices)
source("c:/a.r")
- いちいち .Rprofile を弄るのも大変ですし。perl 使いじゃ...
BEGIN {
out = "a.R"
print "pdf('a.pdf', width=5, height=4)" > out
print "hist(rnorm(1000))" > out
print "dev.off()" > out
close(out)
system("R --vanilla --slave < a.R")
}
これを，gawk -f a.awk のように呼び出す
- ご教授いただきありがとうございました。.Rprofileを書き換...
**Windows版Rで，UTF-8が文字化けしない？ [#j23cad6b]
>[[林]] (2008-10-07 (火) 14:26:12)~
~
現在TechnoratiのAPIでブログの記事を引っ張ってきて，RMeCab...
RMeCabに通す段階で，不可解な現象に出会い，困惑してしまい...
APIの返り値はUTF-8なのですが，それがなぜかCP932のR上で文...
つまり，~
~
> text1 # APIで取得したテキスト~
[1] "日本語" # 文字化けしない~
> (text2 <- "日本語") # R上で付値~
[1] "日本語" # 当然化けない~
> text1 == text2~
[1] FALSE~
> (iconv(text1, "UTF8", "CP932") == text2 # 明示的に変換~
[1] TRUE~
~
となります。変換せずそのままRMeCabに突っ込んだところ，「...
ということで，この問題自体は解決しているのですが，根本的...
なぜこのようなことが起こるのでしょうか？~
（変な言い方ですが）ちゃんと化けてくれたほうがありがたい...
不明瞭な質問で申し訳ないのですが，よろしくお願いします。~
環境は以下です。そのほか，設定はなにもいじっていません。~
~
> sessionInfo()~
R version 2.7.2 (2008-08-25) ~
i386-pc-mingw32 ~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
attached base packages:~
[1] stats graphics grDevices utils datasets met...
other attached packages:~
[1] RMeCab_0.61 XML_1.96-0 ~
loaded via a namespace (and not attached):~
[1] tools_2.7.2~
//
- 今は, Unicode化に向けての過渡期ですので, そのような事が...
- ありがとうございます。charToRawは知りませんでした。エデ...
- Unicode化に伴う違う部分の不整合です. -- [[なかま]] &new...
- 了解しました，ありがとうございます。 -- [[林]] &new{200...
**正規表現にマッチした部分の取り出し [#m61f5a5a]
>[[うち]] (2008-10-06 (月) 20:55:07)~
~
grep(, value=T)で試してみましたが，マッチした文字列全体が...
> # /に挟まれた数字のみ抜き出したいが...
> grep("(?<=/)\\d*(?=/)", c("2007/1/1","2007/2/2", "2007...
[1] "2007/1/1" "2007/2/2" "2007/12/31"
//
- 私の環境では上のコードはエラーになりました。sub(".*\\/(...
- 私の環境を明記するのを怠ってしまい，失礼しました。OSはW...
> sessionInfo()
R version 2.5.1 (2007-06-27)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.93...
attached base packages:
[1] "stats" "graphics" "grDevices" "utils" "dat...
[7] "base"
akiraさんのご回答をコピペしたら，意図通りの動作をしました...
- \\1でマッチングされた()内のパターンを示すことができるの...
> sub(".*\\/(.*)\\/.*","\\1",c("2007/1/1","2007/2/2", "2...
[1] "1" "2" "12"
> sub(".*/(.*)/.*","\\1",c("2007/1/1","2007/2/2", "2007/...
[1] "1" "2" "12"
-- [[うち]] &new{2008-10-07 (火) 09:11:38};
- 我々年寄りは, sedなりawkなりで正規表現(セパレータが'/')...
- ご回答ありがとうございます。疑問が解けてすっきりしまし...
**xtabで得たテーブルをdataframe化する [#f5827c7b]
>[[ssamu]] (2008-10-06 (月) 05:17:40)~
~
こんにちは、お世話になります。~
今までもっぱら文系の道を歩んできましたが、将来の研究のた...
初歩的な質問で大変恐縮ですが、xtab関数を使用して得た結果...
（もしくは、data.frame形式に変換できないでしょうか？）~
[,2]のように指定して列を切り出したり、という操作。~
~
例えば、LanguageRのパッケージの中にあるwarlpiriというデー...
~
xtabs(~Speaker+CaseMarking, data = CaseMarking)~
TABLE1=xtabs(~Speaker + CaseMarking , data = CaseMarking)~
~
~
~
の様に集計を行ったとして、この「TABLE1」を再利用／加工し...
~
間接的な回答でもご教示いただけると非常にありがたいです。~
//
- table2 <- data.frame(TABLE1) 呈示されたプログラム断片に...
- 変数への挿入は = ではなく <- にすべし。関数の引数の ...
- 「変数への%%挿入%%は = ではなく」→「変数への''代入''は...
- 「table2 <- data.frame(TABLE1)」では、質問者がやりたい...
- TABLE2<-as.data.frame(TABLE1） -- &new{2008-10-06 (月)...
- ＞ 答える前に確認すべし ごもっとも。しかしまあ，何がや...
- 迅速な回答、ありがとうございます！(xtabの構造のため？)...
**同じ内容のデータを複数回とってあり、その回数を変数とし...
>[[やぼてん]] (2008-10-04 (土) 16:19:23)~
~
お世話になります。<R本読むだけ>から、ようやく<Rを使いはじ...
~
個体ごとに、生きている葉の数と死んでいる葉の数が数えあり...
~
32 15 0 12~
32 15 1 7~
33 50 0 8~
33 50 1 18~
というものになります。~
~
分かりたいのは、生きている葉の数、死んでいる葉の数をどの...
~
glm(D_or_A ~ TREAT, binomial, weight=LEAF_NO)~
としてもうまくいきませんでした。~
~
よろしくお願いします。~
//
- データフレームは，一ケース1行で表した方が良いと思う。。...
32 15 12 7
33 50 8 18
- この分析がどういうことをやろうとしているのかちょっとわ...
> xy <- data.frame(NO=32, TREAT=15, D_or_A=0, LEAF_NO=12)
> xy <- rbind(xy,c(32, 15, 1, 7), c(33, 50, 0, 8), c(33,...
> res_glm <- glm(D_or_A ~ TREAT, binomial, weight=LEAF_N...
> res_glm
Call: glm(formula = D_or_A ~ TREAT, family = binomial, ...
Coefficients:
(Intercept) TREAT
-1.11754 0.03857
Degrees of Freedom: 3 Total (i.e. Null); 2 Residual
Null Deviance: 61.83
Residual Deviance: 57.1 AIC: 61.1
となって、一応エラーは出ずに済んでいるみたいですね．どの...
- アドバイスありがとうございます。 ”Ｒによる医療統計...
- 私は統計学の専門家ではありませんし、医療関連のデータを...
> xy2 <- matrix(as.matrix(xy[1,1:3]),xy[1,4], 3, byrow=T)
> xy2 <- rbind(xy2, matrix(as.matrix(xy[2,1:3]),xy[2,4],...
> xy2 <- rbind(xy2, matrix(as.matrix(xy[3,1:3]),xy[3,4],...
> xy2 <- rbind(xy2, matrix(as.matrix(xy[4,1:3]),xy[4,4],...
> xy2 <- data.frame(xy2)
> colnames(xy2) <- c("NO", "TREAT", "D_or_A")
> res2_glm <- glm(D_or_A ~ TREAT, binomial, data=xy2)
> res2_glm
Call: glm(formula = D_or_A ~ TREAT, family = binomial, ...
Coefficients:
(Intercept) TREAT
-1.11754 0.03857
Degrees of Freedom: 44 Total (i.e. Null); 43 Residual
Null Deviance: 61.83
Residual Deviance: 57.1 AIC: 61.1
結果は、自由度の行以外まったく同じでした．これを見る限り...
> xy3 <- data.frame(NO=32, TREAT=15, D_or_A=7/19, LEAF_N...
> xy3 <- rbind(xy3, c(33, 50, 18/26, 26))
> res3_glm <- glm(D_or_A ~ TREAT, binomial, weights=LEAF...
> res3_glm
Call: glm(formula = D_or_A ~ TREAT, family = binomial, ...
Coefficients:
(Intercept) TREAT
-1.11754 0.03857
Degrees of Freedom: 1 Total (i.e. Null); 0 Residual
Null Deviance: 4.722
Residual Deviance: -2.761e-30 AIC: 10.93
だと、自由度は１と（AICとかは違いますが）・・・自由度の考...
- ichigoさん、さっそく展開データ（＝重複をひとつひとつ繰...
- この中を「自由度」で検索してみたら同様の内容が．[[Ｑ＆...
- ichigoさん まさに同じ内容のことが質問されていました。...
- wightsオプションで、自由度が大きくならない理由について...
**因子の置換（追加） [#w3395280]
>[[うち]] (2008-10-03 (金) 19:58:06)~
~
因子を置換（追加）する処理をしたいのですが，下記のような...
> iris2 <- iris
> unique(iris2$Species)
[1] setosa versicolor virginica
Levels: setosa versicolor virginica
>
> #Sepal.Length>7.5以上の種名をhogeに置換
> iris2$Species <- ifelse(iris2$Sepal.Length>7.5, "hoge"...
> class(iris2$Species) #文字列になってしまう
[1] "character"
> iris2$Species <- as.factor(iris2$Species) #後で因子に...
> unique(iris2$Species) #変になってしまう
[1] 1 2 3 hoge
Levels: 1 2 3 hoge
> iris2$Species <- as.character(iris2$Species) #先に文字...
>
> iris2$Species <- ifelse(iris2$Sepal.Length>7.5, "hoge"...
> iris2$Species <- as.factor(iris2$Species)
> unique(iris2$Species) #意図したようになる
[1] setosa versicolor virginica hoge
Levels: hoge setosa versicolor virginica
//
- 後半の方法で動くなら問題ないのでは？これじゃダメなんで...
- atomic type のfactorの使い方の問題です。factor typeは曲...
> str(iris2$Species)
Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1...
このように、characterの後ろにカテゴライズされたnumeric(1 ...
- ご回答ありがとうございます。下記のようにgsub()で置換し...
> iris2$Species <- gsub("versicolor","hoge", iris2$Speci...
> iris2$Species <- as.factor(iris2$Species)
> unique(iris2$Species)
[1] setosa hoge virginica
Levels: hoge setosa virginica
> str(iris2$Species)
Factor w/ 3 levels "hoge","setosa",..: 2 2 2 2 2 2 2 2 ...
-- [[うち]] &new{2008-10-04 (土) 15:09:47};
- その通りです。factor type をas.numeric()で取り出せば、n...
**heatmapのセルの色 [#z0382348]
>[[hm]] (2008-10-01 (水) 14:57:21)~
~
行列xの要素は0と1の2値データです。(i) heatmapにおいてデフ...
set.seed(101)
x = matrix(sample(c(0,1), 100, replace=TRUE),10,10)
heatmap(x)
//
- 色はxの値によって付けているのではなく，デンドログラムの...
- 縦軸の増加方向をどうするかは考えてもらうことにして，以...
set.seed(101)
x <- matrix(sample(c(0, 1), 100, replace=TRUE), 10, 10)
plot(c(1, ncol(x)+1), c(1, nrow(x)+1), type="n", asp=1,
bty="n", axes=FALSE, xlab="", ylab="")
for (i in 1:ncol(x)) for (j in 1:nrow(x))
rect(i, j, i+1, j+1, col=1, density=c(0, 100)[x[j, i]])
#ref(board.png)
- 白黒にしたいだけなら、 image(x, col=c("white","black"))...
- [[heatmap:http://rgonzui.nakama.ne.jp/R/markup/R-2.7.0/...
- アドバイスありがとうございます。heatmap(x, col=c("white...
set.seed(101)
x = matrix(sample(c(0,1),25,replace=TRUE),5,5)
rownames(x) = LETTERS[1:nrow(x)]
heatmap(x, col=c("white","black"))
- よく見よう。heatmap(x, col=c("white","black"))じゃなくi...
heatmap はデンドログラム付なので，行・列が並べ替えられて...
- (1) heatmapにおいてセルの色を白黒にするには、どうすれば...
- 色々注文する前に，? heatmap, ? image をちゃんと読んだか...
- 私自身よくわかっていませんが
heatmap(x, scale="none")
でどうでしょう？白黒にしたいなら
heatmap(x, scale="none", col=c("white","black"))
でしょうか・・・？ -- [[ichigo]] &new{2008-10-02 (木) 10:...
- hmさんのおっしゃる「col=c("white","black")にしても、デ...
> heatmap(rbind(0,x), col=c("white","black"))
> heatmap(rbind(1,x), col=c("white","black"))
のような、同一行がすべて同じ値だった場合と推察．この場合も
scale="none"
をつけると、うまくいく？
heatmap(x)
だけの場合で２色以上使われるのは、行ごとにスケーリングさ...
- ありがとうございます。scale="none"で解決しました。 -- [...
**Meadow+ESSにおける文字化け [#k5d0bbaa]
>[[Kai]] (2008-10-01 (水) 13:51:45)~
~
お世話になります。しょうもない疑問で申し訳ありませんが、...
~
使用環境~
・Windows XP~
・Meadow 3.00~
・ESS-5.3.8~
・R-2.7.1~
において、日本語データを格納したデータをedit()で開くと、...
・Meadow上では、日本語データを文字化けさせないで表示できる~
・edit上で、文字化けした項目を選択すると、正しい日本語が...
・Rだけで同様の処理をすると、edit()上でも文字化けは起って...
~
説明が不明瞭で申し訳ありませんが、Meadow＋ESS+R環境で、ed...
~
文字化けをなくす方法はありませんでしょうか？~
//
- R_HOME/etc/Rconsole(必ずインストールしたシステム設定の...
- ご助言ありがとうございます。試してみます。 -- [[Kai]] &...
**demoおよびpackageのhelpについて [#o22ab7e4]
>[[KW]] (2008-09-30 (火) 10:45:56)~
~
初めまして，初歩的な質問で申し訳ないのですが，demo()やlib...
~
> demo()
Warning message:
In file.show(outFile, delete.file = TRUE, title = paste(...
~
> library(help=stats)
Warning message:
In file.show(outFile, delete.file = TRUE, title = gettex...
~
使用環境は以下の通りです。~
> sessionInfo()
R version 2.7.2 (2008-08-25)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.93...
attached base packages:
[1] stats graphics grDevices utils datasets me...
> .libPaths()
[1] "C:/PROGRA~1/R/R-27~1.2/library"
> .packages(all.available = TRUE)
[1] "base" "boot" "class" "cluster" ...
[9] "grDevices" "grid" "KernSmooth" "lattice" ...
[17] "nnet" "rpart" "spatial" "splines" ...
[25] "tools" "utils" ~
通常のhelpメニューは表示されます。またパッケージも普通に...
//
- 再インストールしたほうがいいかも。 -- [[okinawa]] &new{...
- ありがとうございます。再インストールしたのですが，状況...
- 私の環境winxpsp2,R2.7.2では再現しません。OS周りの障害っ...
- どうもすみません，自己解決しました。OSはWinXPです。Cド...
- ああ、そこでしたか。windowsのRの鬼門ですね。 -- [[okina...
**version 2.7.2 日本語版ではなく英語版で使いたい [#v998f6...
>[[Rei]] (2008-09-28 (日) 20:05:42)~
~
お世話になります。~
最新バージョン 2.7.2 をインストールしたところ、以前のバ...
(1) 使用環境: Windows Vista~
(2) 使用PC: 日本語PC~
(3) インストールに使用する言語を英語にしたが同様であった。~
(4) ミラーサイトをUSAでダウンロードしたが同様であった。~
//
- 日本語化掲示板『[[日本語メニューと英語メニューの一発変...
- GUI preferencesのLanguage for menu *** の中にUSと入れて...
- なんと・・・！どうもありがとうございました。 -- [[Rei]]...
**分散の期待値を求めたい [#n6dfd744]
>[[お団子]] (2008-09-25 (木) 08:05:39)~
~
Saitoさんごめんなさい間違った場所に投稿しました。再投稿し...
~
SASでは、次のようにプログラムすると、下記のような~
分散の期待値が求められますが、これをRで実行する方~
法（関数）はあるのでしょうか？~
~
model Data = R A R(A) B A*B R(A B) / ss2 e2;~
random R R(A) R(A B);~
~
変動因 Type II 期待平均平方~
R Var(Error) + Var(R(A*B)) + 2.8182...
A Var(Error) + Var(R(A*B)) + 2.8765...
R(A) Var(Error) + Var(R(A*B)) + 2.7273...
B Var(Error) + Var(R(A*B)) + Q(B,A*...
A*B Var(Error) + Var(R(A*B)) + Q(A*B)~
R(A*B) Var(Error) + Var(R(A*B))~
//
**image()でカラーバー（凡例？）を表示したい [#h6d81d3b]
>[[想]] (2008-09-23 (火) 15:52:51)~
~
場所を間違えて質問してしまったようでご迷惑をお掛けいたし...
以下原文ですが、宜しくお願いいたします。~
~
「contour()ではカラーバーが自動的に右側に描写されますが~
これをimageの方で表示することは出来ないのでしょうか？~
helpを読んでもそのような記述は見当たらず・・・質問させて...
~
wiki内でimageやカラーバーといった単語検索を試しましたが見...
//
- もっと詳しく書かないと回答のしようがない -- &new{2008-...
- 通常三次元データをimage()で描写しますとhttp://cse.naro....
- filled.contour()ですとhttp://www.okada.jp.org/RWiki/?pl...
- filled.contour() を使えばいいのでは？と言われたら，どう...
さらに，先読みして答えれば，filled.counter のソースを呼ん...
- コメントありがとうございます。filled.contour()は等高線...
- example() では再現できないのでしょうかね？ちゃんと再現...
「filled.contour()は等高線描写なせいか隣の点との境界がに...
- 直接描く方法ならこんな感じでしょうか？ -- [[ichigo]] &n...
NN <- 100
x <- 10*(1:nrow(volcano))
y <- 10*(1:ncol(volcano))
image(x, y, volcano, col = terrain.colors(NN), axes = FA...
cols <- terrain.colors(NN)
for( ii in 1:NN ){
rect(par()$usr[1]+(par()$usr[2]-par()$usr[1])/NN*(ii...
par()$usr[1]+(par()$usr[2]-par()$usr[1])/NN*ii, ...
col=cols[ii] , border=NA)
}
rect(par()$usr[1], par()$usr[3], par()$usr[2]-1, par()$u...
- お二方ありがとうございます。 -- [[想]] &new{2008-09-24 ...
- > z<-matrix(1:9,nrow=3,ncol=3)> image(1:3,1:3,z)> fille...
- 指摘していただきましたソースを読んでのimage()改造ですが...
- Rもwikiも不慣れな私に丁寧にアドバイスしていただいて、本...
- imageを改造するより、filled.contourを改造したほうが早い...
- .Internal(filledcontour(as.double(x), as.double(y), z, ...
- 追加アドバイスありがとうございます。書き換えた内容で新...
**dev.off()等の出力をコントロールするには？ [#ne25e9ad]
>[[ichigo]] (2008-09-19 (金) 17:04:34)~
~
たとえば~
>postscript()
>plot(1:10)
>dev.off()
とすると~
postscript
2
と、デフォルトで表示されると思うのですが、これを出さない...
いろいろ試したり、検索したりしたのですがわからなくて困っ...
-options()には、これ関連のオプションはなさそう~
-Rを起動するときの「--slave」オプションでも抑制できない．
-(dev.off())とかやっても、出力されてしまう（当然ですか（...
~
環境は
R version 2.4.1 (2006-12-18)~
i686-pc-linux-gnu~
です．よろしくお願いします．
//
- 汚いけど、sink()でファイルに吐き出せば？ -- &new{2008-...
- invisible() -- &new{2008-09-19 (金) 17:38:23};
- junk <- dev.off() でも（所詮ゴミなんだから） -- &new{2...
- みなさま（それともおひとり・・・？）ありがとうございま...
--「junk <- dev.off()」でも、出来たんですね・・・まさか戻...
--sinkはsink("/dev/null")でいけそうです．
--invisible()というのは初めて知りました．勉強になりました...
**data.frameの列数 [#lbdbcca9]
>[[kd]] (2008-09-18 (木) 23:23:37)~
~
data.frameに関するエラーメッセージ（下記例，R 2.7.2）なの...
> test<-data.frame(c(1:2),c(1:3))
以下にエラー data.frame(c(1:2), c(1:3)) :
引数は異なった列数を意味します: 2, 3
//
- 思い切り古い R-1.5.1 でやってみると，Error in data.fram...
手元に用意している一番古い R-0.49 だと，Error in data.fra...
で，だいぶ違ってたのねぇ。 -- &new{2008-09-19 (金) 00:06...
**ある範囲に含まれる生物の数をカウントするには [#m77571f6]
>[[Saito]] (2008-09-17 (水) 22:50:20)~
~
いつもお世話になっています。~
似たような質問がないか探しましたが、見つけられなかったの...
~
ある調査区域を調査して、区画ごとにそこにいた生物の個体数...
lon=runif(20,131,132)
lat=runif(20,46,49)
ss=rpois(20,5)
d=data.frame(lon,lat,ss)
with(d,
{
plot(lon, lat, col=as.factor(ss),
xaxp=c(131,132,10), ylim = c(46, 49), panel.fi...
)
}
)
ここで質問なのですが、それぞれの区画での合計発見数(ssの値...
環境はWindowsXp, R-2.7.2です。~
~
どうかよろしくお願いします。~
//
- え〜〜。なにがやりたいのかなあ。前半については，lonとla...
lon2 <- floor(lon/0.1)*0.1
lat2 <- floor(lat/0.1)*0.1
table(lon2, lat2) # programmed by 一言居士
後半は，
lon3 <- rep(lon2, ss)
lat3 <- rep(lat2, ss)
table(lon3, lat3) # programmed by 一言居士
かな，ちょっと手抜きだけど。~
0.1 は要するに，区間幅ね。好きな幅にして。「*0.1」 はあっ...
- 回答ありがとうございます。クロス集計という単語はあまり...
- table(cut(lat, seq(46,49,.5)),cut(lon, seq(131,132,.2))...
- 後半は，table(rep(cut(lat, seq(46,49,.5)),ss),rep(cut(l...
- すごい！納得致しました。latやlonの箇所をss分だけ繰り返...
- 後半は，rep は使わないでよい。以下のように xtabs を使っ...
xtabs(ss~cut(lat, seq(46,49,.5))+cut(lon, seq(131,132,.2...
とすべきだった。cut の結果を2回使うので，変数として取って...
lat4 <- cut(lat, seq(46,49,.5))
lon4 <- cut(lon, seq(131,132,.2))
table(lat4, lon4) # xtabs(~lat4+lon4) と同じ
xtabs(ss~lat4+lon4)
蛇足ながら -- 一言居士 &new{2008-09-18 (木) 07:24:54};
- おお、すごいシンプルに！また勉強させていただきました。...
- すみません。追加で質問させてください。上記のプログラム...
lon=runif(20,131,132)
lat=runif(20,46,49)
ss=rpois(20,5)
lat4 <- cut(lat, seq(46,49,.5))
lon4 <- cut(lon, seq(131,132,.2))
a3=xtabs(ss~lat4+lon4)
a33=as.data.frame(a3)
s<-rep(seq(46,48.5,.5),length(seq(131,131.8,.2)))
s2<-s+0.5
r<-rep(seq(131,131.8,.2),each=length(seq(46,48.5,.5)))
r2<-r+0.2
mean.lat<-(s+s2)/2
mean.lon<-(r+r2)/2
d3<-data.frame(a33$lat4,a33$lon4,mean.lat,mean.lon,a33$F...
d3
ただ、どうにも手動の部分が多く(s,rを作成するあたり)データ...
よろしくお願いします。 -- [[Saito]] &new{2008-10-09 (木) ...
**Windows版 R-2.7.1 で日本語ファイルパスはダメですか？ [#...
>[[米]] (2008-09-17 (水) 17:50:44)~
~
メニュバーから File | Source R code... を選択し，日本語を...
~
Error in file(file, "r", encoding = encoding) : ~
cannot open the connection
In addition: Warning message:~
In file(file, "r", encoding = encoding) : cannot open fil...
~
OSはWindowsXP，Rのバージョン2.7.1です．ちなみに，R-2.4.1...
//
- はい, 日本語パスは問題があるので, asciiのpath配下に変更...
- 了解しました．ありがとうございます． -- [[米]] &new{200...
**ロジスティック回帰分析におけるsommersDの求め方 [#z8b7f9...
>[[basel]] (2008-09-17 (水) 12:16:01)~
~
ans<-glm(y~x,family=binomial(link="logit"),data=ds)~
でロジスティック回帰分析を行った後に、「SommersD」を求め...
//
- ソマーズのDは，属性相関係数の一つだと言うことはおわかり...
- この場合、y,xの相関です。 -- [[basel]] &new{2008-09-17 ...
- [[必要な関数を探す]]の「検索サイトで探す」のR site sera...
**コンジョイント分析 [#iceabe44]
>[[マーケター]] (2008-09-16 (火) 17:18:27)~
~
コンジョイント分析のできるパッケージはないでしょうか~
//
- コンジョイント分析といっても，程度も範囲も広いようです...
非常に限定的で単純なものは，lm（重回帰分析）でやれるよう...
- 直交表を生成してくれる関数がＲにあれば、lm（重回帰分析...
- 任意の直交表を生成するのもいいけど，既存の直交表で対応...
任意の直交表を作るのも，そんなに大変なことではないけど（...
それと，lm を使う解法って，近似解というか特殊な場合につい...
以下のプログラムは，L8 直交表を探索します。無駄は多いが。
z <- x <- rep(1:2, each=4)
m = 1
for (i in 1:90000) {
y <- sample(x)
if (cor(x, y) == 0 && y[1] == 1) {
tmp <- cbind(z, y)
if (sum(abs(cor(tmp)-diag(m+1)))==0) {
z <- tmp
m <- m+1
print(m)
}
}
} # programmed by 一言居士
> z
z y y y y y y
[1,] 1 1 1 1 1 1 1
[2,] 1 2 1 1 2 2 2
[3,] 1 1 2 2 2 1 2
[4,] 1 2 2 2 1 2 1
[5,] 2 2 1 2 2 1 1
[6,] 2 2 2 1 1 1 2
[7,] 2 1 1 2 1 2 2
[8,] 2 1 2 1 2 2 1
> cor(z)
z y y y y y y
z 1 0 0 0 0 0 0
y 0 1 0 0 0 0 0
y 0 0 1 0 0 0 0
y 0 0 0 1 0 0 0
y 0 0 0 0 1 0 0
y 0 0 0 0 0 1 0
y 0 0 0 0 0 0 1
そのほかの直交表も，rep(1:2, each=4) のところを変えればで...
- す、すごい！ 有難うございました -- [[マーケター]] &new...
**変動パターンが似ているもの同士をクラスタリングすること...
>[[R初心者]] (2008-09-15 (月) 16:38:52)~
~
複数の遺伝子の発現を数時間毎に測定し、それをデータとして...
その際に、1,2,3...と2,3,4...といったような、生じる値は異...
//
- 「数字の変動の傾向」が変量になると思いますので、それを...
**連続して計算された値を順に書き出したい [#ac09a7b0]
>[[Saito]] (2008-09-11 (木) 20:34:09)~
~
いつもお世話になっています。~
既出でしたら申し訳ありません。似たような例を探したのです...
> r=0
> t=0
> for(i in 1:99){
> ifelse(sample(0:1,1)==0,r<-r+1,t<-t+1)
> }
> c1=data.frame(r,t)
>
> r=0
> t=0
> for(i in 1:100){
> ifelse(sample(0:1,1)==0,r<-r+1,t<-t+1)
> }
> c2=data.frame(r,t)
> c3=merge(c1,c2,all=T)
> c3
> r t
> 1 45 54
> 2 48 52
となります。ここでは99と100というたった2つの場合ですが、...
なお、OSはWindowsXp、Rのバージョンは2.7.2です。~
//
- すみません、題名がよくないのですね。forにこだわっている...
- やりたいことは分かりましたが，それを for を使ってやる方...
func は，0/1 乱数を n 個発生させて，0，1 の個数を数えそれ...
sapply は，func を使って何回か実験をする。毎回何個の0/1乱...
しかし，全体としては，何だかなあと言うできばえのプログラ...
> func <- function(n) { # 実験の記述
+ x <- sample(0:1, n, replace=TRUE)
+ t <- sum(x)
+ r <- n-t
+ return(c(r=r, t=t))
+ } # programmed by 一言居士
> sapply(sample(50:100, 5, replace=TRUE), func) # 5 回実...
[,1] [,2] [,3] [,4] [,5]
r 48 32 39 35 26
t 49 31 39 25 33
- 本当に，あなたが書いたように 0/1 データの 0 と 1 を数...
- sapplyは全く使いこなせていませんでした。なるほど、こう...
s=sapply(sample(1:100, 5000, replace=TRUE), func)
t=t(s)
plot(t)
という図を作りたかったのです。といいますのも、論文である...
**plot図の保存方法について [#mef54719]
>[[basel]] (2008-09-11 (木) 19:36:05)~
~
たとえばboxplotを作図してjpegで保存したい場合、~
bp<-boxplot(a~b)~
save(bp,file="bp.jpeg")~
ではだめだったのですが、何が原因なんでしょうか？~
//
- うまくいかないのは，そういう方法で保存するのではないた...
- [[R-Tipsの「47. 作図の準備」:http://cse.naro.affrc.go.j...
**clip()の動作がよく分かりません。 [#uec785c7]
>[[hanageishi]] (2008-09-09 (火) 12:02:03)~
~
clip()が期待通りに動作してくれません。~
使用環境は WindowsXP, R version 2.7.1 (2008-06-23)です。~
~
以下のようにすれば、par()$usrはc(0.96,2.04,2.96,4.04)です...
> windows()
> plot(1:2,3:4)
> clip(0.9,2,3,4)
> points(0.96,3.4)
ところがなぜか、そのあともう一度clip()を呼び出すと、今度...
> clip(0.9,2,3,4)
> points(0.96,3.2)
ただclip()を二回立て続けに呼び出しただけではだめなようで...
//
- How the clipping rectangle is set depends on the settin...
- どのような動作を期待しているのかよくわからないが，par(x...
- なるほど、clip()と同時にpar(xpd=TRUE)をしておけば、求め...
- っていうか，clip() いらないんじゃ？ -- 一言居士 &new{20...
- や、プロットが左にはみ出してもいいけど下にはみ出しても...
- わたしは, clipを使った事が無いので見てみました.(嗚呼ぁ....
- 嗚呼ぁ、やはり嗚呼ぁなのですね...。gridとはgrid graphic...
**quantileの逆引きが出来ますか？ [#vdd90f19]
>[[maruru]] (2008-09-03 (水) 03:19:25)~
~
正規分布で平均値、標準偏差、0.025、0.975、サンプル数が既...
//
- [quantleを推定]とは，どういうこと？何を求めるの？ -- 一...
- 25%分位点、75%分位点を求められないかと思いました。サン...
- サンプル数が未知であっても，母分布の母平均・母標準偏差...
[quantileの逆引き]なんて言うから話が通じない。。。。~
具体的には，平均値が50，標準偏差が10（いわゆる，偏差値で...
答え，
> qnorm(0.75, mean=50, sd=10) # programmed by 一言居士
[1] 56.7449
上から2.5%目のものの得点はいくつか。
> qnorm(0.975, mean=50, sd=10) # programmed by 一言居士
[1] 69.59964
それが，なにか？ -- 一言居士 &new{2008-09-03 (水) 21:10:5...
- 早速のご教示、ありがとうございます。如何質問すればいい...
**X11 module cannot be loaded？ [#x3a8b53d]
>[[lis-kyoto]] (2008-09-02 (火) 17:16:15)~
~
SUSEのunixにRをyast2からインストールしまして、~
確率分布を描くプログラムを実行させようとしましたところ、~
~
Error in X11(): X11 module cannot be loaded~
In addition: Warning messeage:~
In X11(): unable to load shared library '/R/modules//R_X1...
/usr/lib/R/modules//RR_X11.so: undefined symbol: cairo...
~
というエラーでできませんでした。（WindowsでRをインストー...
もともと、SUSEにインストールの時にも、cairoがないとか言わ...
X11も、cairoもunixにはちゃんと入っていたので無視してイン...
なにかpathが通っていないのか、Rの問題なのか、調べてみたの...
//
- cairoのバージョンがビルド時と違うのでしょう, "~/.Rprofi...
setHook(packageEvent("grDevices", "onLoad"),
function(...)
grDevices::X11.options(type="Xlib"))
などと買いて, cairoを無効にしてみて下さい. -- [[なかま]] ...
- どうもありがとうございます。やってみます！/R/bin/Rprof*...
- ?.Rprofileとしてヘルプを見てください. あなたが言ってる...
- あああああ, そかそか, 前にも同じような質問が... えっと,...
- なかまさま。どうもありがとうございました。結局、cairoの...
**Rパッケージインストーラの一覧の二重表示 [#rbcf27db]
>[[伊太利屋次郎]] (2008-09-01 (月) 12:44:11)~
~
OSX 10.5.4でR 2.7.2を使用しています。実害はない（？）と思...
どうなっているのでしょうか？~
//
- ちょっとみただけですが，私の環境ではそのようなことはな...
- リポジトリーにあるバージョン（すべて）です。CRANミラー...
- おかしいですね？うちではこうなっていますけど。 -- &new...
#ref(package.png)
- はい，おかしいいです？！ 自分はこうなっています。 -- [...
#ref(double_pkg_instlr.jpg)
- AppCleanerを使って/Application/R.app, ~/Library/Prefere...
**2次元の散布図で、ラベルが他のラベルやマークと重ならない...
>[[Koichi]] (2008-09-01 (月) 01:44:08)~
~
お世話になります。2次元の散布図を作成しようとして、表題の...
ています。~
~
hoge <- matrix(
c(
1, 1, "label1",
1, 0.99, "label2",
1, -1, "label3(this is long)",
-1, 1, "label4(long again)"
), ncol=3, nrow=4, byrow=TRUE
)
plot(hoge)
text(hoge, hoge[,3], pos=1)
~
このようにラベルをそのままプロットすると、ラベル同士が重...
ルの一部がプロットエリアの外に出てしまったり（表示されな...
す。~
~
目標は、上のhogeのようなデータを元に、以下のようなプロッ...
生成することです。~
~
fuga <- matrix(
c(
0.85, 1,
0.95, 0.9,
0.75, -0.9,
-0.7, 1
), ncol=2, nrow=4, byrow=TRUE
)
plot(hoge)
text(fuga, hoge[,3])
~
このように自動的にラベル位置を調節してくれるような関数は...
うか？ identify関数が、これに近いこと（なるべく空いたスペ...
表示）をやってくれるようなのですが、点を1つずつクリックし...
のは少し厳しいものがあります。お知恵をかしていただけまし...
//
- 誰も反応しないので、 -- [[谷村]] &new{2008-09-09 (火) 1...
library(maptools)
pointLabel(x=as.numeric(hoge[,1]),y=as.numeric(hoge[,2])...
地図のラベルではよくある問題です
- まさしくこういうものを探し求めておりました。感動しまし...
**csvデータを読み込み時系列の棒グラフを作成したい [#b7a7c...
>[[マーサ]] (2008-08-31 (日) 14:19:21)~
~
始めまして！マーサと申します。~
Rは2日目の初心者です、Rの解説本を読みながら手探りで勉強を...
下記にcsvデータと試したコマンドを記述してみます。~
このcsvデータ（データ数は710個）から時系列の棒グラフを作...
日付 天山高~
2001/10/2 2~
2001/10/3 61~
2001/10/4 4~
2001/10/5 ~
2001/10/6 3~
2001/10/7 2~
2001/10/8 ~
2001/10/9 2~
~
入力したコマンド~
x <- read.csv("C:/R-sample/IJT.csv")) ~
~
barplot(x) # 以下にエラー barplot.default(x~
# 'height' はベクトルか行列でなければなり...
以上です、またこのデータは項目が1個ですが、元データは日付...
日付 天山高 天山低 天山微 天山その他 眼鏡岩高 眼鏡...
2001/10/2 2 6 2 11 6 ~
2001/10/3 6 1 7 1 145 8 1 16 1 ~
2001/10/4 42 2 2 2 3 ~
2001/10/5 3 3 3 3 1 ~
2001/10/6 3 4 3 4 1 ~
2001/10/7 2 1 2 1 1 1 ~
2001/10/8 1 1 ~
2001/10/9 2 1 2 3 2 2~
//
- 時系列データは折れ線グラフで描く方がよいと思いますね。~
それはさておき，まず，データがちゃんと読めているか確認し...
データの引用法について調べてくださいね。バープロットで描...
barplot(x[,2], names.arg=x[,1]) # programmed by 一言居士
画面を区切って複数のグラフを描く方法は，layout を調べまし...
- ご教示ありがとうございました、棒グラフ出来ました、この...
**stepwise法におけるupper,lowerの設定 [#b1b8da70]
>[[basel]] (2008-08-28 (木) 15:50:56)~
~
ans<-step(glm(y~x,data=df)~
とステップワイズ法を実行するとき、上・下限値の設定の仕方...
sasでいうところのslentry,slstayをどのようにコメントすれば...
//
- ? step として，ヘルプを読むと，そういう機能を指定する引...
- helpでscopeというところにそれらしいことが書いてあったよ...
- それは違う -- 一言居士 &new{2008-08-28 (木) 18:49:48};
**日本語を含むEPSファイルをGhostscript7.07で表示できない ...
>[[Koichi]] (2008-08-22 (金) 01:09:40)~
~
Windows XPでR 2.6.2を使用しております。以下のようにしてR...
出力したEPSファイルが、Ghostscript7.07で表示できず（TeX文...
に貼り付けることができず）困っております。~
plot(0,main="ほげ")
dev.copy2eps(file="c:\\hoge.eps", family="Japan1Ryumin")
Ghostscript 8.63では表示できるのですが、できればまだ8.xx...
移行したくありません。7.07の設定が悪いのかと思って、試行...
しているのですが、なかなか上手く行きません。現在のCIDFnma...
中身は以下のようになっています。~
/Ryumin-Light /MS-Mincho ;
/GothicBBB-Medium /MS-Gothic ;
/HeiseiMin-W3 /Ryumin-Light ;
/HeiseiKakuGo-W5 /GothicBBB-Medium ;
/MS-Mincho (msmincho.ttc) 1 ;
/MS-Gothic (msgothic.ttc) 1 ;
~
GS7.07の設定のヒント、あるいは、「うちではGS7.07でも~
ちゃんと見えているよ」といった情報等、教えていただけ~
ましたら幸いです。~
~
なお、GS7.07のエラーは以下のようなものがでています。~
Error: /undefinedresource in --findresource--
Operand stack:
Ryumin-Light-Bold basefont-H .basefont-H Identi...
--nostringval-- CMap Identity-H CMap Identity-H
Execution stack:（後略）
//
- PostScript以外をお使い頂くか, gsをバージョンアップする...
- ご返信ありがとうございます。その後もう少し試行錯誤して...
**ロジスティック回帰におけるステップワイズ法 [#y4e22a67]
>[[basel]] (2008-08-20 (水) 17:46:59)~
~
glmのリンク関数"logit"で変数選択する場合、ステップワイズ...
ans<-glm(y~x1+x2...xn,family=binomial(link="logit"),data=...
この例でいうとどのようにすればよいのでしょうか？~
//
- step(ans) とするだけ。。。 -- &new{2008-08-20 (水) 21:...
- ありがとうございました。m(_ _)m -- [[basel]] &new{2008-...
**ベクトルの要素を並べ替えたものをすべて書き出したい [#ka...
>[[初心者]] (2008-08-19 (火) 11:04:26)~
~
おそれいります。~
~
あるベクトル~
x <- c(rep(1,19),rep(0,6))~
から、すべての要素を並べ替えたリストを作成したいのです。~
~
どうすればよろしいでしょうか。~
よろしくおねがいいたします。~
//
- つまり、考えうるすべての組み合わせ（＝25C6)のリストとい...
- 25C6ならcombinationsです。
a <- c("a","b","c")
apply(combinations(length(a),2),1,function(x,y) y[x], a)
ということですか？ -- [[akira]] &new{2008-08-19 (火) 11:4...
- 素早いご返事ありがとうございます。しかし、combinations ...
- 自己解決しそうです。gtoolsパッケージをインストールして...
- combn(25,6, function(x) {y <- numeric(25); y[x] <- 1; r...
- ありがとうございました。助かりました。combnでこんな使い...
**標準入力を行う関数 [#r2bdfcd0]
>[[one]] (2008-08-14 (木) 22:34:42)~
~
お世話になります。~
print()でYesかNoの入力をユーザーに促し、switch()で処理を...
C言語ならscanf()で標準入力ができますが、Rでそれに相当する...
~
環境はWindows R 2.7.1です。~
//
- ある。readline とか，readLinesとか？すきなものをどうぞ...
- ありがとうございます。「標準入力」で検索しても見つから...
**経験分布のP値 [#hd795c2a]
>[[sh]] (2008-08-14 (木) 03:17:04)~
~
観測データ全体のうち、興味ある値以下のものの「比率」を求...
set.seed(1)
x <- sort(rnorm(200))
ecdf.x <- ecdf(x)
ecdf.x(0.23)
としますが、より正確な「確率値（P-value）」を求めるにはど...
References: (1) [[階段関数、経験分布関数 - RjpWiki:http:/...
//
- どういう意味で「より正確な」というのでしょ？最尤推定値...
それと，あなたが求めたいといっているのは，P-value じゃな...
あなたがやりたいこと，やろうとしていることをもう少し，正...
- コメントありがとうございます。正確に述べず、大変失礼し...
set.seed(1)
x <- rnorm(130)
y <- rnorm(80)
(p.val <- 1 - ecdf(y)(x))
Reference: [[R help archive: Re: [R] Rank-based p-value o...
- 先に示した mean(x<0.23)を吟味していないね。今回のだって...
ecdf が何をするものなのかわかりますか？plot(ecdf(y)) とや...
- その質問の大元を見なかったんですか？http://tolstoy.newc...
なお，質問者が p-value という用語を使っているのは，まさに...
- Referenceの質問者は計算時間を縮小する方法を質問していま...
- 最尤推定値を求めて、正確なP-valueを求める方法がわかりま...
- 母分布が正規分布のとき，0.23より小さいものの確率（母比...
母比率は，
> pnorm(0.23)
[1] 0.5909541
ですが，標本の大きさを200，2000，20000，200000，2000000，...
> sapply(200*10^(0:5), function(n) {set.seed(1); x <- so...
mean(density(x)$x<0.23)}) # programmed by 一言居士
[1] 0.5214844 0.4941406 0.5527344 0.5371094 0.5234375 0....
ということになり，母比率とはずいぶん異なるようです。~
標本の大きさを200に固定して20回やってみると，
> sapply(1:20, function(n) {x <- sort(rnorm(200)); mean(...
[1] 0.4941406 0.5449219 0.5664062 0.5000000 0.5468750 0...
[8] 0.5761719 0.5156250 0.5136719 0.5273438 0.5175781 0...
[15] 0.5566406 0.5507812 0.5625000 0.5234375 0.5488281 0...
いつも，あんまり良い推定値ではないですね。 -- 一言居士 &n...
- アドバイスありがとうございます。mean(density(x)$x<0.23)...
> pnorm(0.23)
[1] 0.5909541
> summary(sapply(1:100, function(n) {x <- sort(rnorm(200...
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.4395 0.5059 0.5215 0.5283 0.5439 0.6465
> summary(sapply(1:100, function(n) {x <- sort(rnorm(200...
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.5050 0.5750 0.5950 0.5964 0.6162 0.6800
**特定の係数値だけを取り出したい [#c48c72a3]
>[[Saito]] (2008-08-12 (火) 17:02:22)~
~
似たような質問がないか探しましたが、見当たらなかったので...
set.seed(1)
a=rnorm(10,0,1)
b=rnorm(10,2,3)
c=lm(b~a)
coef(c)#aの係数だけを取り出したいとする。
coef(c)[2]#手動でaの係数の番号を指定して抽出
この場合ですと[2]という指定を手動で行っています。しかしこ...
//
- 要するに，foo という変数に対する係数を取り出したいと言...
- 回答ありがとうございます。明記されていたのですか。私の...
**ubuntuでのグラフィックデバイスの利用 [#jb682ace]
>[[myuhe]] (2008-08-04 (月) 19:32:30)~
~
ubuntuでrjpwiki内の次のページ(http://www.okada.jp.org/RWi...
インストール後、Rの起動はできたのですが、plot()などでグラ...
"以下にエラー plot.new() : 存在しないデバイスにプロッ...
linuxに関しては、最近使い始めたばかりで、もしかするとOSに...
解決法について、ご存知の方いらしたら、ご教示ください。~
なお、環境は以下のとおりです。~
os:ubuntu8.04 ※winXPとのデュアルブート~
Rver2.7.1~
（追記）sessioninfo()の出力結果を載せておりませんでしたの...
attached base packages:~
[1] stats graphics grDevices utils datasets me...
- すみません。自己解決しました。plot.new()で呼び出してお...
- 私は似たような環境（os:ubuntu7.10 ※winXPSP2とのデュアル...
> sessionInfo()
R version 2.6.1 (2007-11-26)
i486-pc-linux-gnu
locale:
LC_CTYPE=ja_JP.UTF-8;
LC_NUMERIC=C;
LC_TIME=ja_JP.UTF-8;
LC_COLLATE=ja_JP.UTF-8;
LC_MONETARY=ja_JP.UTF-8;
LC_MESSAGES=ja_JP.UTF-8;
LC_PAPER=ja_JP.UTF-8;
LC_NAME=C;LC_ADDRESS=C;
LC_TELEPHONE=C;
LC_MEASUREMENT=ja_JP.UTF-8;
LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets me...
loaded via a namespace (and not attached):
[1] rcompgen_0.1-17
家のPCが8.04&R2.7.1だった（でもdual bootでない）と思いま...
- 私の環境では問題ないです。
> sessionInfo()
R version 2.7.1 (2008-06-23)
i486-pc-linux-gnu
locale:
LC_CTYPE=ja_JP.UTF-8;
LC_NUMERIC=C;
LC_TIME=ja_JP.UTF-8;
LC_COLLATE=ja_JP.UTF-8;
LC_MONETARY=C;
LC_MESSAGES=ja_JP.UTF-8;
LC_PAPER=ja_JP.UTF-8;
LC_NAME=C;
LC_ADDRESS=C;
LC_TELEPHONE=C;
LC_MEASUREMENT=ja_JP.UTF-8;
LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets me...
ubuntu8.10です。 -- [[akira]] &new{2008-08-05 (火) 00:35:...
- 有用な情報ありがとうございます。う〜ん、なぜすんなりい...
- 他のデバイス（pdfとか、bmpとか）もダメですか?もしかして...
**WIN版Rで、RCMD BATCHのoutfileの文字コード変更 [#n0147990]
>[[okinawa]] (2008-08-01 (金) 13:28:17)~
~
いつもお世話になってます。okianwaです。~
windowsXPSP2、R2.5.1でRCMD BATCH infile.r outfile.txtを...
なにか良い方法はありませんでしょうか？よろしくお願いいた...
//
--- encodingはstdinの指示だけです. sink(...,encoding="UTF...
- やはりstdinだけでしたか・・・。なぜUTF-8で出したいかと...
- 設計に無理があると思いますが.... -- [[なかま]] &new{200...
**グラフの背景色の設定について [#z188689a]
>[[99]] (2008-08-01 (金) 06:45:49)~
~
グラフ作成時にグラフの背景色を好きな色に塗りつぶすにはど...
//
- ?windowsとかした? -- [[akira]] &new{2008-08-01 (金) 09:...
- windows?といいますと??? -- [[99]] &new{2008-08-01 (金) ...
- 貴方の動作環境がMacOSXならば，?windowsは機能しないでし...
- 各デバイスの作成時に決まりますので, plot.newでsetHookさ...
- ありがとうございます。できました。御迷惑お掛けしました...
**read.tableでの不具合 [#tdcc921c]
>[[basel]] (2008-07-31 (木) 12:53:10)~
~
csvファイルをread.tableで読み込んだあと、fixで内容を確認...
どのようにしたら良いのでしょうか？~
//
- csvはread.csv()じゃないの？ -- &new{2008-07-31 (木) 14...
- read.csv は read.table のシュガーコートなんだから，オプ...
> read.csv
function (file, header = TRUE, sep = ",", quote = "\"", ...
fill = TRUE, comment.char = "", ...)
read.table(file = file, header = header, sep = sep, quot...
dec = dec, fill = fill, comment.char = comment.char,...
<environment: namespace:utils>
- 質問したら，結果について反応をするのは礼儀でしょう。ど...
**fileでのエラー [#sdf7e91e]
>[[basel]] (2008-07-29 (火) 12:54:02)~
~
a <- file("ファイル名", open="r" encoding="cp932")~
を実行すると、~
「以下にエラーfile("c/:ファイル名", open="r" encoding="cp...
コネクションを開くことができません~
追加情報：Warning message:~
ファイル"c/:ファイル名"を開くことができません。理由は'Inv...
~
というエラーが出てしまいます。~
~
単純に~
a <- read.table("c/:ファイル名")~
ですと、~
「以下にエラーfile(file, "r"):コネクションを開くことがで...
追加情報：Warning message:~
ファイル"c/:ファイル名"を開くことができません。理由は'Inv...
というエラーが出てします。~
~
単純な質問ですが、よろしくご教授願いいたします。~
//
- x c/: o c:/ -- &new{2008-07-29 (火) 13:01:32};
- ありがとうございました. -- [[basel]] &new{2008-07-29 (...
- ところで Invalid argument とはどのようなエラーなんで...
- 引数 argument が，妥当でない invalid ということ。"c/:フ...
**一部の全角記号がクリップボード経由でメタファイルコピー...
>[[せーだ]] (2008-07-24 (木) 13:59:09)~
~
WinXP Pro で R-2.7.1 を使っており、~
以前から C:/Program Files/R/R-2.x.x/etc の中で~
Rconsole の Font セクション（19行目付近）を~
~
font = TT MS Gothic
~
に、Rdevga の TT Arial の部分を全て TT MS Gothic に修正し...
~
この状態で『〜』（から）や『−』（全角マイナス）など一部の...
含むグラフを作成し、クリップボードにメタファイルでコピー...
パワーポイントに貼ると、その記号だけ『?』に化けます。~
例えば以下のようなコードです。~
~
plot(sin, main="ほげ〜−ふが")
~
このような現象は R-2.6.2 までは発生しませんでした。~
なお、メタファイルを別ファイルとして保存したものはパワー...
問題なく取り込めます。~
解決策をご存知の方がいらっしゃれば、どうか御教示下さい。...
- パワーポイントで、編集 - 形式を選択して貼り付け - 拡張...
- あ、できた…。2.7系に上げたら問題が発生したという部分は...
- Unicode化の過程で現在部分的な拡張を行っているので当分の...
- 2.9.0では解決されているようです。CHANGES IN R VERSION 2...
o iconv() is now done by a version of Yukihiro Nakadaira's
win_iconv rather than by libiconv. This version is ba...
Windows' codepages and is not quite as comprehensive as
libiconv: it is however much smaller and easier to mai...
The implementation here is 100% compatible: you can dr...
libiconv's iconv.dll as a replacement if you need it, ...
http://www.stats.ox.ac.uk/pub/Rtools/Riconv.dll.
**pdf( ) で右寄せがずれます [#l4ebec18]
>[[吉原]] (2008-07-24 (木) 02:17:25)~
~
Windows XP で R version 2.7.0 を使っています。~
図の中に text() を使って注釈を書き、右端でそろえようとし...
いろいろ試したところ、次のようなことがわかりました。~
~
pdf() を使うと問題が生じる。~
大文字の Y を使うと問題が生じる。（他にもあるかもしれませ...
~
例えば You という単語が入ると症状が顕著です。~
~
pdf('You.pdf', width=11, height=8.5)
plot(0,0,xlim=c(0,1),ylim=c(0,1),type='n')
abline(v=.5)
text(0.5,0.9, 'You', pos=2)
text(0.5,0.8, 'You You', pos=2)
text(0.5,0.7, 'You You You', pos=2)
text(0.5,0.6, 'You You You You', pos=2)
text(0.5,0.5, 'You You You You You', pos=2)
text(0.5,0.4, 'You You You You You You', pos=2)
text(0.5,0.3, 'You You You You You You You You', pos=2)
dev.off()
~
postscript() では同様の問題は見られませんでしたので、.ps ...
よろしくお願いします。~
//
- あなたが, もしAcrobatをお使いなら[ファイル]-[プロパティ...
//
- なかま様。早速のご回答どうもありがとうございました。Acr...
- これは困った問題ですね。dvipdfmxでPDF化する際には図もPD...
- いえ, pdf('You.pdf', family="Courier") で作れば Acrorea...
- Courierのような等幅フォントにしか対応していないというこ...
- Resource/Font/Z[XY]______.PFB(AdobeSansMM,AdobeSerifMM)...
pdfFonts(AdobeSansMM=Type1Font("AdobeSansMM",rep("/tmp/Z...
pdf("hoge.pdf", family="AdobeSansMM")
等とすれば, 等幅では無い物で, 何処に持っていっても問題の...
- 2.8.0以降ではこの問題は発生しません. -- [[なかま]] &new...
- なかま様，ありがとうございます m(__)m -- [[奥村]] &new{...
- あれ，2.8.0には入らなかったのでしょうか -- [[奥村]] &ne...
**誤植でしょうか？ [#pe75fe77]
>[[匿名]] (2008-07-23 (水) 13:20:31)~
~
五章P106の一行目に表示されているコマンド~
~
jp.ar<-ar(djpMacro, method="ols")~
~
これを打ち込んだところ、以下のエラーが発生しました。~
~
以下にエラー if ((dimension < 1) | (dimension > n)) stop...
引数の長さが0です
追加情報: Warning messages:
1: In log(det(varE[[m - order.min + 1]])) : 計算結果が N...
2: In ar.ols(x, aic = aic, order.max = order.max, na.acti...
モデルの次数: 18 特異値が射影行列の計算中に生じました...
>~
誤植でしょうか？~
~
http://d.hatena.ne.jp/haruosuz/~
~
ここでは、誤植と紹介されているのですが…~
//
- 見ればわかるとお思いかも知れないが，本の名前くらい書い...
それと，自分の環境もね（OS と R のバージョン） -- 一言居...
- たしかに…申し訳ありません。OSはXPでRのバージョンは2.7.1...
- jp.ar = ar(djpMacro) で正常に動作しませんか？ -- &new{...
**オブジェクトの名前を得る関数 [#sdc89061]
>[[karat]] (2008-07-18 (金) 01:03:54)~
~
関数に因数としてオブジェクト（例えばデータフレーム）を渡...
そのオブジェクトの名前を得たいとき、どのような関数を使え...
例えばfoobarがデータフレームだとして、nantarakansu(foobar...
nantarakansuの中で"foobar"が欲しいのですが。超初心者質問...
//
- deparse(substitute(x)) # programmed by 一言居士 -- 一言...
- データフレームにcomment付けてごまかしていた自分が恥ずか...
- データフレームにcomment付けてごまかしていた自分が恥ずか...
**無題 [#w63dae4e]
>[[山田]] (2008-07-16 (水) 16:55:08)~
~
相互相関関数のそれぞれのラグにおけるＡＣＦの値を知るには...
//
- 警告！あなたの行為はマルチポストと呼ばれ「嫌われる行為...
**リスト要素を横方向へ出力する方法 [#c5c27f0f]
>[[Neo]] (2008-07-12 (土) 01:41:10)~
~
こんにちは。~
A B~
1 2~
4 5~
というa.txtというファイルと~
A B C
qw 2 3
we 5 6
se 8 9
というb.txtというファイルがあるとします。~
c <- as.list(NULL)
c[[1]] <- a
c[[2]] <- b
としてリストcを
A B A B C
1 2 qw 2 3
4 5 we 5 6
se 8 9
このように横方向にファイルに保存したいのですが、どのよう...
どうかよろしくお願いします。~
//
- nrowが違うとエラーになることで困っているのですか？冗長...
write.table(cbind(rbind(x,NA),y),file="hoge",row.names=F...
nrowがリスとの要素ごとに違うなら、nrowの最大値を予め調べ...
nr <- max(sapply(c,nrow))
x <- matrix()
for(i in seq(c)){
if(nrow(c[[i]])<nr) c[[i]][seq(nrow(c[[i]])+1,nr),] <- NA
x <- cbind(x,c[[i]])
}
write.table(x[,-1], file="hoge",row.names=FALSE)
とか。上手い方法は他にあると思いますが。 -- [[akira]] &ne...
- cc<-unlist(c, recursive=F);lmax<-max(unlist(lapply(cc,l...
- なるほど!lapply(cc,`length<-`,lmax)ですか。私は未だに'<...
- いえ, lapply(cc,function(x){length(x)<-lmax;x}) と普通...
- すばらしい方法ありがとうございます。しかしakira様の方法...
- すばらしい方法ありがとうございます。しかしakira様の方法...
- `length<-`(x,value) は length(x)<-value と等価なんです....
- なるほど。<-にそういう使用法もあるのですか。勉強になり...
- 数値(double)ベクトルにおいてはInf,NaN,-Inf,数値,NA以外...
- 元データのNAと区別したい状況がわかりにくいのですが、空...
**Mac版R.app GUIでのキーボードショートカット [#h95b6dad]
>[[ara]] (2008-07-08 (火) 15:46:53)~
~
Mac版RをMac OS X 10.4.11（PowerBook G4）で使用しています。~
R.app GUIで、これまでコマンドラインでの行頭・行末への移動...
~
どなたか対処方法をご存じないでしょうか？~
//
- Mac OS X 10.5.4 だとできますけど？ -- &new{2008-07-08 ...
- 情報ありがとうございます。MacでRを使っている人が身近に...
- 同じくIntel版Max OS X10.4.11でR2.7.1です。確かにQuartz...
**行明と列名の変更・削除方法について [#n5b57369]
>[[kokko]] (2008-07-06 (日) 22:15:54)~
~
行名と列名の変更・削除方法について教えてください。~
以下のようなデータフレームが変数aに格納されているとします...
~
A B C
a 1 2 3
b 4 5 6
c 7 8 9
~
ここでa,b,cは行名、A,B,Cは列名です。~
これらの行・列名を変更するにはどうすればよいのでしょうか？~
~
たとえば~
D E F
d 1 2 3
e 4 5 6
f 7 8 9
~
のようにしたいです。また、特定の行・列名だけを削除して~
~
A B
a 1 2 3
4 5 6
c 7 8 9
~
のようなデータフレームを作成することはできるでしょうか？~
よろしくお願いします。~
~
使用環境 Mac OS X 10.5.4、R 2.7.0~
//
- colnames(a) <- c("A","B","") ; rownames(a) <- c("a","",...
- colnames(a) <- c("A","B","") ; rownames(a) <- c("a","",...
- [[ここ:http://www.okada.jp.org/RWiki/index.php?%A5%EA%A...
- 上記されてますが、rownames(),colnames()で「文字のベクト...
- ありがとうございます。こんなに簡単な話だったんですね。r...
- すみませんが、もう一つ質問させてください。教えてくださ...
- colnames(a)[2] <- "A" -- &new{2008-07-07 (月) 22:21:06};
- 「関数なので、データフレームaの戻り値に対して代入しても...
- colnames(a[,2]) ではだめで colnames(a)[2] としなければ...
- colnames(a) がベクトルで，その2番目の要素が [2] という...
- a[,2]となった時点でベクトルになっているから、colnameを...
> x <- matrix(1:20,ncol=4,dimnames=list(1:5,1:4))
> x
1 2 3 4
1 1 6 11 16
2 2 7 12 17
3 3 8 13 18
4 4 9 14 19
5 5 10 15 20
> colnames(x)[2]
[1] "2"
> colnames(x[,2])
NULL
> x[,2]
1 2 3 4 5
6 7 8 9 10
> names(x[,2])
[1] "1" "2" "3" "4" "5"
つまり、colnames()でなく、names()で出てきます。 -- [[akir...
**nls.control()について質問 [#pf5ba5bb]
>[[森林]] (2008-07-04 (金) 18:40:26)~
~
非線形最小自乗当てはめの制御 nls.control()について質問で...
nls() 関数による非線形最小自乗法アルゴリズムの幾つかの特...
次のようにＲコンソールで打ち込むと、~
> nls.control(maxiter=500)~
$maxiter~
[1] 500~
$tol~
[1] 1e-05~
・・・・~
と表示されるのに、nls( 式、data, star=・・・）を実行した...
すなわち、maxiter=50のままです。いろいろ試したのですが、...
どなたか、ご教示のほどお願いします。~
//
- ? nls の control の説明が an optional list of control s...
nls(なんだら, control=nlscontrol(かんだら))
つまり，control 引数が要求するリストを nls.control が返す...
- 早速に有り難うございました。試したとき、指定通りに使い...
- 早速に有り難うございました。最初に試したとき、指定の通...
**文字列を数値に変換 [#q3734836]
>[[masaki]] (2008-07-03 (木) 17:38:59)~
~
WindowsXPでR2.6.2を使用している者です。~
JavaのpsrseIntメソッドのように、文字列を数値に変換する方...
~
具体的には、ある文字列（例：abc105）から正規表現を用いて、~
~
x <- gsub("[[:lower:]]+([[:digit:]]+)", "\\1", "abc105")~
~
数値だけの文字列に置き換えます。このxを表示すると、~
~
[1] "105"~
~
となります。これを、ループで~
~
for(i in 1:x){ 処理 }~
~
のように用いたいのですが、文字列のため用いることができま...
~
正規表現の段階で数値型にする、xを文字列型から数値型に変換...
//
- as.integerとかas.numericとか -- &new{2008-07-03 (木) 1...
- 素早い回答ありがとうございます。うまくいきました。 -- [...
**複数のベクトルを１つにベクトルに合体させるには [#tc30e7...
>[[田中]] (2008-07-03 (木) 13:49:33)~
~
n1<-c(1,2,3) n2<-c(4,5,6) n3<-c(7,8,9) →n<-c(1,2,3,4,5,6...
//
- ↓で質問した者です。n <- c(n1, n2, n3); でどうぞ。 -- &...
- 基本的な質問ですみませんでした。初心者で助かりました。 ...
**日本語（2バイト文字）が含まれた PDF ファイルの生成（Win...
>[[初心者]] (2008-07-03 (木) 09:56:49)~
~
Windows 版 R 2.7.1 を使用しているものです。以下の諸設定を...
が含まれた PDF ファイルを生成しようとしているのですが、上...
~
<C:\Program Files\R\R-2.7.1\etc>
Rdevga:12〜15行目を以下のように修正しました
TT MS Gothic : plain
TT MS Gothic : bold
TT MS Gothic : italic
TT MS Gothic : bold&italic
Rconsole:19行目を以下のように修正しました
font = TT MS Gothic
Rprofile.site:以下を追記しました
setHook(packageEvent("grDevices", "onLoad"),
function(...) grDevices::ps.options(family="Japa...
~
もしよろしければご教授いただけませんでしょうか。~
//
- ps.optionsはPostScriptにフォントを設定しています. pdf.o...
- 「上手く表示されません」だと具体的にどうなっているかわ...
- ありがとうございます。下記命令で無事、文字化けしない出...
~
<C:\Program Files\R\R-2.7.1\etc>
Rdevga:12〜15行目を以下のように修正しました
TT MS Gothic : plain
TT MS Gothic : bold
TT MS Gothic : italic
TT MS Gothic : bold&italic
Rconsole:19行目を以下のように修正しました
font = TT MS Gothic
Rprofile.site:以下を追記しました（←ここを修正）
setHook(packageEvent("grDevices", "onLoad"),
function(...) { grDevices::ps.options(family="Jap...
~
**barplotのy軸と棒の下限の変更 [#qbb106cf]
>[[sh]] (2008-07-03 (木) 09:10:15)~
~
barplot(2:10, ylim=c(1,10))
棒グラフのy軸の下限を1にしたのですが、棒は下限が1にならず...
//
- barplot(2:10, ylim=c(1,10), xpd=F) , try ?barplot, でも...
- 期待通りに表示されました。ありがとうございました。 -- [...
- なぜにして，c(1,10) ? おかしなことだ。 c(0,10) とする...
- *わざわざ*, はみ出すように作ってあるのが素敵なのに... -...
- barplot の上の方だけ表示すると、本当は小さな差を大きく...
barplot(c(.89,.91,.92,.95), ylim=c(.88,.95),xpd=F,yaxt='...
axis(2,at=seq(.88,.95,.01),label=NA)
- （参考）[[日本図表審査機構 [JGRO]:http://grp.cocolog-ni...
- ↑x2 その差が「小さい」という根拠はどこに??? 恣意的な印...
- 差があるという基準はどういう風に決める？差があるとして...
**ベクトル要素の総当たりの結合 [#i5e5fcea]
>[[田中]] (2008-06-27 (金) 17:17:20)~
~
x<-c(1,2,3)とy<-c(6,7,8)の要素の数字を総当たりで結合してz...
//
- as.vector(t(outer(x*10, y, FUN="+"))) -- &new{2008-06-...
- あえて，outer を使わない方法 rep(x*10, each=length(y))...
- ありがとうございます。x*10no -- &new{2008-06-27 (金) 2...
- ありがとうございます。x*10の10は何を意味するのでしょう...
- xを10倍したものとyを足すと言うことですよ。rep(x*10, eac...
- 本当に親切に説明いただき、感謝いたします。 -- &new{200...
**sspirの使い方について [#f8318593]
>[[ichigo]] (2008-06-25 (水) 12:26:50)~
~
Ｒのパッケージ「sspir」を使って状態空間モデルを扱いたいの...
（株価などで）~
どうも使い方がいまひとつわかりません．~
このサイト内を検索したところ恐ろしいらしいページに一件記...
特に話題が広がるわけでもなく、終わっていました．~
詳しく書いてあるサイトなどご存知でしたら、教えていただけ...
よろしくお願いいたします．~
//
- ググってみましたか？ sspir と R の二語でググったら，~
http://hosho.ees.hokudai.ac.jp/~kubo/ce/TimeSeriesData.ht...
Journal of Statistical Software にこの package のくわしい...
とあり，「論文」へのリンクまで貼ってくれていますね。~
それをクリックすると，おおありがたや，その論文（PDF，15ペ...
- あなたのやりたいことに合うかどうかわからないけれども、[...
- ありがとうございます．紹介いただいたサイトをみて、勉強...
**パッケージe1071内の関数svmの使用について [#vf248174]
>[[kei]] (2008-06-24 (火) 05:52:51)~
~
パッケージe1071内の関数svmについて教えて下さい。~
関数svmを使って分類問題の学習をさせるために~
以下のようなプログラムを組んだのですが
~
library(e1071)
dat <- iris
dat.col <- ncol(dat)
dat[,5] <- as.integer(dat[,5])
dat.tr <- dat[c(1:40,51:90,101:140),]
dat.tr.row <- nrow(dat.tr)
dat.tr.u <- dat.tr
for (j in 1:dat.tr.row){
if (dat.tr.u[j,5] == 1){
dat.tr.u[j,5] <- "A"
} else {
dat.tr.u[j,5] <- "B"
}
}
x <- (dat.tr.u[,1:dat.col-1])
y <- dat.tr.u[,5]
model <- svm(x,y)
~
~
実行すると
svm.default(x, y) : Need numeric dependent variable for r...
というエラーが出ます。x,yのmodeが問題ではと思い、色々な組...
よろしくお願いします。~
//
- y <- factor(dat.tr.u[,5])とすることで解決しました。すみ...
**Tukeyの多重検定をしたいのですができません。 [#u72e1344]
>[[A]] (2008-06-20 (金) 17:08:13)~
~
Tukeyの多重検定をしたいのですができません。~
青木先生のサイト（http://aoki2.si.gunma-u.ac.jp/R/m_multi...
> m.multi.comp(・・・~
> tukey(data, group)~
などやってみましたが、 「エラー：関数 "m.multi.comp" を見...
どうしたらよいのでしょうか？~
使用環境はWindowsXPでR version 2.7.0を使ってます。~
よろしくお願いします。~
//
//
- 単にm.multi.comp関数がRに読み込まれていないのでは？青木...
- ありがとうございます！解決しました。 -- [[A]] &new{2008...
**median()のエラーについて [#zf334ad2]
>[[apple]] (2008-06-15 (日) 18:05:00)~
~
よろしくお願いします。~
~
V1 V2 V3
1 1 2 3
2 4 5 6
3 7 8 9
~
このようなデータフレームを変数aに入れたとします。~
1列目のmedianを計算しようと思い median(a[1])としたところ~
~
以下にエラー median.default(a[1]) : 数値データが必要です
~
と言われました。~
しかしmean(a[1])とすると1列目の平均値を計算できます。~
これはどうしてでしょうか？mean()とmedian()には書式に違い...
~
使用環境 Mac OS X 10.5.3、R 2.7.0~
//
- median(a[,1]) -- [[akira]] &new{2008-06-15 (日) 18:22:0...
- まあ，実装のミスといえばミス，不完全といえば不完全かな...
> class(a[1])
[1] "data.frame"
> class(a[,1])
[1] "integer"
median.default の定義の最初の方には，
if (is.factor(x) || mode(x) != "numeric")
stop("need numeric data")
とあります。~
同じく，mean.default の定義の最初の方は，
if (!is.numeric(x) && !is.complex(x) && !is.logical(...
warning("argument is not numeric or logical: ret...
return(NA_real_)
}
くらいしかありません。~
しかし，引数が data.frame のときには，mean は，実際には
> mean.data.frame
function (x, ...)
sapply(x, mean, ...)
をよんでいるので，この mean.data.frame の定義に習って，me...
> median.data.frame <- function(x, ...) sapply(x, median...
> median.data.frame
function(x, ...) sapply(x, median, ...)
定義後は，
> median(a[1])
V1
4
というように，ちゃんと計算してくれるようになります（最初...
なお，この定義後（定義しなくても）median(ベクトル) とした...
はい，圃下圃下君答えて！なに？わからない？~
> median(a[,1])
[1] 4
となりますよね。出力形式が異なりますね。分かりましたか？...
ユーザと R どっちが悪いかと言えば，どっちもどっちか。~
賢い対処法は，上のようなことを喝破して，適切な使用をする...
あ〜，疲れた。
- 初歩的な関数でもこういうことがあるんですね。いままでモ...
**オームの法則 [#s89f4e86]
>[[-0.889]] (2008-06-12 (木) 00:39:03)~
~
たとえば、xデータに電圧値(v)をプロット、ｙデータに電流値(...
//
- 第２軸って何ですか？ -- &new{2008-06-12 (木) 04:56:34};
- なんだか学校の宿題のような気が・・・とりあえず、デモデ...
- 単に関数の作り方を聞きたいだけなのでしょうかね？それと...
ohm<-function(e,i){
r<-e/i
return(r)
}
> ohm(2,2)
[1] 1
- なんの音沙汰もないというのは、解決したということか？ --...
**データフレームへのアクセス(複数条件つき抽出) [#s7cc281d]
>[[寿司]] (2008-06-11 (水) 09:39:40)~
~
度々、恐れ入ります。~
データフレームで、条件付の抽出を行いたいのですが、~
複数の条件を設定した場合、うまく抽出できませんでした。~
ひとつの条件であれば、問題なく機能するのですが、以下D3の...
お手数をおかけしますが、よろしくお願いいたします。~
~
id <- c("A","B","C","D","E")
height <- c(158,177,177,177,166)
weight <- c( 51, 56, 55, 57, 55)
age <- c( 23, 44, 21, 39, 42)
D <- data.frame(ID=id, H=height, W=weight, A=age)
~
D2 <- D[(D$ID=="A"), ]
D3 <- D[((D$ID=="A") || (D$ID=="B")), ]
//
- || じゃなくて | -- &new{2008-06-11 (水) 09:47:34};
- subset を使う方がよいと思う.subset(D, D$ID=="A" | D$ID=...
- subsetを使うのであれば、D$IDのD$は不要。subset(D,ID%in%...
- ありがとうございます。出来ました！ -- [[寿司]] &new{200...
- %in% ってどういうことですか？ -- &new{2008-06-14 (土) ...
- ?"%in%" で調べろよ。 -- &new{2008-06-15 (日) 12:34:54};
- ヒント 「get("%in%")」 -- &new{2008-06-18 (水) 13:04:2...
**通し番号を除いて、出力する方法 [#qaa6e4c9]
>[[寿司]] (2008-06-10 (火) 22:41:30)~
~
たびたびの初歩的な質問で恐れ入ります。~
以下のようなデータフレームを作成しましたところ、自動的に...
出力しますと、通し番号のために、列名がずれてしまいます。~
(使用環境 windows vista, R2.6.0)~
~
sex <- c("F","F","M","M","M")
height <- c(158,162,177,173,166)
weight <- c(51,55,72,57,64)
( x <- data.frame(SEX=sex, HEIGHT=height, WEIGHT=weig...
~
write.table(x, "x.csv", quote=F, col.names=T, append=F, ...
//
- 引数にrow.names=FALSE -- [[takahashi]] &new{2008-06-10 ...
- なんで，オンラインヘルプを読まないんだろうかねぇ. ? wri...
- ありがとうございます。?write.tableと構文でヘルプがある...
**被験者内計画の分散分析 [#m8c63a10]
>[[アべセ]] (2008-06-10 (火) 16:11:13)~
~
被験者間計画の分散分析のやり方は分かりやすいのですが、被...
//
- [被験者間計画の分散分析のやり方は分かりやすいのですが]...
- 返答してくれた方、ありがとうございました。紹介されてい...
**OSXでR Commanderがインストールできない [#l67db46b]
>[[ton]] (2008-06-09 (月) 23:29:02)~
~
Mac OS X 10.4.11でパッケージとデータ＞パッケージインスト...
R Commander（Rcmdr）をインストールし、Rコンソールで「>lib...
入力してパッケージを読み込もうと思ったのですが、以下のよ...
全くの素人で、解決の手段がわかりません。よろしくお願いし...
~
ーーーーーーーーーーーーーーーーーーーーーーーーーーーー...
要求されたパッケージ tcltk をロード中です
Tcl/Tkインターフェースのロード Error in dyn.load(file, D...
共有ライブラリ '/Library/Frameworks/R.framework/Versio...
dlopen(/Library/Frameworks/R.framework/Versions/2.7/Res...
Referenced from: /Library/Frameworks/R.framework/Versio...
Reason: image not found
Error : .onLoad は 'tcltk' のための 'loadNamespace' で失...
エラー： パッケージ 'tcltk' をロードできませんでした
>~
//
- たぶん何度も質問に出ているやつだと思いますが、X11起動し...
- 「その他＞X11サーバを起動」でX11を起動すればいいのです...
- まず以下のことをやってみてください。 -- [[okinawa]] &ne...
（１）パッケージとデータ＞パッケージインストーラーから、R...
（２）インストール終了後、library(Rcmdr)を実行し、Rcmdrが...
（３）Rcmdrが起動したら、Rcmdrのコンソール内で、library(s...
パッケージのインストールは常にパッケージインストーラーか...
- X11はインストールしましたか? -- [[なかま]] &new{2008-06...
- X11を起動しようとしたとき「2008-06-15 21:38:21.911 open...
- X11はMac側のアプリなので、Rとは関係ないです。もし、Mac...
- なんとかX11をインストールし、無事、R Commanderをインス...
**多変量自己回帰分析VAR [#hb491edc]
>[[tarai]] (2008-06-07 (土) 11:39:59)~
~
Rで多変量自己回帰分析する際のパワー寄与率を計算するにはど...
//
- 統計数理研究所のTIMSACのR用パッケージが出ていてその中に...
**n*3行列データで等高図 [#wa7282b2]
>[[初心者]] (2008-06-06 (金) 14:01:42)~
~
簡単な質問申し訳ないのですが、~
n*3の行列データで等高線を書きたいと思っています。~
データは~
x1 y1 z1~
x1 y2 z2~
x1 y3 z3~
x2 y1 z4~
x2 y2 z5~
x3 y3 z6~
........~
という形式で並んでいるのですが、~
これを~
d<-read.table("data")で読み込んで、~
contour(data$V1,data$V2,data$V3)でプロットしようとしても~
'x'と'y'の値は昇順であることが期待されます~
と出てプロットできません。persp()を用いても同様に表示され...
ご回答お願いします。~
~
使用環境は~
Ver.2.7.0~
win vistaです~
//
- データの6行目間違い->x2 y3 z6でした -- [[初心者]] &new{...
- ライブラリ akima を参照 -- &new{2008-06-06 (金) 14:33:...
- プログラム自体が変ですよ。dに入れたのに、contour(*,*,*)...
- dataはdの間違いでした。 -- [[初心者]] &new{2008-06-06 (...
- akimaをインストールしました。ロードしてcontourプロット...
- contour のオンラインヘルプは見ましたか？また，example(c...
- [[グラフィックス参考実例集：イメージ図]]にある不等間隔...
- ヘルプをみましたが複雑でよくわかりません．zのデータもn*...
- interp(x,y,z)でメッシュデータにしたあとに、contourを使...
- 参考実例集を参考に少し考えてみます．今気づいたのですが...
- １つ伺いたいのですが，参考例は付属のデータを用いるため...
- いろいろ試したのですが、interp(x,y,z)では軸の中に同じ値...
- えーと。エラーメッセージが答えと思うんですが・・・okina...
duplicate character string indicating how to handle dup...
"error" produces an error message,
"strip" remove duplicate z values,
"mean","median","user" calculate mean ...
と出てきますよ. -- [[akira]] &new{2008-06-07 (土) 05:31:2...
- データ自体にすこし問題がありました。なんとか作図までこ...
- ありがとうございます -- [[初心者]] &new{2008-06-07 (土)...
- akimaのhelp読みましたか？英語だから、難しいからと読まな...
- 英語を読むのが大変というよりは、R独自の文法に慣れるのに...
- Rは所詮言語なので、ちょっとお試し的に利用するには敷居が...
**ソートについて [#g1d8a05c]
>[[寿司]] (2008-06-05 (木) 00:18:35)~
~
昇順、降順を織り交ぜたソートを行いたいのですが、思ったよ...
~
~
> id <- c("A","B","C","D","E")
> height <- c(158,177,177,177,177)
> weight <- c( 51, 56, 56, 57, 55)
> age <- c( 23, 43, 44, 39, 42)
> D <- data.frame(ID=id, H=height, W=weight, A=age)
> D
ID H W A
1 A 158 51 23
2 B 177 56 43
3 C 177 56 44
4 D 177 57 39
5 E 177 55 42
//
- D[order(D$H,-D$W,D$A),] -- [[takahashi]] &new{2008-06-0...
- まずHが昇順になるように並べ、Hが同順な各グループ内ではW...
> D
ID H W A
1 A 158 51 23
2 B 177 56 43
3 C 177 56 44
4 D 177 57 39
5 E 177 55 42
> (o <- order(D$H,-D$W,D$A))
[1] 1 4 2 3 5
> D[o,]
ID H W A
1 A 158 51 23
4 D 177 57 39
2 B 177 56 43
3 C 177 56 44
5 E 177 55 42
- かぶりましたね。order(x,y,z) は要するに辞書式順序でソー...
- ありがとうございます。誤解をしていた箇所があり、立ち往...
**UNDO機能ってありますか？ [#zeb732dc]
>[[LINUX初心者]] (2008-06-03 (火) 20:33:38)~
~
コマンドライン(FEDORA7)で作業していて操作を間違えてしまっ...
一個前の状態に戻れるような機能はないのでしょうか？~
RSiteSearchやサイト内検索は試みましたが見つけられませんで...
現在金先生の本を教科書に勉強始めたとこなので~
「そんなことも分からんのか！！」と言われそうですが宜しく...
R は version 2.7.0 (2008-04-22)~
//
- そのようなものもあるかとは思いますが，操作手順をまえも...
- 端末からは入力命令の履歴機能を使い、上下矢印キーで過去...
- > > 端末からは入力命令の履歴機能を使い、上下矢印キーで...
その通りですが，それを書かなかったのは，例えば，これは単...
x <- 4
x <- x+4
x <- x*5+8
なんていうような場合に，何段階か元の状態に戻るには，↑で何...
要するに，質問のような場合には，一般のプログラミング言語...
- もう一つの方法はEmacsのシェルモード(もしくは専用のESSモ...
- 皆さんと同意見です。ただ、長いスクリプトをやり直すのも...
x <- 4
x1 <- x1+4
x2 <- x2*5+8
とすれば古いオブジェクトは残りますよね。慣れるまではエデ...
- オブジェクトの大量発生は，x <- 4; x1 <- x1+4; x2 <- x2*...
- 皆様、ご指導ありがとうございます。 -- [[LINUX初心者]] &...
- 誤ってEnter押してしまいました。色々あるみたいですので皆...
**データハンドリングについて(ソート、分位、行ずらし、重複...
>[[寿司]] (2008-06-03 (火) 12:17:18)~
~
以前SASを使っておりまして、Rでも同じようにデータハンドリ...
~
・ソートについて~
複数の項目のソートを行いたいのですが、昇順、降順が混ざっ...
現在の私のプログラムでは、ファイルを適宜分割した後、何度...
~
・分位について~
SASであれば、rankを使って簡単に分位に分けられたのですが、...
~
・行ずらし~
ある項目について、前レコードとの比較を行いたいのですが、...
~
・重複列削除~
まったく同じ行が現れたとき、その行を削除したいのですが、...
//
- 簡単でいいからやりたい事のイメージが分かるような例をつ...
- 項目 1, 2 に付いては sort() と rank() 関数の使い方を一...
- 寿司さんはスクリプトを書ける方なので、モデルデータ、上...
ソート -> たぶんソート順をorderに組み込めていないだけ~
分位 -> quanntile?~
行ずらし -> よーわからん~
重複列削除 -> duplicate?~
見当違いかもしれませんが -- [[akira]] &new{2008-06-03 (火...
- http://oit.utk.edu/scc/RforSAS&SPSSusers.pdf を参考にす...
- 出先で急いで書いたもので、例が載せられておりませんでし...
- ありがとうございます。家に戻りましたら、イメージが分か...
- ありがとうございます。家に戻りましたら、イメージが分か...
- 何度も重複しており、恥ずかしい限りです。行が長くなって...
**列名の強制変換 [#u713dcf2]
>[[sh]] (2008-05-30 (金) 03:51:32)~
~
以下のようなタブ区切りのデータファイル("file.txt")を関数r...
a b a-b a|b a:b a_b
a b a-b a|b a:b a_b
a b a-b a|b a:b a_b
> sessionInfo()
R version 2.6.1 (2007-11-26)
i386-apple-darwin8.10.1
> ( x <- read.delim("file.txt") )
a.b a.b.1 a.b.2 a.b.3 a_b
1 a b a-b a|b a:b a_b
2 a b a-b a|b a:b a_b
Warning message:
In read.table(file = file, header = header, sep = sep, q...
'file.txt' の readTableHeader で不完全な最終行が見つ...
> colnames(x)
[1] "a.b" "a.b.1" "a.b.2" "a.b.3" "a_b"
//
- read.delimのHELP内に書いてあります。header=FALSE。 -- [...
- check.names=FALSE -- [[takahashi]] &new{2008-05-30 (金)...
- ( x <- read.delim("file.txt", check.names=FALSE) ) で...
**全オブジェクトの列数の連続取得 [#ic56c331]
>[[nrow?]] (2008-05-29 (木) 13:38:34)~
~
いつも、拝見させていただいております。~
計算する際に、オブジェクトがa〜zまでできます。~
この全オブジェクトの列数が、書き込まれたデータフレームを...
~
例えば~
~
a1 <- data.frame(ls(), nrow(get(ls())))~
~
とすると一列目には全オブジェクトの名前が入るのですが~
二列目には一番初めに来るオブジェクトの列数が入ってしまい...
~
二列目には一列目のオブジェクトに対応した列数を入れるため...
~
ご教授願います。~
//
- 計算する途中で，作ったオブジェクトの列数を記録（蓄積）...
- unlist(sapply(ls(), function(i) nrow(get(i)))) で(ファ...
- ありがとうございます。文字列リストの作成も検討してみま...
- たとえばこんな風かな -- &new{2008-05-30 (金) 01:40:33};
> abc <- matrix(0,2,2)
> abc.def <- matrix(0,3,2)
> Obj <- c("abc","abc.def")
> ( x <- sapply(Obj, function(i) nrow(get(i))) )
abc abc.def
2 3
> names(x) <- NULL
> x
[1] 2 3
> data.frame(Obj, x)
Obj x
1 abc 2
2 abc.def 3
**読み込んだCSVファイルを、日付を条件に検索したい [#m0e65...
>[[寿司]] (2008-05-28 (水) 09:27:13)~
~
R 2.6.0 をWindows Vistaで使用しています。~
日付データを含んだcsvファイルを読み込み、Ｒで今日の日付で...
Ｒでは、~
> today <- Sys.Date()~
> today~
[1] "2008-05-28"~
となりますので、csvファイルには文字列で"YYYY-MM-DD"となる...
Ｒ側、csv側どちらでも良いので、検索が機能するような方法あ...
プログラムは以下のとおりです。(csvの代わりにデータフレー...
~
> d <- c("2008-05-28","2008-05-29","2008-05-30")~
> a <- c(1,2,3)~
> ( x <- data.frame(D=d, A=a) )~
D A
1 2008-05-28 1~
2 2008-05-29 2~
3 2008-05-30 3~
> ~
> (today <- Sys.Date()) ~
[1] "2008-05-28"~
> x[x$s==today, ]~
[1] D A~
<0 rows> (or 0-length row.names)~
> x[x$D==today, ]~
[1] D A~
<0 rows> (or 0-length row.names)~
Warning message:~
In `[.data.frame`(x, x$D == today, ) :~
メソッド ("Ops.factor", "Ops.Date") は "==" に対しては...
//
- Sys.DateはClass `Date' を返します, str(Sys.Date())や?Sy...
- ありがとうございます。x[as.character(x$D) == today, ]の...
**Y軸の目盛り間隔をグラフ間で同一に [#f4d322bf]
>[[ICA]] (2008-05-26 (月) 23:57:06)~
~
複数のboxplotを縦に並べようとしています。グラフAは縦軸の...
縦軸の最大値の指定は、ylimで出来ることがわかりましたが...
おそらく、boxplotに限らず、どのようなグラフでも同じやり...
//
- 単にデータを boxplot(x, y) 等と並べるだけの事では。 -- ...
- 追伸です。私は５つのグラフを縦に並べようとしていますが...
- boxplot(x, y) の場合、データセットを変えると、最大値に...
- もしかして次のように二つの箱型図を描きたい？ ただし相互...
> x <- rpois(100, 80)
> max(x)
[1] 99
> boxplot(x, yaxp=c(0,100,1), ylim=c(0,100))
> x <- rpois(100, 30)
> boxplot(x, yaxp=c(0,100,1), ylim=c(0,100))
- この例の場合、二つ目のグラフの縦軸範囲を0-50にして高さ...
- どんなグラフを描きたいと思っているのか今ひとつはっきり...
- スクリプトでなくていいから、やってみたいイメージ図をア...
- お手数おかけしています。以下を行うと一つ目と二つ目のグ...
> par(pin=c(3,1))
> boxplot(Petal.Width~Species, iris, ylim=c(0,4))
> par(pin=c(3,2))
> boxplot(Sepal.Length~Species, iris, ylim=c(0,8))
- なぜ、そうしたいのか、というのはとりあえず訊かずに...
par(mfrow=c(1,2))
boxplot(Petal.Width~Species, iris, ylim=c(0,4), yaxs='i')
boxplot(Sepal.Width~Species, iris, ylim=c(0,8), yaxs='i')
こういうこと？ -- &new{2008-05-28 (水) 20:57:08};
- それでは駄目なんだといっているような。要するに，2つのグ...
結局の所は，一つの boxplot で全部を描くようにしないと，要...
boxplot(c(Petal.Width, Sepal.Width, Petal.Length, Sepal....
rep(1:12, each=50), iris, xaxt="n", col=rep(2:5, eac...
axis(1, 1:12,abbreviate(rep(levels(iris$Species), 4)))
legend("topleft", legend=c("Petal.Width", "Sepal.Width",...
"Sepal.Length"), fill=2:5, yjust=1, bty="n")
#ref(boxplot.png)
- 21:35の方が私の欲求を正しく理解してくださいました。が、...
やりたいことは、exmaple(boxplot)にでてくる、Orange juic...
**R2.7.0 on MacBookPro: legend()でエラー [#v7f11677]
>[[松田紀之]] (2008-05-21 (水) 19:36:41)~
~
R2.7.0 on MacBookPro (OSX 10.5.2) でplot()し，legend()を...
> plot(1:5,1:5)~
> legend("bottomright",legend=c("a","b"),lwd=1,col=1:2)~
~
*** caught bus error ***
address 0x10, cause 'non-existent physical address'~
~
Traceback:~
1: strwidth(legend, units = "user", cex = cex)
2: legend("bottomright", legend = c("a", "b"), lwd = 1, ...
//
- 日本語に関する設定を外してください. 2.7.0のQuartzの日本...
- Q&A "R2.7.0，Macintosh版でのグラフィック表示における日...
- いえ, 本当にたまたまです. ものすごくいいかげんな超対処...
日本人は苦しみます.
# .Rprofile
setHook(packageEvent("grDevices", "onLoad"),
function(...){
grDevices::quartzFonts(sans=grDev...
c("Hiragino Kaku Gothic Pro W3",
"Hiragino Kaku Gothic Pro W6",
"Hiragino Kaku Gothic Pro W3",
"Hiragino Kaku Gothic Pro W6"...
grDevices::quartz.options(family=...
)
しかし, grDevices::quartz.options(family="sans") は有効...
そこでさらに以下を加えます.
attach(NULL, name = "MacJapanEnv")
assign("familyset_hook",
function() { if(names(dev.cur())=="quartz") par(...
pos="MacJapanEnv")
setHook("plot.new", get("familyset_hook", pos="MacJapanE...
ところが...
> plot(1:5,1:5)
> legend("bottomright",legend=c("a","b"),lwd=1,col=1:2)
Program received signal EXC_BAD_ACCESS, Could not access...
Reason: KERN_PROTECTION_FAILURE at address: 0x00000014
0x900031c8 in strlen ()
(gdb) bt
#0 0x900031c8 in strlen ()
#1 0x907bf19c in CFStringCreateWithCString ()
#2 0x0221bc58 in RQuartz_FindFont (fontface=-2147483648...
#3 0x0221bd0c in RQuartz_Font (gc=0xbfffc378, dd=0x17) ...
#4 0x0221c184 in RQuartz_Set (ctx=0x2155eb0, gc=0xbfffc...
#5 0x0221cc3c in RQuartz_StrWidth (text=0x1ff7e20 "a", ...
gc->fontfaceは設定されてません. 以下は場当たり的に対処し...
動作はしました.
# 超対処療法的温泉旅館渡り廊下造営パッチ
--- R-patched.orig/src/library/grDevices/src/devQuartz.c...
+++ R-patched/src/library/grDevices/src/devQuartz.c ...
@@ -529,7 +529,7 @@
int i;
for(i = 0; i < length(names); i++)
if(0 == strcmp(fontfamily, CHAR(STRING_ELT(...
- if(i < length(names))
+ if(i < length(names) && fontface > 0)
fontName = CFStringCreateWithCString(kCFAll...
CHAR(ST...
kCFStri...
- R-develに投げてみます -- [[なかま]] &new{2008-05-23 (金...
**連続でxtabsを行いたい。 [#m3688810]
>[[ともぞう]] (2008-05-19 (月) 17:00:30)~
A B a b c
2 2 2 2 1
2 2 2 2 0
1 2 2 1 1
2 2 0 2 0
0 2 2 1 2
0 2 2 2 0
0 2 0 2 1
2 1 1 1 2
2 0 2 2 0
0 1 1 0 2
このようなデータから下のような集計を行う方法はありますで...
a a a b b b...
0 1 2 0 1 2...
A 0 1 1 2 1 1 2...
1 0 0 1 0 1 0...
2 1 1 3 0 1 4...
B 0 0 0 1 0 0 1...
1 0 2 0 1 1 0...
2 2 0 5 0 2 5...
集計は、Aが2のとき、b=2が4つという感じで行っています。~
~
ちなみに、個別でAとaに関するテーブルというのはxtabsででき...
何か良い知恵がございましたらよろしくお願いします。~
//
- この質問ね，「クロス集計時に起きるエラーについて」と同...
まあ，名前を付けるのはご自由に。 -- &new{2008-05-19 (月)...
> array(sapply(1:2, function(i) sapply(1:3, function(j) ...
, , 1
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 1 1 2 1 1 2 1 1 2
[2,] 0 0 1 0 1 0 0 1 0
[3,] 1 1 3 0 1 4 3 1 1
, , 2
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 0 0 1 0 0 1 1 0 0
[2,] 0 2 0 1 1 0 0 0 2
[3,] 2 0 5 0 2 5 3 3 1
- 勉強になりました。ありがとう御座いました。 -- [[ともぞ...
**R 2.7.0 Windows版での2byte文字について。 [#t3ee6922]
>[[goof]] (2008-05-17 (土) 22:21:10)~
~
Windows XPを使用しております。~
~
> sessionInfo()~
R version 2.7.0 (2008-04-22) ~
i386-pc-mingw32 ~
~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
~
です。~
~
Rエディタで2byte文字を含むコードをR consoleに"カーソル行...
~
>#ﾂPﾂQﾂR~
~
となります。~
options(encoding="UTF8")としてもoptions(encoding="SJIS")...
~
どうぞ原因と解決策のご教示をよろしくお願いいたします。~
//
- 原因は中の問題で, 解決はちっとまってね. SBCS環境とDBCS...
- ああそうそう, 選択したものをCtrl+Rでするのは問題が無い...
- なかま様、ご返事ありがとうございますm(_ _)m。いつも大変...
**パッケージkohonenのxyfの使い方が分かりません [#rf143354]
>[[たにくん]] (2008-05-15 (木) 14:55:00)~
~
解説にはSOM(自己組織化マップ)の教師つきバージョンと書いて...
~
data(wines)~
set.seed(7)~
~
training <- sample(nrow(wines), 120)~
Xtraining <- scale(wines[training,])~
Xtest <- scale(wines[-training,],center = attr(Xtraining,...
~
xyf.wines <- xyf(Xtraining,classvec2classmat(wine.classes...
~
xyf.prediction <- predict(xyf.wines, newdata=Xtest)~
table(wine.classes[-training], xyf.prediction$prediction)~
~
というexampleがあるのですが，はっきりと理解できません．~
~
もし，学習データとしてdata1という200行10列の行列を用い，...
~
ご回答よろしくお願いします．~
//
- example(xyf) で動きますよね。理解できないと言われても困...
- 下のんと一緒の書き込みをしました．example(xyf)をやって...
- predict の中で使われている map 関数の指定が悪いと言うこ...
xyf> xyf.prediction <- predict(xyf.wines, newdata=Xtest)
以下にエラー map(object, newdata, whatmap, weights) :
使われていない引数 (1)
- すみません，map関数が分かりません．~
kohonenの中のやつですよね．~確認しておきます．~
xyf.wines <- xyf(Xtraining,classvec2classmat(wine.classes...
のclassvec2classmatは何を表しているのでしょうか？~
オンラインヘルプでは0と1の行列を用いるとか言うのを書いて...
その行につけるラベルみたいなものですか？ご解答お願いしま...
- 「ヘルプを見たけどわからないので，教えて...」と，こうい...
**パッケージkohonenのwinesというデータが見つからない． [#...
>[[小心者]] (2008-05-15 (木) 14:25:03)~
~
研究でRを使うことになり，特に統計データによる診断関係を行...
~
library(kohonen)を開いて，xyfを使うことにしました．~
その例で本来winesというデータがパッケージには含まれている...
wines.classesもありませんでしたので，これらはどこかでソー...
その場合，どこでダウンロードできるのか教えてください．~
file:///E:/Program%20Files/R/R-2.7.0beta/library/kohonen/...
にはソースが以下のHPにあると書いてますが，見つかりません...
http://kdd.ics.uci.edu/~
~
どうかよろしくお願いします．~
//
- kohonen package はインストールしたのですか？上の「たに...
- kohonenはinstall.pakages()でインストールを行いました．...
- 普通，あるはずなんですけど？
> library(kohonen)
要求されたパッケージ class をロード中です
> data(wines) # これが，必要だよ
> head(wines)
alcohol malic acid ash ash alkalinity 右方省略
[1,] 13.20 1.78 2.14 11.2
[2,] 13.16 2.36 2.67 18.6
[3,] 14.37 1.95 2.50 16.8
[4,] 13.24 2.59 2.87 21.0
[5,] 14.20 1.76 2.45 15.2
[6,] 14.39 1.87 2.45 14.6
> head(wines.classes)
以下にエラー head(wines.classes) :
オブジェクト "wines.classes" は存在しません
wines.classes というのは，library(help=kohonen) で出てく...
- もしかして，data(wines) ってのを，やらなかったとか？ --...
- いいえ，data(wines)は使いましたが，いきませんでした．~
versionが2.7.0 betaなのですが，そこに何か不具合があるんで...
僕のもので入ってないのはおかしいですからね，何か原因があ...
後，この質問には関係ないのですが，上のような整理されたコ...
今のコメントではどうも読みにくくなりご迷惑をかけてしまう...
**Rで組み合わせの結果を表示したい [#wfeb0f9e]
>[[edora]] (2008-05-13 (火) 15:01:51)~
~
~
Rと統計を学び始めています。~
Rで組み合わせを行い、すべての組み合わせを表示させたい場合...
使えば良いのかわからずにいます。~
~
x <- (1,2,3,4,5,6,7,8,9,10)~
このxの中から2つの数字の組み合わせ45通りを表示させたいと...
(1,2)(1,3)…(9,10)~
~
またこれらの平均や分散を求めたり、度数分布表示が出来れば...
~
コマンドを調べる方法がよくわかっていないのですが、"Rと組...
choose(10,2)のように組み合わせの10C2の計算方法がわかった...
よろしくお願いします。~
//
- ?combn -- [[takahashi]] &new{2008-05-13 (火) 15:28:02};
- 何の分散、度数分布？ -- &new{2008-05-13 (火) 21:03:37};
> x <- 1:10
> combn(x,2) # すべての組み合わせ列挙
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] ...
[1,] 1 1 1 1 1 1 1 1 1 2 ...
[2,] 2 3 4 5 6 7 8 9 10 3 ...
[,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,2...
[1,] 2 2 2 3 3 3 3 3 ...
[2,] 8 9 10 4 5 6 7 8 ...
[,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,3...
[1,] 4 4 4 4 5 5 5 5 ...
[2,] 7 8 9 10 6 7 8 9 ...
[,39] [,40] [,41] [,42] [,43] [,44] [,45]
[1,] 6 7 7 7 8 8 9
[2,] 10 8 9 10 9 10 10
> combn(x,2,FUN=mean) #それらの平均
[1] 1.5 2.0 2.5 3.0 3.5 4.0 4.5 5.0 5.5 2.5 3.0 3.5 4.0...
[20] 4.5 5.0 5.5 6.0 6.5 4.5 5.0 5.5 6.0 6.5 7.0 5.5 6.0...
[39] 8.0 7.5 8.0 8.5 8.5 9.0 9.5
- まあたとえば，table(combn(n1+n2, n2, sum)-n2*(n2+1)/2) ...
- gregmiscパッケージにもcombinations()があります。 -- &n...
- ありがとうございます。combnのような事をやりたかったので...
- 度数分布は、combn(x,2,FUN=mean)で出たものを分布図を作っ...
- hist(combn(x,2,FUN=mean))でやってみました。ちょっとx軸...
**クロス集計時に起きるエラーについて [#d377a576]
>[[初心者]] (2008-05-12 (月) 17:18:45)~
~
クロス集計を作成する際に出るエラーで困っています。~
非常に難しい点が、エラーが出る条件に再現性が見いだせない...
~
A B C D E F G H~
0 1 0 0 0 0 0 0~
0 1 0 1 1 0 0 0~
0 1 0 0 0 0 0 0~
0 1 0 0 1 0 0 0~
1 1 1 0 1 0 0 0~
1 1 1 0 1 0 1 0~
1 1 1 0 1 0 0 0~
1 1 1 0 0 1 0 0~
1 1 1 0 0 0 1 1~
~
上記のようなデータをtmpとして、以下のスクリプトを実行し...
~
for(i in c(1:3)){
tab_del <- read.table("tab_del.csv", sep = ",")#tab.csv...
write.table(tab_del, "tab.csv", sep = ",", row.name = F...
for(j in c(1:5)){
tab <-t(xtabs(tmp[,3+j]~tmp[,i], tmp))
write.table(tab, "tab.csv", sep = ",", row.name = F, c...
}
tab <- read.table("tab.csv", sep = ",")
t_tab <- t(tab)
write.table(t_tab, "t_tab.csv", sep = ",", row.name = F...
}
~
上のデータではエラーが起きないのですが、実際のデータを...
~
エラーの原因は、ループのiで起きていることまでは突き止め...
具体的には、「特定のi列」（後述）を除くとエラーは発生せ...
ただ、問題なのは、同じデータで同じスクリプトを実行して...
たとえば、一回目にi=1列目を除くことでエラーが出なくなっ...
~
スクリプトの問題なのか、データの問題なのかもはっきりせ...
//
- プログラムを載せるなら，動く状態のものにしてください。...
- 説明不足で申し訳ありません。「tab_del.csv」はまったく何...
- 「まったく何も書かれていないデータ」？~
改行コードすら含まれない，長さ0のファイルですか？そんなこ...
- 具体的には、新規のエクセルファイルを開いて、そのままcsv...
- そのようにして作った tab_del.csv を読もうとすると，エラ...
以下にエラー read.table("tab_del.csv", sep = ",") :
入力中には利用可能な行がありません
- お返事が滞っているようですが，どうも，ファイルのオープ...
- write.tableは普通はファイルのcloseまで行うので、そうい...
- エラーの原因ではないけど，xtab の formula が変ですね。x...
- 要するに，上のデータ例だと，2×2集計表をiごとにj=1~p ま...
sapply(1:3, function(i) matrix(sapply(1:5, function(j)
xtabs(~tmp[,3+j]+tmp[,i])), 2))
結果は以下のようになる
[[1]]
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 3 5 2 2 4 4 4 3 4 4
[2,] 1 0 2 3 0 1 0 2 0 1
[[2]]
[,1] [,2] [,3] [,4] [,5]
[1,] 8 4 8 7 8
[2,] 1 5 1 2 1
[[3]]
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 3 5 2 2 4 4 4 3 4 4
[2,] 1 0 2 3 0 1 0 2 0 1
まあ，応答が途絶えたのでどうでも良いのかも知れないが。 --...
**R2.7.0 Windows版のPDFに日本語が表示されない [#v68dea0c]
>[[X Jr.]] (2008-05-07 (水) 22:43:10)~
~
Windows XP です。
> sessionInfo()
R version 2.7.0 (2008-04-22)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.93...
attached base packages:
[1] stats graphics grDevices datasets utils me...
で、
> plot(1, main = "テスト")
として、[ファイル]→[別名で保存] から PDF で保存すると、ma...
PDF に保存した直後に再度、同じ命令を入れると、
> plot(1, main = "テスト")
Warning messages:
1: 'PostScriptStringWidth' 中に不正な文字列
2: 'PDF_Text' 中に不正な文字列
というメッセージが出ます。さらにもう一度同じ命令を入れる...
.Rprofile には
setHook(packageEvent("grDevices", "onLoad"),
function(...) grDevices::ps.options(family="Japa...
の記述をしています。これを外して同じようにすると、PDF の ...
> plot(1, main = "テスト")
> plot(1, main = "テスト")
18 件の警告がありました (警告を見るには warnings() を使...
> warnings()
警告メッセージ：
1: 'mbcsToSbcs' 中の '繝・
2: 'mbcsToSbcs' 中の '繝・
略
17: 'mbcsToSbcs' 中の '繝・?
18: 'mbcsToSbcs' 中の '繝・?
そして、上記のようなメッセージが出ます。~
よろしくお願いします。~
//
- ps.options は pdf.options ではない？~
実は，下の質問（Macintosh）で 「pdf ファイルに出すときに...
setHook(packageEvent("grDevices", "onLoad"),function(......
grDevices::pdf.options(family="Japan1"))
に変更してファイルには出るようにできたからです。 -- &new...
- コメントありがとうございます。そのようにすると、setHook...
- これはWindows版2.7.0の問題（2.8.0preでも同じでした）な...
- 中澤さん、ありがとうございます。試してみました。「運動...
- r45688 で直ります. 二,三日すればpatchedでwindows版もい...
- 了解です。なかまさん、ありがとうございました。 -- [[X J...
- いつも大変お世話になっております＞なかまさん。素早いご...
- 素早くはないです. と言うか, 修正が追いつきかねます... ...
- patched (r45690) 入れました。問題ありませんでした。あり...
**R2.7.0，Macintosh版でのグラフィック表示における日本語 [...
>[[ご勘弁を]] (2008-05-06 (火) 19:23:23)~
~
以下のような状況，コマンドで，表示されるグラフィックにお...
> sessionInfo()
R version 2.7.0 (2008-04-22)
powerpc-apple-darwin8.10.1
locale:
ja_JP.UTF-8/ja_JP.UTF-8/C/C/ja_JP.UTF-8/ja_JP.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets me...
> hist(rnorm(1000), main="日本語")
//
- うーん, Helveticaになってしまうトラップがわかんないけど...
# これを ~/.Rprofile に入れて(なかったら作ってね)ね
setHook(packageEvent("grDevices", "onLoad"),
function(...){
grDevices::quartzFonts(serif=grDevices::quar...
c("Hiragino Mincho Pro W3",
"Hiragino Mincho Pro W6",
"Hiragino Mincho Pro W3",
"Hiragino Mincho Pro W6")))
grDevices::quartzFonts(sans=grDevices::quart...
c("Hiragino Kaku Gothic Pro W3",
"Hiragino Kaku Gothic Pro W6",
"Hiragino Kaku Gothic Pro W3",
"Hiragino Kaku Gothic Pro W6")))
# grDevices::quartz.options(family="sans")
}
)
attach(NULL, name = "MacJapanEnv")
assign("familyset_hook",
function() { if(names(dev.cur())=="quartz") par(f...
pos="MacJapanEnv")
setHook("plot.new", get("familyset_hook", pos="MacJapanE...
こんなので当面しのぐのはどうでしょうか. -- [[なかま]] &ne...
- ありがとうございます。助かります。やってみて，ちゃんと...
**縦に並んだデータから平均を出す方法 [#l2981471]
>[[シチノスケ]] (2008-05-01 (木) 19:15:48)~
~
こんにちは。~
次のようなデーセットがあるとします。~
変数xについて，personが同じ値のもの同士で平均をとりたいの...
x person
1 13.078577 1
2 13.365019 1
3 6.365492 2
4 6.287424 2
5 13.974501 3
6 12.838648 3
7 11.565927 4
8 10.240504 4
~
どうぞよろしくお願いします。~
//
- tapply, by を調べましょう。最初は目的を達するためにどの...
- データセットがdataとして、with(data,tapply(x,person,mea...
- xにNAが含まれていると「引数は同じ長さでなければなりませ...
- > na.rm=Tはどのように条件として入れるのでしょうか~
あなたは一体どのようにしたのでしょうか？あなたの言うよう...
tapply のオンラインヘルプは見ましたか？答えは書いてあると...
- 失礼しました。自分のデータで記述を間違ったためでした。...
**テーブルの要素から上位のものを抽出 [#bd2f66a7]
>[[yuta]] (2008-05-01 (木) 14:29:36)~
~
次のようなテーブル（またはデータフレーム）があるとします~
A B C D
1 1 4 0 2
2 0 1 5 3
3 3 2 1 1
4 4 2 4 1
5 5 9 3 0
このテーブルの、例えば各列の上位2つの要素だけを抽出し集計...
<こんな結果が得たい>~
A B C D
1 0 4 0 2
2 0 0 5 3
4 4 0 4 0
5 5 9 0 0
//
- データフレームがxだとして、 x2<-x*ifelse(apply(-x,2,ran...
- 最大値もしくは二番目に大きな値が複数ある時はどうしたい...
- タイの扱いは悩ましいところなのですが、複数の値をいずれ...
**NAを含むデータフレームの列別の合計や平均値を求める方法...
>[[ｙｈ]] (2008-04-29 (火) 00:43:59)~
~
Ｒの初心者です。xのdata.frameにNAが含まれていると、列の合...
例えば、xの内容が次の場合、
A B C
1 1 2 NA
2 2 3 4
3 3 NA 5
4 4 5 6
5 5 6 7
次のように書けば、
for(i in 1:3){y<-append(y,sum(x[,i][!is.na(x[,i])]))}
> y
[1] 15 16 22
で求められることがわかりましたが、これでは記述が煩雑で長...
//
- あってもおかしくない -> たいていある、が R の良いとこ...
> x
A B C
1 1 2 3
2 2 3 4
3 3 4 NA
4 4 5 6
> rowMeans(x, na.rm=TRUE)
[1] 2.0 3.0 3.5 5.0
> rowSums(x, na.rm=TRUE)
[1] 6 9 7 15
- 早速の回答を有り難うございました。na.rmとはNAをremoveす...
- 少し工夫が必要 -- &new{2008-04-29 (火) 13:08:36};
> !is.na(x)
A B C
[1,] TRUE TRUE TRUE
[2,] TRUE TRUE TRUE
[3,] TRUE TRUE FALSE
[4,] TRUE TRUE TRUE
> rowSums(!is.na(x))
[1] 3 3 2 3
- あっ！なるほどと感心しました。sumでもTRUEの個数をカウン...
- 失礼、行ではなく列、ということでしたね。もうお分かりと...
**for文での連続した処理 [#y3aea9df]
>[[初心者]] (2008-04-27 (日) 19:22:10)~
~
初歩的な勘違いをしていると思いますが、ご指摘くだされば幸...
> a1<-c(1,2)
> a2<-c(3,4)
とし、
> for(i in 1:2){x<-paste("a",i,sep="");mean(x)}
とすると、
NA
NA
Warning messages:
1: 引数は数値でも論理値でもありません。NA 値を返します i...
2: 引数は数値でも論理値でもありません。NA 値を返します i...
と返ってきますが、a1,a2のそれぞれのmeanの値を返すには、~
どういうプログラム文が必要でしょうか？~
- 昔から何度も出てきている質問で「変数名を自動的に作って...
a1<-c(1,2)
a2<-c(3,4)
for(i in 1:2){
text0<-paste("x<-a",i,sep="") #実行される文を作る
eval(parse(text=text0)) #textには実行される文を指定
print(mean(x))
}
- 実行できました。どうもありがとうございます。過去ログは...
**R2.7.0におけるlocator()の仕様 [#z92dcbbf]
>[[すろん]] (2008-04-25 (金) 18:15:18)~
~
iMacG5, MacOSX10.5.2にR2.7.0を入れました。~
~
R2.6.2を利用していたときは，~
> locator()
と入力してenterキーを押した後，適当にQuartzデバイス画面を...
~
この動作を2，3回繰り返した後，再びRを起動して，~
> locator(1)
> locator(5)
などと命令しました。これは問題なく動作しました。しかしloc...
~
括弧の中の数値が大きい場合など，途中でやめたい時もあるの...
//
- 私のMac(IntelMacBookBlack2G&Leo.2)でも同じですね。2.6.*...
- 確認していただいてありがとうございます。IntelMacでも同...
**データーフレームからの特定条件の抽出 [#gcd1813d]
>[[subset]] (2008-04-23 (水) 22:56:19)~
~
いつも拝見しております。~
どうしてもうまくいかないので、ご教授を願います。~
下記のようなデータフレーム DFの抜粋があるとします。~
Xには何らかの数字が入っているとします。~
A B C D
a 0.265 -0.422 -0.735 X
b 0.000 0.273 -0.102 X
c 0.647 -0.233 -0.593 X
d 0.551 -1.171 -2.047 X
e -0.078 0.177 0.213 X
f 0.023 -0.330 -0.380 X
g -0.129 0.086 0.277 X
h 0.174 -0.571 -0.095 X
i X X X X
j X X X X
~
これから、~
� (B-A) >= 0.2 または (C-A) >= 0.2~
� (B-A) >= 0.2 ではあるが (C-A) >= 0.2を除くデータ~
� (C-A) >= 0.2 ではあるが (B-A) >= 0.2を除くデータ~
� �で作ったデータフレームを利用し (D - B) ...
~
をそれぞれ抽出し新たなデータフレームを4つ作りたいと思いま...
~
自分なりに調べsubsetで抽出してみましたが下記のようにしても~
うまくいきませんでいた。~
~
A1 <- subset (DF, (B - A) >= 0.2 | (C - A) >= 0.2 )~
A2 <- subset (DF, (B - A) >= 0.2 &! (C - A) >= 0.2)~
A3 <- subset (DF, (C - A) >= 0.2 &! (B - A) >= 0.2)~
B1 <- subset (A1, (D - B) >= 0.2 &! (D - C) >= 0.2)~
~
アドバイスをいただければと思います。~
よろしくお願いいたします。~
//
- なにがうまくいかないのですか？ ちなみに、A1のところは ...
- うまくいきましたよ。 -- &new{2008-04-24 (木) 01:24:07};
- コメントありがとうございます。私の環境で実行しますと、A...
- ちゃんとできるよ．なんか考え違いしているんじゃない？ ~
set.seed(1)
DF <- data.frame(
A=c(.265,0,.647,.551,-.078,.023,-.129,.174,round(runif(...
B=c(-.422,.273,-.233,-1.171,.177,-.330,.086,-.571,round...
C=c(-.735,-.102,-.593,-2.047,.213,-.380,.277,-.095,roun...
D=round(runif(10,-1,1),3),
row.names=letters[1:10])
A1 <- subset (DF, (B - A) >= 0.2 | (C - A) >= 0.2 )
A2 <- subset (DF, (B - A) >= 0.2 &! (C - A) >= 0.2)
A3 <- subset (DF, (C - A) >= 0.2 &! (B - A) >= 0.2)
B1 <- subset (A1, (D - B) >= 0.2 &! (D - C) >= 0.2)
C1 <- subset (DF, (D - B) >= 0.2 &! (D - C) >= 0.2)
-- &new{2008-04-24 (木) 23:12:26};
- ＆！ というのは使いたくないなあ。せめて & ！（ のよう...
- コメント有り難うございます。ただ、上記のB1 <- subset (A...
B1 <- subset (A1, (D - B) >= 0.2 | (D - C) >= 0.2)
B2 <- subset (A1, (D - B) >= 0.2 &! (D - C) >= 0.2)
B3 <- subset (A1, (D - C) >= 0.2 &! (D - B) >= 0.2)
に変更し計算させたところ、データの数が B1 = B2 + B3 にな...
内容を確認したところ、どうもB2, B3の結果はDFのデータから...
いろいろ調べたのですが、皆様がおっしゃるように方法自体は...
ないと思うのですが。不思議でしょうがありません。-- [[subs...
- >データの数が B1 = B2 + B3 になりませんでした。~
なるよ．上記の例だと， B1 が b, g, i で， B2 が g で， B...
> ( B1 <- subset (A1, (D - B) >= 0.2 | (D - C) >= 0.2) )
A B C D
b 0.000 0.273 -0.102 0.322
g -0.129 0.086 0.277 0.374
i 0.266 0.573 0.202 0.540
> ( B2 <- subset (A1, (D - B) >= 0.2 &! (D - C) >= 0.2) )
A B C D
g -0.129 0.086 0.277 0.374
> ( B3 <- subset (A1, (D - C) >= 0.2 &! (D - B) >= 0.2) )
A B C D
b 0.000 0.273 -0.102 0.322
i 0.266 0.573 0.202 0.540
> subset (DF, (D - B) >= 0.2 &! (D - C) >= 0.2)
A B C D
g -0.129 0.086 0.277 0.374
h 0.174 -0.571 -0.095 -0.232
> subset (DF, (D - C) >= 0.2 &! (D - B) >= 0.2)
A B C D
b 0.000 0.273 -0.102 0.322
i 0.266 0.573 0.202 0.540
- subset自体じゃなくてその周りに間違いがあると思うから、...
- うまくいきました。失敗の原因は符号が逆でした。簡素な式...
- 脱力。論理式の簡略化は簡単なことなのですから。簡略化す...
**各列の項目ごとの集計表を一つの表にまとめるには？ [#x5b1...
>[[初心者]] (2008-04-22 (火) 18:49:31)~
A B C D~
1 a 5 1
2 c 3 0
1 a 3 1
1 b 1 0
2 a 2 0
1 a 4 0
といった行列から~
~
1 2 ←Aについての集計表
4 2
a b c ←Bについての集計表
4 1 1
1 2 3 4 5 ←Cについての集計表
1 1 2 1 1
0 1 ←Dについての集計表
4 2
~
といった感じで、各列の項目ごとの集計表を一つにまとめるに...
~
試しに以下のようなスクリプトを書いてもみましたが、うまく...
xlab <- c(names(x)) #列タイトルのベクトル化
n <- ncol(x) #繰り返し回数（列数）の取得
for (i in 2:n){
cbind(table(x$xlab[i-1]),table(x$xlab[i]) )
}
~
アドバイスいただけないでしょうか？~
~
//
- ひとつにまとめるってのがよくわかんないけど、apply(x,2,t...
- あなたが求める形式となるべく近いものを得るには，for (i ...
> for (i in 1:ncol(x)) print(table(x[,i]))
1 2
4 2
a b c
4 1 1
1 2 3 4 5
1 1 2 1 1
0 1
4 2
- ありがとうございました。以下のようなスクリプトで解決し...
x <- データ
n <- ncol(x)
#各列ごとにテーブル集計を行う
a <- apply(x, 2, "table")
#各列のテーブルを一つのテーブルに追加
for(i in 1:n){
write.table(a[i], "y.csv", sep = ",", append = T)
}
&new{2008-04-23 (水) 11:19:13};
**gzファイルのパッケージ [#o42c2216]
>[[MA]] (2008-04-19 (土) 20:00:30)~
~
WindowsOSとWindowsのRで、.gzで圧縮されたパッケージを使う...
以下にエラーunpackPkg(pkgs[i], pkgnames[i], lib, installW...
malformed bundle DESCRIPTION file, no Contains fi...
となってしまいます。~
他に方法があるのでしょうか？~
ちなみに、パッケージのリストには表示されません。~
//
- Windows は使ったことがありませんが、Windows 用のバイナ...
- 上で指摘されている通り、tar.gz付きはソースファイルです...
- コメントありがとうございます。zipで探してみます。 -- [[...
- ちなみに、ソースのかかれた.Rファイルをパスのとおってい...
- 純粋にRだけで書かれている自己充足的な関数はそうでしょう...
- それとパッケージからインストールしないとオンラインヘル...
**Rの独習方法 [#k27d03db]
>[[デッサウ]] (2008-04-19 (土) 19:30:38)~
~
これから本気でRを独習しようと考えております。~
理系出身であり、いまはエクセルで重回帰分析を~
行っておりますが統計についての知識は乏しく、~
解析自身にも自信が持てません。~
正しく統計解析を行えるようになりたく~
アドヴァイスありましたらよろしくお願いします。~
//
- 「正しく統計解析を行えるように」 -> 初級Q&Aで答えられる...
- 私の経験（医療生物統計）で言えば、(1)データの尺度分類／...
- ブラックボックスを使うのは止めましょう。十分に理解した...
- 曖昧な質問になってしまいましたが回答ありがとうございま...
- まず青木先生のサイトで勉強されたらいかがですか？ そして...
- 練習 -- [[st]] &new{2008-07-01 (火) 11:18:40};
**AIX6へのインストール [#l69aa622]
>[[シバタ]] (2008-04-18 (金) 13:12:54)~
~
AIX6(64bit)にRの最新版をインストールしたいのですが、対応...
//
- 実際にインストールして，動くかどうか試したら，質問への...
- AIXに詳しい人以外には, お薦めしません. 私は, 全AIXバー...
- ご回答有難う御座います。以前、AIX5.2でRをインストールし...
- 最低限作業が必要なのは, m4ディレクトリ以下のm4マクロのa...
- http://prs.ism.ac.jp/~nakama/AIX/ でうまく行ったと私以...
**画像ファイルの上書き防止 [#yd323eee]
>[[初心者]] (2008-04-16 (水) 12:13:24)~
~
画像ファイルの上書きを防止するにはどうすればよいのでしょ...
~
write()などだと、append = Tとすることで上書きを防ぐことが...
~
よろしくおねがいします。~
//
- ファイルの存在有無がわかればいいので、こんなのでどうで...
if(file.exists(file <- "hoge.pdf"))
{
stop("File already exists.")
} else
{
pdf(file)
plot(1:10)
dev.off()
}
- 上記は勘違いでした。「上書きを防ぐ」というより、「既存...
- (質問の趣旨が複数プロットを別個のファイルに書き込みたい...
> png(); plot(runif(10)); plot(runif(20)); dev.off(); li...
null device
1
[1] "Rplot001.png" "Rplot002.png"
Tips はファイル名に %d というおまじないを書き込むことです...
?png より：
If you plot more than one page on one of these devices a...
include something like '%d' for the sequence number ...
file will contain the last page plotted.
- すると
$ R -q
> png("hoge%i.png")
> plot(sin,-pi,pi)
> plot(cos,-pi,pi)
> dev.off()
> q("no")
$ convert -append hoge1.png hoge2.png hoge.png
と言うような事を御所望? -- [[なかま]] &new{2008-04-16 (水...
- たくさんのアドバイスありがとうございます。説明が不十分...
png(filename ="Rplot%03d.png"）
plot(1:10)
plot(1:15)
plot(1:20)
dev.off()
こうすると、連番でRplot001-003までが作成されます。
次に、以下の処理を行うと…
png(filename ="Rplot%03d.png"）
plot(1:30)
plot(1:200)
plot(1:300)
dev.off()
上で作成した連番のRplot001-003に上書きされる形でRplot00...
できれば、ここを「Rplot004-006という感じで作成したい」...
これが無理であれば、テキストファイルなどの作成時、appen...
いかがでしょうか？
- 一つの欠番もなく本当に連番にしたいのなら，自分で管理す...
一番簡単にあなたの希望を叶えるのは，もうこれ以上ファイル...
- そんなに使いやすいとは思わないけれど例えば。ただしこれ...
> list.files(patt=glob2rx("Myplot*.png"))
[1] "Myplot1.png" "Myplot2.png" "Myplot3.png" # 既に1か...
> png(file=paste("Myplot", 1+length(list.files(patt=glo...
> plot(runif(10)); dev.off()
null device
1
> list.files(patt=glob2rx("Myplot*.png"))
[1] "Myplot1.png" "Myplot2.png" "Myplot3.png" "Myplot4.p...
**複数のグラフを並べて一つのファイルに [#d4c11a7d]
>[[iris]] (2008-04-14 (月) 12:13:08)~
~
いつもお世話になっています。~
~
複数のグラフを一括で見るためにグラフを並べるにはどうすれ...
~
調べてpar(mfrow)を試してみたのですが、できるものとできな...
~
できるもの~
par(mfrow = c(3,2))~
plot(1:5)~
plot(1:10)~
plot(1:15)~
…~
~
できないもの~
x <- iris~
par(mfrow = c(3,2))~
histogram(~Sepal.Length, data = x)~
histogram(~Sepal.Width, data = x)~
histogram(~Petal.Length, data = x)~
…~
この場合、ヒストグラムは（小さなサイズでは表示されず）一...
~
アドバイスいただけると嬉しいです。~
//
- print(histogram(~Sepal.Length, data = x),split=c(1,1,3,...
- ありがとうございます。latticeしっかり読んでみます。 -- ...
- なぜ，histogram にこだわるのかわからないなあ。確かに，h...
- histでできました！教科書に沿って勉強していたもので、his...
- よかったですね。histogramの解法がわかったらUPしてくださ...
**VC++ からR.dllをロード・Rの関数を実行したい → NG:Access...
> (2008-04-13 (日) 18:42:58)~
~
お世話になっております。~
~
VC++6.0上でアプリをつくっています。~
目的は「C++のアプリで、C++のソース上からRの関数を実行する...
~
現在、R.dll をロードさせて、コンパイルを通すことまではで...
※バーションは「R-2.4.1」です。~
~
アドバイス頂けないでしょうか。~
以下、私が行った操作です。~
~
1: R.dllから Rdll.lib を生成 ~
$pexports R.dll > R.exp~
$lib /def:R.exp /out:Rdll.lib
2: RのDLLとヘッダーファイルのディレクトリを指定
VC++ メニューの「ツール」-「オプション」にて~
・インクルードファイル "Rのルート"/include~
・ライブラリファイル "Rのルート"/bin
3: 1で作成したRdll.libをリンクさせる
「プロジェクト」-「設定」~
「リンク」- オブジェクト・ライブラリモジュールに ...
4:R言語の関数を呼び出すC++コードを記述して コンパイル~
たとえばこんな感じ~
#include <R.h>
int main ( void )
{
SEXP a = allocVector(STRSXP, 1); // R.dll 内の関数
return 0;
}
※リンクエラーも無く、コンパイルは通ります。~
~
5:実行~
→NG:allocVector関数コール時にAccessViolationが発生~
（デバッガ・ステップ実行にて確認）~
・そもそも、R.dll は VC++上から使用できない？~
・RcppTemplate（R/C++間のインターフェース用ツール）の...
//
- こうしたかなり特殊な話題はここで質問するよりは RsiteSe...
**軸の目盛を内側にしたい [#s24627bc]
>[[名無し]] (2008-04-13 (日) 14:33:04)~
~
お世話になります。~
表題のとおりなのですがどうしたら良いのでしょうか？~
~
side3の軸を下まで持ってくればいけるかと思ったのですが~
xlim <- c(1,5)
ylim <- c(2,4)
plot.new()
plot.window(xlim, ylim)
box()
axis(1)
axis(3, pos = ylim[1])
中に浮いてうまく重なりませんでした。~
~
よろしくお願いいたします。~
//
- axis(1, tcl = 0.5) でいかがでしょうか？ -- &new{2008-0...
- tckとtclでtickの長さと方向を指定できたのですね。有難う...
**zooオブジェクトをas.tsするとtimeがずれる [#h67fa041]
>[[名無し]] (2008-04-12 (土) 17:05:25)~
~
お世話になります~
~
> z <- zoo(matrix(c(1:4),2),c(as.Date("2008-01-30"),as.D...
> z
2008-01-30 1 3
2008-02-06 2 4
上のようなデータがあったとき~
> julian(time(z))
[1] 13908 13915
attr(,"origin")
[1] "1970-01-01"
ですが、as.tsすると~
> as.ts(z)
Time Series:
Start = 13909
End = 13916
Frequency = 0.142857142857143
zoo(coredata(x), tt).1 zoo(coredata(x), tt).2
13909 1 3
13916 2 4
となりjulianのときは13908,13915だったのにas.tsでは13909,1...
> z2 <- z
> time(z2) <- julian(time(z))
> z2
13908 1 3
13915 2 4
> as.ts(z2)
Time Series:
Start = 13909
End = 13916
Frequency = 0.142857142857143
zoo(coredata(x), tt).1 zoo(coredata(x), tt).2
13909 1 3
13916 2 4
としてもずれます。~
> as.ts(z2, start=13908)
Time Series:
Start = 13909
End = 13916
Frequency = 0.142857142857143
zoo(coredata(x), tt).1 zoo(coredata(x), tt).2
13909 1 3
13916 2 4
startは効きませんでした。~
なぜなのでしょうか？~
~
複数のデータ（日付毎のデータと週毎のデータ）を重ねてプロ...
~
バージョン＆OSは~
R version 2.6.2 (2008-02-08) ~
i486-pc-linux-gnu ~
ubuntu8(hardy)~
です。~
~
よろしくお願いいたします。~
//
- zooオブジェクトのままplotしたらだめですか? plot(z, xlim...
- ありがとうございました。そのtsの変換法を使用させていた...
**グラフのx軸の作り方を教えてください。 [#wd135eab]
>[[シチノスケ]] (2008-04-11 (金) 12:27:15)~
~
こんにちは。~
http://www.geocities.jp/t_okumurin/080411graph.bmp~
にあるようなグラフをRで作りたいのですが，x軸をどうやって...
どうぞよろしくお願いいたします。~
//
- xaxt="n", axis() -- &new{2008-04-11 (金) 13:55:27};
**rJavaで.jinit()に失敗してしまうようです。 [#u927a967]
>[[はーとりずむ]] (2008-04-10 (木) 13:30:54)~
~
お世話になります。~
~
質問内容は、WinXP + R2.6.2 + JRE1.6.0_05上でrJavaやiplot...
何か問題解決のヒントがあればご教授ください。~
~
ちなみに実行するたびに、出てくるエラーが違うのですが、概...
~
[パターン1]~
Error occurred during initialization of VM~
Could not reserve enough space for object heap~
Error in .jinit() : Cannot create Java virtual machine (-...
~
[パターン2]~
以下にエラー .jinit() : Cannot create Java virtual machin...
~
また、SessionInfo()の情報は下記のとおりです。~
~
R version 2.6.2 (2008-02-08) ~
i386-pc-mingw32 ~
~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
~
other attached packages:~
[1] rJava_0.5-1 RODBC_1.2-3~
~
以上よろしくお願いいたします。~
//
- 原因は全く分からず推測ですが、エラーはRというよりJavaの...
**データフレームのソート方法 [#e83a7b85]
>[[masa]] (2008-04-09 (水) 21:27:41)~
~
例えば、下のようなデータフレームがあるとします。~
~
A B C
AB 1 6 1
AC 4 1 3
AD 3 3 1
AE 2 5 2
AF 1 1 1
AG 1 2 4
~
このようなデータをAの列を基準列として、大きい順に並び替え~
A列に含まれる3以上を基準としB,Cを順次大きい数字順に並び替...
例えば下のようにです。~
~
A B C
AC 4 1 3
AD 3 3 1
AB 1 6 1
AE 2 5 2
AG 1 2 4
AF 1 1 1
~
一つの列のみの並び替えならば、orderを使用することで~
並び替えることができました。~
~
アドバイスをいただければと思います。~
//
- masaさんのおっしゃる通り「A列に含まれる3以上」かつ「B,C...
- 仕様と例が今ひとつしっくりしていない。（仕様の記述が不...
- コメントありがとうございます。BとCは今度はB内のAに含ま...
- かぶった？みんな同じ事を考えるんだね。 -- &new{2008-04...
- 使い始めて日が浅く、order関数で複数行の設定ができません...
- もちろんRjpwikiで[[基本操作のページ:http://www.okada.jp...
あとは[[R-Tips:http://cse.naro.affrc.go.jp/takezawa/r-tip...
最近は他にもR関係のHPが増えているので、googleで自分にあっ...
- 自分なりに調べ、解決したので報告させていただきます。~
~
sortlist <- rev(order(DF$A ))
T1 <- DF[sortlist,]
T2 <- subset (T1, A >= 3.0)
T3 <- subset (T1, A < 3.0)
sortlist <- rev(order(T3$B ))
T4 <- T3[sortlist,]
T5 <- subset (T4, B >= 3.0)
T6 <- subset (T4, B < 3.0)
sortlist <- rev(order(T6$C ))
T7 <- T6[sortlist,]
T8 <- subset (T7, C >= 3.0)
T9 <- subset (T7, C < 3.0)
DF2 <- rbind (T2, T5, T8)
~
どうでしょうか。何かアドバイスがあればお願いします。-- [[...
- 少なくとも，最後の行は，DF2 <- rbind (T2, T5, T8, T9) ...
- 解きほぐすと頭の体操にはなると思うけど、実際は使わない...
- 様々なコメントありがとうございます。 -- [[masa]] &new{2...
**作業スペースの保存、読み込みについて [#i9930543]
>[[初心者]] (2008-04-09 (水) 13:54:17)~
~
R終了時に作業スペースを保存して次にそれを読み込むと以下の...
~
load("C:\\Users\\tak\\Documents\\R\\workspace\\.RData")
Warning message:~
In readChar(con, 5) : can only read in bytes in a non-UTF...
~
「作業スペースの保存」とは現在の作業を保存して次に立ち上...
~
R version 2.6.2 (2008-02-08) ~
i386-pc-mingw32 ~
~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
~
OS=VISTA~
//
- ？？？さんのプログラムが動きました！ありがとうございま...
- errorじゃなくてwarningです。基本的に無視して大丈夫。 --...
- 保存した作業スペースが出てこないで、最初からのスタート...
- 自分で保存したり読み込んだりしているのですか？作業を終...
- 自動的に読み込まれません。
[以前にセーブされたワークスペースを復帰します] 起動準備中...
とのメッセージになります。
- 勘違いしてるような気がしているので一応。コンソールの出...
- 勘違いしてました。ありがとうございました。 -- [[初心者]...
- 何でそんな変なメッセージが出るのかわからないけど，最初...
- たぶんR2.6.2からconnection系の何かが変わってマルチバイ...
- 無視して下さい. 警告メッセージが出るだけです. 動作がお...
**画像ファイルへの連続出力 [#ra9b05b0]
>[[iris]] (2008-04-09 (水) 10:21:04)~
~
連続する列に対して、自動的に「ヒストグラムを書いて、それ...
ファイル自体はできているのですが、中身は白紙になってしま...
アドバイスいただけると嬉しいです。~
~
x <- iris
n <- ncol(x) #繰り返し回数（列数）の取得
for (i in 1:n){
file.name <- sprintf("Fig%03i.png", i) #出力ファイルの通...
png(file.name, width = 400, height = 400) #pngデバイスド...
histogram(x[,i]) #i:列, x:データフレーム
dev.off()
}
//
- library(lattice)しなかっただけでは？
library(lattice)
options(device="png")
png<-function(filename = "Fig%03d.png", width = 400, hei...
grDevices::png(filename,width,height,...)
}
lapply(iris,function(x)if(is.numeric(x))histogram(x))
dev.off()
ちゃんと, 出てると思います -- [[なかま]] &new{2008-04-09 ...
- なかまさんプログラム例まで書いていただき本当にありがと...
- iris 氏の，掲示されたプログラム（for で回す）の出力は長...
以下のようにするとよい（オンラインヘルプの png を良く読め...
（なかま さんのは，書き方が玄人好みで難しい）~
（histogram は対象変数が factor でも“棒グラフ”？を描いて...
png(filename="png%i.png", width = 400, height = 400)
lapply(iris, histogram)
dev.off()
- 「NULL デバイスです」のメッセージはデバイスが開いていな...
- png()として, 何かエラーは出てませんか？pngデバイスはWin...
- どうも，for ループの中で ping()…dev.off() をやると問題...
- latticeグラフィックスオブジェクトはprint/plotして始めて...
- ああ, そういえば, forはprint.evalしないですね.(for使わ...
- 皆様のおかげで問題も解決して自分のプログラムが動きまし...
**変数の削除 [#p770dbe5]
>[[ma]] (2008-04-09 (水) 06:02:51)~
~
データセットから分散が０のものを自動的に削除する方法を探...
updateなどを使う方法は理解してますが、一括で行う方法が見...
//
- 「自動的」ってどの程度の自動性を望むのでしょうか。デー...
- R-コマンダーで読み込んだデータセットに対してコマンドか...
- xがmatrixならx[,apply(x,2,sd)>0]になります。~
オブジェクト"x"が存在しないのはMAさんがオブジェクト"x"を...
- コメントありがとうございます。 -- [[MA]] &new{2008-04-1...
**データフレーム中のNAの置換 [#z5c63ca4]
>[[nami]] (2008-04-08 (火) 23:51:38)~
~
ある2つのデータフレームをmergeした時、欠損値はNAとなって...
このNAを0に置換したいのですがうまくいきません。例えば、~
> datA <- data.frame(x = c("A","B","C"), y = c(1:3))
> datB <- data.frame(x = c("A","B","D"), z = c(4:6))
> (datC <- merge(datA, datB, all = TRUE, by = "x"))
x y z
1 A 1 4
2 B 2 5
3 C 3 NA
4 D NA 6
この中のNAを0に置換したいのです。~
datD <- replace(datC, which(is.na(datC)), 0)~
などとしてみましたが ~
以下にエラー `[<-.data.frame`(`*tmp*`, list, value = 0) :
新しい列は既存の列に穴を開けるかも知れませんうまくいき...
となり、うまくいきませんでした。~
どなたか、ご教示くだされば幸いです。~
環境はR2.6.2、windowsXP SP2です。~
宜しくお願いします。~
//
- こんなんでいいのかしら？ -- &new{2008-04-09 (水) 00:31...
> datC[is.na(datC)] <- 0
> datC
x y z
1 A 1 4
2 B 2 5
3 C 3 0
4 D 0 6
- ありがとうございます。目的のことができました。 -- [[nam...
- NAはNAで0ではありませんから副作用が無いかどうかよく吟味...
**Graphvizの記法をRgraphviz用に翻訳 [#e49b6edb]
>[[kado]] (2008-04-08 (火) 23:17:57)~
~
Graphviz用に書かれたプログラムをRgraphvizで簡単に実行する...
~
semで得られた結果をグラフ化するとき、いちいちGraphvizを通...
なにかよい方法はないでしょうか？~
//
**データフレームにある重複rownameの操作について [#cc1401d3]
>[[DataFrame]] (2008-04-08 (火) 16:23:58)~
~
はじめまして、データフレームのrowname操作について質問しま...
~
下のようなデータフレームがあるとします。
a b c
1 h 0 2
2 l 1 3
3 h 1 2
このデータを次のようにしたいと考えています。
b c
h 0 2
l 1 3
h 1 2
どの様にすればよいでしょうか？解決方法をお願いいたします。~
//
- 奇遇ですね。昨日，[[Ｑ＆Ａ (中級者コース)]]に掲示された...
- お教え頂いた「rownameの付け方」では、上記内容ですとrow....
- このデータでは無理です。row.namesにはduplicateが許され...
- コメントありがとうございます。何らかの処理で取り除かな...
- 無理やりつけれないこともないですが、意味がないですよね。~
matrixと転置を使うと重複が許されます。
x <- data.frame(matrix(1:12,3))
colnames(x) <- rep("A",4)
x <- t(x)
rownames(x)
で、これをしていて気づいたのですが、
x <- data.frame(matrix(1:12,3))
colnames(x) <- rep("A",4)
x <- t(x)
rownames(x)
as.data.frame(t(x)) # エラー
rownames(as.data.frame(t(x))) # 重複したrownameを返す。
なんだか奇妙ですね。 -- [[akira]] &new{2008-04-08 (火) 18...
//- 最後の2行は，以下のように書きたかったんじゃ？ -- &ne...
// > as.data.frame(x)
// 以下にエラー data.frame(V1 = c(" 1", " 4", " 7", "10"...
// row.names が重複しています： A
// > rownames(as.data.frame(x))
// [1] "A" "A" "A" "A"
- コメントありがとうございます。例えば、h, l, h1,と自動で...
- ともかくユニークにしたければ例えば。 -- &new{2008-04-0...
> DF2 <- transform(DF, a=paste(a, seq(nrow(DF)), sep=""))
> DF2
a b c
1 h1 0 2
2 l2 0 3
3 h3 1 2
- 目的としていることが、簡単にできるようになりました。あ...
- ↑x4 エラーはas.data.frameの中じゃなくてprint.data.frame...
- 二重投稿してしまいました。どのようにしたら消せるのでし...
- ページトップの編集ボタンを押して、該当部分を消します。...
- 誤字の指摘ありがとうございます。無事修正ができました。 ...
- 参考まで。変形後 rownames が h で始まるものだけを取り出...
> DF3
b c
h1 0 2
l2 0 3
h3 1 2
> DF3[grep("\\h", rownames(DF3)),] # grep 関数で行名が ...
b c
h1 0 2
h3 1 2
- 「hで始まる」というのなら，DF3[grep("^h", rownames(DF3)...
- 失礼。そうでした。\\ は \\[ 等として [ で始まる文字列...
- 細かいことを言いますが~
＞ \\ は \\[ 等として [ で始まる文字列~
単に [ を含む文字列です~
＞（^[ は不可）~
[ で始まる文字列は，^\\[ でしょう -- &new{2008-04-09 (水...
- hで始まるだけだと、h1,h2,...とha1,ha2,...が区別できず困...
DF3[grep("^h[[:digit:]]$", rownames(DF3)),]
でしょうか？この辺は[[正規表現:http://www.okada.jp.org/RW...
**histogramのバグでしょうか？ [#yd8a8eeb]
>[[iris]] (2008-04-08 (火) 15:14:25)~
~
a b c~
1 x x x
2 x x x
3 x x x
このようなデータx（具体的にはirisのデータ）のタイトルを数...
~
names(x) <- c(1:ncol(x))~
1 2 3~
1 x x x
2 x x x
3 x x x
~
こうしたうえで、ヒストグラムを作成します。~
histogram(~ 1(←変換したタイトルの番号）, data = x)~
~
すると、タイトル変換前とはまったく別の変なヒストグラムが...
~
変換後の数字にシングル・ダブルクオーテーションをつけても...
histogram(~ '1'(←変換したタイトルの番号）, data = x)~
~
逆に、変換を数字でなくアルファベットにしてみると、問題な...
histogram(~ "a"(←変換したタイトルのアルファベット）, data...
~
ただ、連続する列に対して、自動的にヒストグラムを書きたい...
~
原因と解決法などわかる方がいらっしゃいましたらよろしくお...
//
- > 連続する列に対して、自動的にヒストグラムを書きたいの...
for (i in 1:4) histogram(iris[,i])
等でよいのでは？~
「~ a」などは，formula というもので，formula の「~ 1」は...
- ありがとうございます。ただ、まだ解決されません。
具体的には、以下のようなプログラムを組みました。
x <- iris
n <- ncol(x) #繰り...
for (i in 1:n){
file.name <- sprintf("Fig%03i.jpeg", i) #出力ファイル...
png(file.name, width = 400, height = 400) #pngデバイス...
histogram(~ x[,i], data = x )} #i:列, x:デー...
dev.off()
}
-- [[iris]] &new{2008-04-08 (火) 18:19:50};
- apply(iris,2,hist)もだめですか？~
上のコードをみますと、
histogram(~ x[,i], data = x )}
がおかしいですね。変なところに「}」があるし、「~x[,i]」も...
histogram(x[,i])
としてはいかかですか？-- [[akira]] &new{2008-04-08 (火) 1...
- akiraさんレス感謝です！ただ、やはりうまくいきません。
実行するとこんな感じになります…
> x <- iris
> n <- ncol(x) #繰...
> for (i in 1:n){
+ file.name <- sprintf("Fig%03i.jpeg", i) #出力ファイ...
エラー：以下の場所で構文エラーがありました.
"for (i in 1:n){
file.name <- sprintf("Fig%03i.jpeg", i)
> png(file.name, width = 400, height = 400) #pngデバイ...
以下にエラーpaste("png:", filename, sep = "") :
オブジェクト "file.name" は存在しません
> histogram(x[,i]) #i:列, x:デ...
エラー："histogram(x[,i])
> dev.off()
以下にエラーdev.off() : デバイス 1 をシャットダウンする...
> }
エラー："}" に構文エラーがありました
-- [[iris]] &new{2008-04-08 (火) 18:43:50};
- あのですね。見えないでしょうが，全角のスペースが入って...
それと，png 関数に渡すファイル名が *.jpeg というのはだめ...
- 全角スペースですか！稚拙な間違いにコメントいただきあり...
- エラー解消しました！ただ、ファイルの出力が・・・。トピ...
**パッケージがインストールできません [#m3eb1709]
>[[pank]] (2008-04-08 (火) 11:09:51)~
~
初歩的な質問ですみません。パッケージインストール時に以下...
~
install.packages("ctv")~
install.packages("ctv") 中で警告がありました：
'lib = "C:/PROGRA~1/R/R-26~1.2/library"' は書き込み可能...
以下にエラー install.packages("ctv") :
パッケージをインストール出来ませんでした
~
OSはVISTAです。いずれのパッケージに対しても同様のエラーが...
（追記） sessionInfo()
R version 2.6.2 (2008-02-08)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
attached base packages:
[1] stats graphics grDevices utils datasets met...
//
- VistaのProgram Filesは厳しいセキュリティがかかってるの...
- ありがとうございました。うまくインストールできました。...
**列数（あるいは行数）不明のデータの列数（行数）をカウン...
>[[はじめ]] (2008-04-07 (月) 17:46:51)~
~
初歩的な質問で申し訳ありません。~
~
題名そのままなのですが、~
列数（あるいは行数）不明のデータの、列数、行数をカウント...
//
- dim(x) -- &new{2008-04-07 (月) 18:10:56};
- nrow(x);ncol(x) -- &new{2008-04-07 (月) 19:04:56};
- ダウングレードしてるようなので，length(x[1,]); length(x...
- まずは基本的な関数を覚えれば解決すると思いますので、[[R...
- 解決しました！勉強したての拙い内容ですがお答えいただい...
**データフレーム中で、最も近い値との差を求める [#m9699180]
>[[なつめ]] (2008-04-07 (月) 07:47:04)~
~
初心者です、よろしくお願いします。~
２列（xとy）× １００行のデータフレームがあります。~
私がやりたいと思っていますのは、xの1行目から100行目のそれ...
最も大きさが近い値をyの1から100行目から探し、その差を、そ...
どのようにしたら良いでしょうか？~
//
- エレガントな解ではないけど -- &new{2008-04-07 (月) 10:...
d <- data.frame(x=rnorm(100), y=rnorm(100))
z <- outer(d$x, d$y, "-")
apply(z, 1, function(u) {
min1 <- min(c(u[u>=0], Inf))
min2 <- max(c(u[u<0], -Inf))
return(ifelse(min1 >= -min2, min2, min1))
})
- sapply(d$x,function(x)min(abs(d$y-x))) ベタな解だ・・...
- 差に符号が必要なら sapply(d$x,function(x){z<-d$y-x;z[wh...
- 迅速なアドバイスありがとうございました。また質問させて...
**月別発生率の分析について [#r9e097b9]
>[[ポアソン]] (2008-04-04 (金) 13:00:09)~
~
下のデータは数年間に発生した二つの事象の月別発生数を示し...
> table(DAT_g$month)~
~
1 2 3 4 5 6 7 8 9 10 11 12
1 1 0 1 1 1 2 1 0 1 1 0
> table(DAT_d$month)~
~
1 2 3 4 5 6 7 8 9 10 11 12
2 1 3 4 2 0 0 3 2 2 0 4
~
これらから、月ごとの発生に差があるかどうかを示したいので...
//
- DAT_g と DAT_d で分布が違うということを言いたいのでしょ...
> x
[1] 1 1 0 1 1 1 2 1 0 1 1 0
> y
[1] 2 1 3 4 2 0 0 3 2 2 0 4
> ( d <- rbind(x, y) )
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,1...
x 1 1 0 1 1 1 2 1 0 1 ...
y 2 1 3 4 2 0 0 3 2 2 ...
> fisher.test(d)
Fisher's Exact Test for Count Data
data: d
p-value = 0.2637
alternative hypothesis: two.sided
- コメントありがとうございます。おっしゃるとおり統計の部...
- ポアソン分布に従うか，月ごとに一様か，どれくらいだと逸...
- 統計に関する質問はクロスポストになってしまいますが、統...
私もそうですが、Rjpwikiは統計プロパーでない人も多いので。...
- もう少しご指導をお願いします。
それぞれの発生数を元にベクトルを作成しました。
> poi_g <- c(3,8,1,0,0,0,0,0,0,0,0)
> poi_d <- c(3,1,3,2,4,0,0,0,0,0,0)
> sum(poi_g)/12 #lambda 発生数の月平均
[1] 1
> sum(poi_d)/12 #lambda
[1] 1.083333
それぞれをplotすると、poi_gはポアソン分布に近いような気が...
ここで、Rを用いて当てはまりを評価するにはどうしたらよいで...
-- [[ポアソン]] &new{2008-04-05 (土) 11:54:22};
- 平均パラメータの推定は最尤推定で（この場合 0.8）, その...
- http://aoki2.si.gunma-u.ac.jp/lecture/GoodnessOfFitness...
- http://aoki2.si.gunma-u.ac.jp/lecture/GoodnessOfFitness...
http://aoki2.si.gunma-u.ac.jp/R/poissondist.html でもご覧...
sum(poi_g)/12 は，間違えていますよ。sum(0*3+1*8+2*1)/12 ...
- ありがとうございます。何冊かR関係の統計本を読んだところ...
**stepAICについて [#x5274d4c]
>[[ぽい]] (2008-04-03 (木) 01:59:51)~
~
ARIMAモデルの変数選択をstepAICを使用して行いたいのですが...
また、変数の入力方法は~
~
scope=~x1*x2*x3~
~
という方法でいいのでしょうか。~
//
- やってみて，エラーが出たら（エラーメッセージも参考にし...
- 以下のように実行してみました。
> library(MASS)
> g<-arima(y,order=c(1,1,1),seasonal=list(order=c(3,1,2)...
> stepAIC(g,direction="both",scope=~x1*x2*x3)
以下にエラー terms.default(object) : no terms component
このようにエラーが出ました。このエラーはどのようなエラー...
- 「stepAICの引数objectはtermを持たないといけない」という...
gはclassが違うのでしょう。arimaの返り値はtermを持っていな...
- akira さんではないですが，追試できる状態で質問して欲し...
それはさておき，stepAIC のヘルプには，その引数 object が...
結論，「あなたのやり方では stepAIC によるモデル選択はでき...
-質問にお答えいただきありがとうございます。
yは売上データです。試しとして以下のデータでも同様に行って...
> y<-c(0,2,4,3)
> x1<-c(1,0,0,0)
> x2<-c(0,1,1,0)
> x3<-c(0,1,1,1)
> g<-arima(y,order=c(1,1,1))
> stepAIC(g,direction="both",scope=~x1*x2*x3)
ご指摘の通り、stepAICを使用してARIMAモデルの変数選択はで...
**CSVのインポートエラー [#l6d0016c]
>[[basel_firb]] (2008-03-30 (日) 09:29:36)~
~
Window R 2.5.1を使用しています。~
デスクトップ上にあるCSVファイル「test.csv」を「read.csv」...
以下のようなエラーが出ます。~
> A<-read.csv("test.csv")~
以下にエラーfile(file, "r") : コネクションを開くことが...
追加情報: Warning message:
ファイル 'test.csv' を開くことができません, 理由は'No su...
~
directoryを指定しなければだめなのでしょうか？~
また、directoryの指定方法をご教授願います。~
//
- （１）パスが通っていないこと、（２）２バイト文字のディ...
- ありがとうございます。R初心者なもので・・・。さっそく試...
- R内でWindowsのパス標記は「￥」でなく「/」になりますから...
あと、ファイルの読み込みはフルパスをdir(path="c:/", patte...
- なれるまでは read.csv(file.choose()) としたらいかが -- ...
**画像の拡大 [#j8d2af1f]
>[[きのねっこ]] (2008-03-27 (木) 11:01:16)~
~
初めて投稿させていただきます。よろしくお願いします。~
現在群平均法をつかってクラスター分析を行ない樹形図に可視...
その際樹形図が1000個のデータからできているので、画像に変...
なんとかこれを解消したいので、是非教えていただけると非常...
//
- 初級Q&Aアーカイブ（８）に似たような質問がありますよ。 -...
- 前に何人か同じことを質問していたようで、申し訳ないです...
**try関数を使用してもエラーが出ます [#g7be1f49]
>[[ぽんぺい]] (2008-03-24 (月) 15:57:06)~
~
ARIMA(p,d,q)モデルの次数をfor文でまわして、全通りの結果を...
~
このfor文をtry()のなかに入れて行ってもエラーで止まってし...
どのようにtryを使用すれば、エラーが出ても最後までまわすこ...
//
- tryの中にfor文を入れなければよいのでは？
layout(matrix(1:4,ncol=2))
try(
for(i in 1:4){
if(i==3) i<-"a"
plot(i)
}
)
これだとエラー
layout(matrix(1:4,ncol=2))
for(i in 1:4){
if(i==3) i<-"a"
try(plot(i))
}
これだと大丈夫-- [[akira]] &new{2008-03-24 (月) 17:39:51};
**IF文でエラーがでます [#e0a3c0c4]
>[[こやま]] (2008-03-19 (水) 13:50:36)~
~
条件分岐式で計算をしようとするとエラーが出ます。非常に初...
~
x y
t t
55 219
t t
234 -293
-122 371
t t
-22 -312
t t
349 182
343 -324
このデータについて、t以外の数値について条件に合致した時だ...
~
n <- nrow(data)
a1 <- 0
a2 <- 0
a3 <- 0
a4 <- 0
a5 <- 0
b1 <- 0
b2 <- 0
b3 <- 0
b4 <- 0
b5 <- 0
for (i in 1:n){
x <- data[i,1]
y <- data[i,2]
if ((x != "t") & (y != "t")) {
if ((x >= 0.0) & (y >= 0.0)){
a1 <- a1 + x
b1 <- b1 + y
}else if ((x >= 0.0) & (y < 0.0)){
a2 <- a2 + x
b2 <- b2 + y
}else if ((x < 0.0) & (y <= 0.0)){
a3 <- a3 + x
b3 <- b3 + y
}else if ((x < 0.0) & (y > 0.0)){
a4 <- a4 + x
b4 <- b4 + y
}else{
a5 <- a5 + x
b5 <- b5 + y
}
}else{
}
}
これを走らせると、以下のようにエラーがでます。欠損値にな...
~
以下にエラーif ((x >= 0) & (y >= 0)) { : TRUE/FALSE が必...
追加情報: 警告メッセージ：
1: >= 因子に対しては無意味です in: Ops.factor(x, 0)
2: >= 因子に対しては無意味です in: Ops.factor(y, 0)
~
//
- ＆ と ＆＆ の違いを調べましょう（ついでに，｜ と ｜｜ ...
数値もfactorになっています -- &new{2008-03-19 (水) 13:55...
data2 <- as.matrix(split(data, data[,1]=="t" & data[,2]=...
x <- as.numeric(data2[,1])
y <- as.numeric(data2[,2])
f1 <- x >= 0 & y >= 0
a1 <- sum(x[f1])
b1 <- sum(y[f1])
f2 <- x >= 0 & y < 0
a2 <- sum(x[f2])
b2 <- sum(y[f2])
f3 <- x < 0 & y <= 0
a3 <- sum(x[f3])
b3 <- sum(y[f3])
f4 <- x < 0 & y > 0
a4 <- sum(x[f4])
b4 <- sum(y[f4])
# a5, b5 は起こらない
a1;a2;a3;a4
b1;b2;b3;b4
とか
data2 <- as.matrix(split(data, data[,1]=="t" & data[,2]=...
x <- as.numeric(data2[,1])
y <- as.numeric(data2[,2])
f <- (sign(y)+1)*3+sign(x)+1
(a1 <- sum(x[f %in% c(4,5,7,8)]))
(b1 <- sum(y[f %in% c(4,5,7,8)]))
(a2 <- sum(x[f %in% 1:2]))
(b2 <- sum(y[f %in% 1:2]))
(a3 <- sum(x[f %in% c(0,3)]))
(b3 <- sum(y[f %in% c(0,3)]))
(a4 <- sum(x[f == 6]))
(b4 <- sum(y[f == 6]))
とか
data2 <- as.matrix(split(data, data[,1]=="t" & data[,2]=...
x <- as.numeric(data2[,1])
y <- as.numeric(data2[,2])
f <- (sign(y)+1)*3+sign(x)+1
f[f %in% c(4,5,7,8)] <- "case1"
f[f %in% 1:2] <- "case2"
f[f %in% c(0,3)] <- "case3"
f[f == 6] <- "case4"
by(x, f, sum)
by(y, f, sum)
とか，最後の2行を以下にするとか
sapply(list(x=x, y=y), by, f, sum)
- さっそくのお返事ありがとうございます！使用しているR本に...
**関数がみつからない [#l1438575]
>[[あだむす]] (2008-03-18 (火) 18:58:52)~
~
はじめて投稿します。よろしくお願いします。~
多重比較のパッケージmultcompの中にある関数simtestを使いた...
help(simtest)とすると、パッケージはインストールされている...
~
> library(multcomp)~
> help(simtest)~
No documentation for 'simtest' in specified packages and ...
you could try 'help.search("simtest")'~
~
help.searchでも同様にエラーがでました。libraryの中にはmul...
~
ちなみにＲのバージョンは2.6.2でOSはWindows XPです。~
//
- multcomp 中に simtest という関数はありません。library(h...
- simtest()は古いユーザインタフェースなのでglht()とsummar...
- 今はglht()という関数を使うのですね。こちらを勉強します...
- multcompのバージョンじゃないですか？[[この記事:http://t...
- akiraさん、関連記事どうもありがとうございます。またRSit...
**semのモデル指定について教えてください [#o3d3b233]
>[[おくむら]] (2008-03-11 (火) 18:05:48)~
~
こんにちは。semパッケージを使って，~
http://www.geocities.jp/t_okumurin/sem.JPG~
にあるようなモデルを分析したいと思うのですが，これをフィ...
一応，~
modelsem <- specify.model()
t1 -> x1, b11, 1
t1 -> x2, b12, 1
t2 -> y1, b21, 1
t2 -> y2, b22, 1
t1 <-> t2, cort, NA
e1 -> x1, be1, 1
e2 -> x2, be2, 1
e3 -> y1, be3, 1
e4 -> y2, be4, 1
x1 <-> x1, d1, NA
x2 <-> x2, d2, NA
y1 <-> y1, d3, NA
y2 <-> y2, d4, NA
こんな感じかと思ったのですが，うまくいかないので。~
よろしくお願いします（ちなみに，ＳＡＳではうまくいきます...
//
- 識別問題に抵触しているかと思いますが，念のため，相関行...
//
- CALISのプログラムはこんな感じです。~
proc calis data=data1 edf=99 all nomod;
lineqs
x1 = 1 f1 + e1,
x2 = 1 f1 + e2,
y1 = 1 f2 + e3,
y2 = 1 f2 + e4;
std
e1-e2 = del1,
e3-e4 = del2,
f1 = 1,
f2 = 1;
cov
f1 f2 = phi12;
run;
相関行列は人工データで発生させたものですが，^
x1 x2 y1 y2
x1 1.0000000 0.9201039 0.8892795 0.8281659
x2 0.9201039 1.0000000 0.7766174 0.7349069
y1 0.8892795 0.7766174 1.0000000 0.9515039
y2 0.8281659 0.7349069 0.9515039 1.0000000
こんな感じのものが1000個あります。
- 以下のプログラムで大丈夫だと思いましたが，無理でした。C...
modelsem <- specify.model()
t1 -> x1, NA, 1
t1 -> x2, NA, 1
t2 -> y1, NA, 1
t2 -> y2, NA, 1
t1 <-> t2, phi12, NA
x1 <-> x1, del1, NA
x2 <-> x2, del1, NA
y1 <-> y1, del2, NA
y2 <-> y2, del2, NA
t1 <-> t1, NA, 1
t2 <-> t2, NA, 1
**変数名のないExcelファイルの読み込み [#q353ffda]
>[[朝からずっと悩んでます]] (2008-03-10 (月) 16:44:46)~
~
~
変数名がなく，1行目からデータが入力されている Excel ファ...
RODBC パッケージの odbcConnectExcel と sqlQuery を使って...
どうしても1行目が変数名扱いになってしまうので，1行目の数...
read.table の header=F のような読み込み方をするには~
どうしたらいいでしょうか？~
~
R のバージョンは 2.6.0, OS は Windows XP, ~
MS-Office 2003 を使用しています。~
//
- RODBCのマニュアルのodbcConnectExcel Excel Connections...
- さっそくのご回答，ありがとうございます。ヘルプは一応読...
- read.xlsはダメですか？ -- [[akira]] &new{2008-03-10 (月...
- akira さんがおっしゃっているのは perl と併用する方の re...
- 時間コストを考えるなら、あれこれ悩むより、read.table()...
- 複数のシートがあるファイルが多数あるので，Excelマクロで...
- この際、難しいですがRExcelを使うのはどうでしょうか？ --...
**X11フォントの設定 [#la14bb43]
>[[きむら]] (2008-03-05 (水) 19:12:50)~
~
なかま さんの "R for OSXでIPAフォントの利用" を行っていた...
//
- 無かったら作るものです. `.Rprofile'というファイルは存在...
- ありがとうございます。ついついネットで日本語の情報ばか...
- 出来ました。というか、実際にやりたかった事は、Rコマンダ...
- 出来ました。というか、実際にやりたかった事は、Rコマンダ...
**ccf()データの出力方法 [#uacde8b3]
>[[こやま]] (2008-03-04 (火) 16:36:00)~
~
Rで、二つの時系列データの相互相関を調べたいと思い、ccf関...
計算結果はｸﾞﾗﾌになって出たのですが、相関係数の値を出力し...
~
> result1 <- ccf(dt[ ,1], dt2[ ,1], lag.max = 120, type...
> write.table(result1, file = "C:/R/result1.txt")~
~
以下にエラーas.data.frame.default(x[[i]], optional = TRU...
クラス "acf" はデータフレームに強制変換できません
~
(result1)と括弧をつけるとR画面上には出力されますが･･･。ま...
~
> write(result1, file = "C:/R/result1.txt")~
~
以下にエラーcat(list(...), file, sep, fill, labels, appen...
引数 1 は，まだ cat で取り扱えません
~
どのようにすればテキストデータに出力できるでしょうか？~
初歩的な質問で申し訳ありません。よろしくお願いいたします。~
//
- 単にテキストに落としたければ sink("C:/R/result1.txt");...
- sink("hoge.txt);result1;sink() フォーマットから替えたい...
- write.table(as.data.frame(result1)[,c(4,1)], file = "C:...
- ありがとうございます。> write.table(as.data.frame(resul...
- sink()の方は、扱いにくい形ではありますがテキストに落と...
- すまぬ。一行抜けていた。as.data.frame する前に，ccf が...
as.data.frame(result1) のどの列をどの順序で出力するかは自...
x <- rnorm(1000)
y <- rnorm(1000)
result1 <- ccf(x, y, lag.max = 120, type = "correlation"...
class(result1) <- "list"
write.table(as.data.frame(result1)[,c(4,1)], "test.dat")
- ありがとうございます！希望する形でテキストに保存するこ...
**行列の読み込み [#h5d77b43]
>[[R初心者]] (2008-03-03 (月) 13:00:34)~
~
Rを用いてクラスター解析を行おうと考えています。~
このとき、はじめから入っているユークリッド距離とかではな...
自分で定義した類似度を用いたいと考えています。~
そこで、perlを用いて類似度の行列を作成しました。~
（行列の形は三角行列です。）~
しかし、読み込もうとすると、要素が有りませんとエラーが出...
類似度のデータをどのような形で取り込めば良いのでしょうか？~
教えてください。お願いします。~
//
- 三角行列をどのように，どの関数に与えたのですか。たとえ...
- 今までは、データをa2<-dist(a,method="euclid")の様に類似...
- その行列はどのようになっているのですか。ファイルに入っ...
0.0000000 0.0000000 0.0000000 0.00000000 0.0000000
0.9118028 0.0000000 0.0000000 0.00000000 0.0000000
0.3342491 0.9712567 0.0000000 0.00000000 0.0000000
0.5905108 0.6187089 0.3155890 0.00000000 0.0000000
0.6783135 0.3242619 0.9274259 0.01916572 0.0000000
のようなデータがデータファイル test.dat にあるとして，以...
> x <- matrix(scan("test.dat"), 5, byrow=TRUE)
Read 25 items
> y <- as.dist(x)
> ans <- hclust(y)
> plot(ans)
- 最低 エラーメッセージを添えないと答えようがありません。...
- > 読み込もうとすると、「要素が有りません」とエラーが出...
実際の所，要素がないのでしょうね。~
なぜ，要素がないとRが判定したのかは，情報不足でわからない...
- 三角行列ファイルをそのままread.tableで読み込んで、as.di...
test.datはこんなcsv
1
.5,1
.2,.3,1
.1,.6,.4,1
> dat <- read.csv("test.dat", header=FALSE, row.names=FA...
> dat
V1 V2 V3 V4
1 1.0 NA NA NA
2 0.5 1.0 NA NA
3 0.2 0.3 1.0 NA
4 0.1 0.6 0.4 1
> hclust(dat)
以下にエラー if (n < 2) stop("must have n >= 2 objects ...
引数の長さが0です
> is(dat)
[1] "data.frame" "oldClass"
> hclust(as.dist(dat))
Call:
hclust(d = as.dist(dat))
Cluster method : complete
Number of objects: 4
> cl <- hclust(as.dist(dat))
> is(cl)
[1] "hclust"
> plot(cl)
とか。 -- [[akira]] &new{2008-03-03 (月) 19:26:48};
- そもそも，「要素が有りません」というエラーメッセージは...
- 返信が送れてすみません。『三角行列ファイルをそのままrea...
- そんなことはないと思います。上の例では空欄は自動的にNA...
**棒グラフのerror barについて [#j061cacf]
>[[初心者です。。。]] (2008-02-29 (金) 14:47:17)~
~
棒グラフとerror barで~
mean±se~
をあらわす方法を教えて下さい。~
barplotで棒グラフはかけるのですが、どうやってerror barを~
つけたらよいのでしょうか？~
宜しくお願いします。~
//
- ?arrows なおその薄いラッパであるsciplotライブラリのbarg...
- 選択に困るくらいいろんな方法があるけど、とりあえずgregm...
> RSiteSearch("barplot {error bar} standard")
で検索しよう-- [[谷村]] &new{2008-02-29 (金) 15:12:06};
- 棒グラフにエラーバーを付けるのは不適切。~
http://tolstoy.newcastle.edu.au/R/e2/help/07/07/22017.htm...
http://biostat.mc.vanderbilt.edu/twiki/bin/view/Main/Dyna...
http://www.vni.com/products/imsl/jmsl/v50/manual/chartpg/...
http://www.gulunap.unina.it/mat_studenti/statistics_at_sq...
"It is a mistake to use a bar chart to display a summary ...
日本語ページ → http://beetama.blog14.fc2.com/blog-entry-2...
無理には止めない。 -- &new{2008-02-29 (金) 16:13:52};
- きつい言い方ですが、あなたはRjpwikiの単語検索を使ってい...
- 「Rjpwikiの単語検索を使いましょう」でよいのでは？ -- &...
- そうですね。[[単語検索:http://www.okada.jp.org/RWiki/?c...
**出力結果の"[1]の意味"は、何ですか?[2]の時もありますか? ...
>[[ろろ]] (2008-02-27 (水) 01:36:41)~
~
[1]を出力しない方法を教えて下さい。~
よろしくお願いします。~
//
- ?cat -- [[takahashi]] &new{2008-02-27 (水) 01:49:18};
**データの個数を得る方法 [#zb8281f6]
>[[すろん]] (2008-02-26 (火) 13:18:54)~
~
はじめまして。お世話になります。~
length()を使うと，~
> data_a <- c(1.5, 1.2, 1.3, 1.6, 1.2, NA, 1.2, 1.5, 1.7...
> length(data_a)
> [1] 10
~
のようにベクトルdata_aの長さを得ることができます。この場...
~
これまでに私が試したのは，(1)あらかじめNA値を削除したベク...
> library(help="base")
> library(help="stats")
~
などを実行して探したり，「The R Tips」，「Rプログラミング...
~
ところで，「簡単な投稿法」を参考にしたかったのですが見あ...
//
- 例えば -- &new{2008-02-26 (火) 13:24:53};
> ( x <- sample(c(1:3,NA), 10, rep=TRUE) )
[1] 1 2 1 1 NA NA 2 3 2 2
> !is.na(x)
[1] TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE TR...
> sum(!is.na(x))
[1] 8
こんなのもあり(素直でないが)。
> x > -Inf
[1] TRUE TRUE TRUE TRUE NA NA TRUE TRUE TRUE TRUE
> sum(x > -Inf, na.rm=TRUE)
[1] 8
まだまだあり。
> complete.cases(x)
[1] TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE TR...
> sum(complete.cases(x))
[1] 8
おそらく、以下が正統派(?)。
> na.omit(x)
[1] 1 2 1 1 2 3 2 2
attr(,"na.action")
[1] 5 6
attr(,"class")
[1] "omit"
> length(na.omit(x))
[1] 8
- 早速のお答えありがとうございます。一番上のお答えのよう...
- 参考まで(心配性）。 -- &new{2008-02-26 (火) 13:59:46};
> is.na(c(Inf,-Inf,NaN, NA)) # NaN (Not a Numbe...
[1] FALSE FALSE TRUE TRUE
> complete.cases(c(Inf,-Inf,NaN,NA)) # Inf, -Inf は正当...
[1] TRUE TRUE FALSE FALSE
> c(Inf,-Inf,NaN,NA) > -Inf # -Inf > -Inf は F...
[1] TRUE FALSE NA NA
> na.omit(c(Inf,-Inf,NaN,NA))
[1] Inf -Inf
attr(,"na.action")
[1] 3 4
attr(,"class")
[1] "omit"
- 理論演算に関する対応（という表現で正しいのでしょうか？...
**osx leopardでRを使用している時に、escキーを押すと落ちて...
>[[satou]] (2008-02-22 (金) 23:38:08)~
~
題名の通りですが、osx leopardでRを使用している時に、escキ...
正確に言うと、マウスカーソルが待機中(虹色でぐるぐるしてる...
OS:Mac OS X 10.5.2
sessioninfo()の出力
R version 2.6.2 (2008-02-08)
i386-apple-darwin8.10.1
locale:
ja_JP.UTF-8/ja_JP.UTF-8/ja_JP.UTF-8/C/ja_JP.UTF-8/ja_...
attached base packages:
[1] stats graphics grDevices utils datasets methods b...
//
- 私の環境（Mac OS X 10.5.2、R 2.6.1）では再現されません...
- 落ちました！（MacOSX10.5.2,R2.6.2,MacBookCore2Duo2Gblac...
- Rのversionを2.6.1から2.6.2にアップグレードしたら落ちま...
- みなさん、コメントありがとうございます。みなさんのコメ...
- CRANのミラー内にある, R-GUI-4944-2.6-Deployment.dmg は...
- R-SIG-Macでも話題になってますね。解決策は「CRANあるいは...
- 情報ありがとうございます。http://r.research.att.com/か...
**tableやxtabsを用いてカウントではなく数値合計を集計する...
>[[はいどらりすく]] (2008-02-22 (金) 17:14:51)~
~
お世話になります。~
仕事でtableやxtabを使って簡単な集計をしているのですが、こ...
具体的には、部署別売り上げデータから年度別の部署ごとの売...
売り上げNo 部署 売上月 金額
1 第２営業部 01 200
2 第２営業部 02 100
3 第１営業部 02 50
4 第３営業部 03 300
5 第１営業部 04 200
6 第２営業部 04 500
7 第３営業部 05 200
8 第１営業部 06 100
9 第１営業部 06 50
10 第２営業部 06 200
↓↓↓↓↓
売上げ月
部署 01 02 03 04 05 06
第１営業部 0 50 0 200 0 150
第２営業部 300 0 0 500 0 200
第３営業部 0 0 300 0 200 0
~
のような集計を行いたいのです。~
tableやxtabsのソースを見て改造しようとも考えましたが、今...
どうぞよろしくお願い申し上げます。~
//
- xtabs(金額 ~ 部署 + 売上月,df) -- &new{2008-02-22 (金)...
- 「第２営業部 300 0 0 500 0 200」 は正しく...
- 今までformula引数の意味がよくわからず、適当に指定してい...
**pdf と postscript を一発で [#i125ad3b]
>[[もちだひろつぐ]] (2008-02-21 (木) 01:23:34)~
~
pdf ファイルと postscript ファイルを作成したいのですが、...
pdf('file.pdf', width=11, height=8.5)
plot(0,0, xlab='nothing', ylab='nothing', main='NOTHING')
dev.off()
~
postscript('file.eps', width=11, height=8.5)
plot(0,0, xlab='nothing', ylab='nothing', main='NOTHING')
dev.off()
~
と pdf() と postscript() を別々に走らせています。~
これを一度で済ます方法はありますか？~
~
上記の例だと、 plot() のところがシンプルですが、これに ax...
よろしくお願いします。~
//
- 自分で関数を作ってみてはいかがでしょうか？ -- [[ジェッ...
- X デバイスに描画しておいて、これでよしとなったら dev.c...
- わたしもpngとpdfを２種類はきだしてますが、関数化してま...
- この手の便利関数は自作の方が自由度が高くて良いと思いま...
ps2pdf <- function(x, y, ...){
postscript(x, width=11, height=8.5)
plot(y, ...) # 複雑な場合は適当に
dev.off()
system(paste("ps2pdf", x, sub("ps","pdf",x)))
}
とか。私も描画関係の便利関数は自作して、起動時に読み込ん...
- 大変参考になりました。どうもありがとうございました。 --...
**コネクションが開けない [#ub10bead]
>[[あんころ]] (2008-02-20 (水) 22:12:01)~
~
txtファイルを読み込もうとすると、~
~
file(file,"r"):コネクションを開くことができません~
~
というエラーが出て読み込めません。~
このエラーの意味は何でしょうか？~
また、読み込むデータ量に限度などはあるのでしょうか？~
//
- 素直に取ればファイルが無いといっているわけですが。一寸...
- file(file,"r")はエラーメッセージですか？~
txtファイルの形式にもよりますが、
con <- file(descroption="file", open="r")
x <- readLines(con)
close(con)
なんてことをしたのでしょうか？~
もし、file(file,"r")をそのまま入力したのであれば、fileは...
txtの形式によっては、read.table関係でも良いと思いますよ--...
- [file(file,"r"):コネクションを開くことができません] の...
- これがエラー文です。 以下にエラー file(file, "r") : コ...
- > 追加情報: Warning message: In file(file, "r") :ファ...
そこまで読んでいれば，質問する必要はないでしょう。原因は...
**直和を使ってブロック対角行列を作りたい [#w5d2bfc8]
>[[シチノスケ]] (2008-02-14 (木) 11:08:59)~
~
こんにちは。~
今，list形式でx[[j]]（jは1からJまで）のデータが入っている...
//
- Matrix パッケージの関数 bdiag() がつかえます。但しこれ...
> L <- list(matrix(seq(4),2,2),matrix(seq(9),3,3),matrix...
> library(Matrix)
> bdiag(L)
10 x 10 sparse Matrix of class "dgCMatrix"
[1,] 1 3 . . . . . . . .
[2,] 2 4 . . . . . . . .
[3,] . . 1 4 7 . . . . .
[4,] . . 2 5 8 . . . . .
[5,] . . 3 6 9 . . . . .
[6,] . . . . . 1 6 11 16 21
[7,] . . . . . 2 7 12 17 22
[8,] . . . . . 3 8 13 18 23
[9,] . . . . . 4 9 14 19 24
[10,] . . . . . 5 10 15 20 25
> as.matrix(bdiag(L))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 1 3 0 0 0 0 0 0 0 0
[2,] 2 4 0 0 0 0 0 0 0 0
[3,] 0 0 1 4 7 0 0 0 0 0
[4,] 0 0 2 5 8 0 0 0 0 0
[5,] 0 0 3 6 9 0 0 0 0 0
[6,] 0 0 0 0 0 1 6 11 16 21
[7,] 0 0 0 0 0 2 7 12 17 22
[8,] 0 0 0 0 0 3 8 13 18 23
[9,] 0 0 0 0 0 4 9 14 19 24
[10,] 0 0 0 0 0 5 10 15 20 25
- ありがとうございました!! -- [[シチノスケ]] &new{2008-02...
- 簡単に作ってみる -- &new{2008-02-14 (木) 14:44:31};
bdiag2 <- function(L)
{
a <- sapply(L, function(x) {x <- as.matrix(x); retur...
l <- apply(a, 1, cumsum)
n <- nrow(l)
m <- array(0, dim=rowSums(a))
mapply(function(x, i, j) m[i, j] <<- x,
L, mapply(seq, c(0, l[-n,1])+1, l[,1]),
mapply(seq, c(0, l[-n,2])+1, l[,2]))
return(m)
}
**自分の作成した名前にデータを関連付けたい [#da4a75a8]
>[[みゅ]] (2008-02-13 (水) 06:19:19)~
~
プログラムを書きながら前々から疑問に思っていたのですが、...
~
> DATA <- matrix(1:30,5,6)
という値が入っているDATAがあったとする。~
自分が生成した名前にこのデータを持たせたいと思っている。~
名前の生成はたとえば、sprintf(paste("data","A",sep="_"))~
とすれば生成可能ですね。でもこれは普通、
> my_name <- sprintf(paste("data","A",sep="_"))
のように使い、
> my_name
> "data_A"
となると思います。~
このとき、先のDATAの値をdata_Aに持たせるのは~
どのようにすればいいか、ということです。~
もちろん、
> my_name <- DATA
とすると
> my_name
> (ここに5×6の先の行列が表示される)
なので、先に入れた"data_A"はきえてしまいます。~
> DATA <- matrix(1:30,5,6)
> my_name <- sprintf(paste("data","A",sep="_"))
> ?????何らかの操作???????
> data_A
> (ここに5×6の先DATAの行列が表示される)
というような感じに使いたいのですが･･･。~
?????何らかの操作???????は何を調べたらわかりますか？？？？~
そもそもこういうことは出来るんでしょうか？？？~
//
- 題名をつけるのを忘れました。というか、題名のつけ方もわ...
- 同一内容の二つのオブジェクト DATA, data_A を作ること無...
- つまりそういうことかもしれません -- [[みゅー]] &new{200...
- これで，いかがですか？assign(my_name, DATA); data_A -- ...
- 感動。とってもうれしいです！！！！出来ました。ありがと...
- 解決できてよかったです。 -- [[aa]] &new{2008-02-13 (水)...
- 要するにあらかじめ(恐らく機械的に)作った文字列をオブジ...
- そうです。機械的にバンバンやるのにいつも困っていました...
- ついでといっては何ですが、皆さんがお書きになられている...
- 文の先頭に半角空白を入れるとできます。 -- [[okinawa]] &...
- ありがとうございます！さっそくやってみました。 -- [[み...
- 因みに水色ボックス内の改行は"~"がいりません。勝手ながら...
- もともと書いてあったものの行頭に半角空白を入れただけだ...
**plotのx軸を任意の値にしたい [#y2ceb09e]
>[[たいち]] (2008-02-12 (火) 12:48:47)~
~
こんにちは。~
初歩的な質問で恐縮ですが，plot関数でグラフを作るとき，x軸...
どうぞよろしくお願いします。~
//
-
汚いコードで失礼。
plot(1:20,1:20,axes=F)
axis(side=1,at=c(4,8,12,16,20));axis(side=2,at=c(4,8,12,...
など。詳細は?par、?plot、?axisなどを参照のこと-- [[yuta]]...
- ありがとうございます。これだとまわりの枠が消えてしまい...
- plot(1:20,1:20,xaxt="n");axis(1,1:5*4) -- [[takahashi]]...
- あ、そういう引数がpar()にあったんですね。強引にbox()で...
**データが無い（エラーの）場合の戻り値の指定 [#u4d35bbe]
>[[たけ]] (2008-02-10 (日) 11:04:03)~
~
どろどろとしたデータの整形をしていまして、例えば~
x1 <- matrix(1:6,ncol=3) ;x2 <- matrix(1:4,ncol=2)
colnames(x1) <- c("A","B","C"); colnames(x2) <- c("A","C")
のような、列数・順序が不ぞろいなデータがもともとあって、x...
変わりの方法として使われる列名は決まっているので、grep("B...
//
- やりたいことが，いまひとつわかりかねますが，以下のコー...
is.element(colnames(x1), "B")
is.element(colnames(x2), "B")
- ありがとうございます。行列の要素の有無を確認する（？）i...
table(factor(is.element(colnames(x2), "B"),levels=c("TRU...
- そんな，回りくどいことしなくても，sum(is.element(colnam...
- any(is.element(colnames(x2), "A")) でもいいかもしれない...
- あ”、思いつきで書きましたが、確かに見たいのは0かそれ以...
- もっと一般にある操作がエラーになるかどうかをチェックす...
> ifelse(class(try(y <- x2[,"B"])) == "try-error", FALSE...
Error in try(y <- x2[, "B"]) : 添え字が許される範囲外で...
[1] FALSE
> y
エラー： オブジェクト "y" は存在しません
> ifelse(class(try(y <- x1[,"B"])) == "try-error", FALSE...
[1] TRUE
> y
[1] 3 4
PS. エラーメッセージも消せました。try 関数の silent 引数...
> ifelse(class(try(y <- x2[,"B"], silent=TRUE)) == "try-...
[1] FALSE
- ありがとうございます。try()をsilent=TRUEにすれば一般的...
**Cairoで日本語が文字ばけ [#db694a2a]
>[[okinawa]] (2008-02-10 (日) 09:30:46)~
~
IntelMac,OSX10.5,R2.6.1~
SVG出力させたいので、Cairoパッケージを導入しました。~
library(Cairo)
CairoSVG("/test.svg")
x<-rnorm(1:10)
plot(x)
title(main="試行")
dev.off()
~
で、出力されたtest.svgをダブルクリックするとsafariがきど...
いろいろ調べたのですが、解決できませんでした。~
どなたか、ご存知の方いらっしゃいませんでしょうか？~
よろしくお願いします。~
//
- 自己解決しました。Cairoでは結局うまくいかなかったので、...
Macの場合~
library(RSvgDevice)
devSVG("/test.svg")
x<-rnorm(1:10)
plot(x)
title(main="試行")
dev.off()
Windowsの場合~
library(RSvgDevice)
devSVG("c:/test.svg")
x<-rnorm(1:10)
plot(x)
title(main=iconv("試行","","utf-8"))
dev.off()
- Linuxの場合 (Ubuntu)~
library(Cairo)
CairoSVG("cairo.svg")
x<-rnorm(1:10)
plot(x)
title(main="試行")
dev.off()
library(RSvgDevice)
devSVG("rsd.svg")
x<-rnorm(1:10)
plot(x)
title(main="試行")
dev.off()
どちらも日本語表記可能です。~
ただし、InkscapeはCairoSVGでの文字を図と認識し、devSVGで...
私はInkscapeで編集する機会が多いので、devSVGを使っていま...
でもCairoSVGは透過型なので便利なこともあります（devSVGに...
**RのWebServiceを作りたい [#g4d727af]
>[[akira]] (2008-02-08 (金) 23:43:05)~
~
WebServerの勉強も兼ねてRが稼働するWebServiceをlocalに建て...
[[Rweb-jp:http://www.okada.jp.org/RWiki/?R-Online]]とかの...
apacheは[[ここ:http://tobysoft.net/wiki/index.php?Ubuntu%...
> sessionInfo()
R version 2.6.1 (2007-11-26)
i486-pc-linux-gnu
locale:
LC_CTYPE=ja_JP.UTF-8;LC_NUMERIC=C;LC_TIME=ja_JP.UTF-8;LC...
LC_MONETARY=ja_JP.UTF-8;LC_MESSAGES=ja_JP.UTF-8;LC_PAPER...
LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=ja_JP.UTF-8;L...
attached base packages:
[1] stats graphics grDevices utils datasets me...
loaded via a namespace (and not attached):
[1] rcompgen_0.1-17
//
- どうでもいいけど。あれ，死んでるでしょ？ -- &new{2008-...
- 個人的には、昔に参考にしたRpadがいいように思います。htt...
- windowsですが、昔作った[[Rwwwのページ]]があります。参考...
- レスが遅れてすみません。Rの設定の前にServerに思いのほか...
**自分自身のIPアドレスの取得 [#u65b8a39]
>[[okinawa]] (2008-02-08 (金) 16:33:40)~
~
winXPsp2,R2.5.1~
プログラム中で、自分自身（Rが動いているPC）のIPアドレスを...
いろいろ調べたのですが、探せませんでした。~
どなたか自分自身（Rが動いているPC）のIPアドレスを取得する...
//
- IPアドレスを知るだけならsystem("ipconfig")でどうでしょ...
- ありがとうございました。おかげさまでできそうです。 -- [...
- R中からではありませんが [[IP Address Lookup:http://www....
**回帰分析のsummaryの保存 [#qbccc0f4]
>[[nob]] (2008-02-07 (木) 16:47:36)~
~
Rで回帰分析のスクリプトを書いて実行しています。~
スクリプト中~
//~
sink(file="summary.txt")
summary(kaiki)
sink()
//~
としているのですが、summary.txtには何も保存されていません...
コンソール上で1行ずつ入力すると保存できますが、スクリプトで
一気に保存できる方法はありますか？
よろしくお願いします。~
//
//- print() -- &new{2008-02-07 (木) 17:22:47};
- print(summary(kaiki)) -- &new{2008-02-07 (木) 17:30:00};
//- うまくできました。ありがとうございました。 -- [[nob]]...
- うまくできました。ありがとうございました。 -- [[nob]] &...
**Rcmdrでの変数の複数選択 [#o1dc396a]
>[[okinawa]] (2008-02-07 (木) 14:42:40)~
~
winXPsp2,R2.5.1,Rcmdr1.3.5~
~
Rcmdrで重回帰分析やクラスター分析をする場合、変数を複数選...
一つ置きに選択する方法があるのでしょうか？~
//
- ctrl＋click -- &new{2008-02-07 (木) 15:35:05};
- ありがとうございました。できました。 -- [[okinawa]] &ne...
- "cntl + click"はRcmdrの機能というより、Winの機能なんで...
- Mac なら，option+click だ。（Linux なら alt+click なの...
- Rはsystem(),dir(),file.remove(),dir.create()などシステ...
**パッケージがインストールできない？ [#n26e26ba]
>[[sho]] (2008-02-05 (火) 01:29:02)~
自宅のPCにもRを導入しようとしたのですが、うまくいきません...
OSはビスタで、R2.6.1をインストールしたのちRcmdrのパッケー...
> local({pkg <- select.list(sort(.packages(all.available ...
if(nchar(pkg)) library(pkg, character.only=TRUE)})~
要求されたパッケージ tcltk をロード中です
Tcl/Tkインターフェースのロード 終了済 ~
Please select a CRAN mirror for use in this session ---~
utils:::install.packages(missing.packages[present], depen...
'lib = "C:\Users\■■■\Local Settings\Application Data\R-co...
Error in utils:::install.packages(missing.packages[presen...
unable to install packages~
Error in structure(.External("dotTclObjv", objv, PACKAGE ...
[tcl] error reading bitmap file "C:\Users\■■■\Local Setti...
~
Error : .onAttach は 'attachNamespace' で失敗しました ~
エラー： 'Rcmdr' に対するパッケージもしくは名前空間のロ...
~
一体どうしたらよろしいのでしょうか？~
よろしくお願いいたします。~
- 手元にVISTAがないのでわかりませんが、Rとパッケージのイ...
- 触った事ないけど, Vistaの仮想化機能とやらで, Program fi...
- vistaの設定を変更してAdministratorで入れるようにして（...
- 私もpermissionじゃないかと。"... is not writable"あたり...
- コメントありがとうございます。どうもVistaが勝手にファイ...
- 今回vistaの仮想化機能とやらを始めて知った。vistaの評判...
- vista business（ID,PWはAdministrator権限で作成）が手に...
**R の速度(pvclust) [#if55e049]
>[[yamaoyaji]] (2008-02-04 (月) 07:23:24)~
~
ライブラリpvclustを用いてデータ解析をしています。~
Mac OSX (10.5.1)+R(2.6.1)(Core2duo 2GHz) で解析する場合と~
Fedora8(64bit) + R(2.6.1)(Core2duo 3GHz)で同じデータを解...
Fedoraの方が自由度が高く、Rを最適化できることは重々承知し...
質問させていただきたいのは、なるべくdefaultの設定で早い速...
保持できるLinuxのdistributionはどれがお勧めでしょうか。~
よろしくお願いします。~
//
- 遅い原因ですが, OSXのRはatlasを使って32bitだったと思い...
- ありがとうございます。Linuxの操作も怪しいのですが、Atla...
- 単に出来合いパッケージを使うのでしたら参考にならないか...
- （作成者の方がご覧になられているかもしれないのですが）p...
- たまたま見つけたパッケージ作成者です。snowクラスタが構...
- コメントありがとうございます。parPvclustはcpu数にほぼ比...
- Macのハードが反側的に良いパーツで作られている事は御理解...
- コメントありがとうございます。OSXはMacmini Core2duo 2G ...
- ではOSXのopenmpiは適度にチューニングされているのではな...
- Fedora8だと、Openmpiがパッケージで入手できるようで、そ...
- amazon ec2でRedHatが動くようになってたんですね。（茶々...
- Linuxのdistributionに詳しくないのですが、Redhat系という...
- まだ、解析サーバとして使えるほど高速ではないということ...
- ちょっと, テストしてみました. openmpiはどうしてもloopba...
- SSE3でビルドしたRでの実行時間は、Core2duo 3G(E8400) 337...
- Macならotools(だったか?な,失念しました)でlinuxならldd $...
- Fedora8を再インストール、パッケージから、Lamで始まるも...
- データを標準化た数値で対応分析のbiplotグラフを作成しよ...
**（密度）関数の線形和 [#w99dcebc]
>[[kaneko]] (2008-02-02 (土) 16:23:24)~
~
t分布の密度関数の線形和を返す関数を作ろうとしています．~
例えば，自由度がそれぞれ10, 15, 5のt分布密度関数dt(x, 10)...
function(x){10*dt(x, 10)+15*dt(x, 15)+5*dt(x, 5)}~
というように作りたいと思っています．~
~
上の例のように加える関数の数が少ないならばすべて書き出せ...
~
上記の線形和は，ある検定関数を作るためのものです．なお，R...
~
以上，ご教示頂ければ幸いです．~
//
- 内積を表す %*% を使って、df %*% dt(x, df) でどうでしょ...
- f<-function(x,df)(sapply(df,function(df)df*dt(x,df))) ...
**バックスラッシュ奇数個の文字列を [#y9058b74]
>[[hidee]] (2008-02-01 (金) 14:54:01)~
~
バックスラッシュが3個並んだ文字列を作りたいのですが，
単純にダブルクオーテーションのあいだに2つ並べると2つのバ...
奇数個並べると次の文字が奇数個目のバックスラッシュはその...
結果，生成される文字列はバックスラッシュ偶数個のものしか...
~
余分に生成しておいてsubstr()なんていうのも考えてみたんで...
~
よい方法が思い浮かばないのですが，ご教授いただけませんか．
> "\\\hline"
[1] "\\hline"
Warning messages:
1: '\h' は文字列で認識されないエスケープです
2: "\\\hline" から認識されないエスケープを取り除きまし...
> "\\\\hline"
[1] "\\\\hline"
> substr("\\\\hline", 1, 999)
[1] "\\\\hline"
> substr("\\\\hline", 2, 999)
[1] "\\hline"
> sessionInfo()
R version 2.6.1 (2007-11-26)
i686-pc-linux-gnu
locale:
LC_CTYPE=ja_JP.eucJP;LC_NUMERIC=C;LC_TIME=ja_JP.eucJP;LC...
LC_MONETARY=ja_JP.eucJP;LC_MESSAGES=ja_JP.eucJP;LC_PAPER...
LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=ja_JP.eucJP;L...
attached base packages:
[1] stats graphics grDevices utils datasets
[6] methods base
loaded via a namespace (and not attached):
[1] tools_2.6.1
>
//
- "\\\\\\"でOKです。cat("\\\\\\hline", file="hoge.tex")と...
- "\\\\\\" は \\\ なんです. cat("\\\\\\",fill=T)とすると,...
- takahashiさん，なかまさん．ありがとうございます．ごめん...
- それでもlは\\\なんです。cat(l)で。 -- [[takahashi]] &ne...
- takahashiさん．お付き合いありがとうございました．おかげ...
- エスケープのエスケープに混乱しているだけですから, 焦ら...
- なかまさん，ありがとうございます．このWikiでずっといわ...
1. cat()でエスケープ後の中身が分かる，
2. ＼Sexpr{} の段階でさらにエスケープがかかる(ようだ)，
ということが理解できたところです(2はまだよくわかっていま...
いまのところ，cat(file=file) をつかって一旦ファイルに落と...
takahashiさんにも大変お世話になりました．-- [[hidee]] &ne...
- 私も悩んだことがあり、[[質問:http://www.okada.jp.org/RW...
- Hmiscのlatex()だとbooktabsも指定できるし、かなり細かく...
- 参考になるかどうか？(本当のところ二種類の出力の違いが分...
> a <- "abc"
> b <- paste(a,'"""', sep="") # single quoate ではさむ
> b
[1] "abc\"\"\""
> c <- paste(a,"\\\\\\", sep="")
> c
[1] "abc\\\\\\"
> d <- paste(a,"\"\"\"", sep="")
> d
[1] "abc\"\"\""
- singleQuoteはsingleQuoteで終わり,dowbleQuoteはdowbleQuo...
**因子に対しては無意味です [#x98ec45b]
>[[LUKE]] (2008-01-28 (月) 17:45:57)~
~
時系列データを扱っていいて~
二種類のデータを使って試したところ~
ひとつだけ~
Warning message:~
In Ops.factor(left, right) : * 因子に対しては無意味です ~
というメッセージが出てきます。~
データの構造によるものなのでしょうか？~
アドバイスをいただけたらと思います。
Book <- read.csv( a.csv', header = TRUE )
nTime1 <- nrow( Book )
flag1 <- Book[-nTime1,] != 0
BookValue1 <- rbind( 0, Book[-1,] * flag1 )
R version 2.6.1 (2007-11-26) ~
i386-pc-mingw32 ~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
LC_NUMERIC=C;LC_TIME=Japanese_Japan.932~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
//
- a.csv がどういうものであるかわからないので，だれも適切...
//相も変わらず，お馬鹿な質問の仕方が止まらない。聞く内容...
おそらくは，データファイル中に数値構成要素以外の文字が紛...
- [[因子Tips大全]]など読まれたら得心がいくかもしれません...
- エラーはrbindの後に出ますか?read.csvはstringsAsFactorを...
- > 数値は数値のままのはずですが~
曖昧なことは確認してからコメントした方がよろしいかと。~
データフレームのある列がほとんど数値が入っていて，どれか...
テストデータ
まともな列,異常な列
1,1
2,2
3,3
4,.
5,5
実行結果
> x <- read.csv("テストデータ", header=TRUE)
> str(x)
'data.frame': 5 obs. of 2 variables:
$ まともな列: int 1 2 3 4 5
$ 異常な列 : Factor w/ 5 levels ".","1","2","3",..: 2 ...
**ライブラリの使い方（目標はRのフィンメトリックス並実装）...
>[[ポンタ]] (2008-01-25 (金) 15:40:56)~
~
Rをフィンメトリックス並に実装する方法を知りたく思いメール...
~
色々なhpを見て東大のライブラリからrを使って全てのパッケー...
~
できれば多変量ARモデルなども動かしてみたいのですがどのよ...
~
あと、追加質問ですが、そもそも、ダウンロードしたパッケー...
（全くの初心者ですがどなたかご教授いただければ幸いです。）~
//
- R本で顔を洗って出直すべし。 -- &new{2008-01-26 (土) 11...
- 講習とか仮免コースも必要か？初級者と言えども「そもそも...
- library(package name) -- &new{2008-01-26 (土) 14:16:07};
- 教えて。[フィンメトリックス]ってなんでしょう。ググって...
- 単位根は,PP.test()か、tseriesのadf.test()。多変量ARはそ...
- お互い、気持ちよくWikiを使いましょうよ。~
ポンタさんの文面は何もせずにただ質問したように読み取れま...
おそらく、ポンタさんの質問は「(1)パッケージの使いかた」が...
で、(1)は自分で調べるべきで、(2)はやったこと（コードとか...
ちなみに私も分野外なのでフィンメトリクスをしりませんで、...
//- 「ふぃんめとりっくすもしらないようなはなたれが」とい...
- >>お互い、気持ちよくWikiを使いましょうよ。 >>おっしゃる...
//なにをどのようにかくのもじゆうでしょう。「ここのばかも...
- アホが思い上がってやってるだけののWikiなので上手に活用...
- 皆様、当方の無作法で場を荒らしてしまい大変に失礼しまし...
- 態度が劣悪な上級者が，初心者をストレス発散の道具に使う...
**多変量GARCH [#q13d7bb1]
>[[たく]] (2008-01-16 (水) 18:41:23)~
~
例えば現物と先物のボラティリティを推定したい場合、2変量GA...
~
Rには多変量GARCHモデルの関数はないのでしょうか？~
~
検索して見つかった、tseriesパッケージやｆSeriesパッケージ...
//
- mgarch (multivariate GARCH model) パッケージ。R site se...
- ありがとうございます。こんなパッケージもあったのですね...
- mgarchBEKKというパッケージですね。多変量GARCHモデルの一...
**複数枚のグラフを、一つのファイルにまとめて保存するには...
>[[Yoshihara]] (2008-01-16 (水) 03:12:00)~
~
前例がある内容でしたら申し訳ございません。~
~
forループの中で条件を変化させて複数枚のグラフを出力し、そ...
~
例えば以下のようなプログラムで5種類のグラフを作成しても、...
for(i in 1:5){
name<-paste("No.",i,".pdf",sep="")
curve(x+i,main=name)
dev.copy(pdf,file="graph.pdf") #ファイ...
dev.off()
}
現在は dev.copy(pdf,file=name)として毎回名前を変え保存し...
グラフ数が増えると処理が面倒になるため、一つのファイル名...
~
自分なりに調べてみたのですが、行き詰ってしまいました。~
~
どなたかご教授をお願い致します。~
//
- 次のようなやり方ではいかがですか。 -- &new{2008-01-16 ...
> pdf(file="myplots.pdf", onefile=TRUE)
> plot(1:10, rnorm(10))
> plot(1:10, runif(10))
> dev.off()
- onefileはデフォルトでTRUEです -- &new{2008-01-16 (水) ...
pdf("output.pdf")
for(i in 1:5) {
name<-paste("No.",i,".pdf",sep="")
curve(x+i,main=name)
}
dev.off()
- ご教授ありがとうございます。pdf(),dev.off()の構造を、ま...
望んでいた出力結果が得られ、大変助かりました。 -- [[Yoshi...
**RMySQLパッケージの読み込みエラー [#bfbf39a1]
>[[だあ]] (2008-01-15 (火) 14:41:37)~
~
RMySQLパッケージをダウンロードした後に読み込もうとすると、~
「Rgui:Rgui.exe - エントリーポイントが見つかりません：プ...
というエラーが表示され、読み込むことができません。~
MySQL5.0を利用しており、DBIパッケージの読み込みまでは行っ...
//
- 自己レスですみません。右記ＵＲＬにて解決しました。http:...
**Rを自動で起動・終了させるには？ [#i6c98186]
>[[春一番]] (2008-01-14 (月) 18:57:22)~
~
初めまして。Rの初心者なので分らないことばかりですが、宜し...
//
- まずExcelを間にかませる意味がわかりません。VBならばRCMD...
- ご教授ありがとうございます。http://cran.r-project.org/c...
- まず環境を整備しましょう。Rのバージョンが古いのでR2.5.1...
- 指標というものがどういうものか分かりませんが、R(とその...
- R2.6.1でもいいとは思うのですが、私自身でRDCOM&RExcelとR...
- 視標はランドルト環と言って眼科で視力検査するときの黒い...
- http://cran.md.tsukuba.ac.jp/ などを参照。~
ランドルト環なら，Rで簡単に描けるでしょう。だとしたら，一...
- 業務用に開発を考えているのであれば、VB使うのが正解かと...
- 返事が遅くなり申し訳ありません。ランドルト環なのですが...
- お伺いしているかぎり，[ＶＢ→Ｒ→ＶＢの流れ]にこだわる必...
- RDCOMは基本的にCOM(ActiveX)なのでVBからRを叩くのに向い...
- RExcelのインストールですが、http://cran.r-project.org/c...
- 返事がしばらく出来なくて申し訳ありませんでした。他のこ...
- VBにRDCOMが入っているのではなくて、「アプリケーションの...
**foldまたはreduceのような機能はありますか？ [#rf69edcb]
>[[lambda]] (2008-01-13 (日) 04:22:49)~
~
sumとprodは見つけたのですが、足し算、かけ算以外の任意の演...
Rではベクトル化された関数を使ってmap関数と同等のことが出...
fold関数等がなくても直接的に畳込みをする方法があったりす...
それともforを使って地道に変数に累積していくしかないんでし...
//
- fold, reduce とは具体的にどういう演算のことを指すのです...
- 説明が足りなくてすみません。http://d.hatena.ne.jp/blank...
- 例は，色々な説明ページにもある R で言えば sum 関数なの...
- 混乱させてすみません、"+"(1,2)→3が出来るので"+"単体で関...
- おそらく R なら apply 関数族を使うケースでしょうね。い...
> ft <- function(x) {x+pi}
> sapply(1:10, ft)
[1] 4.141593 5.141593 6.141593 7.141593 8.141593 ...
[8] 11.141593 12.141593 13.141593
> sum(sapply(1:10, ft))
[1] 86.41593
> sum(sapply(1:10, function(x) {x+pi})) # 一行で書けば
[1] 86.41593
もしくは outer 関数も使えるかもしれません(こっちの方が一...
> outer(1:10,pi,"+")
[,1]
[1,] 4.141593
[2,] 5.141593
[3,] 6.141593
[4,] 7.141593
[5,] 8.141593
[6,] 9.141593
[7,] 10.141593
[8,] 11.141593
[9,] 12.141593
[10,] 13.141593
> sum(outer(1:10,pi,"+"))
[1] 86.41593
> sum(outer(1:10,pi,"*"))
[1] 172.7876
> sum(outer(1:10,pi,"^"))
[1] 4074.216
- ありがとうございます。sapplyやouterは引数として関数を与...
- 単独で行うものは無いでしょう。要するに再帰的処理のよう...
- やはりないのですか…。ありがとうございます、おかげであき...
**SQLファイルから読み込んだベクトル様データのベクトル化の...
>[[あーちゃんぱぱ]] (2008-01-11 (金) 23:35:13)~
~
全くの初心者です，よろしくお願いします．~
MySQLのデータベースからデータを読み込んで解析を行おうとし...
//
- コンマで区切られている為に文字列になってしまうのでしょ...
- ご呈示いただいた，データを基に解決例を挙げてみます。あ...
a <- "120, 500, 554, 578"
as.numeric(strsplit(a, ",")[[1]])
- aaさんありがとうございました，大変参考になりました． --...
- scan(textConnection(a, "r"),sep=",") -- &new{2008-01-1...
**Rcmdrのダウンロード [#yb94816d]
>[[SIS]] (2008-01-11 (金) 17:15:44)~
~
記載場所が違っていたら申し訳ありません。~
windows版 R 2.4.1をインストール後、Rcmdrをダウンロードし...
URL 'http://cran.md.tsukuba.ac.jp/bin/windows/contrib/2....
以下にエラーdownload.file(url, destfile, method, mode = ...
URL'http://cran.md.tsukuba.ac.jp/bin/windows/contrib/2.4...
追加情報: Warning message:
開けません：HTTP ステータスは '403 container violation' ...
download.packages(pkgs, destdir = tmpd, available = avai...
download of package 'Rcmdr' failed
といったエラーが出てしまいました。
googleなどを検索したのですが、どのようにすれば解決するか...
解決策をお教えください。~
//
- Rをインストールした手順、パッケージをインストールした手...
- ご返答が遅くなって申し訳ありません。ＯＳのバージョンはw...
- 追記 パッケージのインストールはR 2.4.1を立ち上げた後に...
- 手順は問題ないようですね。だとすると単にネットワークが...
- okinawa様コメントありがとうございます。ブラウザでダウン...
- たぶんセキュリティに引っかかっているのでしょう。セキュ...
- 単にプロキシの問題では？？ -- [[通りすがり]] &new{2008-...
**tapplyを使ったグラフ作成 [#tee0c943]
>[[tukey]] (2008-01-11 (金) 11:47:06)~
~
以下のように、ある区分（以下の例では、"TYPE"）ごとにヒス...
それぞれの区分のタイトルに、~
Histogram of TYPE=1~
Histogram of TYPE=2~
と表示したいと考えております。~
~
以下に簡単なプログラムの事例を載せます。~
AGE<-c(30,80,90,77,65,33)
TYPE<-c(1,1,1,2,2,2)
myhist <- function(x){
hist(x,main=paste("Histogram of TYPE=",1))
}
tapply(AGE,TYPE,myhist)
//
- myhistの中でsubstitute(x)を表示させると"X"，"[["に続い...
hist(x,main=paste("Histogram of TYPE=",substitute(x)[[3]...
とするだけで可能です（[3]より上の方が良いので訂正しました...
- 中澤先生。ご教授ありがとうございました。２日ほどいろい...
- TYPEが1から始まる連続する整数値とは限らないと思う -- &...
- その場合は，TYPEをfactorにしておいて，levels(TYPE)の添...
- 申し訳ございませんが、具体的なプログラムをご教授頂けな...
- 例えば，次のようになります。-- [[中澤]] &new{2008-01-11...
AGE<-c(30,80,90,77,65,33)
TYPE<-as.factor(c("M","M","M","F","F","F"))
LTYPE<-levels(TYPE)
myhist <- function(x){
hist(x,main=paste("Histogram of TYPE=",LTYPE[substitute(...
}
tapply(AGE,TYPE,myhist)
- -- &new{2008-01-13 (日) 14:36:35};
invisible(mapply(function(x, main) hist(x, main=main),
split(AGE, TYPE), paste("Histogram of TYPE=", levels(TYP...
**プロビット分析で出てくるエラーについて [#o0d07d87]
>[[kuro]] (2008-01-10 (木) 05:46:11)~
~
はじめまして。~
プロビット分析を行なっていて出てくるエラーの意味について...
~
当方、MASSパッケージを読み込んで、順序プロビット分析（pol...
~
> library(MASS)
> data<-read.table("data.dat",header=TRUE)
> data[1:3,]
popul TVnews selfLR ClinLR DoleLR PID age educ income ...
1 0 7 7 1 6 6 36 3 1 ...
2 190 1 3 3 5 1 20 4 1 ...
3 31 7 2 2 6 1 24 6 1 ...
> summary(polr(as.ordered(ClinLR) ~ TVnews+selfLR+PID+ag...
~
と入力すると、~
~
Error in svd(X) : 'x' に無限値か欠測値があります
~
と表示されます。~
このエラーが何を意味しているか分からないのですが、ご存知...
//
- そのままの意味でしょう。データに NA もしくは Inf 値が...
- かぶってますね。~
エラーの意味はpolr関数の途中でsvd関数を使っていて、svdが...
x <- matrix(1:12, ncol=4)
svd(x) # エラーはでない
x[1,1] <- NA
svd(x) # エラー
ということです。~
ところで、polrにはsvdを使うのですか?Googleで調べると、[[...
- akiraさま、ご親切にご教授、本当にありがとうございます。...
- すみません。正確でなかったです。polrの内部処理でXが出る...
- > データ構造に間違いがあるという訳ではなさそうです~
データ構造ではなく，データの性質に問題がある（そう言うも...
- ＞＞データ構造ではなく，データの性質に問題がある（そう...
**[getOption("max.print") を越えました -- 末尾 190 行を省...
>[[竹の山]] (2008-01-08 (火) 22:28:33)~
~
昨日から始めた初心者です。~
900行X150列程度のデータのテキストファイルを分析したいので...
> x >- read.table(“G1.txt”, header=TRUE)~
でRに読み込んで、その結果を~
> x~
で見ようとすると全部は見れません。これはアーカイブにある...
~
[getOption("max.print") を越えました -- 末尾 190 行を省略...
~
~
R version 2.6.1 (2007-11-26) ~
i386-pc-mingw32 ~
~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
//
- ご教示通りやることが出来たようで成功です。有難うござい...
- 自問自答？それとも、直前の回答が消されてしまった？回答...
> old.op <- options(max.print=999999)
> old.op
$max.print
[1] 99999 # 既定値
> options()$max.print
[1] 999999
**ベクトルを割り当てることができないのはメモリ不足が原因...
>[[Saito]] (2008-01-06 (日) 23:27:04)~
~
WindowsXPでR2.6.1を使って一般化線形モデルによる解析を行っ...
データを読み込んでさぁ解析といったところで、次のようなメ...
x=read.table("a.txt",header=T)
result=glm(A~.,data=x)
エラー： サイズ 294.8 Mb のベクトルを割り当てることがで...
初級Q&Aの"Step関数の実行"など、似たような事例はあったので...
ただ、そのやり取りの中で出てきた「WindowsのBoot.iniに/3GB...
という箇所のみ調べてもできなかったので、~
それで解決するというのならおしまいなのでしょうが（汗）~
ちなみにglmではなくbiglmだとできるのですが…。
result2=biglm(A~B+C+D+...+Z,data=x)
step(result2)
以下にエラー UseMethod("extractAIC") :
"extractAIC" に適用可能なメソッドがありません
というメッセージが出てstepしても何故かできないし(一応extr...
つまり、エラーが出なくなった上でstep関数等でモデル選択が...
をどなたかご存知でしたらご教授お願いします。ちなみに~
> memory.size(T)
[1] 801.5625
また、memory.limitは4095に設定してあります。~
よろしくお願いします。
//
- メモリはどれだけ積んでいますか？ -- &new{2008-01-07 (...
- あ、すみません1.00GB RAMとなっています。 -- [[Saito]] &...
- やはりメモリ不足でしょうね(そもそも１GBしかメモリがない...
- なるほど。やはりメモリ不足ですか。memory.size(T)の単位...
- memory.limit(size=NA)ではダメですか？あと、Winはメモリ...
- Rは物理メモリのみ使います。（仮想メモリは使わない）あな...
- memory.limit(size=NA)とすると1024と表示されましたがそれ...
- 物理メモリを増やすかデータを減らすかです。統計解析うん...
- memory.limit(size=4095)とか(4096以上はよさげなメッセー...
- アドバイスありがとうございます。ちょっと試してみて、後...
- できました。できなかった原因は、ファイルとファイルをmer...
- 投稿の基本どおり、データやコードをきちんと載せないと無...
終了行:
*COLOR(green){SIZE(20){初心者のための R および RjpWiki に...
新規投稿はできません
----
**COLOR(red){過去の記事のアーカイブ} 。 [#m1cf995c]
-[[初級Ｑ＆Ａ アーカイブ(8)]] (元記事が 2007-07-02 より 2...
-[[初級Ｑ＆Ａ アーカイブ(7)]] (元記事が 2007-02-01 より 2...
-[[初級Ｑ＆Ａ アーカイブ(6)]] (元記事が 2006-08-24 より 2...
-[[初級Ｑ＆Ａ アーカイブ(5)]] (元記事が 2005-03-13 より 2...
-[[初級Ｑ＆Ａ アーカイブ(4)]] (元記事が 2005-11-09 より 2...
-[[初級Ｑ＆Ａ アーカイブ(3)]] (元記事が 2005-05-02 より 2...
-[[初級Ｑ＆Ａ アーカイブ(2)]] (元記事が 2004-12-13 より 2...
-[[初級Ｑ＆Ａ アーカイブ(1)]] (元記事が 2004-08-03 より 2...
----
#contents
----
**主成分分析 [#p97b7b34]
>[[sumi]] (2008-11-15 (土) 12:14:00)~
~
初歩的な質問で大変恐縮です。~
~
主成分分析したものをバリマックス回転、もしくはプロマック...
~
また因子分析を実行しようとすると「これらの初期値からは最...
//
- 特に使用環境を添えるのは常識です。sessionInfo() とすれ...
- すみません。はじめて投稿するのでわかりませんでした。 --...
- R version 2.7.2 (2008-08-25) -- [[sumi]] &new{2008-11-...
R version 2.7.2 (2008-08-25)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932;
LC_MONETARY=Japanese_Japan.932;LC_NUMERIC=C;LC_TIME=Japan...
attached base packages:
[1] stats graphics grDevices utils datasets met...
- 回答者は神通力を持ってはいません。「これこれしたが、う...
- 対応分析でデータを標準化してｂｉｐｌｏｔでグラフを作ろ...
**RのＡＲモデルのAICについて [#l496cb0f]
>[[野沢菜]] (2008-11-14 (金) 21:52:52)~
~
お世話になります。~
~
ARモデルのAIC値について質問致します。~
~
どうやらRのARモデルのAIC値は最小モデルの値を0とし、相対値...
~
以下のような実験をしてみました。~
~
まずNileをAR(2)で計算させると ~
~
> ar(Nile,order=2) ~
~
Call: ~
ar(x = Nile, order.max = 2) ~
~
Coefficients: ~
1 2 ~
0.4081 0.1812 ~
~
Order selected 2 sigma^2 estimated as 21247 ~
~
>~
~
sigma^2を21247と推定してきました。同様にar(Nile,aic=FALSE...
~
ここでAICを求めると、~
~
> ar(Nile,order=3)$aic ~
0 1 2 3 ~
27.8938963 1.3373691 0.0000000 0.7625609 ~
> ~
~
と、AR(2)が最小で0、AR(3)は0.7625609だと言っています。一...
~
AR(2)σ^2 = 21247 ~
AR(3)σ^2 = 21204 ~
AR(2)AIC = 0.0000000 ~
AR(3)AIC = 0.7625609 ~
~
と言う事なのですが、回帰のAICでlength(Nile)が100なのでAIC...
差をみると~
~
> n<-100;si2<-21247;m<-2; ~
> AIC2 <- n*(log(2*pi)+1+log(si2))+2*(m+2) ~
> n<-100;si2<- 21204;m<-3; ~
> AIC3 <- n*(log(2*pi)+1+log(si2))+2*(m+2) ~
> AIC3-AIC2 ~
[1] 1.797413 ~
~
と、AR(3)AIC = 0.7625609 とは、かけ離れた値になってしまい...
~
私は、どこをどう間違っているのか、ご指摘をお願い致します。~
//
- 特に使用環境を添えるのは常識です。sessionInfo() とすれ...
- 2-100*(log(21247*0.97)-log(21204*0.96)) では？ -- [[asd...
- AR1:1.3373691->5.337865,AR2:0.0000000->000000,AR3:0.762...
- 2-100*(log(21247*0.97)-log(21204*0.96)) の値はAR(3)AIC ...
- Order selected 2 sigma^2 estimated as 21247 のように表...
**二元配置分散分析の求め方 [#wae304bc]
>[[flyer]] (2008-11-11 (火) 15:25:38)~
~
いつもお世話になっています。~
以下のようなデータで分散分析を二元配置の対応なしで分散分...
収穫量に対しての要因が品種と試験場が存在すると言う設定な...
よろしくお願いします。~
~
~
~
> 収穫量~
[1] 68 70 72 71 73 74 73 74 73 73 72 74 73 71 72 69 71 7...
> 品種~
[1] A1 A1 A1 A1 A1 A2 A2 A2 A2 A2 A3 A3 A3 A3 A3 A4 A4 A...
Levels: A1 A2 A3 A4~
> 試験場~
[1] B1 B2 B3 B4 B5 B1 B2 B3 B4 B5 B1 B2 B3 B4 B5 B1 B2 B...
Levels: B1 B2 B3 B4 B5~
> > summary(aov(収穫量~試験場*品種))~
> > Df Sum Sq Mean Sq
> >試験場 4 8.2000 2.0500~
> >品種 3 26.8000 8.9333~
> >試験場:品種 12 22.2000 1.8500~
//
- １セルにデータがひとつずつしかないからじゃないですか？ ...
- ほいさっさ さんのいうとおり。繰り返しがないから交互作用...
> summary(aov(収穫量~試験場+品種))
Df Sum Sq Mean Sq F value Pr(>F)
試験場 4 8.2000 2.0500 1.1081 0.39711
品種 3 26.8000 8.9333 4.8288 0.01982 *
Residuals 12 22.2000 1.8500
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1...
- ほいささっさささん、--さん、ありがとうございました。調...
- ほいささっさささん、--さん、ありがとうございました。調...
**xtabsとftableで複数の要素を行に入れたい場合 [#r1074ecb]
>[[たけ]] (2008-11-10 (月) 22:05:27)~
~
下記のようなデータセットで、地点 緯度 経度 年 月の列と各...
1)地点 緯度 経度 年 月全部の組み合わせを出力してしまい、...
2)出力されたテーブルは行の値は属性として入った状態になっ...
以上の2点について、xtabsとftableを用いたものでなくても構...
~
~
x <- read.csv("test.csv")
y <- ftable(xtabs(値~地点+緯度+経度+年+月+種類,x))
~
データの例：test.csv
年,月,地点,緯度,経度,種類,値
平成15年,1月,東京,139.766084,35.681382,いちご,10
平成15年,8月,東京,139.766084,35.681382,いちご,20
平成16年,1月,東京,139.766084,35.681382,いちご,10
平成16年,8月,東京,139.766084,35.681382,いちご,25
平成15年,1月,つくば,140.111234,36.082744,いちご,10
平成15年,8月,つくば,140.111234,36.082744,いちご,30
平成16年,1月,つくば,140.111234,36.082744,いちご,10
平成16年,8月,つくば,140.111234,36.082744,いちご,45
平成15年,1月,東京,139.766084,35.681382,みかん,100
平成15年,8月,東京,139.766084,35.681382,みかん,20
平成16年,1月,東京,139.766084,35.681382,みかん,100
平成16年,8月,東京,139.766084,35.681382,みかん,25
平成15年,1月,つくば,140.111234,36.082744,みかん,100
平成15年,8月,つくば,140.111234,36.082744,みかん,30
平成16年,1月,つくば,140.111234,36.082744,みかん,100
平成16年,8月,つくば,140.111234,36.082744,みかん,45
//
- 一部，うまく動かない理由が分からない。。なぜ，「みかん...
x <- read.csv("test.csv")
y <- ftable(xtabs(値~地点+緯度+経度+年+月+種類,x))
a <- data.frame(y)
b <- a[a$Freq>0,]
b[b$地点=="つくば",]
b[b$緯度=="140.111234",]
b[b$種類=="みかん",]
- x <- read.csv("test.csv",encoding="UTF-8") などと, UTF-...
- どんな表がほしいのか良くわからないですが、reshapeパッケ...
> library(reshape)
> x <- read.csv("c:/test.csv")
> colnames(x)[6]<-"variable"
> colnames(x)[7]<-"value"
> y<-cast(x)
> y
年 月 地点 緯度 経度 いちご みかん
1 平成15年 1月 つくば 140.1112 36.08274 10 100
2 平成15年 1月 東京 139.7661 35.68138 10 100
3 平成15年 8月 つくば 140.1112 36.08274 30 30
4 平成15年 8月 東京 139.7661 35.68138 20 20
5 平成16年 1月 つくば 140.1112 36.08274 10 100
6 平成16年 1月 東京 139.7661 35.68138 10 100
7 平成16年 8月 つくば 140.1112 36.08274 45 45
8 平成16年 8月 東京 139.7661 35.68138 25 25
で、dataframeにするには、
>z<-data.frame(y)
- encoding 指定すればちゃんとできた。。。~
factor ==> numeric は自分でやってね -- &new{2008-11-11 (...
> b[b$種類=="みかん",1]
[1] 東京 つくば 東京 つくば 東京 つくば 東京 つ...
Levels: 東京 つくば
> b[b$種類=="みかん",2]
[1] 139.766084 140.111234 139.766084 140.111234 139.7660...
139.766084 140.111234
Levels: 139.766084 140.111234
- あちゃー, encoding壊滅状態かも...SBCSはlatin1で, MBCSは...
- お返事遅くなり申し訳ありません、okinawaさん大変スマート...
- 色々いじっています。日本語がうまくとおらないですが、 ca...
**rbindするデータフレームの数が多い場合・・・ [#v5292f81]
>[[Shiro]] (2008-10-31 (金) 06:56:27)~
~
たとえば、各年のデータを含むデータフレーム、~
df.2000, df.2001, df.2002, df.2003, df.2004, df.2005~
があるとし、これを以下のようにバインドするとします。~
df.all <- rbind (df.2000, df.2001, df.2002, df.2003, df.2...
しかし、もしもバインドしたいデータフレーム数が膨大に増え...
そこで、下記のようにデータフレーム名を作成してみました。~
period = c(2000:2005)~
# データフレーム名の作成~
paste("df", period, sep = ".")~
[1] "df.2000" "df.2001" "df.2002" "df.2003" "df.2004" "df...
そして、これでは単なるcharacterなので、get関数で下記のよ...
df.all <- rbind (get(paste("df", period, sep = ".")))~
初心者です。調べた結果、pasteで名前を作るまではできたので...
//
- ヒント -- &new{2008-10-31 (金) 09:12:20};
x <- rnorm(10)
y <- rnorm(10)
eval(parse(text="cbind(x, y)"))
eval(parse(text="12+34"))
- eval(parse(***))を使う。要はプログラムの文字列を自動的...
period <-c(2000:2005)
dfname<-paste("df.", period, sep = "",collapse=",")
text<-paste("df.all <- rbind (",dfname,")",sep="")
eval(parse(text=text))
- こういうのもあり。 -- &new{2008-10-31 (金) 10:08:40};
df.all <- do.call("rbind",lapply(paste("df", period, sep...
- do.call("rbind",mget(ls(pattern="^df.[0-9]{4}"),envir=....
- すぐに丁寧なコメントを頂いて感激です。とても素晴らしい...
**範囲の指定 [#l66f128b]
>[[tt]] (2008-10-31 (金) 02:55:21)~
~
非常に初歩的な質問なんですが、hist()を使うときに、横軸の...
//
- xlim 引数で指定すればよいのでは？ -- &new{2008-10-31 (...
- できました。ありがとうございました。 -- [[tt]] &new{200...
**R で作る EPS ファイル [#a0edcc1b]
>[[ ]] (2008-10-29 (水) 21:32:23)~
~
postscript(file, family="Japan1Ryumin") で作る，日本語フ...
postscript(file) でローマ字だけのファイルなら，問題は生じ...
Windows, Mac 共に，同じ問題があるようです。~
//
- Adobe製品ならたとえ読めてもEPSなら普通に崩れるケースも...
- 回答ありがとうございました。普段はPDFでなんの支障もなく...
- PDFでお願いすればたぶん大丈夫なはずです. その場合は[[R...
**Rを用いたランダム効果解析 [#b964b5e8]
>[[初心者random]] (2008-10-26 (日) 14:24:04)~
~
教えてください。以下のデータ(data01)は、~
2元配置の変量モデル（変量因子groupAと変量因子groupB、それ...
における、2つの変量因子のeffectへの影響を解析するものです...
~
random効果として、groupAおよびgroupBを指定し、関数lme()を...
random効果の項の設定をうまくできません。~
~
random効果として、~
groupA+groupB+groupA*groupB ---(1)~
を設定したく考えております。~
~
model<-lme(effect~1,random=＊＊＊） この部分（＊＊＊）の...
~
これまで、random=~1|groupA, random=~1|groupA/groupBは試み...
(1) groupA+groupB+groupA*groupB ~
の設定ができず、質問させていただきました。~
~
よろしくお願いします。~
~
data01~
groupA groupB effect
1 1 1 13.2~
2 1 1 11.9~
3 1 2 16.1~
4 1 2 15.1~
5 1 3 9.1~
6 1 3 8.2~
7 2 1 22.8~
8 2 1 18.5~
9 2 2 24.5~
10 2 2 24.2~
11 2 3 11.9~
12 2 3 13.7~
13 3 1 21.8~
14 3 1 32.1~
15 3 2 26.9~
16 3 2 28.3~
17 3 3 15.1~
18 3 3 16.2~
19 4 1 25.7~
20 4 1 29.5~
21 4 2 30.1~
22 4 2 29.6~
23 4 3 15.2~
24 4 3 14.8~
//
**罫線を点線にしたい [#x6cd0c86]
>[[psa]] (2008-10-24 (金) 10:24:29)~
~
par(tck=1)でグラフ上に罫線を入れたのですが、その罫線を好...
par(tck=1)~
plot(1:100)~
//
- use 'abline' -- &new{2008-10-24 (金) 11:35:05};
> plot(1:100)
> abline(v=0:10*10, lty=3)
> abline(v=50, lwd=2)
- 読みたく無い量だけど, マニュアル読みましょう, いっぱい...
**epsファイルの作成 [#i601c726]
>[[taromaru]] (2008-10-23 (木) 16:42:25)~
~
WindowsXP上で、R2.7.2を使っております。epsファイルをRから...
~
hist(rnorm(100))
dev.copy2eps(file="temp.eps")
~
temp.epsというファイルはできますが、tex に読み込んでコン...
~
Failed to make temp.bmp by the command~
~
というエラーメッセージが出て、dviファイルには図が表示され...
~
Unknown in Prolog section at line 34:~
%%IncludeResource: CID fake Bold font HeiseiKakuGo-W5
~
~
Unknown in Prolog section at line 71:~
%%IncludeResource: CID font HeiseiKakuGo-W5-EUC-H
~
（以下省略）~
~
といったエラーメッセージが出て開けません。そこで、~
~
dev.copy2eps(file="temp.eps", paper="special", onefile=...
~
といったオプションもつけてみましたが、結果は同じです。ど...
//
- gsのインストール時のCJKに関するチェックを選択しなかった...
- どうもありがとうございます。CJKに関するチェックはしてい...
- うーん, 症状からすると, lib/cidmapの中しか思いつきませ...
- おっしゃるとおり、lib/cidfmap の中身をTexWiki に記載し...
**最尤法による最適関数の導出について [#ab854383]
>[[Saito]] (2008-10-22 (水) 21:35:20)~
~
いつもお世話になっております。~
似たような質問、トピックを捜しましたが見当たらなかったた...
手持ちのデータに当てはまりそうな関数を自分で作成して、そ...
a<-rep(0,50)
b<-rep(1:2,length=50)
c<-rep(3:10,length=50)
d<-c(a,b,c)
d2<-as.data.frame(table(d))
d2$Freq<-(d2$Freq)/d2[1,2]
plot(d2$d,d2$Freq)
のような形をしており、これに尤もらしく当てはまりそうな関...
f<-function(sig,beta) 1-exp(-(as.numeric(d2$d)/sig)^-(be...
を関数例として考えました(あんまりいい例ではないかもしれま...
なお、環境はWindowsXP、R-2.7.2です。~
よろしくお願いいたします。~
//
- nls は最尤法なんだろうか？ -- &new{2008-10-23 (木) 01:...
> # f<-function(sig,beta) 1-exp(-(as.numeric(d2$d)/sig)^...
> a <- rep(0,50)
> b <- rep(1:2,length=50)
> c <- rep(3:10,length=50)
> d <- c(a,b,c)
> d2 <- as.data.frame(table(d))
> d2$d <- as.integer(d2$d) # d2 が factor は百害あって一...
> d2$Freq <- (d2$Freq)/d2[1,2]
> plot(d2$d,d2$Freq)
> ans <- nls(Freq~1-exp(-(d/sig)^(-beta)), data=d2, star...
> summary(ans)
Formula: Freq ~ 1 - exp(-(d/sig)^(-beta))
Parameters:
Estimate Std. Error t value Pr(>|t|)
beta 1.5905 0.2278 6.981 6.46e-05 ***
sig 1.8398 0.1852 9.933 3.79e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1...
Residual standard error: 0.07757 on 9 degrees of freedom
Number of iterations to convergence: 8
Achieved convergence tolerance: 3.585e-06
> x2 <- seq(min(d2$d), max(d2$d), length=300)
> y2 <- predict(ans, newdata=data.frame(d=x2))
> lines(x2, y2, col="red")
#ref(nls.png)
- ご教授、ありがとうございます。今も調べているのですがお...
> AIC(ans)
[1] -21.23610
と返してくれるので、おそらく最尤推定をしてくれているのだ...
&new{2008-10-23 (木) 10:03:47};
- どうも、みたところ離散的な分布の確率密度関数を求めよう...
> spl <- rnorm(100) #サンプルを準備、平均０標準偏差１...
> sum(dnorm(spl, 0, 1, log=T)) #確率密度を掛け合わせ...
[1] -144.8611
> sum(dnorm(spl, 1, 1, log=T)) #平均と標準偏差が異な...
[1] -198.297
> sum(dnorm(spl, 1, 2, log=T)) #平均と標準偏差が異な...
[1] -187.8094
#この（対数）尤度を最大にするのが最尤法
> eval_fn <- function(x, spl){
+ m <- x[1]
+ sig <- x[2]
+ -sum(dnorm(spl, m, sig, log=T)) #optimは最小化...
+ } #平均と標準偏差をパラメータにした関数を定義する
#x[1]が平均、x[2]が標準偏差、splはサンプル
> eval_fn(c(1,1), spl)
[1] 198.297
> optim(c(1,1), eval_fn, lower=c(-Inf, 0.001), method="L...
#標準偏差は正の実数なので小さな実数を下限にする
$par
[1] -0.03435954 1.02867148 #１番目が最尤法で求められ...
$value
[1] 144.7206 #尤度関数の値、マイナスをつけたので正に...
$counts
function gradient
30 30
$convergence
[1] 0
$message
[1] "CONVERGENCE: REL_REDUCTION_OF_F <= FACTR*EPSMCH"
> mean(spl)
[1] -0.03435954 #実際のサンプルの平均、まったく同じ
> sd(spl)
[1] 1.033853 #標準偏差、最適化の精度の関係で若干上の...
- 同様のことをSaitoさんの例で行うと -- [[ななし]] &new{20...
> a<-rep(0,50)
> b<-rep(1:2,length=50)
> c<-rep(3:10,length=50)
> d<-c(a,b,c) #これがサンプル
> f<-function(x, spl){
+ sig <- x[1]
+ beta <- x[2]
+ -sum(log(1-exp(-(spl/sig)^-(beta))))
+ }
> f(c(1.5,1.5), d)
[1] 129.5854
> optim(c(1.5,1.5), f, lower=c(0.001, 0.001), method="L-...
$par
[1] 17.294329 5.655511
$value
[1] 1.433712e-09
$counts
function gradient
27 27
$convergence
[1] 0
$message
[1] "CONVERGENCE: REL_REDUCTION_OF_F <= FACTR*EPSMCH"
と、一応何か答えは出ました．
~が、sigが大きくなると、確率密度関数がどんな観測値に対し...
- 指数分布だと -- [[ななし]] &new{2008-10-23 (木) 12:46:0...
> f2<-function(x, spl){
+ ramda <- x[1]
+ -sum(log(ramda*exp(-ramda*spl)))
+ }
> f2(c(1.5), d)
[1] 530.1802
> optim(c(1.5), f2, lower=c(0.001), method="L-BFGS-B", s...
$par
[1] 0.3807116
$value
[1] 294.8573
$counts
function gradient
8 8
$convergence
[1] 0
$message
[1] "CONVERGENCE: REL_REDUCTION_OF_F <= FACTR*EPSMCH"
> hist(d)
> plot(d, 0.38*exp(-0.38*d))
- ななしさんありがとうございます。素晴らしい回答で、逆に...
まずnls()とoptim()の違いなのですが、得られたパラメータの...
そしてnls()とoptim()で得られた尤度でAICを求めて、それぞれ...
すみません、長くなりましたが私が最初やりたかったことはほ...
1.nls()とoptim()での違いは何か？別々の値が推定された場合...
2.xが離散値の場合、どちらが適切なのか？
3.2.でどちらでもよいというような場合、AICを用いてnls()とo...
です。ご教授いただければ幸いです。
ちなみに私がうまくいかないといっていたのは、functionの中...
**非アルファベット・数字のソート [#dcaf71e4]
>[[R初心者]] (2008-10-22 (水) 18:41:13)~
~
以下のような例は，どういう事になっているんでしょうか。UTF...
> sort(c("青", "赤", "黄", "緑", "紫"))
[1] "紫" "緑" "赤" "青" "黄"
日本語の読みの順序でソートするにはどのようにしたらよいで...
> sessionInfo()
R version 2.8.0 Patched (2008-10-20 r46764)
i386-apple-darwin9.5.0
locale:
ja_JP.UTF-8/ja_JP.UTF-8/C/C/ja_JP.UTF-8/ja_JP.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets me...
です。なんとなく予感がして，UNIX上のR-1.8.1(sessionInfo ...
> sort(c("青", "赤", "黄", "緑", "紫"))
[1] "黄" "紫" "青" "赤" "緑"
> Sys.getlocale()
[1] "ja_JP.EUC/ja_JP.EUC/C/C/ja_JP.EUC/C"
なるほど，なんとかできるのかな？~
//
- LC_COLLATEの値によって変化します. LANG=C R -q -e 'sort(...
- kakasiとかを使って「よみ」に変換してソートいう手もあり...
- 大仰で恐縮ですが，お遊びということで -- [[ishida]] &new...
~
kanji <- c("黄","紫","青","赤","緑")
x <- paste(kanji, collapse = " ")
write(as.character(x), file = "hoge.txt" )
library(RMeCab)
y <- RMeCabText("hoge.txt")
yomi <- character(length(y))
for(i in 1:length(y)){
yomi[i] <- y[[i]][9]
}
kanji[order(yomi)]
[1] "青" "赤" "黄" "緑" "紫"
file.remove("hoge.txt")
[1] TRUE
//
- おぉ、石田先生、RMeCabを作られたのですか！しばらく隠遁...
- とりあえず動く程度のものを[[ここ:http://cms.ias.tokushi...
**SVR（support vector regression)をipopソルバーで実装する...
>[[tottori]] (2008-10-20 (月) 03:08:30)~
~
SVMの回帰への拡張であるSVRをkernlabパッケージにあるipopソ...
分類（通常のSVM）の場合にはhelp(ipop)の例のように~
~
H <- kernelPol(rbf,x,,y)
c <- matrix(rep(-1,m))
A <- t(y)
b <- 0
l <- matrix(rep(0,m))
u <- matrix(rep(C,m))
r <- 0
~
と指定することで動きますが、回帰の場合にはどのように指定...
~
kenlabに関する文献「kernlab – An S4 Package for Ker...
~
アドバイスを頂きたいです。~
よろしくお願いします。~
//
- ksvm関数の説明のページにregressionのサンプルがあるのだ...
## regression
# create data
x <- seq(-20,20,0.1)
y <- sin(x)/x + rnorm(401,sd=0.03)
# train support vector machine
regm <- ksvm(x,y,epsilon=0.01,kpar=list(sigma=16),cross=3)
plot(x,y,type="l")
lines(x,predict(regm,x),col="red")
//
- お返事ありがとうございます。
ただ、定式化の部分をいじりたいと考えているので（例えばサ...
**flicker雑音 [#m757fd0b]
>[[kd]] (2008-10-16 (木) 10:23:37)~
~
flicker雑音をRで生成する良い方法はあるでしょうか？ （そ...
//
**C言語のプログラムの中身 [#t9520dc6]
>[[C言語のプログラムの中身]] (2008-10-15 (水) 15:44:22)~
~
isoMDSという関数を改良したくて，中身を見たのですが，その...
~
~
~
on.exit(.C(VR_mds_unload))
.C(VR_mds_init_data, as.integer(nd), as.integer(k), as...
as.integer(ord - 1), as.integer(order(ord) - 1), a...
as.double(p))
tmp <- .C(VR_mds_dovm, val = double(1), as.integer(max...
as.integer(trace), y = as.double(y), as.double(tol))
~
という部分がありました．調べた結果，「.C()」はC言語のプロ...
~
よろしくお願いします．~
//
- [[必要な関数を探す]] gonzui -- &new{2008-10-16 (木) 12...
- この関数はMASSライブラリの関数．MASSライブラリはVRパッ...
- 返信遅れて申し訳ありません。gonzuiさん、ななしさん、助...
**下限値を0に固定してプロット [#s92d5b06]
>[[ぬえ]] (2008-10-12 (日) 07:17:22)~
~
散布図行列を描くときに、軸の下限値を0に固定(上限値は自動...
パラメータごとに値のレンジがかなり違うので、単純にxlim、y...
~
たぶん、xlim=range(x)というような処理がどこかでされてるん...
それをxlim=range(c(0,x))に変えられたらいいんですけど。~
//
- xlim=c(, max(x)) でよいのでは？ -- &new{2008-10-12 (日...
- pairsでプロットしてるときに、x[[1]]とx[[2]]をプロットし...
- max(x［［1］］)=5、max(x［［2］］)=150といったデータな...
- やっぱし、mfrowとかで分割して一つづつ描くしかないんでし...
- pairs.default を使うと言うことでよいかな？関数を読んで...
localPlot(x[, j], x[, i], xlab = "", ylab = "", a...
type = "n", ...)
を
localPlot(x[, j], x[, i], xlab = "", ylab = "", a...
type = "n", xlim=c(0, max(x[,j])), ylim=c(0, ...
に
- ありがとうございます、バッチリです！既存の関数を書き換...
**構文チェックの方法 [#zc3e6f13]
>[[syou6162]] (2008-10-10 (金) 23:21:52)~
~
Rのコマンドラインオプションなどで構文チェックをする方法は...
~
Rubyで言えば~
$ ruby -c hoge.rb~
のようなものを考えています。~
//
- こんなのかなぁ -- [[なかま]] &new{2008-10-11 (土) 23:15...
$ R -q -e 'is.expression(try(parse(file=commandArgs(trai...
- おお。すごい。さすが。お願いすることが出来ればですが，...
- parse()がそもそもそれじゃないの？ -- [[okinawa]] &new{2...
- やはり-cオプションのようなものはないのですね。parseで解...
**データフレームのマッチング [#c84bbf10]
>[[Lee]] (2008-10-09 (木) 05:55:27)~
~
おそらく非常に簡単にできるのではないかとは思うのですが、...
~
下のような2つのデータフレームにおいて、df.A のColumn1の値...
たとえば、df.AのColumn1は日付、Column2はその日に採取した...
~
df_A df_B ~
Column1 Column2 Column1 Column2
Row1 a 5.5 Row1 a 102~
Row2 a 2.6 Row2 b 203~
Row3 a 3.2 Row3 c 302~
Row4 a 5.6 Row4 d 202~
Row5 b NA Row5 e 102~
Row6 b 6.3 Row6 f 301~
Row7 b 10.2 Row7 g 602~
Row8 c 3.9 Row8 h 302~
Row9 c 5 ~
Row10 a 6 ~
Row11 c NA ~
Row12 d 8.2 ~
Row13 d 2.9 ~
Row14 b 3.5 ~
Row15 a 6.2 ~
Row16 d 4.6 ~
以下続く ~
~
新df ~
Column1 Column2
Row1 a 5.5 102~
Row2 a 2.6 102~
Row3 a 3.2 102~
Row4 a 5.6 102~
Row5 b NA 203~
Row6 b 6.3 203~
Row7 b 10.2 203~
Row8 c 3.9 302~
Row9 c 5 302~
Row10 a 6 102~
Row11 c NA 302~
Row12 d 8.2 202~
Row13 d 2.9 202~
Row14 b 3.5 203~
Row15 a 6.2 102~
Row16 d 4.6 202~
以下続く~
//
- すみません、データフレームが見づらいので書き直します。 ...
- すみません、データフレームが見づらいので書き直してみま...
- df.A df.B 新df -- [[Lee]] &new{2008-10-09 (木)...
- この例なら
df.A[[3]] <- df.B[df.A[[1]],2]
で済みますが……。 -- [[中澤]] &new{2008-10-09 (木) 10:41:4...
- 実際のデータはもう少し複雑でしたが、どうやらこれでうま...
**作業スペースの保存 [#m2f5a415]
>[[tt]] (2008-10-08 (水) 16:31:54)~
~
作業スペースの保存を実行すると、~
~
以下にエラー gzfile(file, "wb") : コネクションを開くこと...
追加情報: Warning message:
In gzfile(file, "wb") :~
圧縮されたファイル 'C:\Documents and Settings／…
~
とでできて保存できません。~
どうしたらよいのでしょうか？~
//
- C:\ ？ バックスラッシュを使ってるんですか？バックスラ...
- 解決しました。ありがとうございました。 -- [[tt]] &new{2...
**Rcmd BATCH file.Rでplot表示を残すには? [#t7b90b42]
>[[ISHIMARU]] (2008-10-08 (水) 16:25:40)~
~
R-2.7.2をWindows XPで使用しています。~
たとえば、a.Rというファイルにplot(1:5)と記載して、Rcmd BA...
グラフが表示されず（残らず）、何事もなかったかのように終...
表示を残す方法があるのでしょうか。~
初級Ｑ＆Ａ アーカイブ(4) の「R CMD BATCHの使い方」を参考...
.Rprofileにlibrary(grDevices)と記載もしてみましたがだめで...
よい方法がありましたらご教授ください。~
//
- グラフをファイルに書き出すための方法を取らないとだめで...
- そうでしたか…。ご教授ありがとうございました。 -- [[ISHI...
- それにしても、なぜRCMD BATCHを使おうとしているのか気に...
- Perlスクリプトでfile.Rを吐き出した後、同じスクリプト内...
- ローカルでやられるのなら、RCMD BATCHではなくRterm.exe ...
.Rprofile (Rterm.exe や Rgui.exeとおなじところにおく）
library(graphics)
library(grDevices)
source("c:/a.r")
- いちいち .Rprofile を弄るのも大変ですし。perl 使いじゃ...
BEGIN {
out = "a.R"
print "pdf('a.pdf', width=5, height=4)" > out
print "hist(rnorm(1000))" > out
print "dev.off()" > out
close(out)
system("R --vanilla --slave < a.R")
}
これを，gawk -f a.awk のように呼び出す
- ご教授いただきありがとうございました。.Rprofileを書き換...
**Windows版Rで，UTF-8が文字化けしない？ [#j23cad6b]
>[[林]] (2008-10-07 (火) 14:26:12)~
~
現在TechnoratiのAPIでブログの記事を引っ張ってきて，RMeCab...
RMeCabに通す段階で，不可解な現象に出会い，困惑してしまい...
APIの返り値はUTF-8なのですが，それがなぜかCP932のR上で文...
つまり，~
~
> text1 # APIで取得したテキスト~
[1] "日本語" # 文字化けしない~
> (text2 <- "日本語") # R上で付値~
[1] "日本語" # 当然化けない~
> text1 == text2~
[1] FALSE~
> (iconv(text1, "UTF8", "CP932") == text2 # 明示的に変換~
[1] TRUE~
~
となります。変換せずそのままRMeCabに突っ込んだところ，「...
ということで，この問題自体は解決しているのですが，根本的...
なぜこのようなことが起こるのでしょうか？~
（変な言い方ですが）ちゃんと化けてくれたほうがありがたい...
不明瞭な質問で申し訳ないのですが，よろしくお願いします。~
環境は以下です。そのほか，設定はなにもいじっていません。~
~
> sessionInfo()~
R version 2.7.2 (2008-08-25) ~
i386-pc-mingw32 ~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
attached base packages:~
[1] stats graphics grDevices utils datasets met...
other attached packages:~
[1] RMeCab_0.61 XML_1.96-0 ~
loaded via a namespace (and not attached):~
[1] tools_2.7.2~
//
- 今は, Unicode化に向けての過渡期ですので, そのような事が...
- ありがとうございます。charToRawは知りませんでした。エデ...
- Unicode化に伴う違う部分の不整合です. -- [[なかま]] &new...
- 了解しました，ありがとうございます。 -- [[林]] &new{200...
**正規表現にマッチした部分の取り出し [#m61f5a5a]
>[[うち]] (2008-10-06 (月) 20:55:07)~
~
grep(, value=T)で試してみましたが，マッチした文字列全体が...
> # /に挟まれた数字のみ抜き出したいが...
> grep("(?<=/)\\d*(?=/)", c("2007/1/1","2007/2/2", "2007...
[1] "2007/1/1" "2007/2/2" "2007/12/31"
//
- 私の環境では上のコードはエラーになりました。sub(".*\\/(...
- 私の環境を明記するのを怠ってしまい，失礼しました。OSはW...
> sessionInfo()
R version 2.5.1 (2007-06-27)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.93...
attached base packages:
[1] "stats" "graphics" "grDevices" "utils" "dat...
[7] "base"
akiraさんのご回答をコピペしたら，意図通りの動作をしました...
- \\1でマッチングされた()内のパターンを示すことができるの...
> sub(".*\\/(.*)\\/.*","\\1",c("2007/1/1","2007/2/2", "2...
[1] "1" "2" "12"
> sub(".*/(.*)/.*","\\1",c("2007/1/1","2007/2/2", "2007/...
[1] "1" "2" "12"
-- [[うち]] &new{2008-10-07 (火) 09:11:38};
- 我々年寄りは, sedなりawkなりで正規表現(セパレータが'/')...
- ご回答ありがとうございます。疑問が解けてすっきりしまし...
**xtabで得たテーブルをdataframe化する [#f5827c7b]
>[[ssamu]] (2008-10-06 (月) 05:17:40)~
~
こんにちは、お世話になります。~
今までもっぱら文系の道を歩んできましたが、将来の研究のた...
初歩的な質問で大変恐縮ですが、xtab関数を使用して得た結果...
（もしくは、data.frame形式に変換できないでしょうか？）~
[,2]のように指定して列を切り出したり、という操作。~
~
例えば、LanguageRのパッケージの中にあるwarlpiriというデー...
~
xtabs(~Speaker+CaseMarking, data = CaseMarking)~
TABLE1=xtabs(~Speaker + CaseMarking , data = CaseMarking)~
~
~
~
の様に集計を行ったとして、この「TABLE1」を再利用／加工し...
~
間接的な回答でもご教示いただけると非常にありがたいです。~
//
- table2 <- data.frame(TABLE1) 呈示されたプログラム断片に...
- 変数への挿入は = ではなく <- にすべし。関数の引数の ...
- 「変数への%%挿入%%は = ではなく」→「変数への''代入''は...
- 「table2 <- data.frame(TABLE1)」では、質問者がやりたい...
- TABLE2<-as.data.frame(TABLE1） -- &new{2008-10-06 (月)...
- ＞ 答える前に確認すべし ごもっとも。しかしまあ，何がや...
- 迅速な回答、ありがとうございます！(xtabの構造のため？)...
**同じ内容のデータを複数回とってあり、その回数を変数とし...
>[[やぼてん]] (2008-10-04 (土) 16:19:23)~
~
お世話になります。<R本読むだけ>から、ようやく<Rを使いはじ...
~
個体ごとに、生きている葉の数と死んでいる葉の数が数えあり...
~
32 15 0 12~
32 15 1 7~
33 50 0 8~
33 50 1 18~
というものになります。~
~
分かりたいのは、生きている葉の数、死んでいる葉の数をどの...
~
glm(D_or_A ~ TREAT, binomial, weight=LEAF_NO)~
としてもうまくいきませんでした。~
~
よろしくお願いします。~
//
- データフレームは，一ケース1行で表した方が良いと思う。。...
32 15 12 7
33 50 8 18
- この分析がどういうことをやろうとしているのかちょっとわ...
> xy <- data.frame(NO=32, TREAT=15, D_or_A=0, LEAF_NO=12)
> xy <- rbind(xy,c(32, 15, 1, 7), c(33, 50, 0, 8), c(33,...
> res_glm <- glm(D_or_A ~ TREAT, binomial, weight=LEAF_N...
> res_glm
Call: glm(formula = D_or_A ~ TREAT, family = binomial, ...
Coefficients:
(Intercept) TREAT
-1.11754 0.03857
Degrees of Freedom: 3 Total (i.e. Null); 2 Residual
Null Deviance: 61.83
Residual Deviance: 57.1 AIC: 61.1
となって、一応エラーは出ずに済んでいるみたいですね．どの...
- アドバイスありがとうございます。 ”Ｒによる医療統計...
- 私は統計学の専門家ではありませんし、医療関連のデータを...
> xy2 <- matrix(as.matrix(xy[1,1:3]),xy[1,4], 3, byrow=T)
> xy2 <- rbind(xy2, matrix(as.matrix(xy[2,1:3]),xy[2,4],...
> xy2 <- rbind(xy2, matrix(as.matrix(xy[3,1:3]),xy[3,4],...
> xy2 <- rbind(xy2, matrix(as.matrix(xy[4,1:3]),xy[4,4],...
> xy2 <- data.frame(xy2)
> colnames(xy2) <- c("NO", "TREAT", "D_or_A")
> res2_glm <- glm(D_or_A ~ TREAT, binomial, data=xy2)
> res2_glm
Call: glm(formula = D_or_A ~ TREAT, family = binomial, ...
Coefficients:
(Intercept) TREAT
-1.11754 0.03857
Degrees of Freedom: 44 Total (i.e. Null); 43 Residual
Null Deviance: 61.83
Residual Deviance: 57.1 AIC: 61.1
結果は、自由度の行以外まったく同じでした．これを見る限り...
> xy3 <- data.frame(NO=32, TREAT=15, D_or_A=7/19, LEAF_N...
> xy3 <- rbind(xy3, c(33, 50, 18/26, 26))
> res3_glm <- glm(D_or_A ~ TREAT, binomial, weights=LEAF...
> res3_glm
Call: glm(formula = D_or_A ~ TREAT, family = binomial, ...
Coefficients:
(Intercept) TREAT
-1.11754 0.03857
Degrees of Freedom: 1 Total (i.e. Null); 0 Residual
Null Deviance: 4.722
Residual Deviance: -2.761e-30 AIC: 10.93
だと、自由度は１と（AICとかは違いますが）・・・自由度の考...
- ichigoさん、さっそく展開データ（＝重複をひとつひとつ繰...
- この中を「自由度」で検索してみたら同様の内容が．[[Ｑ＆...
- ichigoさん まさに同じ内容のことが質問されていました。...
- wightsオプションで、自由度が大きくならない理由について...
**因子の置換（追加） [#w3395280]
>[[うち]] (2008-10-03 (金) 19:58:06)~
~
因子を置換（追加）する処理をしたいのですが，下記のような...
> iris2 <- iris
> unique(iris2$Species)
[1] setosa versicolor virginica
Levels: setosa versicolor virginica
>
> #Sepal.Length>7.5以上の種名をhogeに置換
> iris2$Species <- ifelse(iris2$Sepal.Length>7.5, "hoge"...
> class(iris2$Species) #文字列になってしまう
[1] "character"
> iris2$Species <- as.factor(iris2$Species) #後で因子に...
> unique(iris2$Species) #変になってしまう
[1] 1 2 3 hoge
Levels: 1 2 3 hoge
> iris2$Species <- as.character(iris2$Species) #先に文字...
>
> iris2$Species <- ifelse(iris2$Sepal.Length>7.5, "hoge"...
> iris2$Species <- as.factor(iris2$Species)
> unique(iris2$Species) #意図したようになる
[1] setosa versicolor virginica hoge
Levels: hoge setosa versicolor virginica
//
- 後半の方法で動くなら問題ないのでは？これじゃダメなんで...
- atomic type のfactorの使い方の問題です。factor typeは曲...
> str(iris2$Species)
Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1...
このように、characterの後ろにカテゴライズされたnumeric(1 ...
- ご回答ありがとうございます。下記のようにgsub()で置換し...
> iris2$Species <- gsub("versicolor","hoge", iris2$Speci...
> iris2$Species <- as.factor(iris2$Species)
> unique(iris2$Species)
[1] setosa hoge virginica
Levels: hoge setosa virginica
> str(iris2$Species)
Factor w/ 3 levels "hoge","setosa",..: 2 2 2 2 2 2 2 2 ...
-- [[うち]] &new{2008-10-04 (土) 15:09:47};
- その通りです。factor type をas.numeric()で取り出せば、n...
**heatmapのセルの色 [#z0382348]
>[[hm]] (2008-10-01 (水) 14:57:21)~
~
行列xの要素は0と1の2値データです。(i) heatmapにおいてデフ...
set.seed(101)
x = matrix(sample(c(0,1), 100, replace=TRUE),10,10)
heatmap(x)
//
- 色はxの値によって付けているのではなく，デンドログラムの...
- 縦軸の増加方向をどうするかは考えてもらうことにして，以...
set.seed(101)
x <- matrix(sample(c(0, 1), 100, replace=TRUE), 10, 10)
plot(c(1, ncol(x)+1), c(1, nrow(x)+1), type="n", asp=1,
bty="n", axes=FALSE, xlab="", ylab="")
for (i in 1:ncol(x)) for (j in 1:nrow(x))
rect(i, j, i+1, j+1, col=1, density=c(0, 100)[x[j, i]])
#ref(board.png)
- 白黒にしたいだけなら、 image(x, col=c("white","black"))...
- [[heatmap:http://rgonzui.nakama.ne.jp/R/markup/R-2.7.0/...
- アドバイスありがとうございます。heatmap(x, col=c("white...
set.seed(101)
x = matrix(sample(c(0,1),25,replace=TRUE),5,5)
rownames(x) = LETTERS[1:nrow(x)]
heatmap(x, col=c("white","black"))
- よく見よう。heatmap(x, col=c("white","black"))じゃなくi...
heatmap はデンドログラム付なので，行・列が並べ替えられて...
- (1) heatmapにおいてセルの色を白黒にするには、どうすれば...
- 色々注文する前に，? heatmap, ? image をちゃんと読んだか...
- 私自身よくわかっていませんが
heatmap(x, scale="none")
でどうでしょう？白黒にしたいなら
heatmap(x, scale="none", col=c("white","black"))
でしょうか・・・？ -- [[ichigo]] &new{2008-10-02 (木) 10:...
- hmさんのおっしゃる「col=c("white","black")にしても、デ...
> heatmap(rbind(0,x), col=c("white","black"))
> heatmap(rbind(1,x), col=c("white","black"))
のような、同一行がすべて同じ値だった場合と推察．この場合も
scale="none"
をつけると、うまくいく？
heatmap(x)
だけの場合で２色以上使われるのは、行ごとにスケーリングさ...
- ありがとうございます。scale="none"で解決しました。 -- [...
**Meadow+ESSにおける文字化け [#k5d0bbaa]
>[[Kai]] (2008-10-01 (水) 13:51:45)~
~
お世話になります。しょうもない疑問で申し訳ありませんが、...
~
使用環境~
・Windows XP~
・Meadow 3.00~
・ESS-5.3.8~
・R-2.7.1~
において、日本語データを格納したデータをedit()で開くと、...
・Meadow上では、日本語データを文字化けさせないで表示できる~
・edit上で、文字化けした項目を選択すると、正しい日本語が...
・Rだけで同様の処理をすると、edit()上でも文字化けは起って...
~
説明が不明瞭で申し訳ありませんが、Meadow＋ESS+R環境で、ed...
~
文字化けをなくす方法はありませんでしょうか？~
//
- R_HOME/etc/Rconsole(必ずインストールしたシステム設定の...
- ご助言ありがとうございます。試してみます。 -- [[Kai]] &...
**demoおよびpackageのhelpについて [#o22ab7e4]
>[[KW]] (2008-09-30 (火) 10:45:56)~
~
初めまして，初歩的な質問で申し訳ないのですが，demo()やlib...
~
> demo()
Warning message:
In file.show(outFile, delete.file = TRUE, title = paste(...
~
> library(help=stats)
Warning message:
In file.show(outFile, delete.file = TRUE, title = gettex...
~
使用環境は以下の通りです。~
> sessionInfo()
R version 2.7.2 (2008-08-25)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.93...
attached base packages:
[1] stats graphics grDevices utils datasets me...
> .libPaths()
[1] "C:/PROGRA~1/R/R-27~1.2/library"
> .packages(all.available = TRUE)
[1] "base" "boot" "class" "cluster" ...
[9] "grDevices" "grid" "KernSmooth" "lattice" ...
[17] "nnet" "rpart" "spatial" "splines" ...
[25] "tools" "utils" ~
通常のhelpメニューは表示されます。またパッケージも普通に...
//
- 再インストールしたほうがいいかも。 -- [[okinawa]] &new{...
- ありがとうございます。再インストールしたのですが，状況...
- 私の環境winxpsp2,R2.7.2では再現しません。OS周りの障害っ...
- どうもすみません，自己解決しました。OSはWinXPです。Cド...
- ああ、そこでしたか。windowsのRの鬼門ですね。 -- [[okina...
**version 2.7.2 日本語版ではなく英語版で使いたい [#v998f6...
>[[Rei]] (2008-09-28 (日) 20:05:42)~
~
お世話になります。~
最新バージョン 2.7.2 をインストールしたところ、以前のバ...
(1) 使用環境: Windows Vista~
(2) 使用PC: 日本語PC~
(3) インストールに使用する言語を英語にしたが同様であった。~
(4) ミラーサイトをUSAでダウンロードしたが同様であった。~
//
- 日本語化掲示板『[[日本語メニューと英語メニューの一発変...
- GUI preferencesのLanguage for menu *** の中にUSと入れて...
- なんと・・・！どうもありがとうございました。 -- [[Rei]]...
**分散の期待値を求めたい [#n6dfd744]
>[[お団子]] (2008-09-25 (木) 08:05:39)~
~
Saitoさんごめんなさい間違った場所に投稿しました。再投稿し...
~
SASでは、次のようにプログラムすると、下記のような~
分散の期待値が求められますが、これをRで実行する方~
法（関数）はあるのでしょうか？~
~
model Data = R A R(A) B A*B R(A B) / ss2 e2;~
random R R(A) R(A B);~
~
変動因 Type II 期待平均平方~
R Var(Error) + Var(R(A*B)) + 2.8182...
A Var(Error) + Var(R(A*B)) + 2.8765...
R(A) Var(Error) + Var(R(A*B)) + 2.7273...
B Var(Error) + Var(R(A*B)) + Q(B,A*...
A*B Var(Error) + Var(R(A*B)) + Q(A*B)~
R(A*B) Var(Error) + Var(R(A*B))~
//
**image()でカラーバー（凡例？）を表示したい [#h6d81d3b]
>[[想]] (2008-09-23 (火) 15:52:51)~
~
場所を間違えて質問してしまったようでご迷惑をお掛けいたし...
以下原文ですが、宜しくお願いいたします。~
~
「contour()ではカラーバーが自動的に右側に描写されますが~
これをimageの方で表示することは出来ないのでしょうか？~
helpを読んでもそのような記述は見当たらず・・・質問させて...
~
wiki内でimageやカラーバーといった単語検索を試しましたが見...
//
- もっと詳しく書かないと回答のしようがない -- &new{2008-...
- 通常三次元データをimage()で描写しますとhttp://cse.naro....
- filled.contour()ですとhttp://www.okada.jp.org/RWiki/?pl...
- filled.contour() を使えばいいのでは？と言われたら，どう...
さらに，先読みして答えれば，filled.counter のソースを呼ん...
- コメントありがとうございます。filled.contour()は等高線...
- example() では再現できないのでしょうかね？ちゃんと再現...
「filled.contour()は等高線描写なせいか隣の点との境界がに...
- 直接描く方法ならこんな感じでしょうか？ -- [[ichigo]] &n...
NN <- 100
x <- 10*(1:nrow(volcano))
y <- 10*(1:ncol(volcano))
image(x, y, volcano, col = terrain.colors(NN), axes = FA...
cols <- terrain.colors(NN)
for( ii in 1:NN ){
rect(par()$usr[1]+(par()$usr[2]-par()$usr[1])/NN*(ii...
par()$usr[1]+(par()$usr[2]-par()$usr[1])/NN*ii, ...
col=cols[ii] , border=NA)
}
rect(par()$usr[1], par()$usr[3], par()$usr[2]-1, par()$u...
- お二方ありがとうございます。 -- [[想]] &new{2008-09-24 ...
- > z<-matrix(1:9,nrow=3,ncol=3)> image(1:3,1:3,z)> fille...
- 指摘していただきましたソースを読んでのimage()改造ですが...
- Rもwikiも不慣れな私に丁寧にアドバイスしていただいて、本...
- imageを改造するより、filled.contourを改造したほうが早い...
- .Internal(filledcontour(as.double(x), as.double(y), z, ...
- 追加アドバイスありがとうございます。書き換えた内容で新...
**dev.off()等の出力をコントロールするには？ [#ne25e9ad]
>[[ichigo]] (2008-09-19 (金) 17:04:34)~
~
たとえば~
>postscript()
>plot(1:10)
>dev.off()
とすると~
postscript
2
と、デフォルトで表示されると思うのですが、これを出さない...
いろいろ試したり、検索したりしたのですがわからなくて困っ...
-options()には、これ関連のオプションはなさそう~
-Rを起動するときの「--slave」オプションでも抑制できない．
-(dev.off())とかやっても、出力されてしまう（当然ですか（...
~
環境は
R version 2.4.1 (2006-12-18)~
i686-pc-linux-gnu~
です．よろしくお願いします．
//
- 汚いけど、sink()でファイルに吐き出せば？ -- &new{2008-...
- invisible() -- &new{2008-09-19 (金) 17:38:23};
- junk <- dev.off() でも（所詮ゴミなんだから） -- &new{2...
- みなさま（それともおひとり・・・？）ありがとうございま...
--「junk <- dev.off()」でも、出来たんですね・・・まさか戻...
--sinkはsink("/dev/null")でいけそうです．
--invisible()というのは初めて知りました．勉強になりました...
**data.frameの列数 [#lbdbcca9]
>[[kd]] (2008-09-18 (木) 23:23:37)~
~
data.frameに関するエラーメッセージ（下記例，R 2.7.2）なの...
> test<-data.frame(c(1:2),c(1:3))
以下にエラー data.frame(c(1:2), c(1:3)) :
引数は異なった列数を意味します: 2, 3
//
- 思い切り古い R-1.5.1 でやってみると，Error in data.fram...
手元に用意している一番古い R-0.49 だと，Error in data.fra...
で，だいぶ違ってたのねぇ。 -- &new{2008-09-19 (金) 00:06...
**ある範囲に含まれる生物の数をカウントするには [#m77571f6]
>[[Saito]] (2008-09-17 (水) 22:50:20)~
~
いつもお世話になっています。~
似たような質問がないか探しましたが、見つけられなかったの...
~
ある調査区域を調査して、区画ごとにそこにいた生物の個体数...
lon=runif(20,131,132)
lat=runif(20,46,49)
ss=rpois(20,5)
d=data.frame(lon,lat,ss)
with(d,
{
plot(lon, lat, col=as.factor(ss),
xaxp=c(131,132,10), ylim = c(46, 49), panel.fi...
)
}
)
ここで質問なのですが、それぞれの区画での合計発見数(ssの値...
環境はWindowsXp, R-2.7.2です。~
~
どうかよろしくお願いします。~
//
- え〜〜。なにがやりたいのかなあ。前半については，lonとla...
lon2 <- floor(lon/0.1)*0.1
lat2 <- floor(lat/0.1)*0.1
table(lon2, lat2) # programmed by 一言居士
後半は，
lon3 <- rep(lon2, ss)
lat3 <- rep(lat2, ss)
table(lon3, lat3) # programmed by 一言居士
かな，ちょっと手抜きだけど。~
0.1 は要するに，区間幅ね。好きな幅にして。「*0.1」 はあっ...
- 回答ありがとうございます。クロス集計という単語はあまり...
- table(cut(lat, seq(46,49,.5)),cut(lon, seq(131,132,.2))...
- 後半は，table(rep(cut(lat, seq(46,49,.5)),ss),rep(cut(l...
- すごい！納得致しました。latやlonの箇所をss分だけ繰り返...
- 後半は，rep は使わないでよい。以下のように xtabs を使っ...
xtabs(ss~cut(lat, seq(46,49,.5))+cut(lon, seq(131,132,.2...
とすべきだった。cut の結果を2回使うので，変数として取って...
lat4 <- cut(lat, seq(46,49,.5))
lon4 <- cut(lon, seq(131,132,.2))
table(lat4, lon4) # xtabs(~lat4+lon4) と同じ
xtabs(ss~lat4+lon4)
蛇足ながら -- 一言居士 &new{2008-09-18 (木) 07:24:54};
- おお、すごいシンプルに！また勉強させていただきました。...
- すみません。追加で質問させてください。上記のプログラム...
lon=runif(20,131,132)
lat=runif(20,46,49)
ss=rpois(20,5)
lat4 <- cut(lat, seq(46,49,.5))
lon4 <- cut(lon, seq(131,132,.2))
a3=xtabs(ss~lat4+lon4)
a33=as.data.frame(a3)
s<-rep(seq(46,48.5,.5),length(seq(131,131.8,.2)))
s2<-s+0.5
r<-rep(seq(131,131.8,.2),each=length(seq(46,48.5,.5)))
r2<-r+0.2
mean.lat<-(s+s2)/2
mean.lon<-(r+r2)/2
d3<-data.frame(a33$lat4,a33$lon4,mean.lat,mean.lon,a33$F...
d3
ただ、どうにも手動の部分が多く(s,rを作成するあたり)データ...
よろしくお願いします。 -- [[Saito]] &new{2008-10-09 (木) ...
**Windows版 R-2.7.1 で日本語ファイルパスはダメですか？ [#...
>[[米]] (2008-09-17 (水) 17:50:44)~
~
メニュバーから File | Source R code... を選択し，日本語を...
~
Error in file(file, "r", encoding = encoding) : ~
cannot open the connection
In addition: Warning message:~
In file(file, "r", encoding = encoding) : cannot open fil...
~
OSはWindowsXP，Rのバージョン2.7.1です．ちなみに，R-2.4.1...
//
- はい, 日本語パスは問題があるので, asciiのpath配下に変更...
- 了解しました．ありがとうございます． -- [[米]] &new{200...
**ロジスティック回帰分析におけるsommersDの求め方 [#z8b7f9...
>[[basel]] (2008-09-17 (水) 12:16:01)~
~
ans<-glm(y~x,family=binomial(link="logit"),data=ds)~
でロジスティック回帰分析を行った後に、「SommersD」を求め...
//
- ソマーズのDは，属性相関係数の一つだと言うことはおわかり...
- この場合、y,xの相関です。 -- [[basel]] &new{2008-09-17 ...
- [[必要な関数を探す]]の「検索サイトで探す」のR site sera...
**コンジョイント分析 [#iceabe44]
>[[マーケター]] (2008-09-16 (火) 17:18:27)~
~
コンジョイント分析のできるパッケージはないでしょうか~
//
- コンジョイント分析といっても，程度も範囲も広いようです...
非常に限定的で単純なものは，lm（重回帰分析）でやれるよう...
- 直交表を生成してくれる関数がＲにあれば、lm（重回帰分析...
- 任意の直交表を生成するのもいいけど，既存の直交表で対応...
任意の直交表を作るのも，そんなに大変なことではないけど（...
それと，lm を使う解法って，近似解というか特殊な場合につい...
以下のプログラムは，L8 直交表を探索します。無駄は多いが。
z <- x <- rep(1:2, each=4)
m = 1
for (i in 1:90000) {
y <- sample(x)
if (cor(x, y) == 0 && y[1] == 1) {
tmp <- cbind(z, y)
if (sum(abs(cor(tmp)-diag(m+1)))==0) {
z <- tmp
m <- m+1
print(m)
}
}
} # programmed by 一言居士
> z
z y y y y y y
[1,] 1 1 1 1 1 1 1
[2,] 1 2 1 1 2 2 2
[3,] 1 1 2 2 2 1 2
[4,] 1 2 2 2 1 2 1
[5,] 2 2 1 2 2 1 1
[6,] 2 2 2 1 1 1 2
[7,] 2 1 1 2 1 2 2
[8,] 2 1 2 1 2 2 1
> cor(z)
z y y y y y y
z 1 0 0 0 0 0 0
y 0 1 0 0 0 0 0
y 0 0 1 0 0 0 0
y 0 0 0 1 0 0 0
y 0 0 0 0 1 0 0
y 0 0 0 0 0 1 0
y 0 0 0 0 0 0 1
そのほかの直交表も，rep(1:2, each=4) のところを変えればで...
- す、すごい！ 有難うございました -- [[マーケター]] &new...
**変動パターンが似ているもの同士をクラスタリングすること...
>[[R初心者]] (2008-09-15 (月) 16:38:52)~
~
複数の遺伝子の発現を数時間毎に測定し、それをデータとして...
その際に、1,2,3...と2,3,4...といったような、生じる値は異...
//
- 「数字の変動の傾向」が変量になると思いますので、それを...
**連続して計算された値を順に書き出したい [#ac09a7b0]
>[[Saito]] (2008-09-11 (木) 20:34:09)~
~
いつもお世話になっています。~
既出でしたら申し訳ありません。似たような例を探したのです...
> r=0
> t=0
> for(i in 1:99){
> ifelse(sample(0:1,1)==0,r<-r+1,t<-t+1)
> }
> c1=data.frame(r,t)
>
> r=0
> t=0
> for(i in 1:100){
> ifelse(sample(0:1,1)==0,r<-r+1,t<-t+1)
> }
> c2=data.frame(r,t)
> c3=merge(c1,c2,all=T)
> c3
> r t
> 1 45 54
> 2 48 52
となります。ここでは99と100というたった2つの場合ですが、...
なお、OSはWindowsXp、Rのバージョンは2.7.2です。~
//
- すみません、題名がよくないのですね。forにこだわっている...
- やりたいことは分かりましたが，それを for を使ってやる方...
func は，0/1 乱数を n 個発生させて，0，1 の個数を数えそれ...
sapply は，func を使って何回か実験をする。毎回何個の0/1乱...
しかし，全体としては，何だかなあと言うできばえのプログラ...
> func <- function(n) { # 実験の記述
+ x <- sample(0:1, n, replace=TRUE)
+ t <- sum(x)
+ r <- n-t
+ return(c(r=r, t=t))
+ } # programmed by 一言居士
> sapply(sample(50:100, 5, replace=TRUE), func) # 5 回実...
[,1] [,2] [,3] [,4] [,5]
r 48 32 39 35 26
t 49 31 39 25 33
- 本当に，あなたが書いたように 0/1 データの 0 と 1 を数...
- sapplyは全く使いこなせていませんでした。なるほど、こう...
s=sapply(sample(1:100, 5000, replace=TRUE), func)
t=t(s)
plot(t)
という図を作りたかったのです。といいますのも、論文である...
**plot図の保存方法について [#mef54719]
>[[basel]] (2008-09-11 (木) 19:36:05)~
~
たとえばboxplotを作図してjpegで保存したい場合、~
bp<-boxplot(a~b)~
save(bp,file="bp.jpeg")~
ではだめだったのですが、何が原因なんでしょうか？~
//
- うまくいかないのは，そういう方法で保存するのではないた...
- [[R-Tipsの「47. 作図の準備」:http://cse.naro.affrc.go.j...
**clip()の動作がよく分かりません。 [#uec785c7]
>[[hanageishi]] (2008-09-09 (火) 12:02:03)~
~
clip()が期待通りに動作してくれません。~
使用環境は WindowsXP, R version 2.7.1 (2008-06-23)です。~
~
以下のようにすれば、par()$usrはc(0.96,2.04,2.96,4.04)です...
> windows()
> plot(1:2,3:4)
> clip(0.9,2,3,4)
> points(0.96,3.4)
ところがなぜか、そのあともう一度clip()を呼び出すと、今度...
> clip(0.9,2,3,4)
> points(0.96,3.2)
ただclip()を二回立て続けに呼び出しただけではだめなようで...
//
- How the clipping rectangle is set depends on the settin...
- どのような動作を期待しているのかよくわからないが，par(x...
- なるほど、clip()と同時にpar(xpd=TRUE)をしておけば、求め...
- っていうか，clip() いらないんじゃ？ -- 一言居士 &new{20...
- や、プロットが左にはみ出してもいいけど下にはみ出しても...
- わたしは, clipを使った事が無いので見てみました.(嗚呼ぁ....
- 嗚呼ぁ、やはり嗚呼ぁなのですね...。gridとはgrid graphic...
**quantileの逆引きが出来ますか？ [#vdd90f19]
>[[maruru]] (2008-09-03 (水) 03:19:25)~
~
正規分布で平均値、標準偏差、0.025、0.975、サンプル数が既...
//
- [quantleを推定]とは，どういうこと？何を求めるの？ -- 一...
- 25%分位点、75%分位点を求められないかと思いました。サン...
- サンプル数が未知であっても，母分布の母平均・母標準偏差...
[quantileの逆引き]なんて言うから話が通じない。。。。~
具体的には，平均値が50，標準偏差が10（いわゆる，偏差値で...
答え，
> qnorm(0.75, mean=50, sd=10) # programmed by 一言居士
[1] 56.7449
上から2.5%目のものの得点はいくつか。
> qnorm(0.975, mean=50, sd=10) # programmed by 一言居士
[1] 69.59964
それが，なにか？ -- 一言居士 &new{2008-09-03 (水) 21:10:5...
- 早速のご教示、ありがとうございます。如何質問すればいい...
**X11 module cannot be loaded？ [#x3a8b53d]
>[[lis-kyoto]] (2008-09-02 (火) 17:16:15)~
~
SUSEのunixにRをyast2からインストールしまして、~
確率分布を描くプログラムを実行させようとしましたところ、~
~
Error in X11(): X11 module cannot be loaded~
In addition: Warning messeage:~
In X11(): unable to load shared library '/R/modules//R_X1...
/usr/lib/R/modules//RR_X11.so: undefined symbol: cairo...
~
というエラーでできませんでした。（WindowsでRをインストー...
もともと、SUSEにインストールの時にも、cairoがないとか言わ...
X11も、cairoもunixにはちゃんと入っていたので無視してイン...
なにかpathが通っていないのか、Rの問題なのか、調べてみたの...
//
- cairoのバージョンがビルド時と違うのでしょう, "~/.Rprofi...
setHook(packageEvent("grDevices", "onLoad"),
function(...)
grDevices::X11.options(type="Xlib"))
などと買いて, cairoを無効にしてみて下さい. -- [[なかま]] ...
- どうもありがとうございます。やってみます！/R/bin/Rprof*...
- ?.Rprofileとしてヘルプを見てください. あなたが言ってる...
- あああああ, そかそか, 前にも同じような質問が... えっと,...
- なかまさま。どうもありがとうございました。結局、cairoの...
**Rパッケージインストーラの一覧の二重表示 [#rbcf27db]
>[[伊太利屋次郎]] (2008-09-01 (月) 12:44:11)~
~
OSX 10.5.4でR 2.7.2を使用しています。実害はない（？）と思...
どうなっているのでしょうか？~
//
- ちょっとみただけですが，私の環境ではそのようなことはな...
- リポジトリーにあるバージョン（すべて）です。CRANミラー...
- おかしいですね？うちではこうなっていますけど。 -- &new...
#ref(package.png)
- はい，おかしいいです？！ 自分はこうなっています。 -- [...
#ref(double_pkg_instlr.jpg)
- AppCleanerを使って/Application/R.app, ~/Library/Prefere...
**2次元の散布図で、ラベルが他のラベルやマークと重ならない...
>[[Koichi]] (2008-09-01 (月) 01:44:08)~
~
お世話になります。2次元の散布図を作成しようとして、表題の...
ています。~
~
hoge <- matrix(
c(
1, 1, "label1",
1, 0.99, "label2",
1, -1, "label3(this is long)",
-1, 1, "label4(long again)"
), ncol=3, nrow=4, byrow=TRUE
)
plot(hoge)
text(hoge, hoge[,3], pos=1)
~
このようにラベルをそのままプロットすると、ラベル同士が重...
ルの一部がプロットエリアの外に出てしまったり（表示されな...
す。~
~
目標は、上のhogeのようなデータを元に、以下のようなプロッ...
生成することです。~
~
fuga <- matrix(
c(
0.85, 1,
0.95, 0.9,
0.75, -0.9,
-0.7, 1
), ncol=2, nrow=4, byrow=TRUE
)
plot(hoge)
text(fuga, hoge[,3])
~
このように自動的にラベル位置を調節してくれるような関数は...
うか？ identify関数が、これに近いこと（なるべく空いたスペ...
表示）をやってくれるようなのですが、点を1つずつクリックし...
のは少し厳しいものがあります。お知恵をかしていただけまし...
//
- 誰も反応しないので、 -- [[谷村]] &new{2008-09-09 (火) 1...
library(maptools)
pointLabel(x=as.numeric(hoge[,1]),y=as.numeric(hoge[,2])...
地図のラベルではよくある問題です
- まさしくこういうものを探し求めておりました。感動しまし...
**csvデータを読み込み時系列の棒グラフを作成したい [#b7a7c...
>[[マーサ]] (2008-08-31 (日) 14:19:21)~
~
始めまして！マーサと申します。~
Rは2日目の初心者です、Rの解説本を読みながら手探りで勉強を...
下記にcsvデータと試したコマンドを記述してみます。~
このcsvデータ（データ数は710個）から時系列の棒グラフを作...
日付 天山高~
2001/10/2 2~
2001/10/3 61~
2001/10/4 4~
2001/10/5 ~
2001/10/6 3~
2001/10/7 2~
2001/10/8 ~
2001/10/9 2~
~
入力したコマンド~
x <- read.csv("C:/R-sample/IJT.csv")) ~
~
barplot(x) # 以下にエラー barplot.default(x~
# 'height' はベクトルか行列でなければなり...
以上です、またこのデータは項目が1個ですが、元データは日付...
日付 天山高 天山低 天山微 天山その他 眼鏡岩高 眼鏡...
2001/10/2 2 6 2 11 6 ~
2001/10/3 6 1 7 1 145 8 1 16 1 ~
2001/10/4 42 2 2 2 3 ~
2001/10/5 3 3 3 3 1 ~
2001/10/6 3 4 3 4 1 ~
2001/10/7 2 1 2 1 1 1 ~
2001/10/8 1 1 ~
2001/10/9 2 1 2 3 2 2~
//
- 時系列データは折れ線グラフで描く方がよいと思いますね。~
それはさておき，まず，データがちゃんと読めているか確認し...
データの引用法について調べてくださいね。バープロットで描...
barplot(x[,2], names.arg=x[,1]) # programmed by 一言居士
画面を区切って複数のグラフを描く方法は，layout を調べまし...
- ご教示ありがとうございました、棒グラフ出来ました、この...
**stepwise法におけるupper,lowerの設定 [#b1b8da70]
>[[basel]] (2008-08-28 (木) 15:50:56)~
~
ans<-step(glm(y~x,data=df)~
とステップワイズ法を実行するとき、上・下限値の設定の仕方...
sasでいうところのslentry,slstayをどのようにコメントすれば...
//
- ? step として，ヘルプを読むと，そういう機能を指定する引...
- helpでscopeというところにそれらしいことが書いてあったよ...
- それは違う -- 一言居士 &new{2008-08-28 (木) 18:49:48};
**日本語を含むEPSファイルをGhostscript7.07で表示できない ...
>[[Koichi]] (2008-08-22 (金) 01:09:40)~
~
Windows XPでR 2.6.2を使用しております。以下のようにしてR...
出力したEPSファイルが、Ghostscript7.07で表示できず（TeX文...
に貼り付けることができず）困っております。~
plot(0,main="ほげ")
dev.copy2eps(file="c:\\hoge.eps", family="Japan1Ryumin")
Ghostscript 8.63では表示できるのですが、できればまだ8.xx...
移行したくありません。7.07の設定が悪いのかと思って、試行...
しているのですが、なかなか上手く行きません。現在のCIDFnma...
中身は以下のようになっています。~
/Ryumin-Light /MS-Mincho ;
/GothicBBB-Medium /MS-Gothic ;
/HeiseiMin-W3 /Ryumin-Light ;
/HeiseiKakuGo-W5 /GothicBBB-Medium ;
/MS-Mincho (msmincho.ttc) 1 ;
/MS-Gothic (msgothic.ttc) 1 ;
~
GS7.07の設定のヒント、あるいは、「うちではGS7.07でも~
ちゃんと見えているよ」といった情報等、教えていただけ~
ましたら幸いです。~
~
なお、GS7.07のエラーは以下のようなものがでています。~
Error: /undefinedresource in --findresource--
Operand stack:
Ryumin-Light-Bold basefont-H .basefont-H Identi...
--nostringval-- CMap Identity-H CMap Identity-H
Execution stack:（後略）
//
- PostScript以外をお使い頂くか, gsをバージョンアップする...
- ご返信ありがとうございます。その後もう少し試行錯誤して...
**ロジスティック回帰におけるステップワイズ法 [#y4e22a67]
>[[basel]] (2008-08-20 (水) 17:46:59)~
~
glmのリンク関数"logit"で変数選択する場合、ステップワイズ...
ans<-glm(y~x1+x2...xn,family=binomial(link="logit"),data=...
この例でいうとどのようにすればよいのでしょうか？~
//
- step(ans) とするだけ。。。 -- &new{2008-08-20 (水) 21:...
- ありがとうございました。m(_ _)m -- [[basel]] &new{2008-...
**ベクトルの要素を並べ替えたものをすべて書き出したい [#ka...
>[[初心者]] (2008-08-19 (火) 11:04:26)~
~
おそれいります。~
~
あるベクトル~
x <- c(rep(1,19),rep(0,6))~
から、すべての要素を並べ替えたリストを作成したいのです。~
~
どうすればよろしいでしょうか。~
よろしくおねがいいたします。~
//
- つまり、考えうるすべての組み合わせ（＝25C6)のリストとい...
- 25C6ならcombinationsです。
a <- c("a","b","c")
apply(combinations(length(a),2),1,function(x,y) y[x], a)
ということですか？ -- [[akira]] &new{2008-08-19 (火) 11:4...
- 素早いご返事ありがとうございます。しかし、combinations ...
- 自己解決しそうです。gtoolsパッケージをインストールして...
- combn(25,6, function(x) {y <- numeric(25); y[x] <- 1; r...
- ありがとうございました。助かりました。combnでこんな使い...
**標準入力を行う関数 [#r2bdfcd0]
>[[one]] (2008-08-14 (木) 22:34:42)~
~
お世話になります。~
print()でYesかNoの入力をユーザーに促し、switch()で処理を...
C言語ならscanf()で標準入力ができますが、Rでそれに相当する...
~
環境はWindows R 2.7.1です。~
//
- ある。readline とか，readLinesとか？すきなものをどうぞ...
- ありがとうございます。「標準入力」で検索しても見つから...
**経験分布のP値 [#hd795c2a]
>[[sh]] (2008-08-14 (木) 03:17:04)~
~
観測データ全体のうち、興味ある値以下のものの「比率」を求...
set.seed(1)
x <- sort(rnorm(200))
ecdf.x <- ecdf(x)
ecdf.x(0.23)
としますが、より正確な「確率値（P-value）」を求めるにはど...
References: (1) [[階段関数、経験分布関数 - RjpWiki:http:/...
//
- どういう意味で「より正確な」というのでしょ？最尤推定値...
それと，あなたが求めたいといっているのは，P-value じゃな...
あなたがやりたいこと，やろうとしていることをもう少し，正...
- コメントありがとうございます。正確に述べず、大変失礼し...
set.seed(1)
x <- rnorm(130)
y <- rnorm(80)
(p.val <- 1 - ecdf(y)(x))
Reference: [[R help archive: Re: [R] Rank-based p-value o...
- 先に示した mean(x<0.23)を吟味していないね。今回のだって...
ecdf が何をするものなのかわかりますか？plot(ecdf(y)) とや...
- その質問の大元を見なかったんですか？http://tolstoy.newc...
なお，質問者が p-value という用語を使っているのは，まさに...
- Referenceの質問者は計算時間を縮小する方法を質問していま...
- 最尤推定値を求めて、正確なP-valueを求める方法がわかりま...
- 母分布が正規分布のとき，0.23より小さいものの確率（母比...
母比率は，
> pnorm(0.23)
[1] 0.5909541
ですが，標本の大きさを200，2000，20000，200000，2000000，...
> sapply(200*10^(0:5), function(n) {set.seed(1); x <- so...
mean(density(x)$x<0.23)}) # programmed by 一言居士
[1] 0.5214844 0.4941406 0.5527344 0.5371094 0.5234375 0....
ということになり，母比率とはずいぶん異なるようです。~
標本の大きさを200に固定して20回やってみると，
> sapply(1:20, function(n) {x <- sort(rnorm(200)); mean(...
[1] 0.4941406 0.5449219 0.5664062 0.5000000 0.5468750 0...
[8] 0.5761719 0.5156250 0.5136719 0.5273438 0.5175781 0...
[15] 0.5566406 0.5507812 0.5625000 0.5234375 0.5488281 0...
いつも，あんまり良い推定値ではないですね。 -- 一言居士 &n...
- アドバイスありがとうございます。mean(density(x)$x<0.23)...
> pnorm(0.23)
[1] 0.5909541
> summary(sapply(1:100, function(n) {x <- sort(rnorm(200...
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.4395 0.5059 0.5215 0.5283 0.5439 0.6465
> summary(sapply(1:100, function(n) {x <- sort(rnorm(200...
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.5050 0.5750 0.5950 0.5964 0.6162 0.6800
**特定の係数値だけを取り出したい [#c48c72a3]
>[[Saito]] (2008-08-12 (火) 17:02:22)~
~
似たような質問がないか探しましたが、見当たらなかったので...
set.seed(1)
a=rnorm(10,0,1)
b=rnorm(10,2,3)
c=lm(b~a)
coef(c)#aの係数だけを取り出したいとする。
coef(c)[2]#手動でaの係数の番号を指定して抽出
この場合ですと[2]という指定を手動で行っています。しかしこ...
//
- 要するに，foo という変数に対する係数を取り出したいと言...
- 回答ありがとうございます。明記されていたのですか。私の...
**ubuntuでのグラフィックデバイスの利用 [#jb682ace]
>[[myuhe]] (2008-08-04 (月) 19:32:30)~
~
ubuntuでrjpwiki内の次のページ(http://www.okada.jp.org/RWi...
インストール後、Rの起動はできたのですが、plot()などでグラ...
"以下にエラー plot.new() : 存在しないデバイスにプロッ...
linuxに関しては、最近使い始めたばかりで、もしかするとOSに...
解決法について、ご存知の方いらしたら、ご教示ください。~
なお、環境は以下のとおりです。~
os:ubuntu8.04 ※winXPとのデュアルブート~
Rver2.7.1~
（追記）sessioninfo()の出力結果を載せておりませんでしたの...
attached base packages:~
[1] stats graphics grDevices utils datasets me...
- すみません。自己解決しました。plot.new()で呼び出してお...
- 私は似たような環境（os:ubuntu7.10 ※winXPSP2とのデュアル...
> sessionInfo()
R version 2.6.1 (2007-11-26)
i486-pc-linux-gnu
locale:
LC_CTYPE=ja_JP.UTF-8;
LC_NUMERIC=C;
LC_TIME=ja_JP.UTF-8;
LC_COLLATE=ja_JP.UTF-8;
LC_MONETARY=ja_JP.UTF-8;
LC_MESSAGES=ja_JP.UTF-8;
LC_PAPER=ja_JP.UTF-8;
LC_NAME=C;LC_ADDRESS=C;
LC_TELEPHONE=C;
LC_MEASUREMENT=ja_JP.UTF-8;
LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets me...
loaded via a namespace (and not attached):
[1] rcompgen_0.1-17
家のPCが8.04&R2.7.1だった（でもdual bootでない）と思いま...
- 私の環境では問題ないです。
> sessionInfo()
R version 2.7.1 (2008-06-23)
i486-pc-linux-gnu
locale:
LC_CTYPE=ja_JP.UTF-8;
LC_NUMERIC=C;
LC_TIME=ja_JP.UTF-8;
LC_COLLATE=ja_JP.UTF-8;
LC_MONETARY=C;
LC_MESSAGES=ja_JP.UTF-8;
LC_PAPER=ja_JP.UTF-8;
LC_NAME=C;
LC_ADDRESS=C;
LC_TELEPHONE=C;
LC_MEASUREMENT=ja_JP.UTF-8;
LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets me...
ubuntu8.10です。 -- [[akira]] &new{2008-08-05 (火) 00:35:...
- 有用な情報ありがとうございます。う〜ん、なぜすんなりい...
- 他のデバイス（pdfとか、bmpとか）もダメですか?もしかして...
**WIN版Rで、RCMD BATCHのoutfileの文字コード変更 [#n0147990]
>[[okinawa]] (2008-08-01 (金) 13:28:17)~
~
いつもお世話になってます。okianwaです。~
windowsXPSP2、R2.5.1でRCMD BATCH infile.r outfile.txtを...
なにか良い方法はありませんでしょうか？よろしくお願いいた...
//
--- encodingはstdinの指示だけです. sink(...,encoding="UTF...
- やはりstdinだけでしたか・・・。なぜUTF-8で出したいかと...
- 設計に無理があると思いますが.... -- [[なかま]] &new{200...
**グラフの背景色の設定について [#z188689a]
>[[99]] (2008-08-01 (金) 06:45:49)~
~
グラフ作成時にグラフの背景色を好きな色に塗りつぶすにはど...
//
- ?windowsとかした? -- [[akira]] &new{2008-08-01 (金) 09:...
- windows?といいますと??? -- [[99]] &new{2008-08-01 (金) ...
- 貴方の動作環境がMacOSXならば，?windowsは機能しないでし...
- 各デバイスの作成時に決まりますので, plot.newでsetHookさ...
- ありがとうございます。できました。御迷惑お掛けしました...
**read.tableでの不具合 [#tdcc921c]
>[[basel]] (2008-07-31 (木) 12:53:10)~
~
csvファイルをread.tableで読み込んだあと、fixで内容を確認...
どのようにしたら良いのでしょうか？~
//
- csvはread.csv()じゃないの？ -- &new{2008-07-31 (木) 14...
- read.csv は read.table のシュガーコートなんだから，オプ...
> read.csv
function (file, header = TRUE, sep = ",", quote = "\"", ...
fill = TRUE, comment.char = "", ...)
read.table(file = file, header = header, sep = sep, quot...
dec = dec, fill = fill, comment.char = comment.char,...
<environment: namespace:utils>
- 質問したら，結果について反応をするのは礼儀でしょう。ど...
**fileでのエラー [#sdf7e91e]
>[[basel]] (2008-07-29 (火) 12:54:02)~
~
a <- file("ファイル名", open="r" encoding="cp932")~
を実行すると、~
「以下にエラーfile("c/:ファイル名", open="r" encoding="cp...
コネクションを開くことができません~
追加情報：Warning message:~
ファイル"c/:ファイル名"を開くことができません。理由は'Inv...
~
というエラーが出てしまいます。~
~
単純に~
a <- read.table("c/:ファイル名")~
ですと、~
「以下にエラーfile(file, "r"):コネクションを開くことがで...
追加情報：Warning message:~
ファイル"c/:ファイル名"を開くことができません。理由は'Inv...
というエラーが出てします。~
~
単純な質問ですが、よろしくご教授願いいたします。~
//
- x c/: o c:/ -- &new{2008-07-29 (火) 13:01:32};
- ありがとうございました. -- [[basel]] &new{2008-07-29 (...
- ところで Invalid argument とはどのようなエラーなんで...
- 引数 argument が，妥当でない invalid ということ。"c/:フ...
**一部の全角記号がクリップボード経由でメタファイルコピー...
>[[せーだ]] (2008-07-24 (木) 13:59:09)~
~
WinXP Pro で R-2.7.1 を使っており、~
以前から C:/Program Files/R/R-2.x.x/etc の中で~
Rconsole の Font セクション（19行目付近）を~
~
font = TT MS Gothic
~
に、Rdevga の TT Arial の部分を全て TT MS Gothic に修正し...
~
この状態で『〜』（から）や『−』（全角マイナス）など一部の...
含むグラフを作成し、クリップボードにメタファイルでコピー...
パワーポイントに貼ると、その記号だけ『?』に化けます。~
例えば以下のようなコードです。~
~
plot(sin, main="ほげ〜−ふが")
~
このような現象は R-2.6.2 までは発生しませんでした。~
なお、メタファイルを別ファイルとして保存したものはパワー...
問題なく取り込めます。~
解決策をご存知の方がいらっしゃれば、どうか御教示下さい。...
- パワーポイントで、編集 - 形式を選択して貼り付け - 拡張...
- あ、できた…。2.7系に上げたら問題が発生したという部分は...
- Unicode化の過程で現在部分的な拡張を行っているので当分の...
- 2.9.0では解決されているようです。CHANGES IN R VERSION 2...
o iconv() is now done by a version of Yukihiro Nakadaira's
win_iconv rather than by libiconv. This version is ba...
Windows' codepages and is not quite as comprehensive as
libiconv: it is however much smaller and easier to mai...
The implementation here is 100% compatible: you can dr...
libiconv's iconv.dll as a replacement if you need it, ...
http://www.stats.ox.ac.uk/pub/Rtools/Riconv.dll.
**pdf( ) で右寄せがずれます [#l4ebec18]
>[[吉原]] (2008-07-24 (木) 02:17:25)~
~
Windows XP で R version 2.7.0 を使っています。~
図の中に text() を使って注釈を書き、右端でそろえようとし...
いろいろ試したところ、次のようなことがわかりました。~
~
pdf() を使うと問題が生じる。~
大文字の Y を使うと問題が生じる。（他にもあるかもしれませ...
~
例えば You という単語が入ると症状が顕著です。~
~
pdf('You.pdf', width=11, height=8.5)
plot(0,0,xlim=c(0,1),ylim=c(0,1),type='n')
abline(v=.5)
text(0.5,0.9, 'You', pos=2)
text(0.5,0.8, 'You You', pos=2)
text(0.5,0.7, 'You You You', pos=2)
text(0.5,0.6, 'You You You You', pos=2)
text(0.5,0.5, 'You You You You You', pos=2)
text(0.5,0.4, 'You You You You You You', pos=2)
text(0.5,0.3, 'You You You You You You You You', pos=2)
dev.off()
~
postscript() では同様の問題は見られませんでしたので、.ps ...
よろしくお願いします。~
//
- あなたが, もしAcrobatをお使いなら[ファイル]-[プロパティ...
//
- なかま様。早速のご回答どうもありがとうございました。Acr...
- これは困った問題ですね。dvipdfmxでPDF化する際には図もPD...
- いえ, pdf('You.pdf', family="Courier") で作れば Acrorea...
- Courierのような等幅フォントにしか対応していないというこ...
- Resource/Font/Z[XY]______.PFB(AdobeSansMM,AdobeSerifMM)...
pdfFonts(AdobeSansMM=Type1Font("AdobeSansMM",rep("/tmp/Z...
pdf("hoge.pdf", family="AdobeSansMM")
等とすれば, 等幅では無い物で, 何処に持っていっても問題の...
- 2.8.0以降ではこの問題は発生しません. -- [[なかま]] &new...
- なかま様，ありがとうございます m(__)m -- [[奥村]] &new{...
- あれ，2.8.0には入らなかったのでしょうか -- [[奥村]] &ne...
**誤植でしょうか？ [#pe75fe77]
>[[匿名]] (2008-07-23 (水) 13:20:31)~
~
五章P106の一行目に表示されているコマンド~
~
jp.ar<-ar(djpMacro, method="ols")~
~
これを打ち込んだところ、以下のエラーが発生しました。~
~
以下にエラー if ((dimension < 1) | (dimension > n)) stop...
引数の長さが0です
追加情報: Warning messages:
1: In log(det(varE[[m - order.min + 1]])) : 計算結果が N...
2: In ar.ols(x, aic = aic, order.max = order.max, na.acti...
モデルの次数: 18 特異値が射影行列の計算中に生じました...
>~
誤植でしょうか？~
~
http://d.hatena.ne.jp/haruosuz/~
~
ここでは、誤植と紹介されているのですが…~
//
- 見ればわかるとお思いかも知れないが，本の名前くらい書い...
それと，自分の環境もね（OS と R のバージョン） -- 一言居...
- たしかに…申し訳ありません。OSはXPでRのバージョンは2.7.1...
- jp.ar = ar(djpMacro) で正常に動作しませんか？ -- &new{...
**オブジェクトの名前を得る関数 [#sdc89061]
>[[karat]] (2008-07-18 (金) 01:03:54)~
~
関数に因数としてオブジェクト（例えばデータフレーム）を渡...
そのオブジェクトの名前を得たいとき、どのような関数を使え...
例えばfoobarがデータフレームだとして、nantarakansu(foobar...
nantarakansuの中で"foobar"が欲しいのですが。超初心者質問...
//
- deparse(substitute(x)) # programmed by 一言居士 -- 一言...
- データフレームにcomment付けてごまかしていた自分が恥ずか...
- データフレームにcomment付けてごまかしていた自分が恥ずか...
**無題 [#w63dae4e]
>[[山田]] (2008-07-16 (水) 16:55:08)~
~
相互相関関数のそれぞれのラグにおけるＡＣＦの値を知るには...
//
- 警告！あなたの行為はマルチポストと呼ばれ「嫌われる行為...
**リスト要素を横方向へ出力する方法 [#c5c27f0f]
>[[Neo]] (2008-07-12 (土) 01:41:10)~
~
こんにちは。~
A B~
1 2~
4 5~
というa.txtというファイルと~
A B C
qw 2 3
we 5 6
se 8 9
というb.txtというファイルがあるとします。~
c <- as.list(NULL)
c[[1]] <- a
c[[2]] <- b
としてリストcを
A B A B C
1 2 qw 2 3
4 5 we 5 6
se 8 9
このように横方向にファイルに保存したいのですが、どのよう...
どうかよろしくお願いします。~
//
- nrowが違うとエラーになることで困っているのですか？冗長...
write.table(cbind(rbind(x,NA),y),file="hoge",row.names=F...
nrowがリスとの要素ごとに違うなら、nrowの最大値を予め調べ...
nr <- max(sapply(c,nrow))
x <- matrix()
for(i in seq(c)){
if(nrow(c[[i]])<nr) c[[i]][seq(nrow(c[[i]])+1,nr),] <- NA
x <- cbind(x,c[[i]])
}
write.table(x[,-1], file="hoge",row.names=FALSE)
とか。上手い方法は他にあると思いますが。 -- [[akira]] &ne...
- cc<-unlist(c, recursive=F);lmax<-max(unlist(lapply(cc,l...
- なるほど!lapply(cc,`length<-`,lmax)ですか。私は未だに'<...
- いえ, lapply(cc,function(x){length(x)<-lmax;x}) と普通...
- すばらしい方法ありがとうございます。しかしakira様の方法...
- すばらしい方法ありがとうございます。しかしakira様の方法...
- `length<-`(x,value) は length(x)<-value と等価なんです....
- なるほど。<-にそういう使用法もあるのですか。勉強になり...
- 数値(double)ベクトルにおいてはInf,NaN,-Inf,数値,NA以外...
- 元データのNAと区別したい状況がわかりにくいのですが、空...
**Mac版R.app GUIでのキーボードショートカット [#h95b6dad]
>[[ara]] (2008-07-08 (火) 15:46:53)~
~
Mac版RをMac OS X 10.4.11（PowerBook G4）で使用しています。~
R.app GUIで、これまでコマンドラインでの行頭・行末への移動...
~
どなたか対処方法をご存じないでしょうか？~
//
- Mac OS X 10.5.4 だとできますけど？ -- &new{2008-07-08 ...
- 情報ありがとうございます。MacでRを使っている人が身近に...
- 同じくIntel版Max OS X10.4.11でR2.7.1です。確かにQuartz...
**行明と列名の変更・削除方法について [#n5b57369]
>[[kokko]] (2008-07-06 (日) 22:15:54)~
~
行名と列名の変更・削除方法について教えてください。~
以下のようなデータフレームが変数aに格納されているとします...
~
A B C
a 1 2 3
b 4 5 6
c 7 8 9
~
ここでa,b,cは行名、A,B,Cは列名です。~
これらの行・列名を変更するにはどうすればよいのでしょうか？~
~
たとえば~
D E F
d 1 2 3
e 4 5 6
f 7 8 9
~
のようにしたいです。また、特定の行・列名だけを削除して~
~
A B
a 1 2 3
4 5 6
c 7 8 9
~
のようなデータフレームを作成することはできるでしょうか？~
よろしくお願いします。~
~
使用環境 Mac OS X 10.5.4、R 2.7.0~
//
- colnames(a) <- c("A","B","") ; rownames(a) <- c("a","",...
- colnames(a) <- c("A","B","") ; rownames(a) <- c("a","",...
- [[ここ:http://www.okada.jp.org/RWiki/index.php?%A5%EA%A...
- 上記されてますが、rownames(),colnames()で「文字のベクト...
- ありがとうございます。こんなに簡単な話だったんですね。r...
- すみませんが、もう一つ質問させてください。教えてくださ...
- colnames(a)[2] <- "A" -- &new{2008-07-07 (月) 22:21:06};
- 「関数なので、データフレームaの戻り値に対して代入しても...
- colnames(a[,2]) ではだめで colnames(a)[2] としなければ...
- colnames(a) がベクトルで，その2番目の要素が [2] という...
- a[,2]となった時点でベクトルになっているから、colnameを...
> x <- matrix(1:20,ncol=4,dimnames=list(1:5,1:4))
> x
1 2 3 4
1 1 6 11 16
2 2 7 12 17
3 3 8 13 18
4 4 9 14 19
5 5 10 15 20
> colnames(x)[2]
[1] "2"
> colnames(x[,2])
NULL
> x[,2]
1 2 3 4 5
6 7 8 9 10
> names(x[,2])
[1] "1" "2" "3" "4" "5"
つまり、colnames()でなく、names()で出てきます。 -- [[akir...
**nls.control()について質問 [#pf5ba5bb]
>[[森林]] (2008-07-04 (金) 18:40:26)~
~
非線形最小自乗当てはめの制御 nls.control()について質問で...
nls() 関数による非線形最小自乗法アルゴリズムの幾つかの特...
次のようにＲコンソールで打ち込むと、~
> nls.control(maxiter=500)~
$maxiter~
[1] 500~
$tol~
[1] 1e-05~
・・・・~
と表示されるのに、nls( 式、data, star=・・・）を実行した...
すなわち、maxiter=50のままです。いろいろ試したのですが、...
どなたか、ご教示のほどお願いします。~
//
- ? nls の control の説明が an optional list of control s...
nls(なんだら, control=nlscontrol(かんだら))
つまり，control 引数が要求するリストを nls.control が返す...
- 早速に有り難うございました。試したとき、指定通りに使い...
- 早速に有り難うございました。最初に試したとき、指定の通...
**文字列を数値に変換 [#q3734836]
>[[masaki]] (2008-07-03 (木) 17:38:59)~
~
WindowsXPでR2.6.2を使用している者です。~
JavaのpsrseIntメソッドのように、文字列を数値に変換する方...
~
具体的には、ある文字列（例：abc105）から正規表現を用いて、~
~
x <- gsub("[[:lower:]]+([[:digit:]]+)", "\\1", "abc105")~
~
数値だけの文字列に置き換えます。このxを表示すると、~
~
[1] "105"~
~
となります。これを、ループで~
~
for(i in 1:x){ 処理 }~
~
のように用いたいのですが、文字列のため用いることができま...
~
正規表現の段階で数値型にする、xを文字列型から数値型に変換...
//
- as.integerとかas.numericとか -- &new{2008-07-03 (木) 1...
- 素早い回答ありがとうございます。うまくいきました。 -- [...
**複数のベクトルを１つにベクトルに合体させるには [#tc30e7...
>[[田中]] (2008-07-03 (木) 13:49:33)~
~
n1<-c(1,2,3) n2<-c(4,5,6) n3<-c(7,8,9) →n<-c(1,2,3,4,5,6...
//
- ↓で質問した者です。n <- c(n1, n2, n3); でどうぞ。 -- &...
- 基本的な質問ですみませんでした。初心者で助かりました。 ...
**日本語（2バイト文字）が含まれた PDF ファイルの生成（Win...
>[[初心者]] (2008-07-03 (木) 09:56:49)~
~
Windows 版 R 2.7.1 を使用しているものです。以下の諸設定を...
が含まれた PDF ファイルを生成しようとしているのですが、上...
~
<C:\Program Files\R\R-2.7.1\etc>
Rdevga:12〜15行目を以下のように修正しました
TT MS Gothic : plain
TT MS Gothic : bold
TT MS Gothic : italic
TT MS Gothic : bold&italic
Rconsole:19行目を以下のように修正しました
font = TT MS Gothic
Rprofile.site:以下を追記しました
setHook(packageEvent("grDevices", "onLoad"),
function(...) grDevices::ps.options(family="Japa...
~
もしよろしければご教授いただけませんでしょうか。~
//
- ps.optionsはPostScriptにフォントを設定しています. pdf.o...
- 「上手く表示されません」だと具体的にどうなっているかわ...
- ありがとうございます。下記命令で無事、文字化けしない出...
~
<C:\Program Files\R\R-2.7.1\etc>
Rdevga:12〜15行目を以下のように修正しました
TT MS Gothic : plain
TT MS Gothic : bold
TT MS Gothic : italic
TT MS Gothic : bold&italic
Rconsole:19行目を以下のように修正しました
font = TT MS Gothic
Rprofile.site:以下を追記しました（←ここを修正）
setHook(packageEvent("grDevices", "onLoad"),
function(...) { grDevices::ps.options(family="Jap...
~
**barplotのy軸と棒の下限の変更 [#qbb106cf]
>[[sh]] (2008-07-03 (木) 09:10:15)~
~
barplot(2:10, ylim=c(1,10))
棒グラフのy軸の下限を1にしたのですが、棒は下限が1にならず...
//
- barplot(2:10, ylim=c(1,10), xpd=F) , try ?barplot, でも...
- 期待通りに表示されました。ありがとうございました。 -- [...
- なぜにして，c(1,10) ? おかしなことだ。 c(0,10) とする...
- *わざわざ*, はみ出すように作ってあるのが素敵なのに... -...
- barplot の上の方だけ表示すると、本当は小さな差を大きく...
barplot(c(.89,.91,.92,.95), ylim=c(.88,.95),xpd=F,yaxt='...
axis(2,at=seq(.88,.95,.01),label=NA)
- （参考）[[日本図表審査機構 [JGRO]:http://grp.cocolog-ni...
- ↑x2 その差が「小さい」という根拠はどこに??? 恣意的な印...
- 差があるという基準はどういう風に決める？差があるとして...
**ベクトル要素の総当たりの結合 [#i5e5fcea]
>[[田中]] (2008-06-27 (金) 17:17:20)~
~
x<-c(1,2,3)とy<-c(6,7,8)の要素の数字を総当たりで結合してz...
//
- as.vector(t(outer(x*10, y, FUN="+"))) -- &new{2008-06-...
- あえて，outer を使わない方法 rep(x*10, each=length(y))...
- ありがとうございます。x*10no -- &new{2008-06-27 (金) 2...
- ありがとうございます。x*10の10は何を意味するのでしょう...
- xを10倍したものとyを足すと言うことですよ。rep(x*10, eac...
- 本当に親切に説明いただき、感謝いたします。 -- &new{200...
**sspirの使い方について [#f8318593]
>[[ichigo]] (2008-06-25 (水) 12:26:50)~
~
Ｒのパッケージ「sspir」を使って状態空間モデルを扱いたいの...
（株価などで）~
どうも使い方がいまひとつわかりません．~
このサイト内を検索したところ恐ろしいらしいページに一件記...
特に話題が広がるわけでもなく、終わっていました．~
詳しく書いてあるサイトなどご存知でしたら、教えていただけ...
よろしくお願いいたします．~
//
- ググってみましたか？ sspir と R の二語でググったら，~
http://hosho.ees.hokudai.ac.jp/~kubo/ce/TimeSeriesData.ht...
Journal of Statistical Software にこの package のくわしい...
とあり，「論文」へのリンクまで貼ってくれていますね。~
それをクリックすると，おおありがたや，その論文（PDF，15ペ...
- あなたのやりたいことに合うかどうかわからないけれども、[...
- ありがとうございます．紹介いただいたサイトをみて、勉強...
**パッケージe1071内の関数svmの使用について [#vf248174]
>[[kei]] (2008-06-24 (火) 05:52:51)~
~
パッケージe1071内の関数svmについて教えて下さい。~
関数svmを使って分類問題の学習をさせるために~
以下のようなプログラムを組んだのですが
~
library(e1071)
dat <- iris
dat.col <- ncol(dat)
dat[,5] <- as.integer(dat[,5])
dat.tr <- dat[c(1:40,51:90,101:140),]
dat.tr.row <- nrow(dat.tr)
dat.tr.u <- dat.tr
for (j in 1:dat.tr.row){
if (dat.tr.u[j,5] == 1){
dat.tr.u[j,5] <- "A"
} else {
dat.tr.u[j,5] <- "B"
}
}
x <- (dat.tr.u[,1:dat.col-1])
y <- dat.tr.u[,5]
model <- svm(x,y)
~
~
実行すると
svm.default(x, y) : Need numeric dependent variable for r...
というエラーが出ます。x,yのmodeが問題ではと思い、色々な組...
よろしくお願いします。~
//
- y <- factor(dat.tr.u[,5])とすることで解決しました。すみ...
**Tukeyの多重検定をしたいのですができません。 [#u72e1344]
>[[A]] (2008-06-20 (金) 17:08:13)~
~
Tukeyの多重検定をしたいのですができません。~
青木先生のサイト（http://aoki2.si.gunma-u.ac.jp/R/m_multi...
> m.multi.comp(・・・~
> tukey(data, group)~
などやってみましたが、 「エラー：関数 "m.multi.comp" を見...
どうしたらよいのでしょうか？~
使用環境はWindowsXPでR version 2.7.0を使ってます。~
よろしくお願いします。~
//
//
- 単にm.multi.comp関数がRに読み込まれていないのでは？青木...
- ありがとうございます！解決しました。 -- [[A]] &new{2008...
**median()のエラーについて [#zf334ad2]
>[[apple]] (2008-06-15 (日) 18:05:00)~
~
よろしくお願いします。~
~
V1 V2 V3
1 1 2 3
2 4 5 6
3 7 8 9
~
このようなデータフレームを変数aに入れたとします。~
1列目のmedianを計算しようと思い median(a[1])としたところ~
~
以下にエラー median.default(a[1]) : 数値データが必要です
~
と言われました。~
しかしmean(a[1])とすると1列目の平均値を計算できます。~
これはどうしてでしょうか？mean()とmedian()には書式に違い...
~
使用環境 Mac OS X 10.5.3、R 2.7.0~
//
- median(a[,1]) -- [[akira]] &new{2008-06-15 (日) 18:22:0...
- まあ，実装のミスといえばミス，不完全といえば不完全かな...
> class(a[1])
[1] "data.frame"
> class(a[,1])
[1] "integer"
median.default の定義の最初の方には，
if (is.factor(x) || mode(x) != "numeric")
stop("need numeric data")
とあります。~
同じく，mean.default の定義の最初の方は，
if (!is.numeric(x) && !is.complex(x) && !is.logical(...
warning("argument is not numeric or logical: ret...
return(NA_real_)
}
くらいしかありません。~
しかし，引数が data.frame のときには，mean は，実際には
> mean.data.frame
function (x, ...)
sapply(x, mean, ...)
をよんでいるので，この mean.data.frame の定義に習って，me...
> median.data.frame <- function(x, ...) sapply(x, median...
> median.data.frame
function(x, ...) sapply(x, median, ...)
定義後は，
> median(a[1])
V1
4
というように，ちゃんと計算してくれるようになります（最初...
なお，この定義後（定義しなくても）median(ベクトル) とした...
はい，圃下圃下君答えて！なに？わからない？~
> median(a[,1])
[1] 4
となりますよね。出力形式が異なりますね。分かりましたか？...
ユーザと R どっちが悪いかと言えば，どっちもどっちか。~
賢い対処法は，上のようなことを喝破して，適切な使用をする...
あ〜，疲れた。
- 初歩的な関数でもこういうことがあるんですね。いままでモ...
**オームの法則 [#s89f4e86]
>[[-0.889]] (2008-06-12 (木) 00:39:03)~
~
たとえば、xデータに電圧値(v)をプロット、ｙデータに電流値(...
//
- 第２軸って何ですか？ -- &new{2008-06-12 (木) 04:56:34};
- なんだか学校の宿題のような気が・・・とりあえず、デモデ...
- 単に関数の作り方を聞きたいだけなのでしょうかね？それと...
ohm<-function(e,i){
r<-e/i
return(r)
}
> ohm(2,2)
[1] 1
- なんの音沙汰もないというのは、解決したということか？ --...
**データフレームへのアクセス(複数条件つき抽出) [#s7cc281d]
>[[寿司]] (2008-06-11 (水) 09:39:40)~
~
度々、恐れ入ります。~
データフレームで、条件付の抽出を行いたいのですが、~
複数の条件を設定した場合、うまく抽出できませんでした。~
ひとつの条件であれば、問題なく機能するのですが、以下D3の...
お手数をおかけしますが、よろしくお願いいたします。~
~
id <- c("A","B","C","D","E")
height <- c(158,177,177,177,166)
weight <- c( 51, 56, 55, 57, 55)
age <- c( 23, 44, 21, 39, 42)
D <- data.frame(ID=id, H=height, W=weight, A=age)
~
D2 <- D[(D$ID=="A"), ]
D3 <- D[((D$ID=="A") || (D$ID=="B")), ]
//
- || じゃなくて | -- &new{2008-06-11 (水) 09:47:34};
- subset を使う方がよいと思う.subset(D, D$ID=="A" | D$ID=...
- subsetを使うのであれば、D$IDのD$は不要。subset(D,ID%in%...
- ありがとうございます。出来ました！ -- [[寿司]] &new{200...
- %in% ってどういうことですか？ -- &new{2008-06-14 (土) ...
- ?"%in%" で調べろよ。 -- &new{2008-06-15 (日) 12:34:54};
- ヒント 「get("%in%")」 -- &new{2008-06-18 (水) 13:04:2...
**通し番号を除いて、出力する方法 [#qaa6e4c9]
>[[寿司]] (2008-06-10 (火) 22:41:30)~
~
たびたびの初歩的な質問で恐れ入ります。~
以下のようなデータフレームを作成しましたところ、自動的に...
出力しますと、通し番号のために、列名がずれてしまいます。~
(使用環境 windows vista, R2.6.0)~
~
sex <- c("F","F","M","M","M")
height <- c(158,162,177,173,166)
weight <- c(51,55,72,57,64)
( x <- data.frame(SEX=sex, HEIGHT=height, WEIGHT=weig...
~
write.table(x, "x.csv", quote=F, col.names=T, append=F, ...
//
- 引数にrow.names=FALSE -- [[takahashi]] &new{2008-06-10 ...
- なんで，オンラインヘルプを読まないんだろうかねぇ. ? wri...
- ありがとうございます。?write.tableと構文でヘルプがある...
**被験者内計画の分散分析 [#m8c63a10]
>[[アべセ]] (2008-06-10 (火) 16:11:13)~
~
被験者間計画の分散分析のやり方は分かりやすいのですが、被...
//
- [被験者間計画の分散分析のやり方は分かりやすいのですが]...
- 返答してくれた方、ありがとうございました。紹介されてい...
**OSXでR Commanderがインストールできない [#l67db46b]
>[[ton]] (2008-06-09 (月) 23:29:02)~
~
Mac OS X 10.4.11でパッケージとデータ＞パッケージインスト...
R Commander（Rcmdr）をインストールし、Rコンソールで「>lib...
入力してパッケージを読み込もうと思ったのですが、以下のよ...
全くの素人で、解決の手段がわかりません。よろしくお願いし...
~
ーーーーーーーーーーーーーーーーーーーーーーーーーーーー...
要求されたパッケージ tcltk をロード中です
Tcl/Tkインターフェースのロード Error in dyn.load(file, D...
共有ライブラリ '/Library/Frameworks/R.framework/Versio...
dlopen(/Library/Frameworks/R.framework/Versions/2.7/Res...
Referenced from: /Library/Frameworks/R.framework/Versio...
Reason: image not found
Error : .onLoad は 'tcltk' のための 'loadNamespace' で失...
エラー： パッケージ 'tcltk' をロードできませんでした
>~
//
- たぶん何度も質問に出ているやつだと思いますが、X11起動し...
- 「その他＞X11サーバを起動」でX11を起動すればいいのです...
- まず以下のことをやってみてください。 -- [[okinawa]] &ne...
（１）パッケージとデータ＞パッケージインストーラーから、R...
（２）インストール終了後、library(Rcmdr)を実行し、Rcmdrが...
（３）Rcmdrが起動したら、Rcmdrのコンソール内で、library(s...
パッケージのインストールは常にパッケージインストーラーか...
- X11はインストールしましたか? -- [[なかま]] &new{2008-06...
- X11を起動しようとしたとき「2008-06-15 21:38:21.911 open...
- X11はMac側のアプリなので、Rとは関係ないです。もし、Mac...
- なんとかX11をインストールし、無事、R Commanderをインス...
**多変量自己回帰分析VAR [#hb491edc]
>[[tarai]] (2008-06-07 (土) 11:39:59)~
~
Rで多変量自己回帰分析する際のパワー寄与率を計算するにはど...
//
- 統計数理研究所のTIMSACのR用パッケージが出ていてその中に...
**n*3行列データで等高図 [#wa7282b2]
>[[初心者]] (2008-06-06 (金) 14:01:42)~
~
簡単な質問申し訳ないのですが、~
n*3の行列データで等高線を書きたいと思っています。~
データは~
x1 y1 z1~
x1 y2 z2~
x1 y3 z3~
x2 y1 z4~
x2 y2 z5~
x3 y3 z6~
........~
という形式で並んでいるのですが、~
これを~
d<-read.table("data")で読み込んで、~
contour(data$V1,data$V2,data$V3)でプロットしようとしても~
'x'と'y'の値は昇順であることが期待されます~
と出てプロットできません。persp()を用いても同様に表示され...
ご回答お願いします。~
~
使用環境は~
Ver.2.7.0~
win vistaです~
//
- データの6行目間違い->x2 y3 z6でした -- [[初心者]] &new{...
- ライブラリ akima を参照 -- &new{2008-06-06 (金) 14:33:...
- プログラム自体が変ですよ。dに入れたのに、contour(*,*,*)...
- dataはdの間違いでした。 -- [[初心者]] &new{2008-06-06 (...
- akimaをインストールしました。ロードしてcontourプロット...
- contour のオンラインヘルプは見ましたか？また，example(c...
- [[グラフィックス参考実例集：イメージ図]]にある不等間隔...
- ヘルプをみましたが複雑でよくわかりません．zのデータもn*...
- interp(x,y,z)でメッシュデータにしたあとに、contourを使...
- 参考実例集を参考に少し考えてみます．今気づいたのですが...
- １つ伺いたいのですが，参考例は付属のデータを用いるため...
- いろいろ試したのですが、interp(x,y,z)では軸の中に同じ値...
- えーと。エラーメッセージが答えと思うんですが・・・okina...
duplicate character string indicating how to handle dup...
"error" produces an error message,
"strip" remove duplicate z values,
"mean","median","user" calculate mean ...
と出てきますよ. -- [[akira]] &new{2008-06-07 (土) 05:31:2...
- データ自体にすこし問題がありました。なんとか作図までこ...
- ありがとうございます -- [[初心者]] &new{2008-06-07 (土)...
- akimaのhelp読みましたか？英語だから、難しいからと読まな...
- 英語を読むのが大変というよりは、R独自の文法に慣れるのに...
- Rは所詮言語なので、ちょっとお試し的に利用するには敷居が...
**ソートについて [#g1d8a05c]
>[[寿司]] (2008-06-05 (木) 00:18:35)~
~
昇順、降順を織り交ぜたソートを行いたいのですが、思ったよ...
~
~
> id <- c("A","B","C","D","E")
> height <- c(158,177,177,177,177)
> weight <- c( 51, 56, 56, 57, 55)
> age <- c( 23, 43, 44, 39, 42)
> D <- data.frame(ID=id, H=height, W=weight, A=age)
> D
ID H W A
1 A 158 51 23
2 B 177 56 43
3 C 177 56 44
4 D 177 57 39
5 E 177 55 42
//
- D[order(D$H,-D$W,D$A),] -- [[takahashi]] &new{2008-06-0...
- まずHが昇順になるように並べ、Hが同順な各グループ内ではW...
> D
ID H W A
1 A 158 51 23
2 B 177 56 43
3 C 177 56 44
4 D 177 57 39
5 E 177 55 42
> (o <- order(D$H,-D$W,D$A))
[1] 1 4 2 3 5
> D[o,]
ID H W A
1 A 158 51 23
4 D 177 57 39
2 B 177 56 43
3 C 177 56 44
5 E 177 55 42
- かぶりましたね。order(x,y,z) は要するに辞書式順序でソー...
- ありがとうございます。誤解をしていた箇所があり、立ち往...
**UNDO機能ってありますか？ [#zeb732dc]
>[[LINUX初心者]] (2008-06-03 (火) 20:33:38)~
~
コマンドライン(FEDORA7)で作業していて操作を間違えてしまっ...
一個前の状態に戻れるような機能はないのでしょうか？~
RSiteSearchやサイト内検索は試みましたが見つけられませんで...
現在金先生の本を教科書に勉強始めたとこなので~
「そんなことも分からんのか！！」と言われそうですが宜しく...
R は version 2.7.0 (2008-04-22)~
//
- そのようなものもあるかとは思いますが，操作手順をまえも...
- 端末からは入力命令の履歴機能を使い、上下矢印キーで過去...
- > > 端末からは入力命令の履歴機能を使い、上下矢印キーで...
その通りですが，それを書かなかったのは，例えば，これは単...
x <- 4
x <- x+4
x <- x*5+8
なんていうような場合に，何段階か元の状態に戻るには，↑で何...
要するに，質問のような場合には，一般のプログラミング言語...
- もう一つの方法はEmacsのシェルモード(もしくは専用のESSモ...
- 皆さんと同意見です。ただ、長いスクリプトをやり直すのも...
x <- 4
x1 <- x1+4
x2 <- x2*5+8
とすれば古いオブジェクトは残りますよね。慣れるまではエデ...
- オブジェクトの大量発生は，x <- 4; x1 <- x1+4; x2 <- x2*...
- 皆様、ご指導ありがとうございます。 -- [[LINUX初心者]] &...
- 誤ってEnter押してしまいました。色々あるみたいですので皆...
**データハンドリングについて(ソート、分位、行ずらし、重複...
>[[寿司]] (2008-06-03 (火) 12:17:18)~
~
以前SASを使っておりまして、Rでも同じようにデータハンドリ...
~
・ソートについて~
複数の項目のソートを行いたいのですが、昇順、降順が混ざっ...
現在の私のプログラムでは、ファイルを適宜分割した後、何度...
~
・分位について~
SASであれば、rankを使って簡単に分位に分けられたのですが、...
~
・行ずらし~
ある項目について、前レコードとの比較を行いたいのですが、...
~
・重複列削除~
まったく同じ行が現れたとき、その行を削除したいのですが、...
//
- 簡単でいいからやりたい事のイメージが分かるような例をつ...
- 項目 1, 2 に付いては sort() と rank() 関数の使い方を一...
- 寿司さんはスクリプトを書ける方なので、モデルデータ、上...
ソート -> たぶんソート順をorderに組み込めていないだけ~
分位 -> quanntile?~
行ずらし -> よーわからん~
重複列削除 -> duplicate?~
見当違いかもしれませんが -- [[akira]] &new{2008-06-03 (火...
- http://oit.utk.edu/scc/RforSAS&SPSSusers.pdf を参考にす...
- 出先で急いで書いたもので、例が載せられておりませんでし...
- ありがとうございます。家に戻りましたら、イメージが分か...
- ありがとうございます。家に戻りましたら、イメージが分か...
- 何度も重複しており、恥ずかしい限りです。行が長くなって...
**列名の強制変換 [#u713dcf2]
>[[sh]] (2008-05-30 (金) 03:51:32)~
~
以下のようなタブ区切りのデータファイル("file.txt")を関数r...
a b a-b a|b a:b a_b
a b a-b a|b a:b a_b
a b a-b a|b a:b a_b
> sessionInfo()
R version 2.6.1 (2007-11-26)
i386-apple-darwin8.10.1
> ( x <- read.delim("file.txt") )
a.b a.b.1 a.b.2 a.b.3 a_b
1 a b a-b a|b a:b a_b
2 a b a-b a|b a:b a_b
Warning message:
In read.table(file = file, header = header, sep = sep, q...
'file.txt' の readTableHeader で不完全な最終行が見つ...
> colnames(x)
[1] "a.b" "a.b.1" "a.b.2" "a.b.3" "a_b"
//
- read.delimのHELP内に書いてあります。header=FALSE。 -- [...
- check.names=FALSE -- [[takahashi]] &new{2008-05-30 (金)...
- ( x <- read.delim("file.txt", check.names=FALSE) ) で...
**全オブジェクトの列数の連続取得 [#ic56c331]
>[[nrow?]] (2008-05-29 (木) 13:38:34)~
~
いつも、拝見させていただいております。~
計算する際に、オブジェクトがa〜zまでできます。~
この全オブジェクトの列数が、書き込まれたデータフレームを...
~
例えば~
~
a1 <- data.frame(ls(), nrow(get(ls())))~
~
とすると一列目には全オブジェクトの名前が入るのですが~
二列目には一番初めに来るオブジェクトの列数が入ってしまい...
~
二列目には一列目のオブジェクトに対応した列数を入れるため...
~
ご教授願います。~
//
- 計算する途中で，作ったオブジェクトの列数を記録（蓄積）...
- unlist(sapply(ls(), function(i) nrow(get(i)))) で(ファ...
- ありがとうございます。文字列リストの作成も検討してみま...
- たとえばこんな風かな -- &new{2008-05-30 (金) 01:40:33};
> abc <- matrix(0,2,2)
> abc.def <- matrix(0,3,2)
> Obj <- c("abc","abc.def")
> ( x <- sapply(Obj, function(i) nrow(get(i))) )
abc abc.def
2 3
> names(x) <- NULL
> x
[1] 2 3
> data.frame(Obj, x)
Obj x
1 abc 2
2 abc.def 3
**読み込んだCSVファイルを、日付を条件に検索したい [#m0e65...
>[[寿司]] (2008-05-28 (水) 09:27:13)~
~
R 2.6.0 をWindows Vistaで使用しています。~
日付データを含んだcsvファイルを読み込み、Ｒで今日の日付で...
Ｒでは、~
> today <- Sys.Date()~
> today~
[1] "2008-05-28"~
となりますので、csvファイルには文字列で"YYYY-MM-DD"となる...
Ｒ側、csv側どちらでも良いので、検索が機能するような方法あ...
プログラムは以下のとおりです。(csvの代わりにデータフレー...
~
> d <- c("2008-05-28","2008-05-29","2008-05-30")~
> a <- c(1,2,3)~
> ( x <- data.frame(D=d, A=a) )~
D A
1 2008-05-28 1~
2 2008-05-29 2~
3 2008-05-30 3~
> ~
> (today <- Sys.Date()) ~
[1] "2008-05-28"~
> x[x$s==today, ]~
[1] D A~
<0 rows> (or 0-length row.names)~
> x[x$D==today, ]~
[1] D A~
<0 rows> (or 0-length row.names)~
Warning message:~
In `[.data.frame`(x, x$D == today, ) :~
メソッド ("Ops.factor", "Ops.Date") は "==" に対しては...
//
- Sys.DateはClass `Date' を返します, str(Sys.Date())や?Sy...
- ありがとうございます。x[as.character(x$D) == today, ]の...
**Y軸の目盛り間隔をグラフ間で同一に [#f4d322bf]
>[[ICA]] (2008-05-26 (月) 23:57:06)~
~
複数のboxplotを縦に並べようとしています。グラフAは縦軸の...
縦軸の最大値の指定は、ylimで出来ることがわかりましたが...
おそらく、boxplotに限らず、どのようなグラフでも同じやり...
//
- 単にデータを boxplot(x, y) 等と並べるだけの事では。 -- ...
- 追伸です。私は５つのグラフを縦に並べようとしていますが...
- boxplot(x, y) の場合、データセットを変えると、最大値に...
- もしかして次のように二つの箱型図を描きたい？ ただし相互...
> x <- rpois(100, 80)
> max(x)
[1] 99
> boxplot(x, yaxp=c(0,100,1), ylim=c(0,100))
> x <- rpois(100, 30)
> boxplot(x, yaxp=c(0,100,1), ylim=c(0,100))
- この例の場合、二つ目のグラフの縦軸範囲を0-50にして高さ...
- どんなグラフを描きたいと思っているのか今ひとつはっきり...
- スクリプトでなくていいから、やってみたいイメージ図をア...
- お手数おかけしています。以下を行うと一つ目と二つ目のグ...
> par(pin=c(3,1))
> boxplot(Petal.Width~Species, iris, ylim=c(0,4))
> par(pin=c(3,2))
> boxplot(Sepal.Length~Species, iris, ylim=c(0,8))
- なぜ、そうしたいのか、というのはとりあえず訊かずに...
par(mfrow=c(1,2))
boxplot(Petal.Width~Species, iris, ylim=c(0,4), yaxs='i')
boxplot(Sepal.Width~Species, iris, ylim=c(0,8), yaxs='i')
こういうこと？ -- &new{2008-05-28 (水) 20:57:08};
- それでは駄目なんだといっているような。要するに，2つのグ...
結局の所は，一つの boxplot で全部を描くようにしないと，要...
boxplot(c(Petal.Width, Sepal.Width, Petal.Length, Sepal....
rep(1:12, each=50), iris, xaxt="n", col=rep(2:5, eac...
axis(1, 1:12,abbreviate(rep(levels(iris$Species), 4)))
legend("topleft", legend=c("Petal.Width", "Sepal.Width",...
"Sepal.Length"), fill=2:5, yjust=1, bty="n")
#ref(boxplot.png)
- 21:35の方が私の欲求を正しく理解してくださいました。が、...
やりたいことは、exmaple(boxplot)にでてくる、Orange juic...
**R2.7.0 on MacBookPro: legend()でエラー [#v7f11677]
>[[松田紀之]] (2008-05-21 (水) 19:36:41)~
~
R2.7.0 on MacBookPro (OSX 10.5.2) でplot()し，legend()を...
> plot(1:5,1:5)~
> legend("bottomright",legend=c("a","b"),lwd=1,col=1:2)~
~
*** caught bus error ***
address 0x10, cause 'non-existent physical address'~
~
Traceback:~
1: strwidth(legend, units = "user", cex = cex)
2: legend("bottomright", legend = c("a", "b"), lwd = 1, ...
//
- 日本語に関する設定を外してください. 2.7.0のQuartzの日本...
- Q&A "R2.7.0，Macintosh版でのグラフィック表示における日...
- いえ, 本当にたまたまです. ものすごくいいかげんな超対処...
日本人は苦しみます.
# .Rprofile
setHook(packageEvent("grDevices", "onLoad"),
function(...){
grDevices::quartzFonts(sans=grDev...
c("Hiragino Kaku Gothic Pro W3",
"Hiragino Kaku Gothic Pro W6",
"Hiragino Kaku Gothic Pro W3",
"Hiragino Kaku Gothic Pro W6"...
grDevices::quartz.options(family=...
)
しかし, grDevices::quartz.options(family="sans") は有効...
そこでさらに以下を加えます.
attach(NULL, name = "MacJapanEnv")
assign("familyset_hook",
function() { if(names(dev.cur())=="quartz") par(...
pos="MacJapanEnv")
setHook("plot.new", get("familyset_hook", pos="MacJapanE...
ところが...
> plot(1:5,1:5)
> legend("bottomright",legend=c("a","b"),lwd=1,col=1:2)
Program received signal EXC_BAD_ACCESS, Could not access...
Reason: KERN_PROTECTION_FAILURE at address: 0x00000014
0x900031c8 in strlen ()
(gdb) bt
#0 0x900031c8 in strlen ()
#1 0x907bf19c in CFStringCreateWithCString ()
#2 0x0221bc58 in RQuartz_FindFont (fontface=-2147483648...
#3 0x0221bd0c in RQuartz_Font (gc=0xbfffc378, dd=0x17) ...
#4 0x0221c184 in RQuartz_Set (ctx=0x2155eb0, gc=0xbfffc...
#5 0x0221cc3c in RQuartz_StrWidth (text=0x1ff7e20 "a", ...
gc->fontfaceは設定されてません. 以下は場当たり的に対処し...
動作はしました.
# 超対処療法的温泉旅館渡り廊下造営パッチ
--- R-patched.orig/src/library/grDevices/src/devQuartz.c...
+++ R-patched/src/library/grDevices/src/devQuartz.c ...
@@ -529,7 +529,7 @@
int i;
for(i = 0; i < length(names); i++)
if(0 == strcmp(fontfamily, CHAR(STRING_ELT(...
- if(i < length(names))
+ if(i < length(names) && fontface > 0)
fontName = CFStringCreateWithCString(kCFAll...
CHAR(ST...
kCFStri...
- R-develに投げてみます -- [[なかま]] &new{2008-05-23 (金...
**連続でxtabsを行いたい。 [#m3688810]
>[[ともぞう]] (2008-05-19 (月) 17:00:30)~
A B a b c
2 2 2 2 1
2 2 2 2 0
1 2 2 1 1
2 2 0 2 0
0 2 2 1 2
0 2 2 2 0
0 2 0 2 1
2 1 1 1 2
2 0 2 2 0
0 1 1 0 2
このようなデータから下のような集計を行う方法はありますで...
a a a b b b...
0 1 2 0 1 2...
A 0 1 1 2 1 1 2...
1 0 0 1 0 1 0...
2 1 1 3 0 1 4...
B 0 0 0 1 0 0 1...
1 0 2 0 1 1 0...
2 2 0 5 0 2 5...
集計は、Aが2のとき、b=2が4つという感じで行っています。~
~
ちなみに、個別でAとaに関するテーブルというのはxtabsででき...
何か良い知恵がございましたらよろしくお願いします。~
//
- この質問ね，「クロス集計時に起きるエラーについて」と同...
まあ，名前を付けるのはご自由に。 -- &new{2008-05-19 (月)...
> array(sapply(1:2, function(i) sapply(1:3, function(j) ...
, , 1
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 1 1 2 1 1 2 1 1 2
[2,] 0 0 1 0 1 0 0 1 0
[3,] 1 1 3 0 1 4 3 1 1
, , 2
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 0 0 1 0 0 1 1 0 0
[2,] 0 2 0 1 1 0 0 0 2
[3,] 2 0 5 0 2 5 3 3 1
- 勉強になりました。ありがとう御座いました。 -- [[ともぞ...
**R 2.7.0 Windows版での2byte文字について。 [#t3ee6922]
>[[goof]] (2008-05-17 (土) 22:21:10)~
~
Windows XPを使用しております。~
~
> sessionInfo()~
R version 2.7.0 (2008-04-22) ~
i386-pc-mingw32 ~
~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
~
です。~
~
Rエディタで2byte文字を含むコードをR consoleに"カーソル行...
~
>#ﾂPﾂQﾂR~
~
となります。~
options(encoding="UTF8")としてもoptions(encoding="SJIS")...
~
どうぞ原因と解決策のご教示をよろしくお願いいたします。~
//
- 原因は中の問題で, 解決はちっとまってね. SBCS環境とDBCS...
- ああそうそう, 選択したものをCtrl+Rでするのは問題が無い...
- なかま様、ご返事ありがとうございますm(_ _)m。いつも大変...
**パッケージkohonenのxyfの使い方が分かりません [#rf143354]
>[[たにくん]] (2008-05-15 (木) 14:55:00)~
~
解説にはSOM(自己組織化マップ)の教師つきバージョンと書いて...
~
data(wines)~
set.seed(7)~
~
training <- sample(nrow(wines), 120)~
Xtraining <- scale(wines[training,])~
Xtest <- scale(wines[-training,],center = attr(Xtraining,...
~
xyf.wines <- xyf(Xtraining,classvec2classmat(wine.classes...
~
xyf.prediction <- predict(xyf.wines, newdata=Xtest)~
table(wine.classes[-training], xyf.prediction$prediction)~
~
というexampleがあるのですが，はっきりと理解できません．~
~
もし，学習データとしてdata1という200行10列の行列を用い，...
~
ご回答よろしくお願いします．~
//
- example(xyf) で動きますよね。理解できないと言われても困...
- 下のんと一緒の書き込みをしました．example(xyf)をやって...
- predict の中で使われている map 関数の指定が悪いと言うこ...
xyf> xyf.prediction <- predict(xyf.wines, newdata=Xtest)
以下にエラー map(object, newdata, whatmap, weights) :
使われていない引数 (1)
- すみません，map関数が分かりません．~
kohonenの中のやつですよね．~確認しておきます．~
xyf.wines <- xyf(Xtraining,classvec2classmat(wine.classes...
のclassvec2classmatは何を表しているのでしょうか？~
オンラインヘルプでは0と1の行列を用いるとか言うのを書いて...
その行につけるラベルみたいなものですか？ご解答お願いしま...
- 「ヘルプを見たけどわからないので，教えて...」と，こうい...
**パッケージkohonenのwinesというデータが見つからない． [#...
>[[小心者]] (2008-05-15 (木) 14:25:03)~
~
研究でRを使うことになり，特に統計データによる診断関係を行...
~
library(kohonen)を開いて，xyfを使うことにしました．~
その例で本来winesというデータがパッケージには含まれている...
wines.classesもありませんでしたので，これらはどこかでソー...
その場合，どこでダウンロードできるのか教えてください．~
file:///E:/Program%20Files/R/R-2.7.0beta/library/kohonen/...
にはソースが以下のHPにあると書いてますが，見つかりません...
http://kdd.ics.uci.edu/~
~
どうかよろしくお願いします．~
//
- kohonen package はインストールしたのですか？上の「たに...
- kohonenはinstall.pakages()でインストールを行いました．...
- 普通，あるはずなんですけど？
> library(kohonen)
要求されたパッケージ class をロード中です
> data(wines) # これが，必要だよ
> head(wines)
alcohol malic acid ash ash alkalinity 右方省略
[1,] 13.20 1.78 2.14 11.2
[2,] 13.16 2.36 2.67 18.6
[3,] 14.37 1.95 2.50 16.8
[4,] 13.24 2.59 2.87 21.0
[5,] 14.20 1.76 2.45 15.2
[6,] 14.39 1.87 2.45 14.6
> head(wines.classes)
以下にエラー head(wines.classes) :
オブジェクト "wines.classes" は存在しません
wines.classes というのは，library(help=kohonen) で出てく...
- もしかして，data(wines) ってのを，やらなかったとか？ --...
- いいえ，data(wines)は使いましたが，いきませんでした．~
versionが2.7.0 betaなのですが，そこに何か不具合があるんで...
僕のもので入ってないのはおかしいですからね，何か原因があ...
後，この質問には関係ないのですが，上のような整理されたコ...
今のコメントではどうも読みにくくなりご迷惑をかけてしまう...
**Rで組み合わせの結果を表示したい [#wfeb0f9e]
>[[edora]] (2008-05-13 (火) 15:01:51)~
~
~
Rと統計を学び始めています。~
Rで組み合わせを行い、すべての組み合わせを表示させたい場合...
使えば良いのかわからずにいます。~
~
x <- (1,2,3,4,5,6,7,8,9,10)~
このxの中から2つの数字の組み合わせ45通りを表示させたいと...
(1,2)(1,3)…(9,10)~
~
またこれらの平均や分散を求めたり、度数分布表示が出来れば...
~
コマンドを調べる方法がよくわかっていないのですが、"Rと組...
choose(10,2)のように組み合わせの10C2の計算方法がわかった...
よろしくお願いします。~
//
- ?combn -- [[takahashi]] &new{2008-05-13 (火) 15:28:02};
- 何の分散、度数分布？ -- &new{2008-05-13 (火) 21:03:37};
> x <- 1:10
> combn(x,2) # すべての組み合わせ列挙
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] ...
[1,] 1 1 1 1 1 1 1 1 1 2 ...
[2,] 2 3 4 5 6 7 8 9 10 3 ...
[,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,2...
[1,] 2 2 2 3 3 3 3 3 ...
[2,] 8 9 10 4 5 6 7 8 ...
[,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,3...
[1,] 4 4 4 4 5 5 5 5 ...
[2,] 7 8 9 10 6 7 8 9 ...
[,39] [,40] [,41] [,42] [,43] [,44] [,45]
[1,] 6 7 7 7 8 8 9
[2,] 10 8 9 10 9 10 10
> combn(x,2,FUN=mean) #それらの平均
[1] 1.5 2.0 2.5 3.0 3.5 4.0 4.5 5.0 5.5 2.5 3.0 3.5 4.0...
[20] 4.5 5.0 5.5 6.0 6.5 4.5 5.0 5.5 6.0 6.5 7.0 5.5 6.0...
[39] 8.0 7.5 8.0 8.5 8.5 9.0 9.5
- まあたとえば，table(combn(n1+n2, n2, sum)-n2*(n2+1)/2) ...
- gregmiscパッケージにもcombinations()があります。 -- &n...
- ありがとうございます。combnのような事をやりたかったので...
- 度数分布は、combn(x,2,FUN=mean)で出たものを分布図を作っ...
- hist(combn(x,2,FUN=mean))でやってみました。ちょっとx軸...
**クロス集計時に起きるエラーについて [#d377a576]
>[[初心者]] (2008-05-12 (月) 17:18:45)~
~
クロス集計を作成する際に出るエラーで困っています。~
非常に難しい点が、エラーが出る条件に再現性が見いだせない...
~
A B C D E F G H~
0 1 0 0 0 0 0 0~
0 1 0 1 1 0 0 0~
0 1 0 0 0 0 0 0~
0 1 0 0 1 0 0 0~
1 1 1 0 1 0 0 0~
1 1 1 0 1 0 1 0~
1 1 1 0 1 0 0 0~
1 1 1 0 0 1 0 0~
1 1 1 0 0 0 1 1~
~
上記のようなデータをtmpとして、以下のスクリプトを実行し...
~
for(i in c(1:3)){
tab_del <- read.table("tab_del.csv", sep = ",")#tab.csv...
write.table(tab_del, "tab.csv", sep = ",", row.name = F...
for(j in c(1:5)){
tab <-t(xtabs(tmp[,3+j]~tmp[,i], tmp))
write.table(tab, "tab.csv", sep = ",", row.name = F, c...
}
tab <- read.table("tab.csv", sep = ",")
t_tab <- t(tab)
write.table(t_tab, "t_tab.csv", sep = ",", row.name = F...
}
~
上のデータではエラーが起きないのですが、実際のデータを...
~
エラーの原因は、ループのiで起きていることまでは突き止め...
具体的には、「特定のi列」（後述）を除くとエラーは発生せ...
ただ、問題なのは、同じデータで同じスクリプトを実行して...
たとえば、一回目にi=1列目を除くことでエラーが出なくなっ...
~
スクリプトの問題なのか、データの問題なのかもはっきりせ...
//
- プログラムを載せるなら，動く状態のものにしてください。...
- 説明不足で申し訳ありません。「tab_del.csv」はまったく何...
- 「まったく何も書かれていないデータ」？~
改行コードすら含まれない，長さ0のファイルですか？そんなこ...
- 具体的には、新規のエクセルファイルを開いて、そのままcsv...
- そのようにして作った tab_del.csv を読もうとすると，エラ...
以下にエラー read.table("tab_del.csv", sep = ",") :
入力中には利用可能な行がありません
- お返事が滞っているようですが，どうも，ファイルのオープ...
- write.tableは普通はファイルのcloseまで行うので、そうい...
- エラーの原因ではないけど，xtab の formula が変ですね。x...
- 要するに，上のデータ例だと，2×2集計表をiごとにj=1~p ま...
sapply(1:3, function(i) matrix(sapply(1:5, function(j)
xtabs(~tmp[,3+j]+tmp[,i])), 2))
結果は以下のようになる
[[1]]
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 3 5 2 2 4 4 4 3 4 4
[2,] 1 0 2 3 0 1 0 2 0 1
[[2]]
[,1] [,2] [,3] [,4] [,5]
[1,] 8 4 8 7 8
[2,] 1 5 1 2 1
[[3]]
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 3 5 2 2 4 4 4 3 4 4
[2,] 1 0 2 3 0 1 0 2 0 1
まあ，応答が途絶えたのでどうでも良いのかも知れないが。 --...
**R2.7.0 Windows版のPDFに日本語が表示されない [#v68dea0c]
>[[X Jr.]] (2008-05-07 (水) 22:43:10)~
~
Windows XP です。
> sessionInfo()
R version 2.7.0 (2008-04-22)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.93...
attached base packages:
[1] stats graphics grDevices datasets utils me...
で、
> plot(1, main = "テスト")
として、[ファイル]→[別名で保存] から PDF で保存すると、ma...
PDF に保存した直後に再度、同じ命令を入れると、
> plot(1, main = "テスト")
Warning messages:
1: 'PostScriptStringWidth' 中に不正な文字列
2: 'PDF_Text' 中に不正な文字列
というメッセージが出ます。さらにもう一度同じ命令を入れる...
.Rprofile には
setHook(packageEvent("grDevices", "onLoad"),
function(...) grDevices::ps.options(family="Japa...
の記述をしています。これを外して同じようにすると、PDF の ...
> plot(1, main = "テスト")
> plot(1, main = "テスト")
18 件の警告がありました (警告を見るには warnings() を使...
> warnings()
警告メッセージ：
1: 'mbcsToSbcs' 中の '繝・
2: 'mbcsToSbcs' 中の '繝・
略
17: 'mbcsToSbcs' 中の '繝・?
18: 'mbcsToSbcs' 中の '繝・?
そして、上記のようなメッセージが出ます。~
よろしくお願いします。~
//
- ps.options は pdf.options ではない？~
実は，下の質問（Macintosh）で 「pdf ファイルに出すときに...
setHook(packageEvent("grDevices", "onLoad"),function(......
grDevices::pdf.options(family="Japan1"))
に変更してファイルには出るようにできたからです。 -- &new...
- コメントありがとうございます。そのようにすると、setHook...
- これはWindows版2.7.0の問題（2.8.0preでも同じでした）な...
- 中澤さん、ありがとうございます。試してみました。「運動...
- r45688 で直ります. 二,三日すればpatchedでwindows版もい...
- 了解です。なかまさん、ありがとうございました。 -- [[X J...
- いつも大変お世話になっております＞なかまさん。素早いご...
- 素早くはないです. と言うか, 修正が追いつきかねます... ...
- patched (r45690) 入れました。問題ありませんでした。あり...
**R2.7.0，Macintosh版でのグラフィック表示における日本語 [...
>[[ご勘弁を]] (2008-05-06 (火) 19:23:23)~
~
以下のような状況，コマンドで，表示されるグラフィックにお...
> sessionInfo()
R version 2.7.0 (2008-04-22)
powerpc-apple-darwin8.10.1
locale:
ja_JP.UTF-8/ja_JP.UTF-8/C/C/ja_JP.UTF-8/ja_JP.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets me...
> hist(rnorm(1000), main="日本語")
//
- うーん, Helveticaになってしまうトラップがわかんないけど...
# これを ~/.Rprofile に入れて(なかったら作ってね)ね
setHook(packageEvent("grDevices", "onLoad"),
function(...){
grDevices::quartzFonts(serif=grDevices::quar...
c("Hiragino Mincho Pro W3",
"Hiragino Mincho Pro W6",
"Hiragino Mincho Pro W3",
"Hiragino Mincho Pro W6")))
grDevices::quartzFonts(sans=grDevices::quart...
c("Hiragino Kaku Gothic Pro W3",
"Hiragino Kaku Gothic Pro W6",
"Hiragino Kaku Gothic Pro W3",
"Hiragino Kaku Gothic Pro W6")))
# grDevices::quartz.options(family="sans")
}
)
attach(NULL, name = "MacJapanEnv")
assign("familyset_hook",
function() { if(names(dev.cur())=="quartz") par(f...
pos="MacJapanEnv")
setHook("plot.new", get("familyset_hook", pos="MacJapanE...
こんなので当面しのぐのはどうでしょうか. -- [[なかま]] &ne...
- ありがとうございます。助かります。やってみて，ちゃんと...
**縦に並んだデータから平均を出す方法 [#l2981471]
>[[シチノスケ]] (2008-05-01 (木) 19:15:48)~
~
こんにちは。~
次のようなデーセットがあるとします。~
変数xについて，personが同じ値のもの同士で平均をとりたいの...
x person
1 13.078577 1
2 13.365019 1
3 6.365492 2
4 6.287424 2
5 13.974501 3
6 12.838648 3
7 11.565927 4
8 10.240504 4
~
どうぞよろしくお願いします。~
//
- tapply, by を調べましょう。最初は目的を達するためにどの...
- データセットがdataとして、with(data,tapply(x,person,mea...
- xにNAが含まれていると「引数は同じ長さでなければなりませ...
- > na.rm=Tはどのように条件として入れるのでしょうか~
あなたは一体どのようにしたのでしょうか？あなたの言うよう...
tapply のオンラインヘルプは見ましたか？答えは書いてあると...
- 失礼しました。自分のデータで記述を間違ったためでした。...
**テーブルの要素から上位のものを抽出 [#bd2f66a7]
>[[yuta]] (2008-05-01 (木) 14:29:36)~
~
次のようなテーブル（またはデータフレーム）があるとします~
A B C D
1 1 4 0 2
2 0 1 5 3
3 3 2 1 1
4 4 2 4 1
5 5 9 3 0
このテーブルの、例えば各列の上位2つの要素だけを抽出し集計...
<こんな結果が得たい>~
A B C D
1 0 4 0 2
2 0 0 5 3
4 4 0 4 0
5 5 9 0 0
//
- データフレームがxだとして、 x2<-x*ifelse(apply(-x,2,ran...
- 最大値もしくは二番目に大きな値が複数ある時はどうしたい...
- タイの扱いは悩ましいところなのですが、複数の値をいずれ...
**NAを含むデータフレームの列別の合計や平均値を求める方法...
>[[ｙｈ]] (2008-04-29 (火) 00:43:59)~
~
Ｒの初心者です。xのdata.frameにNAが含まれていると、列の合...
例えば、xの内容が次の場合、
A B C
1 1 2 NA
2 2 3 4
3 3 NA 5
4 4 5 6
5 5 6 7
次のように書けば、
for(i in 1:3){y<-append(y,sum(x[,i][!is.na(x[,i])]))}
> y
[1] 15 16 22
で求められることがわかりましたが、これでは記述が煩雑で長...
//
- あってもおかしくない -> たいていある、が R の良いとこ...
> x
A B C
1 1 2 3
2 2 3 4
3 3 4 NA
4 4 5 6
> rowMeans(x, na.rm=TRUE)
[1] 2.0 3.0 3.5 5.0
> rowSums(x, na.rm=TRUE)
[1] 6 9 7 15
- 早速の回答を有り難うございました。na.rmとはNAをremoveす...
- 少し工夫が必要 -- &new{2008-04-29 (火) 13:08:36};
> !is.na(x)
A B C
[1,] TRUE TRUE TRUE
[2,] TRUE TRUE TRUE
[3,] TRUE TRUE FALSE
[4,] TRUE TRUE TRUE
> rowSums(!is.na(x))
[1] 3 3 2 3
- あっ！なるほどと感心しました。sumでもTRUEの個数をカウン...
- 失礼、行ではなく列、ということでしたね。もうお分かりと...
**for文での連続した処理 [#y3aea9df]
>[[初心者]] (2008-04-27 (日) 19:22:10)~
~
初歩的な勘違いをしていると思いますが、ご指摘くだされば幸...
> a1<-c(1,2)
> a2<-c(3,4)
とし、
> for(i in 1:2){x<-paste("a",i,sep="");mean(x)}
とすると、
NA
NA
Warning messages:
1: 引数は数値でも論理値でもありません。NA 値を返します i...
2: 引数は数値でも論理値でもありません。NA 値を返します i...
と返ってきますが、a1,a2のそれぞれのmeanの値を返すには、~
どういうプログラム文が必要でしょうか？~
- 昔から何度も出てきている質問で「変数名を自動的に作って...
a1<-c(1,2)
a2<-c(3,4)
for(i in 1:2){
text0<-paste("x<-a",i,sep="") #実行される文を作る
eval(parse(text=text0)) #textには実行される文を指定
print(mean(x))
}
- 実行できました。どうもありがとうございます。過去ログは...
**R2.7.0におけるlocator()の仕様 [#z92dcbbf]
>[[すろん]] (2008-04-25 (金) 18:15:18)~
~
iMacG5, MacOSX10.5.2にR2.7.0を入れました。~
~
R2.6.2を利用していたときは，~
> locator()
と入力してenterキーを押した後，適当にQuartzデバイス画面を...
~
この動作を2，3回繰り返した後，再びRを起動して，~
> locator(1)
> locator(5)
などと命令しました。これは問題なく動作しました。しかしloc...
~
括弧の中の数値が大きい場合など，途中でやめたい時もあるの...
//
- 私のMac(IntelMacBookBlack2G&Leo.2)でも同じですね。2.6.*...
- 確認していただいてありがとうございます。IntelMacでも同...
**データーフレームからの特定条件の抽出 [#gcd1813d]
>[[subset]] (2008-04-23 (水) 22:56:19)~
~
いつも拝見しております。~
どうしてもうまくいかないので、ご教授を願います。~
下記のようなデータフレーム DFの抜粋があるとします。~
Xには何らかの数字が入っているとします。~
A B C D
a 0.265 -0.422 -0.735 X
b 0.000 0.273 -0.102 X
c 0.647 -0.233 -0.593 X
d 0.551 -1.171 -2.047 X
e -0.078 0.177 0.213 X
f 0.023 -0.330 -0.380 X
g -0.129 0.086 0.277 X
h 0.174 -0.571 -0.095 X
i X X X X
j X X X X
~
これから、~
� (B-A) >= 0.2 または (C-A) >= 0.2~
� (B-A) >= 0.2 ではあるが (C-A) >= 0.2を除くデータ~
� (C-A) >= 0.2 ではあるが (B-A) >= 0.2を除くデータ~
� �で作ったデータフレームを利用し (D - B) ...
~
をそれぞれ抽出し新たなデータフレームを4つ作りたいと思いま...
~
自分なりに調べsubsetで抽出してみましたが下記のようにしても~
うまくいきませんでいた。~
~
A1 <- subset (DF, (B - A) >= 0.2 | (C - A) >= 0.2 )~
A2 <- subset (DF, (B - A) >= 0.2 &! (C - A) >= 0.2)~
A3 <- subset (DF, (C - A) >= 0.2 &! (B - A) >= 0.2)~
B1 <- subset (A1, (D - B) >= 0.2 &! (D - C) >= 0.2)~
~
アドバイスをいただければと思います。~
よろしくお願いいたします。~
//
- なにがうまくいかないのですか？ ちなみに、A1のところは ...
- うまくいきましたよ。 -- &new{2008-04-24 (木) 01:24:07};
- コメントありがとうございます。私の環境で実行しますと、A...
- ちゃんとできるよ．なんか考え違いしているんじゃない？ ~
set.seed(1)
DF <- data.frame(
A=c(.265,0,.647,.551,-.078,.023,-.129,.174,round(runif(...
B=c(-.422,.273,-.233,-1.171,.177,-.330,.086,-.571,round...
C=c(-.735,-.102,-.593,-2.047,.213,-.380,.277,-.095,roun...
D=round(runif(10,-1,1),3),
row.names=letters[1:10])
A1 <- subset (DF, (B - A) >= 0.2 | (C - A) >= 0.2 )
A2 <- subset (DF, (B - A) >= 0.2 &! (C - A) >= 0.2)
A3 <- subset (DF, (C - A) >= 0.2 &! (B - A) >= 0.2)
B1 <- subset (A1, (D - B) >= 0.2 &! (D - C) >= 0.2)
C1 <- subset (DF, (D - B) >= 0.2 &! (D - C) >= 0.2)
-- &new{2008-04-24 (木) 23:12:26};
- ＆！ というのは使いたくないなあ。せめて & ！（ のよう...
- コメント有り難うございます。ただ、上記のB1 <- subset (A...
B1 <- subset (A1, (D - B) >= 0.2 | (D - C) >= 0.2)
B2 <- subset (A1, (D - B) >= 0.2 &! (D - C) >= 0.2)
B3 <- subset (A1, (D - C) >= 0.2 &! (D - B) >= 0.2)
に変更し計算させたところ、データの数が B1 = B2 + B3 にな...
内容を確認したところ、どうもB2, B3の結果はDFのデータから...
いろいろ調べたのですが、皆様がおっしゃるように方法自体は...
ないと思うのですが。不思議でしょうがありません。-- [[subs...
- >データの数が B1 = B2 + B3 になりませんでした。~
なるよ．上記の例だと， B1 が b, g, i で， B2 が g で， B...
> ( B1 <- subset (A1, (D - B) >= 0.2 | (D - C) >= 0.2) )
A B C D
b 0.000 0.273 -0.102 0.322
g -0.129 0.086 0.277 0.374
i 0.266 0.573 0.202 0.540
> ( B2 <- subset (A1, (D - B) >= 0.2 &! (D - C) >= 0.2) )
A B C D
g -0.129 0.086 0.277 0.374
> ( B3 <- subset (A1, (D - C) >= 0.2 &! (D - B) >= 0.2) )
A B C D
b 0.000 0.273 -0.102 0.322
i 0.266 0.573 0.202 0.540
> subset (DF, (D - B) >= 0.2 &! (D - C) >= 0.2)
A B C D
g -0.129 0.086 0.277 0.374
h 0.174 -0.571 -0.095 -0.232
> subset (DF, (D - C) >= 0.2 &! (D - B) >= 0.2)
A B C D
b 0.000 0.273 -0.102 0.322
i 0.266 0.573 0.202 0.540
- subset自体じゃなくてその周りに間違いがあると思うから、...
- うまくいきました。失敗の原因は符号が逆でした。簡素な式...
- 脱力。論理式の簡略化は簡単なことなのですから。簡略化す...
**各列の項目ごとの集計表を一つの表にまとめるには？ [#x5b1...
>[[初心者]] (2008-04-22 (火) 18:49:31)~
A B C D~
1 a 5 1
2 c 3 0
1 a 3 1
1 b 1 0
2 a 2 0
1 a 4 0
といった行列から~
~
1 2 ←Aについての集計表
4 2
a b c ←Bについての集計表
4 1 1
1 2 3 4 5 ←Cについての集計表
1 1 2 1 1
0 1 ←Dについての集計表
4 2
~
といった感じで、各列の項目ごとの集計表を一つにまとめるに...
~
試しに以下のようなスクリプトを書いてもみましたが、うまく...
xlab <- c(names(x)) #列タイトルのベクトル化
n <- ncol(x) #繰り返し回数（列数）の取得
for (i in 2:n){
cbind(table(x$xlab[i-1]),table(x$xlab[i]) )
}
~
アドバイスいただけないでしょうか？~
~
//
- ひとつにまとめるってのがよくわかんないけど、apply(x,2,t...
- あなたが求める形式となるべく近いものを得るには，for (i ...
> for (i in 1:ncol(x)) print(table(x[,i]))
1 2
4 2
a b c
4 1 1
1 2 3 4 5
1 1 2 1 1
0 1
4 2
- ありがとうございました。以下のようなスクリプトで解決し...
x <- データ
n <- ncol(x)
#各列ごとにテーブル集計を行う
a <- apply(x, 2, "table")
#各列のテーブルを一つのテーブルに追加
for(i in 1:n){
write.table(a[i], "y.csv", sep = ",", append = T)
}
&new{2008-04-23 (水) 11:19:13};
**gzファイルのパッケージ [#o42c2216]
>[[MA]] (2008-04-19 (土) 20:00:30)~
~
WindowsOSとWindowsのRで、.gzで圧縮されたパッケージを使う...
以下にエラーunpackPkg(pkgs[i], pkgnames[i], lib, installW...
malformed bundle DESCRIPTION file, no Contains fi...
となってしまいます。~
他に方法があるのでしょうか？~
ちなみに、パッケージのリストには表示されません。~
//
- Windows は使ったことがありませんが、Windows 用のバイナ...
- 上で指摘されている通り、tar.gz付きはソースファイルです...
- コメントありがとうございます。zipで探してみます。 -- [[...
- ちなみに、ソースのかかれた.Rファイルをパスのとおってい...
- 純粋にRだけで書かれている自己充足的な関数はそうでしょう...
- それとパッケージからインストールしないとオンラインヘル...
**Rの独習方法 [#k27d03db]
>[[デッサウ]] (2008-04-19 (土) 19:30:38)~
~
これから本気でRを独習しようと考えております。~
理系出身であり、いまはエクセルで重回帰分析を~
行っておりますが統計についての知識は乏しく、~
解析自身にも自信が持てません。~
正しく統計解析を行えるようになりたく~
アドヴァイスありましたらよろしくお願いします。~
//
- 「正しく統計解析を行えるように」 -> 初級Q&Aで答えられる...
- 私の経験（医療生物統計）で言えば、(1)データの尺度分類／...
- ブラックボックスを使うのは止めましょう。十分に理解した...
- 曖昧な質問になってしまいましたが回答ありがとうございま...
- まず青木先生のサイトで勉強されたらいかがですか？ そして...
- 練習 -- [[st]] &new{2008-07-01 (火) 11:18:40};
**AIX6へのインストール [#l69aa622]
>[[シバタ]] (2008-04-18 (金) 13:12:54)~
~
AIX6(64bit)にRの最新版をインストールしたいのですが、対応...
//
- 実際にインストールして，動くかどうか試したら，質問への...
- AIXに詳しい人以外には, お薦めしません. 私は, 全AIXバー...
- ご回答有難う御座います。以前、AIX5.2でRをインストールし...
- 最低限作業が必要なのは, m4ディレクトリ以下のm4マクロのa...
- http://prs.ism.ac.jp/~nakama/AIX/ でうまく行ったと私以...
**画像ファイルの上書き防止 [#yd323eee]
>[[初心者]] (2008-04-16 (水) 12:13:24)~
~
画像ファイルの上書きを防止するにはどうすればよいのでしょ...
~
write()などだと、append = Tとすることで上書きを防ぐことが...
~
よろしくおねがいします。~
//
- ファイルの存在有無がわかればいいので、こんなのでどうで...
if(file.exists(file <- "hoge.pdf"))
{
stop("File already exists.")
} else
{
pdf(file)
plot(1:10)
dev.off()
}
- 上記は勘違いでした。「上書きを防ぐ」というより、「既存...
- (質問の趣旨が複数プロットを別個のファイルに書き込みたい...
> png(); plot(runif(10)); plot(runif(20)); dev.off(); li...
null device
1
[1] "Rplot001.png" "Rplot002.png"
Tips はファイル名に %d というおまじないを書き込むことです...
?png より：
If you plot more than one page on one of these devices a...
include something like '%d' for the sequence number ...
file will contain the last page plotted.
- すると
$ R -q
> png("hoge%i.png")
> plot(sin,-pi,pi)
> plot(cos,-pi,pi)
> dev.off()
> q("no")
$ convert -append hoge1.png hoge2.png hoge.png
と言うような事を御所望? -- [[なかま]] &new{2008-04-16 (水...
- たくさんのアドバイスありがとうございます。説明が不十分...
png(filename ="Rplot%03d.png"）
plot(1:10)
plot(1:15)
plot(1:20)
dev.off()
こうすると、連番でRplot001-003までが作成されます。
次に、以下の処理を行うと…
png(filename ="Rplot%03d.png"）
plot(1:30)
plot(1:200)
plot(1:300)
dev.off()
上で作成した連番のRplot001-003に上書きされる形でRplot00...
できれば、ここを「Rplot004-006という感じで作成したい」...
これが無理であれば、テキストファイルなどの作成時、appen...
いかがでしょうか？
- 一つの欠番もなく本当に連番にしたいのなら，自分で管理す...
一番簡単にあなたの希望を叶えるのは，もうこれ以上ファイル...
- そんなに使いやすいとは思わないけれど例えば。ただしこれ...
> list.files(patt=glob2rx("Myplot*.png"))
[1] "Myplot1.png" "Myplot2.png" "Myplot3.png" # 既に1か...
> png(file=paste("Myplot", 1+length(list.files(patt=glo...
> plot(runif(10)); dev.off()
null device
1
> list.files(patt=glob2rx("Myplot*.png"))
[1] "Myplot1.png" "Myplot2.png" "Myplot3.png" "Myplot4.p...
**複数のグラフを並べて一つのファイルに [#d4c11a7d]
>[[iris]] (2008-04-14 (月) 12:13:08)~
~
いつもお世話になっています。~
~
複数のグラフを一括で見るためにグラフを並べるにはどうすれ...
~
調べてpar(mfrow)を試してみたのですが、できるものとできな...
~
できるもの~
par(mfrow = c(3,2))~
plot(1:5)~
plot(1:10)~
plot(1:15)~
…~
~
できないもの~
x <- iris~
par(mfrow = c(3,2))~
histogram(~Sepal.Length, data = x)~
histogram(~Sepal.Width, data = x)~
histogram(~Petal.Length, data = x)~
…~
この場合、ヒストグラムは（小さなサイズでは表示されず）一...
~
アドバイスいただけると嬉しいです。~
//
- print(histogram(~Sepal.Length, data = x),split=c(1,1,3,...
- ありがとうございます。latticeしっかり読んでみます。 -- ...
- なぜ，histogram にこだわるのかわからないなあ。確かに，h...
- histでできました！教科書に沿って勉強していたもので、his...
- よかったですね。histogramの解法がわかったらUPしてくださ...
**VC++ からR.dllをロード・Rの関数を実行したい → NG:Access...
> (2008-04-13 (日) 18:42:58)~
~
お世話になっております。~
~
VC++6.0上でアプリをつくっています。~
目的は「C++のアプリで、C++のソース上からRの関数を実行する...
~
現在、R.dll をロードさせて、コンパイルを通すことまではで...
※バーションは「R-2.4.1」です。~
~
アドバイス頂けないでしょうか。~
以下、私が行った操作です。~
~
1: R.dllから Rdll.lib を生成 ~
$pexports R.dll > R.exp~
$lib /def:R.exp /out:Rdll.lib
2: RのDLLとヘッダーファイルのディレクトリを指定
VC++ メニューの「ツール」-「オプション」にて~
・インクルードファイル "Rのルート"/include~
・ライブラリファイル "Rのルート"/bin
3: 1で作成したRdll.libをリンクさせる
「プロジェクト」-「設定」~
「リンク」- オブジェクト・ライブラリモジュールに ...
4:R言語の関数を呼び出すC++コードを記述して コンパイル~
たとえばこんな感じ~
#include <R.h>
int main ( void )
{
SEXP a = allocVector(STRSXP, 1); // R.dll 内の関数
return 0;
}
※リンクエラーも無く、コンパイルは通ります。~
~
5:実行~
→NG:allocVector関数コール時にAccessViolationが発生~
（デバッガ・ステップ実行にて確認）~
・そもそも、R.dll は VC++上から使用できない？~
・RcppTemplate（R/C++間のインターフェース用ツール）の...
//
- こうしたかなり特殊な話題はここで質問するよりは RsiteSe...
**軸の目盛を内側にしたい [#s24627bc]
>[[名無し]] (2008-04-13 (日) 14:33:04)~
~
お世話になります。~
表題のとおりなのですがどうしたら良いのでしょうか？~
~
side3の軸を下まで持ってくればいけるかと思ったのですが~
xlim <- c(1,5)
ylim <- c(2,4)
plot.new()
plot.window(xlim, ylim)
box()
axis(1)
axis(3, pos = ylim[1])
中に浮いてうまく重なりませんでした。~
~
よろしくお願いいたします。~
//
- axis(1, tcl = 0.5) でいかがでしょうか？ -- &new{2008-0...
- tckとtclでtickの長さと方向を指定できたのですね。有難う...
**zooオブジェクトをas.tsするとtimeがずれる [#h67fa041]
>[[名無し]] (2008-04-12 (土) 17:05:25)~
~
お世話になります~
~
> z <- zoo(matrix(c(1:4),2),c(as.Date("2008-01-30"),as.D...
> z
2008-01-30 1 3
2008-02-06 2 4
上のようなデータがあったとき~
> julian(time(z))
[1] 13908 13915
attr(,"origin")
[1] "1970-01-01"
ですが、as.tsすると~
> as.ts(z)
Time Series:
Start = 13909
End = 13916
Frequency = 0.142857142857143
zoo(coredata(x), tt).1 zoo(coredata(x), tt).2
13909 1 3
13916 2 4
となりjulianのときは13908,13915だったのにas.tsでは13909,1...
> z2 <- z
> time(z2) <- julian(time(z))
> z2
13908 1 3
13915 2 4
> as.ts(z2)
Time Series:
Start = 13909
End = 13916
Frequency = 0.142857142857143
zoo(coredata(x), tt).1 zoo(coredata(x), tt).2
13909 1 3
13916 2 4
としてもずれます。~
> as.ts(z2, start=13908)
Time Series:
Start = 13909
End = 13916
Frequency = 0.142857142857143
zoo(coredata(x), tt).1 zoo(coredata(x), tt).2
13909 1 3
13916 2 4
startは効きませんでした。~
なぜなのでしょうか？~
~
複数のデータ（日付毎のデータと週毎のデータ）を重ねてプロ...
~
バージョン＆OSは~
R version 2.6.2 (2008-02-08) ~
i486-pc-linux-gnu ~
ubuntu8(hardy)~
です。~
~
よろしくお願いいたします。~
//
- zooオブジェクトのままplotしたらだめですか? plot(z, xlim...
- ありがとうございました。そのtsの変換法を使用させていた...
**グラフのx軸の作り方を教えてください。 [#wd135eab]
>[[シチノスケ]] (2008-04-11 (金) 12:27:15)~
~
こんにちは。~
http://www.geocities.jp/t_okumurin/080411graph.bmp~
にあるようなグラフをRで作りたいのですが，x軸をどうやって...
どうぞよろしくお願いいたします。~
//
- xaxt="n", axis() -- &new{2008-04-11 (金) 13:55:27};
**rJavaで.jinit()に失敗してしまうようです。 [#u927a967]
>[[はーとりずむ]] (2008-04-10 (木) 13:30:54)~
~
お世話になります。~
~
質問内容は、WinXP + R2.6.2 + JRE1.6.0_05上でrJavaやiplot...
何か問題解決のヒントがあればご教授ください。~
~
ちなみに実行するたびに、出てくるエラーが違うのですが、概...
~
[パターン1]~
Error occurred during initialization of VM~
Could not reserve enough space for object heap~
Error in .jinit() : Cannot create Java virtual machine (-...
~
[パターン2]~
以下にエラー .jinit() : Cannot create Java virtual machin...
~
また、SessionInfo()の情報は下記のとおりです。~
~
R version 2.6.2 (2008-02-08) ~
i386-pc-mingw32 ~
~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
~
other attached packages:~
[1] rJava_0.5-1 RODBC_1.2-3~
~
以上よろしくお願いいたします。~
//
- 原因は全く分からず推測ですが、エラーはRというよりJavaの...
**データフレームのソート方法 [#e83a7b85]
>[[masa]] (2008-04-09 (水) 21:27:41)~
~
例えば、下のようなデータフレームがあるとします。~
~
A B C
AB 1 6 1
AC 4 1 3
AD 3 3 1
AE 2 5 2
AF 1 1 1
AG 1 2 4
~
このようなデータをAの列を基準列として、大きい順に並び替え~
A列に含まれる3以上を基準としB,Cを順次大きい数字順に並び替...
例えば下のようにです。~
~
A B C
AC 4 1 3
AD 3 3 1
AB 1 6 1
AE 2 5 2
AG 1 2 4
AF 1 1 1
~
一つの列のみの並び替えならば、orderを使用することで~
並び替えることができました。~
~
アドバイスをいただければと思います。~
//
- masaさんのおっしゃる通り「A列に含まれる3以上」かつ「B,C...
- 仕様と例が今ひとつしっくりしていない。（仕様の記述が不...
- コメントありがとうございます。BとCは今度はB内のAに含ま...
- かぶった？みんな同じ事を考えるんだね。 -- &new{2008-04...
- 使い始めて日が浅く、order関数で複数行の設定ができません...
- もちろんRjpwikiで[[基本操作のページ:http://www.okada.jp...
あとは[[R-Tips:http://cse.naro.affrc.go.jp/takezawa/r-tip...
最近は他にもR関係のHPが増えているので、googleで自分にあっ...
- 自分なりに調べ、解決したので報告させていただきます。~
~
sortlist <- rev(order(DF$A ))
T1 <- DF[sortlist,]
T2 <- subset (T1, A >= 3.0)
T3 <- subset (T1, A < 3.0)
sortlist <- rev(order(T3$B ))
T4 <- T3[sortlist,]
T5 <- subset (T4, B >= 3.0)
T6 <- subset (T4, B < 3.0)
sortlist <- rev(order(T6$C ))
T7 <- T6[sortlist,]
T8 <- subset (T7, C >= 3.0)
T9 <- subset (T7, C < 3.0)
DF2 <- rbind (T2, T5, T8)
~
どうでしょうか。何かアドバイスがあればお願いします。-- [[...
- 少なくとも，最後の行は，DF2 <- rbind (T2, T5, T8, T9) ...
- 解きほぐすと頭の体操にはなると思うけど、実際は使わない...
- 様々なコメントありがとうございます。 -- [[masa]] &new{2...
**作業スペースの保存、読み込みについて [#i9930543]
>[[初心者]] (2008-04-09 (水) 13:54:17)~
~
R終了時に作業スペースを保存して次にそれを読み込むと以下の...
~
load("C:\\Users\\tak\\Documents\\R\\workspace\\.RData")
Warning message:~
In readChar(con, 5) : can only read in bytes in a non-UTF...
~
「作業スペースの保存」とは現在の作業を保存して次に立ち上...
~
R version 2.6.2 (2008-02-08) ~
i386-pc-mingw32 ~
~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
~
OS=VISTA~
//
- ？？？さんのプログラムが動きました！ありがとうございま...
- errorじゃなくてwarningです。基本的に無視して大丈夫。 --...
- 保存した作業スペースが出てこないで、最初からのスタート...
- 自分で保存したり読み込んだりしているのですか？作業を終...
- 自動的に読み込まれません。
[以前にセーブされたワークスペースを復帰します] 起動準備中...
とのメッセージになります。
- 勘違いしてるような気がしているので一応。コンソールの出...
- 勘違いしてました。ありがとうございました。 -- [[初心者]...
- 何でそんな変なメッセージが出るのかわからないけど，最初...
- たぶんR2.6.2からconnection系の何かが変わってマルチバイ...
- 無視して下さい. 警告メッセージが出るだけです. 動作がお...
**画像ファイルへの連続出力 [#ra9b05b0]
>[[iris]] (2008-04-09 (水) 10:21:04)~
~
連続する列に対して、自動的に「ヒストグラムを書いて、それ...
ファイル自体はできているのですが、中身は白紙になってしま...
アドバイスいただけると嬉しいです。~
~
x <- iris
n <- ncol(x) #繰り返し回数（列数）の取得
for (i in 1:n){
file.name <- sprintf("Fig%03i.png", i) #出力ファイルの通...
png(file.name, width = 400, height = 400) #pngデバイスド...
histogram(x[,i]) #i:列, x:データフレーム
dev.off()
}
//
- library(lattice)しなかっただけでは？
library(lattice)
options(device="png")
png<-function(filename = "Fig%03d.png", width = 400, hei...
grDevices::png(filename,width,height,...)
}
lapply(iris,function(x)if(is.numeric(x))histogram(x))
dev.off()
ちゃんと, 出てると思います -- [[なかま]] &new{2008-04-09 ...
- なかまさんプログラム例まで書いていただき本当にありがと...
- iris 氏の，掲示されたプログラム（for で回す）の出力は長...
以下のようにするとよい（オンラインヘルプの png を良く読め...
（なかま さんのは，書き方が玄人好みで難しい）~
（histogram は対象変数が factor でも“棒グラフ”？を描いて...
png(filename="png%i.png", width = 400, height = 400)
lapply(iris, histogram)
dev.off()
- 「NULL デバイスです」のメッセージはデバイスが開いていな...
- png()として, 何かエラーは出てませんか？pngデバイスはWin...
- どうも，for ループの中で ping()…dev.off() をやると問題...
- latticeグラフィックスオブジェクトはprint/plotして始めて...
- ああ, そういえば, forはprint.evalしないですね.(for使わ...
- 皆様のおかげで問題も解決して自分のプログラムが動きまし...
**変数の削除 [#p770dbe5]
>[[ma]] (2008-04-09 (水) 06:02:51)~
~
データセットから分散が０のものを自動的に削除する方法を探...
updateなどを使う方法は理解してますが、一括で行う方法が見...
//
- 「自動的」ってどの程度の自動性を望むのでしょうか。デー...
- R-コマンダーで読み込んだデータセットに対してコマンドか...
- xがmatrixならx[,apply(x,2,sd)>0]になります。~
オブジェクト"x"が存在しないのはMAさんがオブジェクト"x"を...
- コメントありがとうございます。 -- [[MA]] &new{2008-04-1...
**データフレーム中のNAの置換 [#z5c63ca4]
>[[nami]] (2008-04-08 (火) 23:51:38)~
~
ある2つのデータフレームをmergeした時、欠損値はNAとなって...
このNAを0に置換したいのですがうまくいきません。例えば、~
> datA <- data.frame(x = c("A","B","C"), y = c(1:3))
> datB <- data.frame(x = c("A","B","D"), z = c(4:6))
> (datC <- merge(datA, datB, all = TRUE, by = "x"))
x y z
1 A 1 4
2 B 2 5
3 C 3 NA
4 D NA 6
この中のNAを0に置換したいのです。~
datD <- replace(datC, which(is.na(datC)), 0)~
などとしてみましたが ~
以下にエラー `[<-.data.frame`(`*tmp*`, list, value = 0) :
新しい列は既存の列に穴を開けるかも知れませんうまくいき...
となり、うまくいきませんでした。~
どなたか、ご教示くだされば幸いです。~
環境はR2.6.2、windowsXP SP2です。~
宜しくお願いします。~
//
- こんなんでいいのかしら？ -- &new{2008-04-09 (水) 00:31...
> datC[is.na(datC)] <- 0
> datC
x y z
1 A 1 4
2 B 2 5
3 C 3 0
4 D 0 6
- ありがとうございます。目的のことができました。 -- [[nam...
- NAはNAで0ではありませんから副作用が無いかどうかよく吟味...
**Graphvizの記法をRgraphviz用に翻訳 [#e49b6edb]
>[[kado]] (2008-04-08 (火) 23:17:57)~
~
Graphviz用に書かれたプログラムをRgraphvizで簡単に実行する...
~
semで得られた結果をグラフ化するとき、いちいちGraphvizを通...
なにかよい方法はないでしょうか？~
//
**データフレームにある重複rownameの操作について [#cc1401d3]
>[[DataFrame]] (2008-04-08 (火) 16:23:58)~
~
はじめまして、データフレームのrowname操作について質問しま...
~
下のようなデータフレームがあるとします。
a b c
1 h 0 2
2 l 1 3
3 h 1 2
このデータを次のようにしたいと考えています。
b c
h 0 2
l 1 3
h 1 2
どの様にすればよいでしょうか？解決方法をお願いいたします。~
//
- 奇遇ですね。昨日，[[Ｑ＆Ａ (中級者コース)]]に掲示された...
- お教え頂いた「rownameの付け方」では、上記内容ですとrow....
- このデータでは無理です。row.namesにはduplicateが許され...
- コメントありがとうございます。何らかの処理で取り除かな...
- 無理やりつけれないこともないですが、意味がないですよね。~
matrixと転置を使うと重複が許されます。
x <- data.frame(matrix(1:12,3))
colnames(x) <- rep("A",4)
x <- t(x)
rownames(x)
で、これをしていて気づいたのですが、
x <- data.frame(matrix(1:12,3))
colnames(x) <- rep("A",4)
x <- t(x)
rownames(x)
as.data.frame(t(x)) # エラー
rownames(as.data.frame(t(x))) # 重複したrownameを返す。
なんだか奇妙ですね。 -- [[akira]] &new{2008-04-08 (火) 18...
//- 最後の2行は，以下のように書きたかったんじゃ？ -- &ne...
// > as.data.frame(x)
// 以下にエラー data.frame(V1 = c(" 1", " 4", " 7", "10"...
// row.names が重複しています： A
// > rownames(as.data.frame(x))
// [1] "A" "A" "A" "A"
- コメントありがとうございます。例えば、h, l, h1,と自動で...
- ともかくユニークにしたければ例えば。 -- &new{2008-04-0...
> DF2 <- transform(DF, a=paste(a, seq(nrow(DF)), sep=""))
> DF2
a b c
1 h1 0 2
2 l2 0 3
3 h3 1 2
- 目的としていることが、簡単にできるようになりました。あ...
- ↑x4 エラーはas.data.frameの中じゃなくてprint.data.frame...
- 二重投稿してしまいました。どのようにしたら消せるのでし...
- ページトップの編集ボタンを押して、該当部分を消します。...
- 誤字の指摘ありがとうございます。無事修正ができました。 ...
- 参考まで。変形後 rownames が h で始まるものだけを取り出...
> DF3
b c
h1 0 2
l2 0 3
h3 1 2
> DF3[grep("\\h", rownames(DF3)),] # grep 関数で行名が ...
b c
h1 0 2
h3 1 2
- 「hで始まる」というのなら，DF3[grep("^h", rownames(DF3)...
- 失礼。そうでした。\\ は \\[ 等として [ で始まる文字列...
- 細かいことを言いますが~
＞ \\ は \\[ 等として [ で始まる文字列~
単に [ を含む文字列です~
＞（^[ は不可）~
[ で始まる文字列は，^\\[ でしょう -- &new{2008-04-09 (水...
- hで始まるだけだと、h1,h2,...とha1,ha2,...が区別できず困...
DF3[grep("^h[[:digit:]]$", rownames(DF3)),]
でしょうか？この辺は[[正規表現:http://www.okada.jp.org/RW...
**histogramのバグでしょうか？ [#yd8a8eeb]
>[[iris]] (2008-04-08 (火) 15:14:25)~
~
a b c~
1 x x x
2 x x x
3 x x x
このようなデータx（具体的にはirisのデータ）のタイトルを数...
~
names(x) <- c(1:ncol(x))~
1 2 3~
1 x x x
2 x x x
3 x x x
~
こうしたうえで、ヒストグラムを作成します。~
histogram(~ 1(←変換したタイトルの番号）, data = x)~
~
すると、タイトル変換前とはまったく別の変なヒストグラムが...
~
変換後の数字にシングル・ダブルクオーテーションをつけても...
histogram(~ '1'(←変換したタイトルの番号）, data = x)~
~
逆に、変換を数字でなくアルファベットにしてみると、問題な...
histogram(~ "a"(←変換したタイトルのアルファベット）, data...
~
ただ、連続する列に対して、自動的にヒストグラムを書きたい...
~
原因と解決法などわかる方がいらっしゃいましたらよろしくお...
//
- > 連続する列に対して、自動的にヒストグラムを書きたいの...
for (i in 1:4) histogram(iris[,i])
等でよいのでは？~
「~ a」などは，formula というもので，formula の「~ 1」は...
- ありがとうございます。ただ、まだ解決されません。
具体的には、以下のようなプログラムを組みました。
x <- iris
n <- ncol(x) #繰り...
for (i in 1:n){
file.name <- sprintf("Fig%03i.jpeg", i) #出力ファイル...
png(file.name, width = 400, height = 400) #pngデバイス...
histogram(~ x[,i], data = x )} #i:列, x:デー...
dev.off()
}
-- [[iris]] &new{2008-04-08 (火) 18:19:50};
- apply(iris,2,hist)もだめですか？~
上のコードをみますと、
histogram(~ x[,i], data = x )}
がおかしいですね。変なところに「}」があるし、「~x[,i]」も...
histogram(x[,i])
としてはいかかですか？-- [[akira]] &new{2008-04-08 (火) 1...
- akiraさんレス感謝です！ただ、やはりうまくいきません。
実行するとこんな感じになります…
> x <- iris
> n <- ncol(x) #繰...
> for (i in 1:n){
+ file.name <- sprintf("Fig%03i.jpeg", i) #出力ファイ...
エラー：以下の場所で構文エラーがありました.
"for (i in 1:n){
file.name <- sprintf("Fig%03i.jpeg", i)
> png(file.name, width = 400, height = 400) #pngデバイ...
以下にエラーpaste("png:", filename, sep = "") :
オブジェクト "file.name" は存在しません
> histogram(x[,i]) #i:列, x:デ...
エラー："histogram(x[,i])
> dev.off()
以下にエラーdev.off() : デバイス 1 をシャットダウンする...
> }
エラー："}" に構文エラーがありました
-- [[iris]] &new{2008-04-08 (火) 18:43:50};
- あのですね。見えないでしょうが，全角のスペースが入って...
それと，png 関数に渡すファイル名が *.jpeg というのはだめ...
- 全角スペースですか！稚拙な間違いにコメントいただきあり...
- エラー解消しました！ただ、ファイルの出力が・・・。トピ...
**パッケージがインストールできません [#m3eb1709]
>[[pank]] (2008-04-08 (火) 11:09:51)~
~
初歩的な質問ですみません。パッケージインストール時に以下...
~
install.packages("ctv")~
install.packages("ctv") 中で警告がありました：
'lib = "C:/PROGRA~1/R/R-26~1.2/library"' は書き込み可能...
以下にエラー install.packages("ctv") :
パッケージをインストール出来ませんでした
~
OSはVISTAです。いずれのパッケージに対しても同様のエラーが...
（追記） sessionInfo()
R version 2.6.2 (2008-02-08)
i386-pc-mingw32
locale:
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
attached base packages:
[1] stats graphics grDevices utils datasets met...
//
- VistaのProgram Filesは厳しいセキュリティがかかってるの...
- ありがとうございました。うまくインストールできました。...
**列数（あるいは行数）不明のデータの列数（行数）をカウン...
>[[はじめ]] (2008-04-07 (月) 17:46:51)~
~
初歩的な質問で申し訳ありません。~
~
題名そのままなのですが、~
列数（あるいは行数）不明のデータの、列数、行数をカウント...
//
- dim(x) -- &new{2008-04-07 (月) 18:10:56};
- nrow(x);ncol(x) -- &new{2008-04-07 (月) 19:04:56};
- ダウングレードしてるようなので，length(x[1,]); length(x...
- まずは基本的な関数を覚えれば解決すると思いますので、[[R...
- 解決しました！勉強したての拙い内容ですがお答えいただい...
**データフレーム中で、最も近い値との差を求める [#m9699180]
>[[なつめ]] (2008-04-07 (月) 07:47:04)~
~
初心者です、よろしくお願いします。~
２列（xとy）× １００行のデータフレームがあります。~
私がやりたいと思っていますのは、xの1行目から100行目のそれ...
最も大きさが近い値をyの1から100行目から探し、その差を、そ...
どのようにしたら良いでしょうか？~
//
- エレガントな解ではないけど -- &new{2008-04-07 (月) 10:...
d <- data.frame(x=rnorm(100), y=rnorm(100))
z <- outer(d$x, d$y, "-")
apply(z, 1, function(u) {
min1 <- min(c(u[u>=0], Inf))
min2 <- max(c(u[u<0], -Inf))
return(ifelse(min1 >= -min2, min2, min1))
})
- sapply(d$x,function(x)min(abs(d$y-x))) ベタな解だ・・...
- 差に符号が必要なら sapply(d$x,function(x){z<-d$y-x;z[wh...
- 迅速なアドバイスありがとうございました。また質問させて...
**月別発生率の分析について [#r9e097b9]
>[[ポアソン]] (2008-04-04 (金) 13:00:09)~
~
下のデータは数年間に発生した二つの事象の月別発生数を示し...
> table(DAT_g$month)~
~
1 2 3 4 5 6 7 8 9 10 11 12
1 1 0 1 1 1 2 1 0 1 1 0
> table(DAT_d$month)~
~
1 2 3 4 5 6 7 8 9 10 11 12
2 1 3 4 2 0 0 3 2 2 0 4
~
これらから、月ごとの発生に差があるかどうかを示したいので...
//
- DAT_g と DAT_d で分布が違うということを言いたいのでしょ...
> x
[1] 1 1 0 1 1 1 2 1 0 1 1 0
> y
[1] 2 1 3 4 2 0 0 3 2 2 0 4
> ( d <- rbind(x, y) )
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,1...
x 1 1 0 1 1 1 2 1 0 1 ...
y 2 1 3 4 2 0 0 3 2 2 ...
> fisher.test(d)
Fisher's Exact Test for Count Data
data: d
p-value = 0.2637
alternative hypothesis: two.sided
- コメントありがとうございます。おっしゃるとおり統計の部...
- ポアソン分布に従うか，月ごとに一様か，どれくらいだと逸...
- 統計に関する質問はクロスポストになってしまいますが、統...
私もそうですが、Rjpwikiは統計プロパーでない人も多いので。...
- もう少しご指導をお願いします。
それぞれの発生数を元にベクトルを作成しました。
> poi_g <- c(3,8,1,0,0,0,0,0,0,0,0)
> poi_d <- c(3,1,3,2,4,0,0,0,0,0,0)
> sum(poi_g)/12 #lambda 発生数の月平均
[1] 1
> sum(poi_d)/12 #lambda
[1] 1.083333
それぞれをplotすると、poi_gはポアソン分布に近いような気が...
ここで、Rを用いて当てはまりを評価するにはどうしたらよいで...
-- [[ポアソン]] &new{2008-04-05 (土) 11:54:22};
- 平均パラメータの推定は最尤推定で（この場合 0.8）, その...
- http://aoki2.si.gunma-u.ac.jp/lecture/GoodnessOfFitness...
- http://aoki2.si.gunma-u.ac.jp/lecture/GoodnessOfFitness...
http://aoki2.si.gunma-u.ac.jp/R/poissondist.html でもご覧...
sum(poi_g)/12 は，間違えていますよ。sum(0*3+1*8+2*1)/12 ...
- ありがとうございます。何冊かR関係の統計本を読んだところ...
**stepAICについて [#x5274d4c]
>[[ぽい]] (2008-04-03 (木) 01:59:51)~
~
ARIMAモデルの変数選択をstepAICを使用して行いたいのですが...
また、変数の入力方法は~
~
scope=~x1*x2*x3~
~
という方法でいいのでしょうか。~
//
- やってみて，エラーが出たら（エラーメッセージも参考にし...
- 以下のように実行してみました。
> library(MASS)
> g<-arima(y,order=c(1,1,1),seasonal=list(order=c(3,1,2)...
> stepAIC(g,direction="both",scope=~x1*x2*x3)
以下にエラー terms.default(object) : no terms component
このようにエラーが出ました。このエラーはどのようなエラー...
- 「stepAICの引数objectはtermを持たないといけない」という...
gはclassが違うのでしょう。arimaの返り値はtermを持っていな...
- akira さんではないですが，追試できる状態で質問して欲し...
それはさておき，stepAIC のヘルプには，その引数 object が...
結論，「あなたのやり方では stepAIC によるモデル選択はでき...
-質問にお答えいただきありがとうございます。
yは売上データです。試しとして以下のデータでも同様に行って...
> y<-c(0,2,4,3)
> x1<-c(1,0,0,0)
> x2<-c(0,1,1,0)
> x3<-c(0,1,1,1)
> g<-arima(y,order=c(1,1,1))
> stepAIC(g,direction="both",scope=~x1*x2*x3)
ご指摘の通り、stepAICを使用してARIMAモデルの変数選択はで...
**CSVのインポートエラー [#l6d0016c]
>[[basel_firb]] (2008-03-30 (日) 09:29:36)~
~
Window R 2.5.1を使用しています。~
デスクトップ上にあるCSVファイル「test.csv」を「read.csv」...
以下のようなエラーが出ます。~
> A<-read.csv("test.csv")~
以下にエラーfile(file, "r") : コネクションを開くことが...
追加情報: Warning message:
ファイル 'test.csv' を開くことができません, 理由は'No su...
~
directoryを指定しなければだめなのでしょうか？~
また、directoryの指定方法をご教授願います。~
//
- （１）パスが通っていないこと、（２）２バイト文字のディ...
- ありがとうございます。R初心者なもので・・・。さっそく試...
- R内でWindowsのパス標記は「￥」でなく「/」になりますから...
あと、ファイルの読み込みはフルパスをdir(path="c:/", patte...
- なれるまでは read.csv(file.choose()) としたらいかが -- ...
**画像の拡大 [#j8d2af1f]
>[[きのねっこ]] (2008-03-27 (木) 11:01:16)~
~
初めて投稿させていただきます。よろしくお願いします。~
現在群平均法をつかってクラスター分析を行ない樹形図に可視...
その際樹形図が1000個のデータからできているので、画像に変...
なんとかこれを解消したいので、是非教えていただけると非常...
//
- 初級Q&Aアーカイブ（８）に似たような質問がありますよ。 -...
- 前に何人か同じことを質問していたようで、申し訳ないです...
**try関数を使用してもエラーが出ます [#g7be1f49]
>[[ぽんぺい]] (2008-03-24 (月) 15:57:06)~
~
ARIMA(p,d,q)モデルの次数をfor文でまわして、全通りの結果を...
~
このfor文をtry()のなかに入れて行ってもエラーで止まってし...
どのようにtryを使用すれば、エラーが出ても最後までまわすこ...
//
- tryの中にfor文を入れなければよいのでは？
layout(matrix(1:4,ncol=2))
try(
for(i in 1:4){
if(i==3) i<-"a"
plot(i)
}
)
これだとエラー
layout(matrix(1:4,ncol=2))
for(i in 1:4){
if(i==3) i<-"a"
try(plot(i))
}
これだと大丈夫-- [[akira]] &new{2008-03-24 (月) 17:39:51};
**IF文でエラーがでます [#e0a3c0c4]
>[[こやま]] (2008-03-19 (水) 13:50:36)~
~
条件分岐式で計算をしようとするとエラーが出ます。非常に初...
~
x y
t t
55 219
t t
234 -293
-122 371
t t
-22 -312
t t
349 182
343 -324
このデータについて、t以外の数値について条件に合致した時だ...
~
n <- nrow(data)
a1 <- 0
a2 <- 0
a3 <- 0
a4 <- 0
a5 <- 0
b1 <- 0
b2 <- 0
b3 <- 0
b4 <- 0
b5 <- 0
for (i in 1:n){
x <- data[i,1]
y <- data[i,2]
if ((x != "t") & (y != "t")) {
if ((x >= 0.0) & (y >= 0.0)){
a1 <- a1 + x
b1 <- b1 + y
}else if ((x >= 0.0) & (y < 0.0)){
a2 <- a2 + x
b2 <- b2 + y
}else if ((x < 0.0) & (y <= 0.0)){
a3 <- a3 + x
b3 <- b3 + y
}else if ((x < 0.0) & (y > 0.0)){
a4 <- a4 + x
b4 <- b4 + y
}else{
a5 <- a5 + x
b5 <- b5 + y
}
}else{
}
}
これを走らせると、以下のようにエラーがでます。欠損値にな...
~
以下にエラーif ((x >= 0) & (y >= 0)) { : TRUE/FALSE が必...
追加情報: 警告メッセージ：
1: >= 因子に対しては無意味です in: Ops.factor(x, 0)
2: >= 因子に対しては無意味です in: Ops.factor(y, 0)
~
//
- ＆ と ＆＆ の違いを調べましょう（ついでに，｜ と ｜｜ ...
数値もfactorになっています -- &new{2008-03-19 (水) 13:55...
data2 <- as.matrix(split(data, data[,1]=="t" & data[,2]=...
x <- as.numeric(data2[,1])
y <- as.numeric(data2[,2])
f1 <- x >= 0 & y >= 0
a1 <- sum(x[f1])
b1 <- sum(y[f1])
f2 <- x >= 0 & y < 0
a2 <- sum(x[f2])
b2 <- sum(y[f2])
f3 <- x < 0 & y <= 0
a3 <- sum(x[f3])
b3 <- sum(y[f3])
f4 <- x < 0 & y > 0
a4 <- sum(x[f4])
b4 <- sum(y[f4])
# a5, b5 は起こらない
a1;a2;a3;a4
b1;b2;b3;b4
とか
data2 <- as.matrix(split(data, data[,1]=="t" & data[,2]=...
x <- as.numeric(data2[,1])
y <- as.numeric(data2[,2])
f <- (sign(y)+1)*3+sign(x)+1
(a1 <- sum(x[f %in% c(4,5,7,8)]))
(b1 <- sum(y[f %in% c(4,5,7,8)]))
(a2 <- sum(x[f %in% 1:2]))
(b2 <- sum(y[f %in% 1:2]))
(a3 <- sum(x[f %in% c(0,3)]))
(b3 <- sum(y[f %in% c(0,3)]))
(a4 <- sum(x[f == 6]))
(b4 <- sum(y[f == 6]))
とか
data2 <- as.matrix(split(data, data[,1]=="t" & data[,2]=...
x <- as.numeric(data2[,1])
y <- as.numeric(data2[,2])
f <- (sign(y)+1)*3+sign(x)+1
f[f %in% c(4,5,7,8)] <- "case1"
f[f %in% 1:2] <- "case2"
f[f %in% c(0,3)] <- "case3"
f[f == 6] <- "case4"
by(x, f, sum)
by(y, f, sum)
とか，最後の2行を以下にするとか
sapply(list(x=x, y=y), by, f, sum)
- さっそくのお返事ありがとうございます！使用しているR本に...
**関数がみつからない [#l1438575]
>[[あだむす]] (2008-03-18 (火) 18:58:52)~
~
はじめて投稿します。よろしくお願いします。~
多重比較のパッケージmultcompの中にある関数simtestを使いた...
help(simtest)とすると、パッケージはインストールされている...
~
> library(multcomp)~
> help(simtest)~
No documentation for 'simtest' in specified packages and ...
you could try 'help.search("simtest")'~
~
help.searchでも同様にエラーがでました。libraryの中にはmul...
~
ちなみにＲのバージョンは2.6.2でOSはWindows XPです。~
//
- multcomp 中に simtest という関数はありません。library(h...
- simtest()は古いユーザインタフェースなのでglht()とsummar...
- 今はglht()という関数を使うのですね。こちらを勉強します...
- multcompのバージョンじゃないですか？[[この記事:http://t...
- akiraさん、関連記事どうもありがとうございます。またRSit...
**semのモデル指定について教えてください [#o3d3b233]
>[[おくむら]] (2008-03-11 (火) 18:05:48)~
~
こんにちは。semパッケージを使って，~
http://www.geocities.jp/t_okumurin/sem.JPG~
にあるようなモデルを分析したいと思うのですが，これをフィ...
一応，~
modelsem <- specify.model()
t1 -> x1, b11, 1
t1 -> x2, b12, 1
t2 -> y1, b21, 1
t2 -> y2, b22, 1
t1 <-> t2, cort, NA
e1 -> x1, be1, 1
e2 -> x2, be2, 1
e3 -> y1, be3, 1
e4 -> y2, be4, 1
x1 <-> x1, d1, NA
x2 <-> x2, d2, NA
y1 <-> y1, d3, NA
y2 <-> y2, d4, NA
こんな感じかと思ったのですが，うまくいかないので。~
よろしくお願いします（ちなみに，ＳＡＳではうまくいきます...
//
- 識別問題に抵触しているかと思いますが，念のため，相関行...
//
- CALISのプログラムはこんな感じです。~
proc calis data=data1 edf=99 all nomod;
lineqs
x1 = 1 f1 + e1,
x2 = 1 f1 + e2,
y1 = 1 f2 + e3,
y2 = 1 f2 + e4;
std
e1-e2 = del1,
e3-e4 = del2,
f1 = 1,
f2 = 1;
cov
f1 f2 = phi12;
run;
相関行列は人工データで発生させたものですが，^
x1 x2 y1 y2
x1 1.0000000 0.9201039 0.8892795 0.8281659
x2 0.9201039 1.0000000 0.7766174 0.7349069
y1 0.8892795 0.7766174 1.0000000 0.9515039
y2 0.8281659 0.7349069 0.9515039 1.0000000
こんな感じのものが1000個あります。
- 以下のプログラムで大丈夫だと思いましたが，無理でした。C...
modelsem <- specify.model()
t1 -> x1, NA, 1
t1 -> x2, NA, 1
t2 -> y1, NA, 1
t2 -> y2, NA, 1
t1 <-> t2, phi12, NA
x1 <-> x1, del1, NA
x2 <-> x2, del1, NA
y1 <-> y1, del2, NA
y2 <-> y2, del2, NA
t1 <-> t1, NA, 1
t2 <-> t2, NA, 1
**変数名のないExcelファイルの読み込み [#q353ffda]
>[[朝からずっと悩んでます]] (2008-03-10 (月) 16:44:46)~
~
~
変数名がなく，1行目からデータが入力されている Excel ファ...
RODBC パッケージの odbcConnectExcel と sqlQuery を使って...
どうしても1行目が変数名扱いになってしまうので，1行目の数...
read.table の header=F のような読み込み方をするには~
どうしたらいいでしょうか？~
~
R のバージョンは 2.6.0, OS は Windows XP, ~
MS-Office 2003 を使用しています。~
//
- RODBCのマニュアルのodbcConnectExcel Excel Connections...
- さっそくのご回答，ありがとうございます。ヘルプは一応読...
- read.xlsはダメですか？ -- [[akira]] &new{2008-03-10 (月...
- akira さんがおっしゃっているのは perl と併用する方の re...
- 時間コストを考えるなら、あれこれ悩むより、read.table()...
- 複数のシートがあるファイルが多数あるので，Excelマクロで...
- この際、難しいですがRExcelを使うのはどうでしょうか？ --...
**X11フォントの設定 [#la14bb43]
>[[きむら]] (2008-03-05 (水) 19:12:50)~
~
なかま さんの "R for OSXでIPAフォントの利用" を行っていた...
//
- 無かったら作るものです. `.Rprofile'というファイルは存在...
- ありがとうございます。ついついネットで日本語の情報ばか...
- 出来ました。というか、実際にやりたかった事は、Rコマンダ...
- 出来ました。というか、実際にやりたかった事は、Rコマンダ...
**ccf()データの出力方法 [#uacde8b3]
>[[こやま]] (2008-03-04 (火) 16:36:00)~
~
Rで、二つの時系列データの相互相関を調べたいと思い、ccf関...
計算結果はｸﾞﾗﾌになって出たのですが、相関係数の値を出力し...
~
> result1 <- ccf(dt[ ,1], dt2[ ,1], lag.max = 120, type...
> write.table(result1, file = "C:/R/result1.txt")~
~
以下にエラーas.data.frame.default(x[[i]], optional = TRU...
クラス "acf" はデータフレームに強制変換できません
~
(result1)と括弧をつけるとR画面上には出力されますが･･･。ま...
~
> write(result1, file = "C:/R/result1.txt")~
~
以下にエラーcat(list(...), file, sep, fill, labels, appen...
引数 1 は，まだ cat で取り扱えません
~
どのようにすればテキストデータに出力できるでしょうか？~
初歩的な質問で申し訳ありません。よろしくお願いいたします。~
//
- 単にテキストに落としたければ sink("C:/R/result1.txt");...
- sink("hoge.txt);result1;sink() フォーマットから替えたい...
- write.table(as.data.frame(result1)[,c(4,1)], file = "C:...
- ありがとうございます。> write.table(as.data.frame(resul...
- sink()の方は、扱いにくい形ではありますがテキストに落と...
- すまぬ。一行抜けていた。as.data.frame する前に，ccf が...
as.data.frame(result1) のどの列をどの順序で出力するかは自...
x <- rnorm(1000)
y <- rnorm(1000)
result1 <- ccf(x, y, lag.max = 120, type = "correlation"...
class(result1) <- "list"
write.table(as.data.frame(result1)[,c(4,1)], "test.dat")
- ありがとうございます！希望する形でテキストに保存するこ...
**行列の読み込み [#h5d77b43]
>[[R初心者]] (2008-03-03 (月) 13:00:34)~
~
Rを用いてクラスター解析を行おうと考えています。~
このとき、はじめから入っているユークリッド距離とかではな...
自分で定義した類似度を用いたいと考えています。~
そこで、perlを用いて類似度の行列を作成しました。~
（行列の形は三角行列です。）~
しかし、読み込もうとすると、要素が有りませんとエラーが出...
類似度のデータをどのような形で取り込めば良いのでしょうか？~
教えてください。お願いします。~
//
- 三角行列をどのように，どの関数に与えたのですか。たとえ...
- 今までは、データをa2<-dist(a,method="euclid")の様に類似...
- その行列はどのようになっているのですか。ファイルに入っ...
0.0000000 0.0000000 0.0000000 0.00000000 0.0000000
0.9118028 0.0000000 0.0000000 0.00000000 0.0000000
0.3342491 0.9712567 0.0000000 0.00000000 0.0000000
0.5905108 0.6187089 0.3155890 0.00000000 0.0000000
0.6783135 0.3242619 0.9274259 0.01916572 0.0000000
のようなデータがデータファイル test.dat にあるとして，以...
> x <- matrix(scan("test.dat"), 5, byrow=TRUE)
Read 25 items
> y <- as.dist(x)
> ans <- hclust(y)
> plot(ans)
- 最低 エラーメッセージを添えないと答えようがありません。...
- > 読み込もうとすると、「要素が有りません」とエラーが出...
実際の所，要素がないのでしょうね。~
なぜ，要素がないとRが判定したのかは，情報不足でわからない...
- 三角行列ファイルをそのままread.tableで読み込んで、as.di...
test.datはこんなcsv
1
.5,1
.2,.3,1
.1,.6,.4,1
> dat <- read.csv("test.dat", header=FALSE, row.names=FA...
> dat
V1 V2 V3 V4
1 1.0 NA NA NA
2 0.5 1.0 NA NA
3 0.2 0.3 1.0 NA
4 0.1 0.6 0.4 1
> hclust(dat)
以下にエラー if (n < 2) stop("must have n >= 2 objects ...
引数の長さが0です
> is(dat)
[1] "data.frame" "oldClass"
> hclust(as.dist(dat))
Call:
hclust(d = as.dist(dat))
Cluster method : complete
Number of objects: 4
> cl <- hclust(as.dist(dat))
> is(cl)
[1] "hclust"
> plot(cl)
とか。 -- [[akira]] &new{2008-03-03 (月) 19:26:48};
- そもそも，「要素が有りません」というエラーメッセージは...
- 返信が送れてすみません。『三角行列ファイルをそのままrea...
- そんなことはないと思います。上の例では空欄は自動的にNA...
**棒グラフのerror barについて [#j061cacf]
>[[初心者です。。。]] (2008-02-29 (金) 14:47:17)~
~
棒グラフとerror barで~
mean±se~
をあらわす方法を教えて下さい。~
barplotで棒グラフはかけるのですが、どうやってerror barを~
つけたらよいのでしょうか？~
宜しくお願いします。~
//
- ?arrows なおその薄いラッパであるsciplotライブラリのbarg...
- 選択に困るくらいいろんな方法があるけど、とりあえずgregm...
> RSiteSearch("barplot {error bar} standard")
で検索しよう-- [[谷村]] &new{2008-02-29 (金) 15:12:06};
- 棒グラフにエラーバーを付けるのは不適切。~
http://tolstoy.newcastle.edu.au/R/e2/help/07/07/22017.htm...
http://biostat.mc.vanderbilt.edu/twiki/bin/view/Main/Dyna...
http://www.vni.com/products/imsl/jmsl/v50/manual/chartpg/...
http://www.gulunap.unina.it/mat_studenti/statistics_at_sq...
"It is a mistake to use a bar chart to display a summary ...
日本語ページ → http://beetama.blog14.fc2.com/blog-entry-2...
無理には止めない。 -- &new{2008-02-29 (金) 16:13:52};
- きつい言い方ですが、あなたはRjpwikiの単語検索を使ってい...
- 「Rjpwikiの単語検索を使いましょう」でよいのでは？ -- &...
- そうですね。[[単語検索:http://www.okada.jp.org/RWiki/?c...
**出力結果の"[1]の意味"は、何ですか?[2]の時もありますか? ...
>[[ろろ]] (2008-02-27 (水) 01:36:41)~
~
[1]を出力しない方法を教えて下さい。~
よろしくお願いします。~
//
- ?cat -- [[takahashi]] &new{2008-02-27 (水) 01:49:18};
**データの個数を得る方法 [#zb8281f6]
>[[すろん]] (2008-02-26 (火) 13:18:54)~
~
はじめまして。お世話になります。~
length()を使うと，~
> data_a <- c(1.5, 1.2, 1.3, 1.6, 1.2, NA, 1.2, 1.5, 1.7...
> length(data_a)
> [1] 10
~
のようにベクトルdata_aの長さを得ることができます。この場...
~
これまでに私が試したのは，(1)あらかじめNA値を削除したベク...
> library(help="base")
> library(help="stats")
~
などを実行して探したり，「The R Tips」，「Rプログラミング...
~
ところで，「簡単な投稿法」を参考にしたかったのですが見あ...
//
- 例えば -- &new{2008-02-26 (火) 13:24:53};
> ( x <- sample(c(1:3,NA), 10, rep=TRUE) )
[1] 1 2 1 1 NA NA 2 3 2 2
> !is.na(x)
[1] TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE TR...
> sum(!is.na(x))
[1] 8
こんなのもあり(素直でないが)。
> x > -Inf
[1] TRUE TRUE TRUE TRUE NA NA TRUE TRUE TRUE TRUE
> sum(x > -Inf, na.rm=TRUE)
[1] 8
まだまだあり。
> complete.cases(x)
[1] TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE TR...
> sum(complete.cases(x))
[1] 8
おそらく、以下が正統派(?)。
> na.omit(x)
[1] 1 2 1 1 2 3 2 2
attr(,"na.action")
[1] 5 6
attr(,"class")
[1] "omit"
> length(na.omit(x))
[1] 8
- 早速のお答えありがとうございます。一番上のお答えのよう...
- 参考まで(心配性）。 -- &new{2008-02-26 (火) 13:59:46};
> is.na(c(Inf,-Inf,NaN, NA)) # NaN (Not a Numbe...
[1] FALSE FALSE TRUE TRUE
> complete.cases(c(Inf,-Inf,NaN,NA)) # Inf, -Inf は正当...
[1] TRUE TRUE FALSE FALSE
> c(Inf,-Inf,NaN,NA) > -Inf # -Inf > -Inf は F...
[1] TRUE FALSE NA NA
> na.omit(c(Inf,-Inf,NaN,NA))
[1] Inf -Inf
attr(,"na.action")
[1] 3 4
attr(,"class")
[1] "omit"
- 理論演算に関する対応（という表現で正しいのでしょうか？...
**osx leopardでRを使用している時に、escキーを押すと落ちて...
>[[satou]] (2008-02-22 (金) 23:38:08)~
~
題名の通りですが、osx leopardでRを使用している時に、escキ...
正確に言うと、マウスカーソルが待機中(虹色でぐるぐるしてる...
OS:Mac OS X 10.5.2
sessioninfo()の出力
R version 2.6.2 (2008-02-08)
i386-apple-darwin8.10.1
locale:
ja_JP.UTF-8/ja_JP.UTF-8/ja_JP.UTF-8/C/ja_JP.UTF-8/ja_...
attached base packages:
[1] stats graphics grDevices utils datasets methods b...
//
- 私の環境（Mac OS X 10.5.2、R 2.6.1）では再現されません...
- 落ちました！（MacOSX10.5.2,R2.6.2,MacBookCore2Duo2Gblac...
- Rのversionを2.6.1から2.6.2にアップグレードしたら落ちま...
- みなさん、コメントありがとうございます。みなさんのコメ...
- CRANのミラー内にある, R-GUI-4944-2.6-Deployment.dmg は...
- R-SIG-Macでも話題になってますね。解決策は「CRANあるいは...
- 情報ありがとうございます。http://r.research.att.com/か...
**tableやxtabsを用いてカウントではなく数値合計を集計する...
>[[はいどらりすく]] (2008-02-22 (金) 17:14:51)~
~
お世話になります。~
仕事でtableやxtabを使って簡単な集計をしているのですが、こ...
具体的には、部署別売り上げデータから年度別の部署ごとの売...
売り上げNo 部署 売上月 金額
1 第２営業部 01 200
2 第２営業部 02 100
3 第１営業部 02 50
4 第３営業部 03 300
5 第１営業部 04 200
6 第２営業部 04 500
7 第３営業部 05 200
8 第１営業部 06 100
9 第１営業部 06 50
10 第２営業部 06 200
↓↓↓↓↓
売上げ月
部署 01 02 03 04 05 06
第１営業部 0 50 0 200 0 150
第２営業部 300 0 0 500 0 200
第３営業部 0 0 300 0 200 0
~
のような集計を行いたいのです。~
tableやxtabsのソースを見て改造しようとも考えましたが、今...
どうぞよろしくお願い申し上げます。~
//
- xtabs(金額 ~ 部署 + 売上月,df) -- &new{2008-02-22 (金)...
- 「第２営業部 300 0 0 500 0 200」 は正しく...
- 今までformula引数の意味がよくわからず、適当に指定してい...
**pdf と postscript を一発で [#i125ad3b]
>[[もちだひろつぐ]] (2008-02-21 (木) 01:23:34)~
~
pdf ファイルと postscript ファイルを作成したいのですが、...
pdf('file.pdf', width=11, height=8.5)
plot(0,0, xlab='nothing', ylab='nothing', main='NOTHING')
dev.off()
~
postscript('file.eps', width=11, height=8.5)
plot(0,0, xlab='nothing', ylab='nothing', main='NOTHING')
dev.off()
~
と pdf() と postscript() を別々に走らせています。~
これを一度で済ます方法はありますか？~
~
上記の例だと、 plot() のところがシンプルですが、これに ax...
よろしくお願いします。~
//
- 自分で関数を作ってみてはいかがでしょうか？ -- [[ジェッ...
- X デバイスに描画しておいて、これでよしとなったら dev.c...
- わたしもpngとpdfを２種類はきだしてますが、関数化してま...
- この手の便利関数は自作の方が自由度が高くて良いと思いま...
ps2pdf <- function(x, y, ...){
postscript(x, width=11, height=8.5)
plot(y, ...) # 複雑な場合は適当に
dev.off()
system(paste("ps2pdf", x, sub("ps","pdf",x)))
}
とか。私も描画関係の便利関数は自作して、起動時に読み込ん...
- 大変参考になりました。どうもありがとうございました。 --...
**コネクションが開けない [#ub10bead]
>[[あんころ]] (2008-02-20 (水) 22:12:01)~
~
txtファイルを読み込もうとすると、~
~
file(file,"r"):コネクションを開くことができません~
~
というエラーが出て読み込めません。~
このエラーの意味は何でしょうか？~
また、読み込むデータ量に限度などはあるのでしょうか？~
//
- 素直に取ればファイルが無いといっているわけですが。一寸...
- file(file,"r")はエラーメッセージですか？~
txtファイルの形式にもよりますが、
con <- file(descroption="file", open="r")
x <- readLines(con)
close(con)
なんてことをしたのでしょうか？~
もし、file(file,"r")をそのまま入力したのであれば、fileは...
txtの形式によっては、read.table関係でも良いと思いますよ--...
- [file(file,"r"):コネクションを開くことができません] の...
- これがエラー文です。 以下にエラー file(file, "r") : コ...
- > 追加情報: Warning message: In file(file, "r") :ファ...
そこまで読んでいれば，質問する必要はないでしょう。原因は...
**直和を使ってブロック対角行列を作りたい [#w5d2bfc8]
>[[シチノスケ]] (2008-02-14 (木) 11:08:59)~
~
こんにちは。~
今，list形式でx[[j]]（jは1からJまで）のデータが入っている...
//
- Matrix パッケージの関数 bdiag() がつかえます。但しこれ...
> L <- list(matrix(seq(4),2,2),matrix(seq(9),3,3),matrix...
> library(Matrix)
> bdiag(L)
10 x 10 sparse Matrix of class "dgCMatrix"
[1,] 1 3 . . . . . . . .
[2,] 2 4 . . . . . . . .
[3,] . . 1 4 7 . . . . .
[4,] . . 2 5 8 . . . . .
[5,] . . 3 6 9 . . . . .
[6,] . . . . . 1 6 11 16 21
[7,] . . . . . 2 7 12 17 22
[8,] . . . . . 3 8 13 18 23
[9,] . . . . . 4 9 14 19 24
[10,] . . . . . 5 10 15 20 25
> as.matrix(bdiag(L))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 1 3 0 0 0 0 0 0 0 0
[2,] 2 4 0 0 0 0 0 0 0 0
[3,] 0 0 1 4 7 0 0 0 0 0
[4,] 0 0 2 5 8 0 0 0 0 0
[5,] 0 0 3 6 9 0 0 0 0 0
[6,] 0 0 0 0 0 1 6 11 16 21
[7,] 0 0 0 0 0 2 7 12 17 22
[8,] 0 0 0 0 0 3 8 13 18 23
[9,] 0 0 0 0 0 4 9 14 19 24
[10,] 0 0 0 0 0 5 10 15 20 25
- ありがとうございました!! -- [[シチノスケ]] &new{2008-02...
- 簡単に作ってみる -- &new{2008-02-14 (木) 14:44:31};
bdiag2 <- function(L)
{
a <- sapply(L, function(x) {x <- as.matrix(x); retur...
l <- apply(a, 1, cumsum)
n <- nrow(l)
m <- array(0, dim=rowSums(a))
mapply(function(x, i, j) m[i, j] <<- x,
L, mapply(seq, c(0, l[-n,1])+1, l[,1]),
mapply(seq, c(0, l[-n,2])+1, l[,2]))
return(m)
}
**自分の作成した名前にデータを関連付けたい [#da4a75a8]
>[[みゅ]] (2008-02-13 (水) 06:19:19)~
~
プログラムを書きながら前々から疑問に思っていたのですが、...
~
> DATA <- matrix(1:30,5,6)
という値が入っているDATAがあったとする。~
自分が生成した名前にこのデータを持たせたいと思っている。~
名前の生成はたとえば、sprintf(paste("data","A",sep="_"))~
とすれば生成可能ですね。でもこれは普通、
> my_name <- sprintf(paste("data","A",sep="_"))
のように使い、
> my_name
> "data_A"
となると思います。~
このとき、先のDATAの値をdata_Aに持たせるのは~
どのようにすればいいか、ということです。~
もちろん、
> my_name <- DATA
とすると
> my_name
> (ここに5×6の先の行列が表示される)
なので、先に入れた"data_A"はきえてしまいます。~
> DATA <- matrix(1:30,5,6)
> my_name <- sprintf(paste("data","A",sep="_"))
> ?????何らかの操作???????
> data_A
> (ここに5×6の先DATAの行列が表示される)
というような感じに使いたいのですが･･･。~
?????何らかの操作???????は何を調べたらわかりますか？？？？~
そもそもこういうことは出来るんでしょうか？？？~
//
- 題名をつけるのを忘れました。というか、題名のつけ方もわ...
- 同一内容の二つのオブジェクト DATA, data_A を作ること無...
- つまりそういうことかもしれません -- [[みゅー]] &new{200...
- これで，いかがですか？assign(my_name, DATA); data_A -- ...
- 感動。とってもうれしいです！！！！出来ました。ありがと...
- 解決できてよかったです。 -- [[aa]] &new{2008-02-13 (水)...
- 要するにあらかじめ(恐らく機械的に)作った文字列をオブジ...
- そうです。機械的にバンバンやるのにいつも困っていました...
- ついでといっては何ですが、皆さんがお書きになられている...
- 文の先頭に半角空白を入れるとできます。 -- [[okinawa]] &...
- ありがとうございます！さっそくやってみました。 -- [[み...
- 因みに水色ボックス内の改行は"~"がいりません。勝手ながら...
- もともと書いてあったものの行頭に半角空白を入れただけだ...
**plotのx軸を任意の値にしたい [#y2ceb09e]
>[[たいち]] (2008-02-12 (火) 12:48:47)~
~
こんにちは。~
初歩的な質問で恐縮ですが，plot関数でグラフを作るとき，x軸...
どうぞよろしくお願いします。~
//
-
汚いコードで失礼。
plot(1:20,1:20,axes=F)
axis(side=1,at=c(4,8,12,16,20));axis(side=2,at=c(4,8,12,...
など。詳細は?par、?plot、?axisなどを参照のこと-- [[yuta]]...
- ありがとうございます。これだとまわりの枠が消えてしまい...
- plot(1:20,1:20,xaxt="n");axis(1,1:5*4) -- [[takahashi]]...
- あ、そういう引数がpar()にあったんですね。強引にbox()で...
**データが無い（エラーの）場合の戻り値の指定 [#u4d35bbe]
>[[たけ]] (2008-02-10 (日) 11:04:03)~
~
どろどろとしたデータの整形をしていまして、例えば~
x1 <- matrix(1:6,ncol=3) ;x2 <- matrix(1:4,ncol=2)
colnames(x1) <- c("A","B","C"); colnames(x2) <- c("A","C")
のような、列数・順序が不ぞろいなデータがもともとあって、x...
変わりの方法として使われる列名は決まっているので、grep("B...
//
- やりたいことが，いまひとつわかりかねますが，以下のコー...
is.element(colnames(x1), "B")
is.element(colnames(x2), "B")
- ありがとうございます。行列の要素の有無を確認する（？）i...
table(factor(is.element(colnames(x2), "B"),levels=c("TRU...
- そんな，回りくどいことしなくても，sum(is.element(colnam...
- any(is.element(colnames(x2), "A")) でもいいかもしれない...
- あ”、思いつきで書きましたが、確かに見たいのは0かそれ以...
- もっと一般にある操作がエラーになるかどうかをチェックす...
> ifelse(class(try(y <- x2[,"B"])) == "try-error", FALSE...
Error in try(y <- x2[, "B"]) : 添え字が許される範囲外で...
[1] FALSE
> y
エラー： オブジェクト "y" は存在しません
> ifelse(class(try(y <- x1[,"B"])) == "try-error", FALSE...
[1] TRUE
> y
[1] 3 4
PS. エラーメッセージも消せました。try 関数の silent 引数...
> ifelse(class(try(y <- x2[,"B"], silent=TRUE)) == "try-...
[1] FALSE
- ありがとうございます。try()をsilent=TRUEにすれば一般的...
**Cairoで日本語が文字ばけ [#db694a2a]
>[[okinawa]] (2008-02-10 (日) 09:30:46)~
~
IntelMac,OSX10.5,R2.6.1~
SVG出力させたいので、Cairoパッケージを導入しました。~
library(Cairo)
CairoSVG("/test.svg")
x<-rnorm(1:10)
plot(x)
title(main="試行")
dev.off()
~
で、出力されたtest.svgをダブルクリックするとsafariがきど...
いろいろ調べたのですが、解決できませんでした。~
どなたか、ご存知の方いらっしゃいませんでしょうか？~
よろしくお願いします。~
//
- 自己解決しました。Cairoでは結局うまくいかなかったので、...
Macの場合~
library(RSvgDevice)
devSVG("/test.svg")
x<-rnorm(1:10)
plot(x)
title(main="試行")
dev.off()
Windowsの場合~
library(RSvgDevice)
devSVG("c:/test.svg")
x<-rnorm(1:10)
plot(x)
title(main=iconv("試行","","utf-8"))
dev.off()
- Linuxの場合 (Ubuntu)~
library(Cairo)
CairoSVG("cairo.svg")
x<-rnorm(1:10)
plot(x)
title(main="試行")
dev.off()
library(RSvgDevice)
devSVG("rsd.svg")
x<-rnorm(1:10)
plot(x)
title(main="試行")
dev.off()
どちらも日本語表記可能です。~
ただし、InkscapeはCairoSVGでの文字を図と認識し、devSVGで...
私はInkscapeで編集する機会が多いので、devSVGを使っていま...
でもCairoSVGは透過型なので便利なこともあります（devSVGに...
**RのWebServiceを作りたい [#g4d727af]
>[[akira]] (2008-02-08 (金) 23:43:05)~
~
WebServerの勉強も兼ねてRが稼働するWebServiceをlocalに建て...
[[Rweb-jp:http://www.okada.jp.org/RWiki/?R-Online]]とかの...
apacheは[[ここ:http://tobysoft.net/wiki/index.php?Ubuntu%...
> sessionInfo()
R version 2.6.1 (2007-11-26)
i486-pc-linux-gnu
locale:
LC_CTYPE=ja_JP.UTF-8;LC_NUMERIC=C;LC_TIME=ja_JP.UTF-8;LC...
LC_MONETARY=ja_JP.UTF-8;LC_MESSAGES=ja_JP.UTF-8;LC_PAPER...
LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=ja_JP.UTF-8;L...
attached base packages:
[1] stats graphics grDevices utils datasets me...
loaded via a namespace (and not attached):
[1] rcompgen_0.1-17
//
- どうでもいいけど。あれ，死んでるでしょ？ -- &new{2008-...
- 個人的には、昔に参考にしたRpadがいいように思います。htt...
- windowsですが、昔作った[[Rwwwのページ]]があります。参考...
- レスが遅れてすみません。Rの設定の前にServerに思いのほか...
**自分自身のIPアドレスの取得 [#u65b8a39]
>[[okinawa]] (2008-02-08 (金) 16:33:40)~
~
winXPsp2,R2.5.1~
プログラム中で、自分自身（Rが動いているPC）のIPアドレスを...
いろいろ調べたのですが、探せませんでした。~
どなたか自分自身（Rが動いているPC）のIPアドレスを取得する...
//
- IPアドレスを知るだけならsystem("ipconfig")でどうでしょ...
- ありがとうございました。おかげさまでできそうです。 -- [...
- R中からではありませんが [[IP Address Lookup:http://www....
**回帰分析のsummaryの保存 [#qbccc0f4]
>[[nob]] (2008-02-07 (木) 16:47:36)~
~
Rで回帰分析のスクリプトを書いて実行しています。~
スクリプト中~
//~
sink(file="summary.txt")
summary(kaiki)
sink()
//~
としているのですが、summary.txtには何も保存されていません...
コンソール上で1行ずつ入力すると保存できますが、スクリプトで
一気に保存できる方法はありますか？
よろしくお願いします。~
//
//- print() -- &new{2008-02-07 (木) 17:22:47};
- print(summary(kaiki)) -- &new{2008-02-07 (木) 17:30:00};
//- うまくできました。ありがとうございました。 -- [[nob]]...
- うまくできました。ありがとうございました。 -- [[nob]] &...
**Rcmdrでの変数の複数選択 [#o1dc396a]
>[[okinawa]] (2008-02-07 (木) 14:42:40)~
~
winXPsp2,R2.5.1,Rcmdr1.3.5~
~
Rcmdrで重回帰分析やクラスター分析をする場合、変数を複数選...
一つ置きに選択する方法があるのでしょうか？~
//
- ctrl＋click -- &new{2008-02-07 (木) 15:35:05};
- ありがとうございました。できました。 -- [[okinawa]] &ne...
- "cntl + click"はRcmdrの機能というより、Winの機能なんで...
- Mac なら，option+click だ。（Linux なら alt+click なの...
- Rはsystem(),dir(),file.remove(),dir.create()などシステ...
**パッケージがインストールできない？ [#n26e26ba]
>[[sho]] (2008-02-05 (火) 01:29:02)~
自宅のPCにもRを導入しようとしたのですが、うまくいきません...
OSはビスタで、R2.6.1をインストールしたのちRcmdrのパッケー...
> local({pkg <- select.list(sort(.packages(all.available ...
if(nchar(pkg)) library(pkg, character.only=TRUE)})~
要求されたパッケージ tcltk をロード中です
Tcl/Tkインターフェースのロード 終了済 ~
Please select a CRAN mirror for use in this session ---~
utils:::install.packages(missing.packages[present], depen...
'lib = "C:\Users\■■■\Local Settings\Application Data\R-co...
Error in utils:::install.packages(missing.packages[presen...
unable to install packages~
Error in structure(.External("dotTclObjv", objv, PACKAGE ...
[tcl] error reading bitmap file "C:\Users\■■■\Local Setti...
~
Error : .onAttach は 'attachNamespace' で失敗しました ~
エラー： 'Rcmdr' に対するパッケージもしくは名前空間のロ...
~
一体どうしたらよろしいのでしょうか？~
よろしくお願いいたします。~
- 手元にVISTAがないのでわかりませんが、Rとパッケージのイ...
- 触った事ないけど, Vistaの仮想化機能とやらで, Program fi...
- vistaの設定を変更してAdministratorで入れるようにして（...
- 私もpermissionじゃないかと。"... is not writable"あたり...
- コメントありがとうございます。どうもVistaが勝手にファイ...
- 今回vistaの仮想化機能とやらを始めて知った。vistaの評判...
- vista business（ID,PWはAdministrator権限で作成）が手に...
**R の速度(pvclust) [#if55e049]
>[[yamaoyaji]] (2008-02-04 (月) 07:23:24)~
~
ライブラリpvclustを用いてデータ解析をしています。~
Mac OSX (10.5.1)+R(2.6.1)(Core2duo 2GHz) で解析する場合と~
Fedora8(64bit) + R(2.6.1)(Core2duo 3GHz)で同じデータを解...
Fedoraの方が自由度が高く、Rを最適化できることは重々承知し...
質問させていただきたいのは、なるべくdefaultの設定で早い速...
保持できるLinuxのdistributionはどれがお勧めでしょうか。~
よろしくお願いします。~
//
- 遅い原因ですが, OSXのRはatlasを使って32bitだったと思い...
- ありがとうございます。Linuxの操作も怪しいのですが、Atla...
- 単に出来合いパッケージを使うのでしたら参考にならないか...
- （作成者の方がご覧になられているかもしれないのですが）p...
- たまたま見つけたパッケージ作成者です。snowクラスタが構...
- コメントありがとうございます。parPvclustはcpu数にほぼ比...
- Macのハードが反側的に良いパーツで作られている事は御理解...
- コメントありがとうございます。OSXはMacmini Core2duo 2G ...
- ではOSXのopenmpiは適度にチューニングされているのではな...
- Fedora8だと、Openmpiがパッケージで入手できるようで、そ...
- amazon ec2でRedHatが動くようになってたんですね。（茶々...
- Linuxのdistributionに詳しくないのですが、Redhat系という...
- まだ、解析サーバとして使えるほど高速ではないということ...
- ちょっと, テストしてみました. openmpiはどうしてもloopba...
- SSE3でビルドしたRでの実行時間は、Core2duo 3G(E8400) 337...
- Macならotools(だったか?な,失念しました)でlinuxならldd $...
- Fedora8を再インストール、パッケージから、Lamで始まるも...
- データを標準化た数値で対応分析のbiplotグラフを作成しよ...
**（密度）関数の線形和 [#w99dcebc]
>[[kaneko]] (2008-02-02 (土) 16:23:24)~
~
t分布の密度関数の線形和を返す関数を作ろうとしています．~
例えば，自由度がそれぞれ10, 15, 5のt分布密度関数dt(x, 10)...
function(x){10*dt(x, 10)+15*dt(x, 15)+5*dt(x, 5)}~
というように作りたいと思っています．~
~
上の例のように加える関数の数が少ないならばすべて書き出せ...
~
上記の線形和は，ある検定関数を作るためのものです．なお，R...
~
以上，ご教示頂ければ幸いです．~
//
- 内積を表す %*% を使って、df %*% dt(x, df) でどうでしょ...
- f<-function(x,df)(sapply(df,function(df)df*dt(x,df))) ...
**バックスラッシュ奇数個の文字列を [#y9058b74]
>[[hidee]] (2008-02-01 (金) 14:54:01)~
~
バックスラッシュが3個並んだ文字列を作りたいのですが，
単純にダブルクオーテーションのあいだに2つ並べると2つのバ...
奇数個並べると次の文字が奇数個目のバックスラッシュはその...
結果，生成される文字列はバックスラッシュ偶数個のものしか...
~
余分に生成しておいてsubstr()なんていうのも考えてみたんで...
~
よい方法が思い浮かばないのですが，ご教授いただけませんか．
> "\\\hline"
[1] "\\hline"
Warning messages:
1: '\h' は文字列で認識されないエスケープです
2: "\\\hline" から認識されないエスケープを取り除きまし...
> "\\\\hline"
[1] "\\\\hline"
> substr("\\\\hline", 1, 999)
[1] "\\\\hline"
> substr("\\\\hline", 2, 999)
[1] "\\hline"
> sessionInfo()
R version 2.6.1 (2007-11-26)
i686-pc-linux-gnu
locale:
LC_CTYPE=ja_JP.eucJP;LC_NUMERIC=C;LC_TIME=ja_JP.eucJP;LC...
LC_MONETARY=ja_JP.eucJP;LC_MESSAGES=ja_JP.eucJP;LC_PAPER...
LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=ja_JP.eucJP;L...
attached base packages:
[1] stats graphics grDevices utils datasets
[6] methods base
loaded via a namespace (and not attached):
[1] tools_2.6.1
>
//
- "\\\\\\"でOKです。cat("\\\\\\hline", file="hoge.tex")と...
- "\\\\\\" は \\\ なんです. cat("\\\\\\",fill=T)とすると,...
- takahashiさん，なかまさん．ありがとうございます．ごめん...
- それでもlは\\\なんです。cat(l)で。 -- [[takahashi]] &ne...
- takahashiさん．お付き合いありがとうございました．おかげ...
- エスケープのエスケープに混乱しているだけですから, 焦ら...
- なかまさん，ありがとうございます．このWikiでずっといわ...
1. cat()でエスケープ後の中身が分かる，
2. ＼Sexpr{} の段階でさらにエスケープがかかる(ようだ)，
ということが理解できたところです(2はまだよくわかっていま...
いまのところ，cat(file=file) をつかって一旦ファイルに落と...
takahashiさんにも大変お世話になりました．-- [[hidee]] &ne...
- 私も悩んだことがあり、[[質問:http://www.okada.jp.org/RW...
- Hmiscのlatex()だとbooktabsも指定できるし、かなり細かく...
- 参考になるかどうか？(本当のところ二種類の出力の違いが分...
> a <- "abc"
> b <- paste(a,'"""', sep="") # single quoate ではさむ
> b
[1] "abc\"\"\""
> c <- paste(a,"\\\\\\", sep="")
> c
[1] "abc\\\\\\"
> d <- paste(a,"\"\"\"", sep="")
> d
[1] "abc\"\"\""
- singleQuoteはsingleQuoteで終わり,dowbleQuoteはdowbleQuo...
**因子に対しては無意味です [#x98ec45b]
>[[LUKE]] (2008-01-28 (月) 17:45:57)~
~
時系列データを扱っていいて~
二種類のデータを使って試したところ~
ひとつだけ~
Warning message:~
In Ops.factor(left, right) : * 因子に対しては無意味です ~
というメッセージが出てきます。~
データの構造によるものなのでしょうか？~
アドバイスをいただけたらと思います。
Book <- read.csv( a.csv', header = TRUE )
nTime1 <- nrow( Book )
flag1 <- Book[-nTime1,] != 0
BookValue1 <- rbind( 0, Book[-1,] * flag1 )
R version 2.6.1 (2007-11-26) ~
i386-pc-mingw32 ~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
LC_NUMERIC=C;LC_TIME=Japanese_Japan.932~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
//
- a.csv がどういうものであるかわからないので，だれも適切...
//相も変わらず，お馬鹿な質問の仕方が止まらない。聞く内容...
おそらくは，データファイル中に数値構成要素以外の文字が紛...
- [[因子Tips大全]]など読まれたら得心がいくかもしれません...
- エラーはrbindの後に出ますか?read.csvはstringsAsFactorを...
- > 数値は数値のままのはずですが~
曖昧なことは確認してからコメントした方がよろしいかと。~
データフレームのある列がほとんど数値が入っていて，どれか...
テストデータ
まともな列,異常な列
1,1
2,2
3,3
4,.
5,5
実行結果
> x <- read.csv("テストデータ", header=TRUE)
> str(x)
'data.frame': 5 obs. of 2 variables:
$ まともな列: int 1 2 3 4 5
$ 異常な列 : Factor w/ 5 levels ".","1","2","3",..: 2 ...
**ライブラリの使い方（目標はRのフィンメトリックス並実装）...
>[[ポンタ]] (2008-01-25 (金) 15:40:56)~
~
Rをフィンメトリックス並に実装する方法を知りたく思いメール...
~
色々なhpを見て東大のライブラリからrを使って全てのパッケー...
~
できれば多変量ARモデルなども動かしてみたいのですがどのよ...
~
あと、追加質問ですが、そもそも、ダウンロードしたパッケー...
（全くの初心者ですがどなたかご教授いただければ幸いです。）~
//
- R本で顔を洗って出直すべし。 -- &new{2008-01-26 (土) 11...
- 講習とか仮免コースも必要か？初級者と言えども「そもそも...
- library(package name) -- &new{2008-01-26 (土) 14:16:07};
- 教えて。[フィンメトリックス]ってなんでしょう。ググって...
- 単位根は,PP.test()か、tseriesのadf.test()。多変量ARはそ...
- お互い、気持ちよくWikiを使いましょうよ。~
ポンタさんの文面は何もせずにただ質問したように読み取れま...
おそらく、ポンタさんの質問は「(1)パッケージの使いかた」が...
で、(1)は自分で調べるべきで、(2)はやったこと（コードとか...
ちなみに私も分野外なのでフィンメトリクスをしりませんで、...
//- 「ふぃんめとりっくすもしらないようなはなたれが」とい...
- >>お互い、気持ちよくWikiを使いましょうよ。 >>おっしゃる...
//なにをどのようにかくのもじゆうでしょう。「ここのばかも...
- アホが思い上がってやってるだけののWikiなので上手に活用...
- 皆様、当方の無作法で場を荒らしてしまい大変に失礼しまし...
- 態度が劣悪な上級者が，初心者をストレス発散の道具に使う...
**多変量GARCH [#q13d7bb1]
>[[たく]] (2008-01-16 (水) 18:41:23)~
~
例えば現物と先物のボラティリティを推定したい場合、2変量GA...
~
Rには多変量GARCHモデルの関数はないのでしょうか？~
~
検索して見つかった、tseriesパッケージやｆSeriesパッケージ...
//
- mgarch (multivariate GARCH model) パッケージ。R site se...
- ありがとうございます。こんなパッケージもあったのですね...
- mgarchBEKKというパッケージですね。多変量GARCHモデルの一...
**複数枚のグラフを、一つのファイルにまとめて保存するには...
>[[Yoshihara]] (2008-01-16 (水) 03:12:00)~
~
前例がある内容でしたら申し訳ございません。~
~
forループの中で条件を変化させて複数枚のグラフを出力し、そ...
~
例えば以下のようなプログラムで5種類のグラフを作成しても、...
for(i in 1:5){
name<-paste("No.",i,".pdf",sep="")
curve(x+i,main=name)
dev.copy(pdf,file="graph.pdf") #ファイ...
dev.off()
}
現在は dev.copy(pdf,file=name)として毎回名前を変え保存し...
グラフ数が増えると処理が面倒になるため、一つのファイル名...
~
自分なりに調べてみたのですが、行き詰ってしまいました。~
~
どなたかご教授をお願い致します。~
//
- 次のようなやり方ではいかがですか。 -- &new{2008-01-16 ...
> pdf(file="myplots.pdf", onefile=TRUE)
> plot(1:10, rnorm(10))
> plot(1:10, runif(10))
> dev.off()
- onefileはデフォルトでTRUEです -- &new{2008-01-16 (水) ...
pdf("output.pdf")
for(i in 1:5) {
name<-paste("No.",i,".pdf",sep="")
curve(x+i,main=name)
}
dev.off()
- ご教授ありがとうございます。pdf(),dev.off()の構造を、ま...
望んでいた出力結果が得られ、大変助かりました。 -- [[Yoshi...
**RMySQLパッケージの読み込みエラー [#bfbf39a1]
>[[だあ]] (2008-01-15 (火) 14:41:37)~
~
RMySQLパッケージをダウンロードした後に読み込もうとすると、~
「Rgui:Rgui.exe - エントリーポイントが見つかりません：プ...
というエラーが表示され、読み込むことができません。~
MySQL5.0を利用しており、DBIパッケージの読み込みまでは行っ...
//
- 自己レスですみません。右記ＵＲＬにて解決しました。http:...
**Rを自動で起動・終了させるには？ [#i6c98186]
>[[春一番]] (2008-01-14 (月) 18:57:22)~
~
初めまして。Rの初心者なので分らないことばかりですが、宜し...
//
- まずExcelを間にかませる意味がわかりません。VBならばRCMD...
- ご教授ありがとうございます。http://cran.r-project.org/c...
- まず環境を整備しましょう。Rのバージョンが古いのでR2.5.1...
- 指標というものがどういうものか分かりませんが、R(とその...
- R2.6.1でもいいとは思うのですが、私自身でRDCOM&RExcelとR...
- 視標はランドルト環と言って眼科で視力検査するときの黒い...
- http://cran.md.tsukuba.ac.jp/ などを参照。~
ランドルト環なら，Rで簡単に描けるでしょう。だとしたら，一...
- 業務用に開発を考えているのであれば、VB使うのが正解かと...
- 返事が遅くなり申し訳ありません。ランドルト環なのですが...
- お伺いしているかぎり，[ＶＢ→Ｒ→ＶＢの流れ]にこだわる必...
- RDCOMは基本的にCOM(ActiveX)なのでVBからRを叩くのに向い...
- RExcelのインストールですが、http://cran.r-project.org/c...
- 返事がしばらく出来なくて申し訳ありませんでした。他のこ...
- VBにRDCOMが入っているのではなくて、「アプリケーションの...
**foldまたはreduceのような機能はありますか？ [#rf69edcb]
>[[lambda]] (2008-01-13 (日) 04:22:49)~
~
sumとprodは見つけたのですが、足し算、かけ算以外の任意の演...
Rではベクトル化された関数を使ってmap関数と同等のことが出...
fold関数等がなくても直接的に畳込みをする方法があったりす...
それともforを使って地道に変数に累積していくしかないんでし...
//
- fold, reduce とは具体的にどういう演算のことを指すのです...
- 説明が足りなくてすみません。http://d.hatena.ne.jp/blank...
- 例は，色々な説明ページにもある R で言えば sum 関数なの...
- 混乱させてすみません、"+"(1,2)→3が出来るので"+"単体で関...
- おそらく R なら apply 関数族を使うケースでしょうね。い...
> ft <- function(x) {x+pi}
> sapply(1:10, ft)
[1] 4.141593 5.141593 6.141593 7.141593 8.141593 ...
[8] 11.141593 12.141593 13.141593
> sum(sapply(1:10, ft))
[1] 86.41593
> sum(sapply(1:10, function(x) {x+pi})) # 一行で書けば
[1] 86.41593
もしくは outer 関数も使えるかもしれません(こっちの方が一...
> outer(1:10,pi,"+")
[,1]
[1,] 4.141593
[2,] 5.141593
[3,] 6.141593
[4,] 7.141593
[5,] 8.141593
[6,] 9.141593
[7,] 10.141593
[8,] 11.141593
[9,] 12.141593
[10,] 13.141593
> sum(outer(1:10,pi,"+"))
[1] 86.41593
> sum(outer(1:10,pi,"*"))
[1] 172.7876
> sum(outer(1:10,pi,"^"))
[1] 4074.216
- ありがとうございます。sapplyやouterは引数として関数を与...
- 単独で行うものは無いでしょう。要するに再帰的処理のよう...
- やはりないのですか…。ありがとうございます、おかげであき...
**SQLファイルから読み込んだベクトル様データのベクトル化の...
>[[あーちゃんぱぱ]] (2008-01-11 (金) 23:35:13)~
~
全くの初心者です，よろしくお願いします．~
MySQLのデータベースからデータを読み込んで解析を行おうとし...
//
- コンマで区切られている為に文字列になってしまうのでしょ...
- ご呈示いただいた，データを基に解決例を挙げてみます。あ...
a <- "120, 500, 554, 578"
as.numeric(strsplit(a, ",")[[1]])
- aaさんありがとうございました，大変参考になりました． --...
- scan(textConnection(a, "r"),sep=",") -- &new{2008-01-1...
**Rcmdrのダウンロード [#yb94816d]
>[[SIS]] (2008-01-11 (金) 17:15:44)~
~
記載場所が違っていたら申し訳ありません。~
windows版 R 2.4.1をインストール後、Rcmdrをダウンロードし...
URL 'http://cran.md.tsukuba.ac.jp/bin/windows/contrib/2....
以下にエラーdownload.file(url, destfile, method, mode = ...
URL'http://cran.md.tsukuba.ac.jp/bin/windows/contrib/2.4...
追加情報: Warning message:
開けません：HTTP ステータスは '403 container violation' ...
download.packages(pkgs, destdir = tmpd, available = avai...
download of package 'Rcmdr' failed
といったエラーが出てしまいました。
googleなどを検索したのですが、どのようにすれば解決するか...
解決策をお教えください。~
//
- Rをインストールした手順、パッケージをインストールした手...
- ご返答が遅くなって申し訳ありません。ＯＳのバージョンはw...
- 追記 パッケージのインストールはR 2.4.1を立ち上げた後に...
- 手順は問題ないようですね。だとすると単にネットワークが...
- okinawa様コメントありがとうございます。ブラウザでダウン...
- たぶんセキュリティに引っかかっているのでしょう。セキュ...
- 単にプロキシの問題では？？ -- [[通りすがり]] &new{2008-...
**tapplyを使ったグラフ作成 [#tee0c943]
>[[tukey]] (2008-01-11 (金) 11:47:06)~
~
以下のように、ある区分（以下の例では、"TYPE"）ごとにヒス...
それぞれの区分のタイトルに、~
Histogram of TYPE=1~
Histogram of TYPE=2~
と表示したいと考えております。~
~
以下に簡単なプログラムの事例を載せます。~
AGE<-c(30,80,90,77,65,33)
TYPE<-c(1,1,1,2,2,2)
myhist <- function(x){
hist(x,main=paste("Histogram of TYPE=",1))
}
tapply(AGE,TYPE,myhist)
//
- myhistの中でsubstitute(x)を表示させると"X"，"[["に続い...
hist(x,main=paste("Histogram of TYPE=",substitute(x)[[3]...
とするだけで可能です（[3]より上の方が良いので訂正しました...
- 中澤先生。ご教授ありがとうございました。２日ほどいろい...
- TYPEが1から始まる連続する整数値とは限らないと思う -- &...
- その場合は，TYPEをfactorにしておいて，levels(TYPE)の添...
- 申し訳ございませんが、具体的なプログラムをご教授頂けな...
- 例えば，次のようになります。-- [[中澤]] &new{2008-01-11...
AGE<-c(30,80,90,77,65,33)
TYPE<-as.factor(c("M","M","M","F","F","F"))
LTYPE<-levels(TYPE)
myhist <- function(x){
hist(x,main=paste("Histogram of TYPE=",LTYPE[substitute(...
}
tapply(AGE,TYPE,myhist)
- -- &new{2008-01-13 (日) 14:36:35};
invisible(mapply(function(x, main) hist(x, main=main),
split(AGE, TYPE), paste("Histogram of TYPE=", levels(TYP...
**プロビット分析で出てくるエラーについて [#o0d07d87]
>[[kuro]] (2008-01-10 (木) 05:46:11)~
~
はじめまして。~
プロビット分析を行なっていて出てくるエラーの意味について...
~
当方、MASSパッケージを読み込んで、順序プロビット分析（pol...
~
> library(MASS)
> data<-read.table("data.dat",header=TRUE)
> data[1:3,]
popul TVnews selfLR ClinLR DoleLR PID age educ income ...
1 0 7 7 1 6 6 36 3 1 ...
2 190 1 3 3 5 1 20 4 1 ...
3 31 7 2 2 6 1 24 6 1 ...
> summary(polr(as.ordered(ClinLR) ~ TVnews+selfLR+PID+ag...
~
と入力すると、~
~
Error in svd(X) : 'x' に無限値か欠測値があります
~
と表示されます。~
このエラーが何を意味しているか分からないのですが、ご存知...
//
- そのままの意味でしょう。データに NA もしくは Inf 値が...
- かぶってますね。~
エラーの意味はpolr関数の途中でsvd関数を使っていて、svdが...
x <- matrix(1:12, ncol=4)
svd(x) # エラーはでない
x[1,1] <- NA
svd(x) # エラー
ということです。~
ところで、polrにはsvdを使うのですか?Googleで調べると、[[...
- akiraさま、ご親切にご教授、本当にありがとうございます。...
- すみません。正確でなかったです。polrの内部処理でXが出る...
- > データ構造に間違いがあるという訳ではなさそうです~
データ構造ではなく，データの性質に問題がある（そう言うも...
- ＞＞データ構造ではなく，データの性質に問題がある（そう...
**[getOption("max.print") を越えました -- 末尾 190 行を省...
>[[竹の山]] (2008-01-08 (火) 22:28:33)~
~
昨日から始めた初心者です。~
900行X150列程度のデータのテキストファイルを分析したいので...
> x >- read.table(“G1.txt”, header=TRUE)~
でRに読み込んで、その結果を~
> x~
で見ようとすると全部は見れません。これはアーカイブにある...
~
[getOption("max.print") を越えました -- 末尾 190 行を省略...
~
~
R version 2.6.1 (2007-11-26) ~
i386-pc-mingw32 ~
~
locale:~
LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932...
~
attached base packages:~
[1] stats graphics grDevices utils datasets met...
//
- ご教示通りやることが出来たようで成功です。有難うござい...
- 自問自答？それとも、直前の回答が消されてしまった？回答...
> old.op <- options(max.print=999999)
> old.op
$max.print
[1] 99999 # 既定値
> options()$max.print
[1] 999999
**ベクトルを割り当てることができないのはメモリ不足が原因...
>[[Saito]] (2008-01-06 (日) 23:27:04)~
~
WindowsXPでR2.6.1を使って一般化線形モデルによる解析を行っ...
データを読み込んでさぁ解析といったところで、次のようなメ...
x=read.table("a.txt",header=T)
result=glm(A~.,data=x)
エラー： サイズ 294.8 Mb のベクトルを割り当てることがで...
初級Q&Aの"Step関数の実行"など、似たような事例はあったので...
ただ、そのやり取りの中で出てきた「WindowsのBoot.iniに/3GB...
という箇所のみ調べてもできなかったので、~
それで解決するというのならおしまいなのでしょうが（汗）~
ちなみにglmではなくbiglmだとできるのですが…。
result2=biglm(A~B+C+D+...+Z,data=x)
step(result2)
以下にエラー UseMethod("extractAIC") :
"extractAIC" に適用可能なメソッドがありません
というメッセージが出てstepしても何故かできないし(一応extr...
つまり、エラーが出なくなった上でstep関数等でモデル選択が...
をどなたかご存知でしたらご教授お願いします。ちなみに~
> memory.size(T)
[1] 801.5625
また、memory.limitは4095に設定してあります。~
よろしくお願いします。
//
- メモリはどれだけ積んでいますか？ -- &new{2008-01-07 (...
- あ、すみません1.00GB RAMとなっています。 -- [[Saito]] &...
- やはりメモリ不足でしょうね(そもそも１GBしかメモリがない...
- なるほど。やはりメモリ不足ですか。memory.size(T)の単位...
- memory.limit(size=NA)ではダメですか？あと、Winはメモリ...
- Rは物理メモリのみ使います。（仮想メモリは使わない）あな...
- memory.limit(size=NA)とすると1024と表示されましたがそれ...
- 物理メモリを増やすかデータを減らすかです。統計解析うん...
- memory.limit(size=4095)とか(4096以上はよさげなメッセー...
- アドバイスありがとうございます。ちょっと試してみて、後...
- できました。できなかった原因は、ファイルとファイルをmer...
- 投稿の基本どおり、データやコードをきちんと載せないと無...
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
