R编程中for循环中的位字符串移位 初始设置 #将MHID9870转换为位字符串 en

假设您从

compositions

包中获得

binary（）

函数，这应该可以工作。我无法完全重新创建您的代码，因为您没有共享创建

xyzmaj

对象的方式

if ( xyzmaj == my_mode(x)) {
  x <- c(x[length(x)], x[1:length(x)-1])
}
x

---

您应该共享运行代码所需的一切。还显示预期的输出。如果您包含一个简单的示例输入和所需的输出，可以用来测试和验证可能的解决方案，则更容易帮助您。此

binary（）

函数来自何处？我找不到具有

mb=

参数的。你在哪里定义xyzmaj？我想它是

compositions:：binary（）

xyzmaj是一个实际的数字，还是一个“0”或“1”形式的字符串？my_模式的输出是一个字符，而不是一个数字，因此，如果xyzmaj是数字，则比较这两个字符总是错误的

if ( xyzmaj == my_mode(x)) {
  for(i in 1:length(x)){
    x[i+1] <- x[i]
    i <- i+1
  }
}
x

my output keeps showing up as 
000000000000000000000

if ( xyzmaj == my_mode(x)) {
  x <- c(x[length(x)], x[1:length(x)-1])
}
x

  old_x <- x
  for(i in length(x):2){
    x[i] <- x[i - 1]
  }
  x[1] <- old_x[length(old_x)]
  x