Kevin klprint

I hereby claim:

To claim this, I am signing this object:

	library(hdf5r)
	library(Matrix)
	source("https://gist.githubusercontent.com/klprint/1ab4468eb3c54abcf0422dec6223b8fc/raw/b4cc33f5b4da25bcc2e678cf46b692fe67605460/single_cell_functions.R")
	library(SingleCellExperiment)
	library(tidyverse)

	sce.raw.pca <- function(sce, k = 100){
	umi <- assay(sce, "umi")

	cat("Getting informative genes\n")

	library(hdf5r)
	library(Matrix)
	source("https://gist.githubusercontent.com/klprint/1ab4468eb3c54abcf0422dec6223b8fc/raw/b4cc33f5b4da25bcc2e678cf46b692fe67605460/single_cell_functions.R")
	library(SingleCellExperiment)
	library(tidyverse)
	library(liger)

	sce.raw.pca <- function(sce, k = 100){
	umi <- assay(sce, "umi")

	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8" />
	<style>body{background-color:white;}</style>
	<script>(function() {
	// If window.HTMLWidgets is already defined, then use it; otherwise create a
	// new object. This allows preceding code to set options that affect the
	// initialization process (though none currently exist).
	window.HTMLWidgets = window.HTMLWidgets \|\| {};