powered by
gsi.isSingleRow(X)
gsi.isSingleRow <- function(X) { return( NROW(X) == 1 || NCOL(X) ==1 ) }
gsi
#gsi.isSingleRow(1:10)
Run the code above in your browser using DataLab