可以用R内置函数commandArgs或者argparse包来实现:
args<-commandArgs(trailingOnly = TRUE)
my_vector<-as.numeric(args)
cat('mean=',mean(my_vector),'\n')
cat('mad=',mad(my_vector),'\n')
cat('sd=',sd(my_vector))
运行结果:
F:\2022>Rscript "f:\2022\rtest\t11.r" 1 5 7 9 -3 0 0 -7 -10
mean= 0.2222222
mad= 7.413
sd= 6.260547
F:\2022>
使用argparse参考:
https://zhuanlan.zhihu.com/p/212997106
如果对你有帮助,请点击下采纳按钮~
先安装这个库
您好,我是有问必答小助手,您的问题已经有小伙伴帮您解答,感谢您对有问必答的支持与关注!