为"TRUE“创建给定位置的逻辑向量

# 创建一个长度为n的逻辑向量，其中第i个位置为TRUE，其他位置为FALSE
create_logical_vector <- function(n, positions) {
  vector <- logical(n)
  vector[positions] <- TRUE
  return(vector)
}

# 示例：创建一个长度为10的逻辑向量，第2和第5个位置为TRUE，其他位置为FALSE
n <- 10
positions <- c(2, 5)
logical_vector <- create_logical_vector(n, positions)
print(logical_vector)