f_transformar.R

f_transformar <- function( p_data, p_summ )
{
  # Melt Data
  mltd_data <- melt( data          = p_data
                   , variable.name = "Atributo"
                   , value.name    = "Value" 
                   )  
  
  # Melt Summary
  mltd_summ <- melt( data          = p_summ
                   , id.vars       = "Atributo" 
                   , variable.name = "Metrica"
                   , value.name    = "Value" 
                   )
  
  list( mltd_data = mltd_data
      , mltd_summ = mltd_summ
      )
}