2022_01_03_1830-read_prism_file.Rmd

---
title: "2022_01_03_1830-read_prism_file"
author: "Ming"
date: "`r format(Sys.time(), '%Y_%m_%d_%H_%M')`"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
knitr::opts_chunk$set(message = FALSE)
knitr::opts_chunk$set(warning = FALSE)
require(tidyverse)
require(ggplot2)
'%ni%' <- Negate('%in%')

data.dir = "/Users/minghan/GDrive_minghanpughlab/PughLabPMH/_projects/homolog_seq/data/"
```

# read pzfx

```{r}
# install.packages("pzfx")
library(pzfx)
fam72_qPCR = 
  read_pzfx(path = paste0(data.dir, 
                          "FAM72 expression level in human cell lines qPCR updated Jan3-22.pzfx"))
fam72_qPCR

fam72_qPCR.t = 
  as_tibble(t(fam72_qPCR %>% column_to_rownames(var = "ROWTITLE")), 
            rownames = "Samples") %>% 
  arrange(Samples)
fam72_qPCR.t %>% head(8) %>% print.data.frame()

# write.csv(x = fam72_qPCR.t, file = paste0(data.dir, "fam72_qPCR.t.csv"), quote = F, row.names = F)
```

<br>

# EOF