In celehs/mvBSC: Multi-view Banded Spectral Clustering

knitr::opts_chunk$set(echo = TRUE)

# devtools::install_github("celehs/mvBSC")

library(mvBSC)
library(data.table)

va_cosK <- readRDS(paste0("data/va_I00-I25_cosineMat.rds")) 
bio_cosK <- readRDS(paste0("data/biobank_I00-I25_cosineMat.rds"))
this.R <- readRDS(paste0("data/I00-I25_distR_wt_avg_1.rds"))
icd.info <- readRDS("data/rollable_new_icd_info_20190130.rds")
codes_in_use <- colnames(bio_cosK)
length(codes_in_use)

mvbsc(codes = codes_in_use, 
      distance = this.R, 
      similarity = list(va_cosK, bio_cosK), 
      k = c(15, 20),
      delta = c(5, 10),
      h = 1:5)

proc.time()

celehs/mvBSC documentation built on Nov. 4, 2019, 8:47 a.m.