lgautier

require("Rif")
using Rif
initr()

m = R("matrix(rnorm(100), nrow=20)")
# A Julia matrix mj of type (Array{Float64, 2}) could
# be used with
# m = RArray{Float64,2}(mj)

d = call(R("dist"), [m])

lgautier

{
 "metadata": {
  "name": "Untitled0"
 },
 "nbformat": 3,
 "nbformat_minor": 0,
 "worksheets": [
  {
   "cells": [
    {

lgautier

{
 "metadata": {
  "name": "Untitled0"
 },
 "nbformat": 3,
 "nbformat_minor": 0,
 "worksheets": [
  {
   "cells": [
    {

lgautier

{
 "metadata": {
  "name": "",
  "signature": "sha256:e814b7d85c1dc274b3c62ca6849951326dee84fa31b999f9735064f46fb45a7a"
 },
 "nbformat": 3,
 "nbformat_minor": 0,
 "worksheets": [
  {
   "cells": [

lgautier

{
 "metadata": {
  "name": "",
  "signature": "sha256:cd75955d68d7ca272ff32886ce865002acb49b25f2e1cfba237539e70925eeda"
 },
 "nbformat": 3,
 "nbformat_minor": 0,
 "worksheets": [
  {
   "cells": [

lgautier

# This is a setup snippet for an ipython notebook.
# It requires the presence of variable 'setup_digest',
# defined in the cell controlling the setup.
if 'setup_digest' not in locals():
    import rpy2
    %load_ext rpy2.ipython

    # pigheaded / slow rpy2 developpers,
    # customize away:
    from rpy2.robjects.conversion import ri2py

lgautier

power <- function(x, n) {
  # a not-so-useful reimplementation
  x ^ n
}

square <- function(x) {
  x^2
}

cube <- function(x) {

lgautier

lgautier

#!/bin/sh

echo
echo '---------------'
echo ' test w/ FASTA ' 
echo '---------------'

testchrom=chr1.fa.gz

if [ ! -f "${testchrom}" ]; then

lgautier

export LD_LIBRARY_PATH=$(python -m rpy2.situation LD_LIBRARY_PATH):${LD_LIBRARY_PATH}