drop.rownames <- function( df, row.names ) {
  ### This function returns a dataframe excluding the
  ### rownames specified in the function.
  ### v 1.0

  df = df[setdiff(rownames(df),row.names) ,]

return(df)
}