webbedfeet

# Ensure left continuity of a decreasing step function

# First find discontinuities, based on minimum jump size, then make sure there
# is a data point to ensure left continuity there.

lcts <- function(dat, min.jump){

  for(i in 2:nrow(dat)){
    if(dat[i+1,2] - dat[i,2] > min.jump){ # identify discontinuity
      dat <- rbind(dat, c(dat[i+1,1], dat[i,2])) # generate left-cts data point

webbedfeet

from collections import OrderedDict
import numpy as np
py2ri_orig = rpy2.robjects.conversion.py2ri
def conversion_pydataframe(obj):
    if isinstance(obj, pandas.core.frame.DataFrame):
        od = OrderedDict()
        for name, values in obj.iteritems():
            if values.dtype.kind == 'O':
                od[name] = rpy2.robjects.vectors.StrVector(values)
            else:

webbedfeet

{
 "metadata": {
  "name": "demo"
 },
 "nbformat": 3,
 "worksheets": [
  {
   "cells": [
    {
     "cell_type": "code",