mumosa.hpp

Go to the documentation of this file.

#ifndef MUMOSA_HPP
#define MUMOSA_HPP
 
#include <vector>
#include <stdexcept>
#include <cmath>
#include <algorithm>
#include <limits>
 
#include "knncolle/knncolle.hpp"
#include "tatami_stats/tatami_stats.hpp"
 
namespace mumosa {
 
struct Options {
    int num_neighbors = 20;
 
    int num_threads = 1;
};
 
template<typename Index_, typename Float_>
std::pair<Float_, Float_> compute_distance(Index_ num_cells, Float_* distances) {
    Float_ med = tatami_stats::medians::direct(distances, num_cells, /* skip_nan = */ false);
    Float_ rmsd = 0;
    for (Index_ i = 0; i < num_cells; ++i) {
        auto d = distances[i];
        rmsd += d * d;
    }
    rmsd = std::sqrt(rmsd);
    return std::make_pair(med, rmsd);
}
 
template<typename Dim_, typename Index_, typename Float_>
std::pair<Float_, Float_> compute_distance(const knncolle::Prebuilt<Dim_, Index_, Float_>& prebuilt, const Options& options) {
    size_t nobs = prebuilt.num_observations();
    std::vector<double> dist(nobs);
 
    knncolle::parallelize(options.num_threads, nobs, [&](size_t, size_t start, size_t length) -> void {
        auto searcher = prebuilt.initialize();
        std::vector<Float_> distances;
        for (size_t i = start, end = start + length; i < end; ++i) {
            searcher->search(i, options.num_neighbors, NULL, &distances);
            if (distances.size()) {
                dist[i] = distances.back();
            }
        }
    });
 
    return compute_distance(nobs, dist.data());
}
 
template<typename Dim_, typename Index_, typename Float_>
std::pair<Float_, Float_> compute_distance(
    Dim_ num_dim,
    Index_ num_cells,
    const Float_* data,
    const knncolle::Builder<knncolle::SimpleMatrix<Dim_, Index_, Float_>, Float_>& builder,
    const Options& options)
{
    auto prebuilt = builder.build_unique(knncolle::SimpleMatrix(num_dim, num_cells, data));
    return compute_distance(*prebuilt, options);
}
 
template<typename Float_>
Float_ compute_scale(const std::pair<Float_, Float_>& ref, const std::pair<Float_, Float_>& target) {
    if (target.first == 0 || ref.first == 0) {
        if (target.second == 0) {
            return std::numeric_limits<Float_>::infinity();
        } else if (ref.second == 0) {
            return 0;
        } else {
            return ref.second / target.second; 
        }
    } else {
        return ref.first / target.first;
    }
}
 
template<typename Float_>
std::vector<Float_> compute_scale(const std::vector<std::pair<Float_, Float_> >& distances) {
    std::vector<Float_> output(distances.size());
 
    // Use the first entry with a non-zero RMSD as the reference.
    bool found_ref = false;
    size_t ref = 0;
    for (size_t e = 0; e < distances.size(); ++e) {
        if (distances[e].second) {
            found_ref = true;
            ref = e;
            break;
        }
    }
 
    // If all of them have a zero RMSD, then all scalings are zero, because it doesn't matter.
    if (found_ref) {
        const auto& dref = distances[ref];
        for (size_t e = 0; e < distances.size(); ++e) {
            output[e] = (e == ref ? 1 : compute_scale(dref, distances[e]));
        }
    }
 
    return output;
}
 
template<typename Dim_, typename Index_, typename Input_, typename Scale_, typename Output_>
void combine_scaled_embeddings(const std::vector<Dim_>& num_dims, Index_ num_cells, const std::vector<Input_*>& embeddings, const std::vector<Scale_>& scaling, Output_* output) {
    size_t nembed = num_dims.size();
    if (embeddings.size() != nembed || scaling.size() != nembed) {
        throw std::runtime_error("'num_dims', 'embeddings' and 'scale' should have the same length");
    }
 
    size_t ntotal = std::accumulate(num_dims.begin(), num_dims.end(), static_cast<size_t>(0));
    size_t offset = 0;
 
    for (size_t e = 0; e < nembed; ++e) {
        Dim_ curdim = num_dims[e];
        auto inptr = embeddings[e];
        auto s = scaling[e];
 
        // We use offsets to avoid forming invalid pointers with strided pointers.
        size_t in_position = 0;
        size_t out_position = offset;
 
        if (std::isinf(s)) {
            // If the scaling factor is infinite, it implies that the current
            // embedding is all-zero, so we just fill with zeros, and move on.
            for (Index_ c = 0; c < num_cells; ++c, in_position += curdim, out_position += ntotal) {
                std::fill_n(output + out_position, curdim, 0);
            }
        } else {
            for (Index_ c = 0; c < num_cells; ++c, in_position += curdim, out_position += ntotal) {
                for (Dim_ d = 0; d < curdim; ++d) {
                    output[out_position + d] = inptr[in_position + d] * s;
                }
            }
        }
 
        offset += curdim;
    }
}
 
}
 
#endif