{"categories":["\u7279\u7570\u5024\u5206\u89e3","\u56fa\u6709\u5024\u5206\u89e3","PCA","R"],"author_url":"https://blog.hatena.ne.jp/ryamada22/","provider_url":"https://hatena.blog","type":"rich","width":"100%","image_url":null,"title":"\u4e2d\u5fc3\u5316\u5f8c\u7279\u7570\u5024\u5206\u89e3\u3068\u56fa\u6709\u5024\u5206\u89e3","version":"1.0","blog_url":"https://ryamada22.hatenablog.jp/","url":"https://ryamada22.hatenablog.jp/entry/20100223/1266883282","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20100223%2F1266883282\" title=\"\u4e2d\u5fc3\u5316\u5f8c\u7279\u7570\u5024\u5206\u89e3\u3068\u56fa\u6709\u5024\u5206\u89e3 - ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","blog_title":"ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2","published":"2010-02-23 09:01:22","description":"\u53c2\u8003\u3053\u3061\u3089 \u304c\u7279\u7570\u5024\u5206\u89e3\u3002 \u5909\u5f62\u3057\u3066 \u3002 \u3053\u308c\u3092\u89e3\u3044\u3066\u3001S,V->U\u304c\u5f97\u3089\u308c\u308b\u3002 \u4eca\u3001X\u3092\u4e2d\u5fc3\u5316\u3059\u308b\u3068 \u306fX\u306e\u5206\u6563\u5171\u5206\u6563\u884c\u5217\u306b\u6bd4\u4f8b\u3057\u305f\u5024\u306b\u306a\u308b\u306e\u3067\u3001\u4e2d\u5fc3\u304b\u3057\u305f\u7279\u7570\u5024\u5206\u89e3\u3068\u56fa\u6709\u5024\u5206\u89e3\u306f\u3001\u540c\u3058\u3088\u3046\u306a\u3082\u306e\u3002 #\u69cb\u9020\u5316\u96c6\u56e3\u3092\u30b7\u30df\u30e5\u30ec\u30fc\u30c8 Nm<-1000 #\u30de\u30fc\u30ab\u30fc\u6570 Npop<-4 #\u4e9c\u96c6\u56e3\u6570 Ns<-c(100,150,200,250) #\u96c6\u56e3\u5225\u4eba\u6570 M<-NULL #\u5168\u30b8\u30a7\u30ce\u30bf\u30a4\u30d7\u30c7\u30fc\u30bf\u3092\u7d0d\u3081\u308b\u884c\u5217 #\u4e9c\u96c6\u56e3\u5225\u306b\u30a2\u30ec\u30eb\u983b\u5ea6\u3092\u632f\u3063\u3066\u30b7\u30df\u30e5\u30ec\u30fc\u30b7\u30e7\u30f3 for(j in 1:Npop){ tmpM<-matrix(rep(0,Nm*Ns[j]),nrow=Nm) for(i in 1:Nm){ af<\u2026","author_name":"ryamada22"}