Import OVC single-cell data

OVC_SingleCell.Rmd

---
title: "OVC single-cell analysis"
author: "Levi Waldron"
date: "5/29/2018"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

# Data Import

```{r}
library(readr)
X150923_TPM_output <- read_delim("150923_TPM_output.txt", 
    "\t", escape_double = FALSE, trim_ws = TRUE)
X150923_TPM_output <- X150923_TPM_output[!is.na(X150923_TPM_output$Bulk_2), ]
```

Make SingleCellExperiment

```{r}
library(SingleCellExperiment)
dat <- as.matrix(X150923_TPM_output[, -1:-2])
rownames(dat) <- X150923_TPM_output[[1]]
sce <- SingleCellExperiment(assays=list(counts=dat), 
                            colData=DataFrame(type=c("bulk", rep("singlecell", ncol(dat)-1))),
                            rowData=DataFrame(X150923_TPM_output[, 2]))
```