母国語を教えあう相互添削型SNS。native による英作文の添削も。
以前にもあげたPodcastも適。
ESL Podcast
Journal of Physiology - Paris 98 (2004) 207–219
Adaptation to left–right reversed vision rapidly activates ipsilateral visual cortex in humans
Satoru Miyauchi, Hiroyuki Egusa, Masahiro Amagase, Kaoru Sekiyama, Toshihide Imaruoka, Takara Tashiro
see, Fig.6
cf. 変換視の実験ビデオ多数。
Movie files of the experiment on adaptation to left-right reversing goggles for 35/39 days
Russell, J.A., & Fehr, B. (1987). Relativity in the Perception of Emotion in Facial Expressions. Journal of Experimental Psychology: General, 116, 223-237.
Lab pdf
see,
p.224 Figure 1. A two-dimensional map of emotion space.
最尤MDSを非対称データに拡張したもの。
Saburi & Chino (2008)
cf. http://www.aichi-gakuin.ac.jp/~chino/working-paper.html
Suzuki, A. , Hoshino, T. , & Shigemasu, K. (2006). Measuring individual differences in sensitivities to basic emotions in faces. Cognition, 99, 327-353.
APA:
"We strongly encourage you to use MathType (third-party software) or Equation Editor 3.0 (built into pre-2007 versions of Word) to construct your equations, rather than the equation support that is built into Word 2007 and Word 2010. "
cf.
APA: Manuscript Preparation
http://www.apa.org/pubs/authors/instructions.aspx
The Lancet,
Early Online Publication, 30 August 2011
doi:10.1016/S0140-6736(11)61223-3
Japan: universal health care at 50 years (Full Text)
Rで数量化類（双対尺度法、コレスポンデンス分析）を行う。
cf. 群馬大学 青木研究室
http://aoki2.si.gunma-u.ac.jp/R/qt3.html
アイテムデータ形式のデータを用意。
> dat
+Cat.A=c("a", "c", "b", "a", "b", "b"),
+ Cat.B=c("b", "b", "c", "b", "a", "c"),
+ Cat.C=c("c", "a", "a", "c", "b", "b")
+ )
>
> dat
Cat.A Cat.B Cat.C
1 a b c
2 c b a
3 b c a
4 a b c
5 b a b
6 b c b
>
ダミー変数を使って、カテゴリーデータに変換。
> source("http://aoki2.si.gunma-u.ac.jp/R/src/make.dummy.R", encoding="euc-jp")
> cat.dat
> cat.dat
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 1 0 0 0 1 0 0 0 1
[2,] 0 0 1 0 1 0 1 0 0
[3,] 0 1 0 0 0 1 1 0 0
[4,] 1 0 0 0 1 0 0 0 1
[5,] 0 1 0 1 0 0 0 1 0
[6,] 0 1 0 0 0 1 0 1 0
数量化類を実施。
> source("http://aoki2.si.gunma-u.ac.jp/R/src/qt3.R", encoding="euc-jp")
> a
> summary(a)
$Eigen.value
解1 解2 解3 解4
0.93253 0.59861 0.36192 0.10694
$Correlation.coefficient
解1 解2 解3 解4
0.96568 0.77370 0.60160 0.32701
$Category.score
解1 解2 解3 解4
Cat.A.a -1.24668 0.90967 -0.37059 0.22888
Cat.A.b 0.99434 0.18573 -0.33881 0.38433
Cat.A.c -0.48967 -2.37654 1.75761 -1.61076
Cat.B.a 1.18320 1.23348 2.56331 1.94775
Cat.B.b -0.99434 -0.18573 0.33881 -0.38433
Cat.B.c 0.89991 -0.33814 -1.78987 -0.39738
Cat.C.a 0.11411 -1.70558 -0.18806 1.47834
Cat.C.b 1.13257 0.79591 0.55865 -1.70722
Cat.C.c -1.24668 0.90967 -0.37059 0.22888
$Sample.score
解1 解2 解3 解4
#1 -1.20389 0.70381 -0.22295 0.074847
#2 -0.47287 -1.83872 1.05738 -0.526739
#3 0.69325 -0.80048 -1.28365 1.493610
#4 -1.20389 0.70381 -0.22295 0.074847
#5 1.14259 0.95434 1.54209 0.636940
#6 1.04480 0.27724 -0.86991 -1.753505
attr(,"class")
[1] "qt3"
Category.score 解1 解2 を使ってプロット。
> plot(a, pch=19, label.cex=0.5)
> 
Sample.score の重ね書きをするには，
> plot(a, pch=19, label.cex=0.5,xlim=c(-2,2),ylim=c(-2,2),ann=F)
> par(new=T)
> plot(a, which="sample.score", label.cex=0.5, xlim=c(-2,2),ylim=c(-2,2))
（この例では，#1と#4が重なっている）
2013/11/19 サンプルスコアの重ね書きを加筆
PSPP is a program for statistical analysis of sampled data. It is a Free replacement for the proprietary program SPSS.
アクセス
トータル
ランキング
