SchemeI <- function(scheme=0, n=10, rate=0.08){
  r <- round(n*rate)
  m <- n-r
  if((r < 0)||(r > (m-1))){
    r <- 0
  }
  if(scheme==1){
    Rm <- c(rep(0, m-1), r)
  }
  if(scheme==2){
    Rm <- c(r, rep(0, m-1))
  }
  if(scheme==3){
    pcs.id <- sample(1:m, r)
    Rm <- rep(0, m)
    Rm[pcs.id] <- 1
  }
  if(scheme==4){
    Rm <- c(round(r/2), rep(0, m-2), r-round(r/2))
  }
  if((scheme>4) ||(scheme < 1)){
    Rm <- rep(0, m)
  }
  list(Rm=Rm, m=m)
}