clustergrammer/src/recluster/recluster.js

This is a clustergram implemented in D3.js. I started from the example http://bost.ocks.org/mike/miserables/ and added the following features

var clusterfck = require('cornhundred-clusterfck');
var core = require('mathjs/core');
var math = core.create();
var dist_fun = require('./distance_functions');
var get_order_and_groups_clusterfck_tree = require('./get_order_and_groups_clusterfck_tree');
var update_view = require('../update/update_view');

math.import(require('mathjs/lib/function/matrix/transpose'));
math.import(require('mathjs/lib/type/matrix'));

module.exports = function recluster(cgm, new_distance_metric){

  var new_view = {};
  new_view.N_row_sum = 'null';
  new_view.N_row_var = 'null';
  new_view.dist = new_distance_metric;

  // // constructing new nodes from old view (does not work when filtering)
  // new_view.nodes = $.extend(true, [], cgm.params.network_data.views[0].nodes);

  new_view.nodes = {};
  new_view.nodes.row_nodes = $.extend(true, [], cgm.params.network_data.row_nodes);
  new_view.nodes.col_nodes = $.extend(true, [], cgm.params.network_data.col_nodes);

  _.each(['row', 'col'], function(inst_rc){

    var mat;
    var transpose = math.transpose;
    var names;
    var name_nodes;

    if (inst_rc === 'row'){
      mat = $.extend(true, [], cgm.params.network_data.mat);

      names = cgm.params.network_data.row_nodes_names;
      name_nodes = 'row_nodes';

    } else if (inst_rc === 'col'){
      mat = $.extend(true, [], cgm.params.network_data.mat);
      mat = transpose(mat);

      names = cgm.params.network_data.col_nodes_names;
      name_nodes = 'col_nodes';
    }


    var clusters = clusterfck.hcluster(mat, dist_fun[new_distance_metric]);

    var order_info = get_order_and_groups_clusterfck_tree(clusters, names);
    var inst_node;
    var inst_order;

    // row or column nodes
    var rc_nodes = new_view.nodes[name_nodes];

    for (var index=0; index < rc_nodes.length; index++){

      inst_node = rc_nodes[index];
      inst_order = order_info.info[index];

      inst_node.clust = inst_order.order;
      inst_node.group = inst_order.group;
    }

  });

  // add new view to views
  cgm.config.network_data.views.push(new_view);
  update_view(cgm, 'dist', new_distance_metric);

};