Commit 6000814a authored by mirachirkova's avatar mirachirkova
Browse files

start including Hobotnica in the pipeline

parent 7b59c0fc
#read annotation
cm_args <- commandArgs(trailingOnly = TRUE)
cols <- cm_args[1]
if (!file.exists(cols)) {
stop("File ", cols, " does not exists!")
}
coldata <- read.table(file=cols, sep = ",", dec = ".")
colnames(coldata) <- c("names", "condition")
coldata <- coldata[-c(1), ]
#load dist matrixes
distmat <- read.table(file="data/DESeq_sig.txt.distmatrix", header = TRUE, sep = ",", dec = ".")
source("hobotnica/R/Hobotnica.R")
cat(Hobotnica(distmat, coldata$condition))
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment