Fix error occurred while running update_network.py

1 files changed, 19 insertions, 0 deletions

diff --git a/Code/slice_TPM_to_JSON.R b/Code/slice_TPM_to_JSON.R
new file mode 100644
index 0000000..fb7a39d
--- /dev/null
+++ b/Code/slice_TPM_to_JSON.R
@@ -0,0 +1,19 @@
+
+library(rjson)
+dir.name <- '../Data/history/expr/json'
+tpm.file <- '../Data/history/expr/TPM.txt'
+take.log <- 'YES'
+X <- read.table(tpm.file, header=T, check.names=FALSE, sep="\t")
+gene.id <- as.vector(X[,1])
+X[,1] <- NULL # remove first column
+if (take.log == 'YES') {
+    X <- log(X+1)
+}
+if (!dir.exists(dir.name)) {
+    dir.create(dir.name)
+}
+for (i in 1:dim(X)[1]) {
+    y <- toJSON(X[i,])
+    file.name = paste(dir.name, paste(gene.id[i], 'json', sep='.'), sep='/')
+    cat(y, file=file.name)
+}