Manos Parzakonis IronistM

## Google Insights.R


#########################################
## GLOBAL REQUIREMENTS AND DEFINITIONS ##
#########################################
require(RCurl)
require(XML)

loginURL        <- "https://accounts.google.com/ServiceLogin"
authenticateURL <- "https://accounts.google.com/accounts/ServiceLoginAuth"

## predicting_customer_behav_1.R
#
# PREDICTING LONG TERM CUSTOMER VALUE WITH BTYD PACKAGE
# Pareto/NBD (negative binomial distribution) modeling of
# repeat-buying behavior in a noncontractual setting
#
# Matthew Baggott, matt@baggott.net
#
# Accompanying slides at:
# http://www.slideshare.net/mattbagg/baggott-predict-customerinrpart1#
#

## finSim.R
#First we are going to set up probability distributions for our beliefs about the inputs
#We've been told ARPU is about £7 and it's very unlikely to be higher than £10 or lower than £4
#So we'll go for a normal distribution centred at 7 with 5% and 95% quantiles at 4 and 10

#Show how we get the variance

arpu.sd<-3/1.96
x<-seq(0, 15,by=0.5)
d<-dnorm(x, 7, arpu.sd)
plot(x, d, type='l')

## github.gs
function github() {
  username = "xxx"
  repo = "xxx"
  url = "https://api.github.com/repos/"+username+"/"+repo+"/issues"
  payload = {
    "title": "xxx",
    "body": "xxx",
    "assignee": "xxx"
  }
  sendToGithub(url, payload)

## s3.sh
# You don't need Fog in Ruby or some other library to upload to S3 -- shell works perfectly fine
# This is how I upload my new Sol Trader builds (http://soltrader.net)
# Based on a modified script from here: http://tmont.com/blargh/2014/1/uploading-to-s3-in-bash

S3KEY="my aws key"
S3SECRET="my aws secret" # pass these in

function putS3
{
  path=$1

## sql.export.randomForest.R
# sql.export.rf(): save a randomForest model as SQL
# v0.04
# Copyright (c) 2013-2014 Shane Butler <shane dot butler at gmail dot com>
#
# sql.export.rf is free software: you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# sql.export.rf is distributed in the hope that it will be useful, but

## install-rstudio-daily.sh
#!/bin/bash
#
# Installs the latest RStudio daily desktop build for OSX/macOS and Ubuntu(amd64)
#
# https://support.rstudio.com/hc/en-us/articles/203842428-Getting-the-newest-RStudio-builds

set -e

install_macos_daily() {
    REDIRECT_URL="https://www.rstudio.org/download/latest/daily/desktop/mac/RStudio-latest.dmg"

## inspect_all_the_excel_sheets.R
library(tidyverse)
library(magrittr)
library(stringr)
library(readxl)

directory <- "bunch/of/excel/files"

# Get an overview of all the Excel files and their sheets
sheets <-
  data_frame(file = list.files(directory, full.names = TRUE),

## upgrade_packages.R
# WMF only:
if (file.exists("/etc/wikimedia-cluster")) {
  message('Detected that this script is being run on a WMF machine ("', Sys.info()["nodename"], '"). Setting proxies...')
  Sys.setenv("http_proxy" = "http://webproxy.eqiad.wmnet:8080")
  Sys.setenv("https_proxy" = "http://webproxy.eqiad.wmnet:8080")
}

# General use:
message("Checking for a personal library...")
if (!dir.exists(Sys.getenv("R_LIBS_USER"))) {

## quakes.R
library(ggplot2)
library(ggmap)
library(plyr)
library(grid)
library(gridExtra)

# read in cleaned up data
dat <- read.table("quakes.dat", header=TRUE, stringsAsFactors=FALSE)

# map decimal magnitudes into an integer range


	#########################################
	## GLOBAL REQUIREMENTS AND DEFINITIONS ##
	#########################################
	require(RCurl)
	require(XML)

	loginURL <- "https://accounts.google.com/ServiceLogin"
	authenticateURL <- "https://accounts.google.com/accounts/ServiceLoginAuth"
	#
	# PREDICTING LONG TERM CUSTOMER VALUE WITH BTYD PACKAGE
	# Pareto/NBD (negative binomial distribution) modeling of
	# repeat-buying behavior in a noncontractual setting
	#
	# Matthew Baggott, matt@baggott.net
	#
	# Accompanying slides at:
	# http://www.slideshare.net/mattbagg/baggott-predict-customerinrpart1#
	#
	#First we are going to set up probability distributions for our beliefs about the inputs
	#We've been told ARPU is about £7 and it's very unlikely to be higher than £10 or lower than £4
	#So we'll go for a normal distribution centred at 7 with 5% and 95% quantiles at 4 and 10

	#Show how we get the variance

	arpu.sd<-3/1.96
	x<-seq(0, 15,by=0.5)
	d<-dnorm(x, 7, arpu.sd)
	plot(x, d, type='l')
	function github() {
	username = "xxx"
	repo = "xxx"
	url = "https://api.github.com/repos/"+username+"/"+repo+"/issues"
	payload = {
	"title": "xxx",
	"body": "xxx",
	"assignee": "xxx"
	}
	sendToGithub(url, payload)
	# You don't need Fog in Ruby or some other library to upload to S3 -- shell works perfectly fine
	# This is how I upload my new Sol Trader builds (http://soltrader.net)
	# Based on a modified script from here: http://tmont.com/blargh/2014/1/uploading-to-s3-in-bash

	S3KEY="my aws key"
	S3SECRET="my aws secret" # pass these in

	function putS3
	{
	path=$1
	# sql.export.rf(): save a randomForest model as SQL
	# v0.04
	# Copyright (c) 2013-2014 Shane Butler <shane dot butler at gmail dot com>
	#
	# sql.export.rf is free software: you can redistribute it and/or modify it
	# under the terms of the GNU General Public License as published by
	# the Free Software Foundation, either version 2 of the License, or
	# (at your option) any later version.
	#
	# sql.export.rf is distributed in the hope that it will be useful, but
	#!/bin/bash
	#
	# Installs the latest RStudio daily desktop build for OSX/macOS and Ubuntu(amd64)
	#
	# https://support.rstudio.com/hc/en-us/articles/203842428-Getting-the-newest-RStudio-builds

	set -e

	install_macos_daily() {
	REDIRECT_URL="https://www.rstudio.org/download/latest/daily/desktop/mac/RStudio-latest.dmg"
	library(tidyverse)
	library(magrittr)
	library(stringr)
	library(readxl)

	directory <- "bunch/of/excel/files"

	# Get an overview of all the Excel files and their sheets
	sheets <-
	data_frame(file = list.files(directory, full.names = TRUE),
	# WMF only:
	if (file.exists("/etc/wikimedia-cluster")) {
	message('Detected that this script is being run on a WMF machine ("', Sys.info()["nodename"], '"). Setting proxies...')
	Sys.setenv("http_proxy" = "http://webproxy.eqiad.wmnet:8080")
	Sys.setenv("https_proxy" = "http://webproxy.eqiad.wmnet:8080")
	}

	# General use:
	message("Checking for a personal library...")
	if (!dir.exists(Sys.getenv("R_LIBS_USER"))) {
	library(ggplot2)
	library(ggmap)
	library(plyr)
	library(grid)
	library(gridExtra)

	# read in cleaned up data
	dat <- read.table("quakes.dat", header=TRUE, stringsAsFactors=FALSE)

	# map decimal magnitudes into an integer range