2014-04-01ãã1ã¶æéã®è¨äºä¸è¦§
library(gtools) combinations(n=20,r=10,1:20) åè http://d.hatena.ne.jp/yusap/20130518/1368845756
g 太ããå¤ããã g weight E(g)$weight E(g)$width=E(g)$weighthttp://kappa-bioinformatics.blogspot.jp/2011/02/gene-ontologygodb.htmlhttp://homepage3.nifty.com/kaku-chan/graphviz/chapter_005.htmlç¢å°ã®å¤§ããã¯å¤ããããªãããã arrow.size ãâ¦
ï¼²ã®ãããã° http://stat.biopapyrus.net/dev/debug.html ã¨ã©ã¼ã®åå ã®é¢æ°ãããããã¨ã©ã¼å¾å®è¡ traceback() browser() ãããããããããããããã°ã¢ã¼ããå ¥ãã f z browser() return(z) } ãããã¯ã¢ã¼ãã«å ¥ãã®ã§ã ls ã§åç §å¯è½ãªå¤æ°ãã¿ãâ¦
Rã®bsé¢æ°ã®è§£èª 以ä¸ã³ãã function (x, df = NULL, knots = NULL, degree = 3, intercept = FALSE, Boundary.knots = range(x)) { x <- x if (smart.mode.is("read")) { return(eval(smart.expression)) } nx <- names(x) x <- as.vector(x) nax <- is.naâ¦