### R code from vignette source 'PoissonPCA.Rnw'
### Encoding: UTF-8

###################################################
### code chunk number 1: PoissonPCA.Rnw:25-28
###################################################
library(PoissonPCA)
X <- rbind(c(0,1,3,5,2),c(2,1,4,4,0),c(3,2,2,0,5))
Poisson_Corrected_PCA(X)


###################################################
### code chunk number 2: PoissonPCA.Rnw:106-109
###################################################
library(PoissonPCA)
X <- rbind(c(0,1,3,5,2),c(2,1,4,4,0),c(3,2,2,0,5))
Poisson_Corrected_PCA(X)