# NOT RUN {
data = matrix(sample(c(0,1), 2000, replace = TRUE), ncol = 2)
x = matrix(rnorm(nrow(data)*3, 2,1), nrow = nrow(data))
informat(data = data)
#this returns TRUE
data = cbind(data, x)
informat(data = data)
#this returns TRUE
informat(data = data, K = 3)
#this returns FALSE
# }
Run the code above in your browser using DataLab