#新数组内容保存至data.csv文件中
rm(list=ls())
#生成100个[-100,100]均匀分布随机数向量,种子为35
set.seed(35)
x <-runif(100,-100,100)
x
#将向量转换为10*10数组
x <-matrix(x,10,10)
x
#将数组元素转化为整数值
x <-ceiling(x)
x
#无行头,无列头,逗号分隔indow
write.table(x, file='data.csv',row.names=FALSE,col.names=FALSE,sep=',')
运行结果: