çµå±perlã§éè¨ãã¦ãã¼ãã«ãä½ã£ã¦ããããã®å¾ã«ä¸æ°ã«Rã«èªã¿è¾¼ã¾ãã¦è¨ç®ãããã¨éããã¨ãåãã£ãã ã¡ã¢ãã¨ã㨠text <- read.table("/bioinfo/R/macrobox/short.data") for (i in 1:150) { if(i %% 2 != 0){ #奿°è¡ã¯ã³ã¡ã³ãæ±ãã§ããªã³ã print(text[i,]) } if(i %% 2 == 0){ #å¶æ°è¡ã¯Fisherã«ã¾ãã a <- scan("/bioinfo/R/macrobox/short.data", skip=i-1, nlines=1) dim(a) <- c(2,2) print(a) print(fisher.test(a)) # a=0 # print(a) } } short.data㯠000359 vs 000364 1vs1 1 3 4 6 ã¿ãããªãã³ã¡

{{#tags}}- {{label}}
{{/tags}}