def screw_around():
pi = robj.r['pi']
print pi
print pi+2
print pi[0]
print pi[0]+2
#create fake binned array
nrow = 5
ncol = 10
counter = 0
binned = np.zeros((nrow, ncol), dtype="float64")
for row in xrange(nrow):
for col in xrange(ncol):
binned[row, col] = counter
counter += 1
#print binned
#get binned array into R data.frame
#vec = robj.FloatVector([1.1, 2.2, 0, 4.4, 5.5, ])
#print binned.shape
print numpy2ri(binned)
rdf = robj.r['data.frame'](numpy2ri(binned), code="ID1000")
#print rdf
# now see if we can get R to use this dataframe
myRcode = """
square <- function(rdf) {
myv = rdf$X2 + rdf$X3
return(myv)
}
doit <- function() {
source("/srv/scratch/carolyn/Dengue_code/Rtest_rpy.R")
run_test_wrap(3)
}
"""
print "wwwwah"
powerpack = SignatureTranslatedAnonymousPackage(myRcode, "powerpack")
print powerpack._rpy2r.keys() #to reveal the functions within powerpack
print powerpack.square(rdf) #to run the function "square" found in powerpack
print powerpack.doit()
