咱们来一步步拆解你代码里的问题，帮你搞定这个报错：

1. 引发报错的核心原因：错误的区间判断语法 #

R 不支持像数学表达式那样直接写 a < U <= b，这种写法会触发你看到的 unexpected '<=' 语法错误。必须把它拆成两个独立条件，用逻辑与符号 & 连接，比如写成 probability_of_x[1] < U & U <= probability_of_x[2]。

2. 潜在的数组初始化问题 #

你直接给 probability_of_x[i] 赋值，但没提前创建这个数组——虽然R不会立刻报错，但这不是规范写法，后续可能引发奇怪的问题。建议提前初始化一个长度为6的数值数组：probability_of_x <- numeric(6)。

3. 最后一个else的错误用法 #

你最后一行写了 else(probability_of_x[5]<U<=probability_of_x[6])，else 后面不能跟任何条件，要么改成 else if 并修正条件写法，要么直接用 else（因为前面的条件已经覆盖了所有其他情况，剩下的自然就是最后一个区间）。

4. 一眼就能看到的小笔误 #

第三个分支里你写了 X=4 但打印的是 "X = 3"，这明显是手滑写错了，得改成一致的数值。

修正后的完整代码 #

# 先初始化概率数组，避免潜在问题
probability_of_x <- numeric(6)
for (i in 1:6) { 
  probability_of_x[i] = i/21 
}

U = runif(1,0,1)

if(U <= probability_of_x[1]){
  X=1
  print("X = 1")
}else if(probability_of_x[1] < U & U <= probability_of_x[2]){
  X=2
  print("X = 2")
} else if(probability_of_x[2] < U & U <= probability_of_x[3]){
  X=3  # 修正笔误，之前错写成X=4
  print("X = 3")
} else if(probability_of_x[3] < U & U <= probability_of_x[4]){
  X=4
  print("X = 4")
} else if(probability_of_x[4] < U & U <= probability_of_x[5]){
  X=5
  print("X = 5")
} else {  # 直接用else，剩下的必然是最后一个区间
  X=6
  print("X = 6")
}

额外的优化建议 #

其实这种分区间采样的逻辑，用R内置的 findInterval() 函数可以大幅简化代码，不用写一堆if-else：

# 直接计算累积概率，连循环都省了
probability_of_x <- cumsum(1:6/21)
U <- runif(1, 0, 1)
X <- findInterval(U, c(0, probability_of_x))
print(paste("X =", X))

这样代码更简洁，也不容易犯语法或笔误~

内容的提问来源于stack exchange，提问作者new to coding