太感谢楼主了

不过在试的时候有个问题:
source('RMfit.R') 和source("RMeasure.R")显示错误,大概是这样
Error in file(filename, "r", encoding = encoding) :
cannot open the connection
In addition: Warning message:
In file(filename, "r", encoding = encoding) :
cannot open file 'RMfit.R': No such file or directory
因为没学过,能不能请各位大神帮忙看看??
感激不尽
