ãŠã£ã¨å±ãªã„ï¼šä¿¡é ¼åŒºé–“ã¨äºˆæ¸¬åŒºé–“ã‚’æ··åŒã—ã¡ã‚ƒãƒ€ãƒ¡ - Take a Risk：林岳彦ã®ç ”究メモ今回ã¯ä»•äº‹ã§è§£æžã‚’ã—ã¦ã„ã¦ã€ŒãŠã£ã¨å±ãªã„ã€ã¨æ€ã£ãŸã“ã¨ã«ã¤ã„ã¦æ›¸ã„ã¦ã¿ã¾ã™ã€‚çµè«–ã‹ã‚‰ã„ã†ã¨ã€Œä¿¡é ¼åŒºé–“ã¨äºˆæ¸¬åŒºé–“ã‚’æ··åŒã—ãªã„よã†ã«æ³¨æ„ã—ã¾ã—ょã†ï¼ã€ã¨ã„ã†è©±ã§ã™*1。 課題：BODã®å€¤ã‹ã‚‰TOCã®å€¤ã‚’推定ã—ãŸã„ 最近ややã‚ã£ã¦BOD（生物化å¦çš„é…¸ç´ è¦æ±‚é‡ï¼‰ã®å€¤ã‹ã‚‰TOC（全有機ç‚ç´ é‡ï¼‰ã®å€¤ã‚’推定ã—ã¦ã¿ã‚ˆã†ã¨æ€ã„ã¾ã—ãŸ*2。 試ã—ã«æ±äº¬éƒ½ã®15地点ã‹ã‚‰å¾—られã¦ã„る水質データを用ã„ã¦Rã§ä¸¡è€…ã®æ•£å¸ƒå›³ã‚’æã„ã¦ã¿ã‚‹ã¨ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸï¼ˆãƒ‡ãƒ¼ã‚¿ã¯ã“ã¡ã‚‰ï¼šBOD-TOC.txt ）。相関ã¯ã‚ã‚‹ã‚‚ã®ã®ã€ãƒãƒ©ãƒ„ã‚ã‚‚ã‹ãªã‚Šã‚ã‚Šã¾ã™ã€‚ BOD2TOC.data <- read.table("BOD-TOC.txt",sep=",") TOC <- BOD2TOC.data$TOC BOD <- BOD2TOC.data$BOD plot(BOD,TOC,type="p",xlim=c(0,6),ylim=c
{{#tags}}- {{label}}
{{/tags}}