PirateGrunt

####################
# Makefile
# Copyright Brian A. Fannin 2015
####################

RDIR = .
DATA_DIR = $(RDIR)/data

GATHER_DIR = $(DATA_DIR)/gather
GATHER_SOURCE = $(wildcard $(GATHER_DIR)/*.Rmd)

PirateGrunt

movie = c("Thunderball", "Goldfinger")
rating = c(4,5)
dfJoe = data.frame(movie = movie, rating = rating)

movie = c("Manhattan", "Interiors", "Radio Days", "Bananas")
rating = c(5, 4, 3, 5)
dfBob = data.frame(movie = movie, rating = rating)

setClass("BorrowedStuff", representation(stuff = "data.frame", from="character"))

PirateGrunt

kids1 = as.array(c("Bob", "Joe"))
kids2 = as.array(c("Steve", "Beth", "Kim"))

setClass("person", representation(name="character", age="numeric", children = "list"))

setMethod(
  f = "[",
  signature="person",
  definition=function(x,i,j,...,drop=TRUE){ 
    initialize(x, name=x@name[i], age = x@age[i], children = list(x@children[i]))

PirateGrunt

# Get a set of "error" terms
set.seed(1234)
N = 100
E = rnorm(N, mean = 0, sd = 2)

lnLike = function(x, mu, sigma)
{
  n = length(x)
  lnLike = -n / 2 * log(2*pi)
  lnLike = lnLike - n/2 * log(sigma ^2)

PirateGrunt

sourceFiles = "https://raw.github.com/PirateGrunt/MRMR/master/R/NAIC.R"

dummy = lapply(paste0(myDirectory, sourceFiles), source)
rm(myDirectory, sourceFiles, dummy)

dfAuto = GetNAICData(dataSetName = "comAuto_pos.csv")
dfWC =  GetNAICData(dataSetName = "wkcomp_pos.csv")
dfGL =  GetNAICData(dataSetName = "othliab_pos.csv")
dfProd =  GetNAICData(dataSetName = "prodliab_pos.csv")

PirateGrunt

myData = data.frame(State = c("NY","NY", "TX", "TX")
                    , Premium = c(100,200,150,75)
                    , Loss = c(80,175,80,80))
myData

moreData = data.frame(Premium = myData$P, Loss = myData$L)
moreData
rm(moreData)

colNames = c("Premium", "Loss")

PirateGrunt

someFunction = function(y, data = NULL)
{
  arguments <- as.list(match.call())
  y = eval(arguments$y, data)
  sum(y)
}

myData = data.frame(A = c(1,2,3), B = c(10,9,8))

someFunction(A, data=myData)

PirateGrunt

DECLARE @TestDate datetime

SET @TestDate = CAST('08-15-2000' AS datetime)

SELECT dbo.udfBeginningOfYear(@TestDate) AS BeginningOfYear
  , dbo.udfEndOfYear(@TestDate) AS EndOfYear
	, dbo.udfBeginningOfSemi(@TestDate) AS BeginningOfSemi
	, dbo.udfEndOfSemi(@TestDate) AS EndOfSemi
	, dbo.udfBeginningOfQuarter(@TestDate) AS BeginningOfQuarter
	, dbo.udfEndOfQuarter(@TestDate) AS EndOfQuarter

PirateGrunt

/* udfBeginningOfYear **********************************************************/
IF OBJECT_ID (N'udfBeginningOfYear') IS NOT NULL
    DROP FUNCTION udfBeginningOfYear
GO

CREATE FUNCTION udfBeginningOfYear  (@DateIn datetime)
RETURNS datetime
AS
BEGIN

PirateGrunt

#File created 1/31/13 
 
#contains R code to
 #-read in Kaggle Competition Titanic Data csv file
 #-create a simple logistic regression model
 #-make predictions on training and test data
 #-write out test predictions to csv file
 #
 #Replace the <your path here> with the full path to your copy of train and test csv files.
 ###################################################################################