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()函数时可以正常使用。


雷达卡


京公网安备 11010802022788号







