L1-miscel

Introduction

n = 19
vect = c(rep(1,floor(n/2)),rep(0,n - floor(n/2)))
shuffled = sample(vect,size = n, replace = F) 
print(t(t(shuffled)))

##       [,1]
##  [1,]    1
##  [2,]    0
##  [3,]    1
##  [4,]    0
##  [5,]    0
##  [6,]    0
##  [7,]    0
##  [8,]    0
##  [9,]    1
## [10,]    1
## [11,]    0
## [12,]    1
## [13,]    0
## [14,]    1
## [15,]    0
## [16,]    0
## [17,]    1
## [18,]    1
## [19,]    1