自己编辑好的function，使用界面上的Source命令，提示错误，除此，在导入数据时，使用import dataset命令时，同样提示错误。求大神解决。（1）这个是使用source命令的错误，直接使用source命令提示错误；但是使用source（“function.R”）成功。
  mystats<-function(x,parametric=TRUE,print=FALSE) {
    if (parametric) {
        center<-mean(x)
        spread<-sd(x)
      }else{
        center<-median(x)
        spread<-mad(x)
      }
    if(print & parametric) {
      cat("Mean=", center, "\n", "SD=", spread, "\n")
    }else if (print & !parametrix) {
      cat("Median=", center,"\n", "Mad=", spread, "\n")
    }

    result<-list(center=center, spread=spread)
    return(result)
  }

source('~/R_Language/mystats.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 'D:/????/????/R_Language/mystats.R': Invalid argument




（2）这是使用import datasets时的错误，提示文件不有效，但是如果在命令窗口使用read.csv（）函数时可以正常使用。