2016-06-01ãã1ã¶æéã®è¨äºä¸è¦§
Rã§ã«ãã´ãªã«ã«ãã¼ã¿ã§ã®åå¼·ï¼è³ªçãã¼ã¿ï¼ï¼æ°éåï¼é¡ ï¼ï¼ï¼é çªãã¤ããããªã質çãã¼ã¿ãèããã ãããå帰ããå ´åé©åã³ã¼ãã£ã³ã°ãæ±ããããã ï¼ã³ã¼ãã£ã³ã°ã«ãã£ã¦å帰ä¿æ°ãããããçµæã®è§£éããããã (Aï¼ãã¡ãªã³ã¼ãã£ã³ã°ä¾1: â¦
ã«ãã´ãªã«ã«ãã¼ã¿ã§å¶ç´ä»ã®å帰ãçµå±çµè«ãã¾ã¨ãã㨠y=a1*x1+a2*x2+a3*x3+Cã§ã x=[1,2,3], x1,x2,x3ããã¼å¤æ°ã®ã¨ã(0,1)ã a a[1] a[2] a[3] aa y x lm(y~factor(x),list(x = contr.sum)) çµæ Call: lm(formula = y ~ x, contrasts = list(x = conâ¦
Rã§KLãã¤ãã¼ã¸ã§ã³ã¹ï¼ä»®ï¼ 0ãé¤ããªãã¨çºæ£ããã®ã§ãé¤ãã®ããã¤ã³ã for(i in 1:length(list1)){ list_name<-list1[i] v1<-qb[[list_name]] a1<-v1[qb$y==1] a2<-v1[qb$y==0] aa1<-table(a1) aa2<-table(a2) ll<-unique(c(names(aa1),names(aa2))) aâ¦