尝试在SET_VECTOR_ELT中设置索引0/0

SET_VECTOR_ELT(vector, index, value)

#include <R.h>
#include <Rinternals.h>

void setVectorElement() {
  SEXP vector;
  PROTECT(vector = allocVector(REALSXP, 2)); // 创建一个长度为2的实数向量
  REAL(vector)[0] = 1.0; // 设置第一个元素的值为1.0
  REAL(vector)[1] = 2.0; // 设置第二个元素的值为2.0
  
  SEXP value;
  PROTECT(value = allocVector(INTSXP, 1)); // 创建一个长度为1的整数向量
  INTEGER(value)[0] = 3; // 设置值为3
  
  SET_VECTOR_ELT(vector, 1, value); // 设置向量对象的第二个元素为整数向量
  
  UNPROTECT(2); // 释放内存
}