R/generate.columns.multivalued.r

In RSDA: R to Symbolic Data Analysis

Defines functions generate.columns.multivalued

Documented in generate.columns.multivalued

#' generate.columns.multivalued
#' @keywords internal
#' @author Jorge Arce Garro
generate.columns.multivalued<-function(data){
  data.colnames<-colnames(data)
  sal<-apply(data,1,function(x) {
    paste0(paste0("{",paste( paste(data.colnames[x>0], x[x>0] , sep = ";") , collapse = ",")),"}")
  })
  return(sal)
}

Try the RSDA package in your browser