# NOT RUN {
set.seed(987)
mainDiag <- sample(100:110, size = 6, replace = TRUE)
upperDiag <- sample(10:20, size = 5, replace = TRUE)
lowerDiag <- sample(1:10, size = 5, replace = TRUE)
tridiag(mainDiag, upperDiag, lowerDiag)
# }
Run the code above in your browser using DataLab