jd<-function(x){
+  n<-length(x)
+  m<-mean(x)
+ v<-var(x)
+  s<-sd(x)
+  me<-median(x)
+ cv<-100*s/m
+ css<-sum((x-m)^2)
+  uss<-sum(x^2)
+  r<-max(x)-min(x)
+ r1<-quantile(x,3/4)-quantile(x,1/4)
+ sm<-s/sqrt(n)
+ g1<-n/((n-1)*(n-2))*sum((x-m)^3)/s^3
+ g2<-((n*(n+1))/((n-1)*(n-2)*(n-3))*sum((x-m)^4)/s^4-(3*(n-1)^2)/((n-2)*(n-3)))
+ data.frame(N=n,Mean=m,Var=v,std_devs=s,Median=me,std_mean=sm,CV=cv,CSS=css,USS=uss,R=R,R1=R1,Skewness=g1,Kurtosis=g2,row.names=1)
+ }
> source("jd.R")
错误于file(filename, "r", encoding = encoding) : 无法打开链结
此外: 警告信息：
In file(filename, "r", encoding = encoding) :
  无法打开文件'jd.R': No such file or directory
求助各位大神，这是哪里出问题了，该怎么解决啊!谢谢！