from rpy2 import robjects as robj
from rpy2.robjects import Formula, Environment
from rpy2.robjects.vectors import IntVector, FloatVector
from rpy2.robjects.lib import grid
from rpy2.robjects.packages import importr, data
from rpy2.rinterface import RRuntimeError
from rpy2.robjects import r, pandas2ri
import warnings
# The R 'print' function
# rprint = robjects.globalenv.get("print")
stats = importr('stats')
grdevices = importr('grDevices')
base = importr('base')
datasets = importr('datasets')
grid.activate()
pandas2ri.activate()
lattice = importr('lattice')
datasets = importr('datasets')
mtcars = data(datasets).fetch('mtcars')['mtcars']
formula = Formula('mpg ~ wt')
formula.getenvironment()['mpg'] = mtcars.rx2('mpg')
formula.getenvironment()['wt'] = mtcars.rx2('wt')
# Python
import numpy as np
xyplot = lattice.xyplot
from rpy2 import robjects
from rpy2.robjects import Formula, Environment
from rpy2.robjects.vectors import IntVector, FloatVector
from rpy2.robjects.lib import grid
from rpy2.robjects.packages import importr, data
from rpy2.rinterface import RRuntimeError
import warnings
# The R 'print' function
rprint = robjects.globalenv.get("print")
stats = importr('stats')
grdevices = importr('grDevices')
base = importr('base')
datasets = importr('datasets')
grid.activate()
lattice = importr('lattice')
grdevices.png(file="test.png", width=512, height=512)
# plotting code here
#r = robjects.r
#x = robjects.IntVector(range(10))
#y = r.rnorm(10)
#r.plot(r.runif(10), y, xlab="runif", ylab="foo/bar", col="red")
tmpenv = data(datasets).fetch("volcano")
volcano = tmpenv["volcano"]
