saptarshiguha

## as of D,

## active on day i between D-7,D-1
## active on day i between D-28,D-1
## was active in last 7 days
## was active in last 28 days

# number of active days in last 7
# number of active days in last 28

saptarshiguha

import matplotlib.pyplot as plt
import pandas as pd
import numpy as np
import plotly.plotly as py
sc.setJobGroup(groupId = "sguha",description = "interactive")


frame = sqlContext.read.load("s3://telemetry-parquet/longitudinal/v20160321")
first = frame.filter("normalized_channel = 'beta'").limit(5).rdd.collect()

saptarshiguha

#[derive(Debug)]
pub enum RRustError {
        ConversionError,
}
type convertError<T> = Result<T, RRustError>;

pub trait Robject {
        fn l(&self) -> isize;
        fn toSexp(&self) -> rRinternal::SEXP ;
        fn t(&self) -> i32;

saptarshiguha

import matplotlib.pyplot as plt
import pandas as pd
import numpy as np
import plotly.plotly as py
sc.setJobGroup(groupId = "sguha",description = "interactive")


frame = sqlContext.read.load("s3://telemetry-parquet/longitudinal/v20160321")
first = frame.filter("normalized_channel = 'beta'").limit(5).rdd.collect()

saptarshiguha

import matplotlib.pyplot as plt
import pandas as pd
import numpy as np
import plotly.plotly as py
sc.setJobGroup(groupId = "sguha",description = "interactive")


frame = sqlContext.read.load("s3://telemetry-parquet/longitudinal/v20160314")
first = frame.filter("normalized_channel = 'beta'").limit(5).rdd.collect()

saptarshiguha

library(shiny)
server <- function(input, output) {
}
ui <- fluidPage( mainPanel(
    tabsetPanel(position="right",tab="tabs",
         tabPanel("Plot", plotOutput("plot")),
         tabPanel("Summary", verbatimTextOutput("summary")),
         tabPanel("Table", tableOutput("table"))
       )
     )

saptarshiguha

{
  "d5304d9ac2328698c0c5f247bf4dafb0": {
    "version": "0.11.0",
    "title": "Bokeh Figure",
    "roots": {
      "root_ids": [
        "ba67722a45346fc0bdc256e6f1658a9c"
      ],
      "references": [
        {

saptarshiguha

#!/usr/local/bin/Rscript
# the ffmpeg commands came from Monaco Miracle (from the FB Pakon Scanner group)

library(infuser)
a <- commandArgs(trailing=TRUE)
fgif <- normalizePath(path.expand(a[1]))
outf <- gsub("(gif)$","mp4", fgif)


if(length(a)>1){

saptarshiguha

#!/usr/local/bin/Rscript
library(infuser)
a <- commandArgs(trailing=TRUE)
fgif <- normalizePath(path.expand(a[1]))
outf <- gsub("(gif)$","mp4", fgif)


if(length(a)>1){
    n <- a[2]
} else {

saptarshiguha

Keybase proof

I hereby claim:

• I am saptarshiguha on github.
• I am saptarshiguha (https://keybase.io/saptarshiguha) on keybase.
• I have a public key whose fingerprint is 25DE 89D9 73CD D007 EDFE 2998 E978 1A90 0BC5 F7AC

To claim this, I am signing this object: