Вычислять деление на 2 до того момента, пока остаток = 0 в языке R

Языке R мы можем вычислить деление на 2 до тех пор, пока остаток не станет равен 0 с помощью следующего кода:

x <- ваше_число
while (x %% 2 == 0) {
  x <- x / 2
}
x