Rを通じて統計学を学ぶ備忘録ブログ

SPSSからRに移行したい私のような人向けのR解説ブログ兼学習用備忘録。

http://users.stat.umn.edu/~helwig/notes/datamat-Notes.pdf

<pre>

d <- matrix(c(1,1,2,1,1,3,4,4,2,1,
3,2,3,2,2,4,1,4,3,2),10,2)

d2 <- sweep(d, 2, apply(d, 2, mean), FUN = "-")
d3 <- sweep(d2, 2, apply(d, 2, sd), FUN = "/")
d4 <- as.matrix(d3/sqrt(nrow(d)))
d5 <- t(d4)%*%d4
diag(d5) <- 1

d <- matrix(c(1,1,2,1,1,3,4,4,2,1,
3,2,3,2,2,4,1,4,3,2),10,2)
d <- as.data.frame(d)
dd <- d %>% dplyr::mutate(V1 = (d[,1]-mean(d[,1]))/sqrt(nrow(d)*sd(d[,1])),
V2 = (d[,2]-mean(d[,2]))/sqrt(nrow(d)*sd(d[,2]))) %>%
as.matrix(.)

ddd <- t(dd)%*%dd
diag(ddd) <- 1
ddd

</pre>

 

[math]{ e }_{ 1 }[/math]