sim_wider: Widen a symmetric melted similarity matrix.

View source: R/sim_wider.R

sim_widerR Documentation

Widen a symmetric melted similarity matrix.

Description

sim_widen widens a symmetric melted matrix.

Usage

sim_wider(sim_df, annotation_column, primary_key_column)

Arguments

sim_df

data.frame with melted similarity matrix.

annotation_column

character string specifying the column in sim_df to use to annotate rows and columns

primary_key_column

character string specifying the column in sim_df to use to uniquely identify rows and columns

Value

data.frame of widened similarity matrix, with some attributes.

Examples

suppressMessages(suppressWarnings(library(magrittr)))
population <- tibble::tibble(
  Metadata_group = sample(c("a", "b", "c", "d"), 100, replace = TRUE),
  x1 = rnorm(100),
  x2 = rnorm(100),
  x3 = rnorm(100),
  x4 = rnorm(100),
  x5 = rnorm(100)
)
population$Metadata_id <- seq(nrow(population))
metadata <- matric::get_annotation(population)
annotation_cols <- c("Metadata_group", "Metadata_id")
sim_df <- matric::sim_calculate(population, method = "pearson")
row_metadata <- attr(sim_df, "row_metadata")
sim_df <- matric::sim_annotate(sim_df, row_metadata, annotation_cols)
annotation_column <- "Metadata_group"
primary_key_column <- "Metadata_id"
res <- matric::sim_wider(sim_df, annotation_column, primary_key_column)
res
data.frame(id = rownames(res)) %>% dplyr::inner_join(attr(res, "map"))

matric documentation built on April 1, 2023, 12:19 a.m.