/
rwrapper_20120327.py
78 lines (64 loc) · 1.93 KB
/
rwrapper_20120327.py
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
#-*- coding:utf-8 -*-
from rpy2 import robjects as ro
from rpy2.robjects import r
from rpy2.robjects.packages import importr
def r_vector(x):
# Create R vector from Python Array type.
v = ro.FloatVector(x)
return v
def r_matrix(x, rows):
# Create R matrix from Python Array type.
m = r.matrix(ro.FloatVector(x), nrow=rows)
return m
def r_summary(x):
# R summery function.
rcmd = r["summary"]
return rcmd(x)
def r_pca(x, argScale=True,argNcp=5, argGraph=False):
# R PCA function.
# The "FactoMineR" package is required.
r.library("FactoMineR")
rcmd = r["PCA"]
return rcmd(x,scale_unit=argScale,graph=argGraph)
def r_pca_plot(x, argAxes=[1,2], argChoix="ind"):
# R PCA plot function.
# The "FactoMineR" package is required.
r.library("FactoMineR")
rcmd = r["plot.PCA"]
raxe = r_vector(argAxes)
return rcmd(x,choix=argChoix,axes=raxe)
def r_dev_off():
# Terminate R graphics.
grdevices = importr('grDevices')
grdevices.dev_off()
def r_conPgsql(user, passwd, dbname):
# create a PostgreSQL instance and create one connection.
r.library("RPostgreSQL")
rcmd_drv = r["dbDriver"]
rcmd_con = r["dbConnect"]
drv = rcmd_drv("PostgreSQL")
return rcmd_con(drv,user=user,password=passwd,dbname=dbname)
def r_query(con,queryString=""):
# Query data stored in PostgreSQL database.
# The "RPostgreSQL" package is required.
r.library("RPostgreSQL")
rcmd = r["dbSendQuery"]
return rcmd(con, queryString)
def r_fetch(query, maxrecord=-1):
# Query data stored in PostgreSQL database.
# The "RPostgreSQL" package is required.
r.library("RPostgreSQL")
rcmd = r["fetch"]
return rcmd(query, n=maxrecord)
def r_clearResut(query):
# Initialyse query string.
# The "RPostgreSQL" package is required.
r.library("RPostgreSQL")
rcmd = r["dbClearResult"]
return rcmd(query)
def r_ListTables(con):
# Get dataset from PostgreSQL.
# The "RPostgreSQL" package is required.
r.library("RPostgreSQL")
rcmd = r["dbListTables"]
return rcmd(con)