x_sparse <- sparse_double(c(pi, 5, 0.1), c(2, 5, 10), 10)
x_dense <- c(0, pi, 0, 0, 0.5, 0, 0, 0, 0, 0.1)
sparse_positions(x_sparse)
sparse_values(x_sparse)
sparse_default(x_sparse)
sparse_positions(x_dense)
sparse_values(x_dense)
sparse_default(x_dense)
x_sparse_3 <- sparse_double(c(pi, 5, 0.1), c(2, 5, 10), 10, default = 3)
sparse_default(x_sparse_3)
Run the code above in your browser using DataLab