{
"cells": [
{
"cell_type": "markdown",
"metadata": {},
"source": [
"# Llamando código R\n",
"\n",
"La biblioteca [rpy2](http://rpy2.bitbucket.org/) nos permite de manera muy simple, poder llamar a nuestras funciones escritas en R."
]
},
{
"cell_type": "code",
"execution_count": 1,
"metadata": {
"collapsed": false
},
"outputs": [
{
"data": {
"text/plain": [
"rpy2.rinterface.NULL"
]
},
"execution_count": 1,
"metadata": {},
"output_type": "execute_result"
}
],
"source": [
"from rpy2.robjects.packages import importr\n",
"\n",
"base = importr('base')\n",
"stats = importr('stats')\n",
"graphics = importr('graphics')\n",
"\n",
"plot = graphics.plot\n",
"rnorm = stats.rnorm\n",
"plot(rnorm(100), ylab=\"random\")"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {
"collapsed": true
},
"outputs": [],
"source": [
"import rpy2.robjects as robjects\n",
"\n",
"r = robjects.r\n",
"\n",
"# codigo R\n",
"r('''\n",
" f <- function(r, verbose=FALSE) {\n",
" if (verbose) {\n",
" cat(\"I am calling f().\\n\")\n",
" }\n",
" 2 * pi * r\n",
" }\n",
" f(3)\n",
" ''')\n",
"\n",
"# Tambien podria importar una funcion r desde un modulo\n",
"\n",
"r_f = r['f']"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {
"collapsed": false
},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[1] 31.41593\n",
"\n"
]
}
],
"source": [
"res = r_f(5)\n",
"print(res)"
]
},
{
"cell_type": "code",
"execution_count": 4,
"metadata": {
"collapsed": false
},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"$rowInd\n",
" [1] 5 9 2 7 10 6 4 3 8 1\n",
"\n",
"$colInd\n",
" [1] 9 5 6 2 3 10 4 7 8 1\n",
"\n",
"$Rowv\n",
"NULL\n",
"\n",
"$Colv\n",
"NULL\n",
"\n",
"\n"
]
}
],
"source": [
"import numpy as np\n",
"import rpy2.robjects.numpy2ri\n",
"rpy2.robjects.numpy2ri.activate()\n",
"\n",
"data = np.random.random((10,10))\n",
"result = r.heatmap(data)\n",
"print(result)"
]
},
{
"cell_type": "code",
"execution_count": 5,
"metadata": {
"collapsed": false
},
"outputs": [
{
"data": {
"text/html": [
"\n",
"\n",
"\n",
"\n",
"\n",
"\n",
"\n",
"\n",
""
],
"text/plain": [
""
]
},
"execution_count": 5,
"metadata": {},
"output_type": "execute_result"
}
],
"source": [
"#Este css es trabajo de @LorenaABarba y su grupo\n",
"from IPython.core.display import HTML\n",
"css_file = '../css/personal.css'\n",
"HTML(open(css_file, \"r\").read())"
]
}
],
"metadata": {
"kernelspec": {
"display_name": "Python 3",
"language": "python",
"name": "python3"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 3
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython3",
"version": "3.5.2"
}
},
"nbformat": 4,
"nbformat_minor": 0
}