as_double_matrix function

Convert input to a matrix with "double" storage mode (base::storage.mode()).