Quick testing of CIDR implementation

gistfile1.txt

```{r}
## Read in some test data
colorectal <- readRDS("D:/Studies_PhD/Single_Cell_data/colorectal_cancer_Li_et_al_2017_SCESet.rds")
```

```{r}
sData <- scDataConstructor(as.matrix(colorectal))
sData <- determineDropoutCandidates(sData)

#sData <- wThreshold(sData)

#sData <- scDissim(sData)
#> 
#sData <- scPCA(sData)

#sData <- nPC(sData)

#nCluster(sData)

#sData <- scCluster(sData)
#> 
## Two dimensional visualization: different colors denote different cell types,
## while different plotting symbols denote the clusters output by cidr.
plot(sData@PC[,c(1,2)], col=sData@clusters,
     main="CIDR", xlab="PC1", ylab="PC2")

ggplot(as.data.frame(sData@PC),aes(Axis.1,Axis.2)) +
  geom_point()
```