用给定的熵创建 n 长度的向量

Question

我正在寻找创建具有特定熵的长度二进制序列。例如，一个由 100 组成的序列，其值为 0 或 1，熵为 0.01。这可能吗？可以用 R 或 Python 完成。这是我用来计算熵的函数。

norm_ent <- function(s){
  
  s1 <- which(s %in% 1)
  
  iet <- c(s1[1], diff(s1), length(s)+1-tail(s1,1))
  
  iet <- iet/(length(s)+1)
  
  h <- 1+((sum(log(iet)*iet))/log(sum(s)+1))
  
  return(h)
  
}