我正在为我的概率/统计类编写这段代码。请记住，我对R知之甚少。我提出的代码是产生一些我似乎无法处理的错误。首先，这是我提出的代码：
filename <- "C://Users//Colin//Desktop//sunspots.txt"
data <- read.table(filename)
colnames(data) <- c("x", "id")
#Questions 1 and 2
mean(data$id)
var(data$id)
summary(data$id)
hist(data$id)
#partial answer to Questions 3 and 4
p <- numeric()
for (i in 1:10000){
s <- data[sample(1:1053,10,replace=FALSE),]
x <- s$id
y[i] <- mean(x)
p[i] <- y[i]
assign(paste("sample",i,sep=""),s)
assign(paste("mean",i,sep=""),y)
}
现在，我将发布我正在使用的数据集的样本（它太大而无法发布整个内容，我会将其发布在代码标记中：
"x" "id"
"1" 33
"2" 81
"3" 7
这是我的数据集的确切格式，保存为.txt文件。我得到的第一个错误是： “警告讯息： 在mean.default（data $ id）中：参数不是数字或逻辑：返回NA“ 这对我来说很困惑，因为我得到了差异的结果。我也收到以下错误： “hist.default（data $ id）出错：'x'必须为数字” 最后，我收到此错误消息： “y [i]＆lt; - mean（x）中的错误：找不到对象'y' 另外：警告信息： 在mean.default（x）中：参数不是数字或逻辑：返回NA“ 任何帮助将不胜感激，因为我一直在尝试修复此代码大约一个小时，似乎没有取得任何进展。谢谢。