ä»åã¯ä»äºã§è§£æããã¦ãã¦ããã£ã¨å±ãªããã¨æã£ããã¨ã«ã¤ãã¦æ¸ãã¦ã¿ã¾ããçµè«ããããã¨ãä¿¡é ¼åºéã¨äºæ¸¬åºéãæ··åããªãããã«æ³¨æãã¾ãããï¼ãã¨ãã話ã§ã*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}}