423 5分位の変数はダミー不要? ひよこ 2002/11/18 (月) 04:35
425 Re: 5分位の変数はダミー不要? 青木繁伸 2002/11/18 (月) 18:36
426 Re^2: 5分位の変数はダミー不要? 青木繁伸 2002/11/18 (月) 18:46
429 Re^3: 5分位の変数はダミー不要? 武田 2002/11/18 (月) 22:07
427 Re^3: 5分位の変数はダミー不要? 青木繁伸 2002/11/18 (月) 19:05
428 Re^4: 5分位の変数はダミー不要? sb812109 2002/11/18 (月) 19:49
423. 5分位の変数はダミー不要? ひよこ 2002/11/18 (月) 04:35 |
いつも大変お世話になっております。 |
425. Re: 5分位の変数はダミー不要? 青木繁伸 2002/11/18 (月) 18:36 |
石村氏の意見はどうなのか分からないのですが,シミュレーションしてみました。sim <- function(r, n = 100, loop = 100) { gendat <- function(r, n) { x <- rnorm(n) temp <- rnorm(n) y <- r*x+sqrt(1-r^2)*temp list(x=x, y=y) } conv <- function(y, t) { for (i in 1:length(y)) { if (y[i] < t[1]) { y[i] <- 1 } else if (y[i] < t[2]) { y[i] <- 2 } else if (y[i] < t[3]) { y[i] <- 3 } else if (y[i] < t[4]) { y[i] <- 4 } else { y[i] <-5 } } y } c1 <- c2 <- rep(0, loop) for (i in 1:loop) { dat <- gendat(r, n) c1[i] <- cor(dat$x, dat$y) t <- sort(runif(4,-1.5,1.5)) c2[i] <- cor(conv(dat$x, t), dat$y) } plot(c1, c2) } |
426. Re^2: 5分位の変数はダミー不要? 青木繁伸 2002/11/18 (月) 18:46 |
sim(0.5) のように使います。他の引数は,省略可能。 |
429. Re^3: 5分位の変数はダミー不要? 武田 2002/11/18 (月) 22:07 |
> 結果は,一概にそのように結論するのは危険ではないかということと思います。 |
427. Re^3: 5分位の変数はダミー不要? 青木繁伸 2002/11/18 (月) 19:05 |
sim(0.4) のときの結果を以下に示します |
428. Re^4: 5分位の変数はダミー不要? sb812109 2002/11/18 (月) 19:49 |
以下の様な方針をとっています。 |
● 「統計学関連なんでもあり」の過去ログ--- 021 の目次へジャンプ
● 「統計学関連なんでもあり」の目次へジャンプ
● 直前のページへ戻る