1
2.maxDatatype <- function(x) {
3 x <- sort(x)
4 x <- x[substr(x, 1, 3)== substr(x[1], 1, 3)]
5 size <- max(as.integer(substr(x, 4, 4)))
6 if (substr(x[1], 1, 3) == 'FLT') {
7 return( paste('FLT', size, 'S', sep="") )
8 } else {
9 # need to do better than this
10 return( 'INT4S' )
11 }
12}