#Ishii et al. Supplementary material 1

library(tidyverse)
tpm = read_table2("all_gene_TPM")	#import an TPM data file.

z_tpm = tpm %>%
  pivot_longer(col = -gene_id, names_to = "key", values_to = "value") %>%
  group_by(gene_id) %>%
  mutate(value = scale(value)) %>%
  pivot_wider(names_from = "key", values_from = "value")

write_tsv(z_tpm, "z_tpm.out")	#export Data to tsv.