testlist <- list(n = 467495432L)
result <- do.call(bartBMA:::start_matrix,testlist)
str(result)