R/evalRMSE.R

In ayurovsky/rnaGinesis: Simulate gene expression data

#' Compare two sets of column data (automatic matching)
#'
#' @export
#' @import Metrics

evalRMSE = function(truth, observed)
{
  RMSE = sapply(1:ncol(truth), function(i) rmse(truth[,i], observed[,i]))
  return(RMSE)
}