Print abbreviated matrices and vectors

This function prints abbreviated matrices and vectors.

Usage

pprint(x, rowdots = 4, coldots = 4, digits = 4, name = NULL, desc = TRUE)

Arguments

x: A (numeric or character) matrix or a vector.
rowdots: The row number which is replaced by dots.
coldots: The column number which is replaced by dots.
digits: If x is numeric, sets the number of decimal places.
name: Either NULL or a label for x. Only printed if desc = TRUE.
desc: Set to TRUE to print the name and the dimension of x.

Value

Invisibly returns x.

References

This function is a modified version of the pprint() function from the ramify R package.

Examples

RprobitB:::pprint(x = 1, name = "single integer")
#> single integer : 1
RprobitB:::pprint(x = LETTERS[1:26], name = "letters")
#> letters : character vector of length 26 
#> 
#> A B C ... Z
RprobitB:::pprint(
  x = matrix(rnorm(100), ncol = 1),
  name = "single column matrix"
)
#> single column matrix : 100 x 1 matrix of doubles 
#> 
#>           [,1]
#> [1,]    1.1144
#> [2,]   -0.0042
#> [3,]   -1.0775
#> ...        ...
#> [100,] -0.4254
RprobitB:::pprint(x = matrix(1:100, nrow = 1), name = "single row matrix")
#> single row matrix : 1 x 100 matrix of integers 
#> 
#>      [,1] [,2] [,3] ... [,100]
#> [1,]    1    2    3 ...    100
RprobitB:::pprint(x = matrix(LETTERS[1:24], ncol = 6), name = "big matrix")
#> big matrix : 4 x 6 matrix of characters 
#> 
#>      [,1] [,2] [,3] ... [,6]
#> [1,]    A    E    I ...    U
#> [2,]    B    F    J ...    V
#> [3,]    C    G    K ...    W
#> [4,]    D    H    L ...    X