In vjcitn/useret: demo of reticulate interface in a package

Setup

library(reticulate)

os <- import("os")
sy <- import("sys")
np <- import("numpy")
pd <- import("pandas")
sk <- import("sklearn.decomposition")

Import some 10x data

We'll use R to do the I/O here.

df =  read.csv(system.file(
        "csv/c1000p.csv.gz", package="useret"))
class(df)
head(df[,1:5])
mat = data.matrix(df[,-1])

Convert to python, try ipca

numdata = r_to_py(mat)
class(numdata)
numdata$shape
ipca = sk$IncrementalPCA(numdata)
dim(ipca$n_components)

vjcitn/useret documentation built on May 8, 2019, 11:19 p.m.