diff options
-rw-r--r-- | Code/slice_TPM_to_JSON.R | 20 | ||||
-rw-r--r-- | Code/slice_TPM_to_JSON.py | 2 |
2 files changed, 1 insertions, 21 deletions
diff --git a/Code/slice_TPM_to_JSON.R b/Code/slice_TPM_to_JSON.R deleted file mode 100644 index e7021ef..0000000 --- a/Code/slice_TPM_to_JSON.R +++ /dev/null @@ -1,20 +0,0 @@ - -#library(rjson) -library(jsonlite) -dir.name <- '../Data/history/expr/json' -tpm.file <- '../Data/history/expr/assemble/TPM.6604.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,], digits=I(3)) - file.name = paste(dir.name, paste(gene.id[i], 'json', sep='.'), sep='/') - cat(y, file=file.name) -} diff --git a/Code/slice_TPM_to_JSON.py b/Code/slice_TPM_to_JSON.py index 618310f..b2edfa2 100644 --- a/Code/slice_TPM_to_JSON.py +++ b/Code/slice_TPM_to_JSON.py @@ -141,7 +141,7 @@ def make_json_file_using_r(dir_name, glb_param_dict): # use r script to make it dir.create(dir.name) } for (i in 1:dim(X)[1]) { - y <- toJSON(X[i,], digits=I(3)) + y <- toJSON(unbox(X[i,]), digits=I(3)) file.name = paste(dir.name, paste(gene.id[i], 'json', sep='.'), sep='/') cat(y, file=file.name) } |