R/getMaxLogFunc.R

In ShashankKumbhare/paramonteR: Plain Powerful Parallel Monte Carlo Library

####################################################################################################################################
################################## getMaxLogFunc ###################################################################################
# >>
getMaxLogFunc  <- function( dataFrame, column = "SampleLogFunc" ) {
    
    offset           = which( colnames(dataFrame) == column )
    maxLogFunc       = list()
    
    maxLogFunc$value = max( dataFrame[[column]] )
    maxLogFunc$idrow = which( dataFrame[[column]] == maxLogFunc$value )
    maxLogFunc$dfrow = dataFrame[maxLogFunc$idrow,]
    maxLogFunc$state = dataFrame[maxLogFunc$idrow, (-1:-offset)]
    
    return( maxLogFunc )
    
}
# <<
################################## getMaxLogFunc ###################################################################################
####################################################################################################################################


####################################################################################################################################
################################## Help Code #######################################################################################
# >>
# out = getMaxLogFunc( dataFrame, column = "SampleLogFunc" )
# <<
################################## Help Code #######################################################################################
####################################################################################################################################