/usr/share/pyshared/Epigrass/rinterface.py is in epigrass 2.3.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | """
This module is a collection of fucntions to interface with "R":http://cran.r-project.org
You need to have R and the following libraries installed for it to work:
*RMySQL
*DBI
*lattice
"""
from rpy import *
def qnplot(table):
"""
This function query simulation results stored in a MySQL table
and generates some plots.
"""
s = """library(DBI)
library(RMySQL)
library(lattice)
drv <- dbDriver("MySQL")
con <- dbConnect(drv, username='root',password='mysql', host='localhost',dbname='epigrass')
results<- dbReadTable(con,'%s')
names(results)
par(mfrow=c(2,2))
plot(results$I[results$geocode==230440005],type='l',main='Fortaleza')
plot(results$I[results$geocode==355030800],type='l',main='São Paulo')
plot(results$I[results$geocode==520880605],type='l',main='goianira')
plot(results$I[results$geocode==510760205],type='l',main='Rondonopolis')
x11()
xyplot(I~as.numeric(time),type="l",groups=results$geocode,data=results)
""" % table
r(s)
|