cat函数用于输出到外部文件:
cat("av3=function(x){n=length(x)m=mean(x)d3=(x-m)^3sum(d3)/n} ",file="aa.r")
cat("任意字符",file=“文件名”)
之后要运行这个R就写一句source("文件名")就好了
cat函数用于输出到外部文件:
cat("av3=function(x){n=length(x)m=mean(x)d3=(x-m)^3sum(d3)/n} ",file="aa.r")
cat("任意字符",file=“文件名”)
之后要运行这个R就写一句source("文件名")就好了