Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # r-start.R
- ########################################################################################
- ## Dependencies
- ########################################################################################
- # package:: RPostgreSQL
- if("RPostgreSQL" %in% rownames(installed.packages()) == FALSE)
- install.packages("RPostgreSQL")
- library(RPostgreSQL)
- # package:: randomForest
- if("randomForest" %in% rownames(installed.packages()) == FALSE)
- install.packages("randomForest")
- library(randomForest)
- # package:: rpart
- if("rpart" %in% rownames(installed.packages()) == FALSE)
- install.packages("rpart")
- library(rpart)
- # package:: pROC
- if("pROC" %in% rownames(installed.packages()) == FALSE)
- install.packages("pROC")
- library(pROC)
- # package:: ROCR
- if("ROCR" %in% rownames(installed.packages()) == FALSE)
- install.packages("ROCR")
- library(ROCR)
- # package:: e1071
- if("e1071" %in% rownames(installed.packages()) == FALSE)
- install.packages("e1071")
- library(e1071)
- # package:: usdm
- if("usdm" %in% rownames(installed.packages()) == FALSE)
- install.packages("usdm")
- library(usdm)
- # package:: SDMTools
- if("SDMTools" %in% rownames(installed.packages()) == FALSE)
- install.packages("SDMTools")
- library(SDMTools)
- # package:: fmsb
- if("fmsb" %in% rownames(installed.packages()) == FALSE)
- install.packages("fmsb")
- library(fmsb)
- # package:: graphics
- if("graphics" %in% rownames(installed.packages()) == FALSE)
- install.packages("graphics")
- library(graphics)
- # package:: corrplot
- if("corrplot" %in% rownames(installed.packages()) == FALSE)
- install.packages("corrplot")
- library(corrplot)
- # package:: forecast
- if("forecast" %in% rownames(installed.packages()) == FALSE)
- install.packages("forecast")
- library(forecast)
- # package:: vars
- if("vars" %in% rownames(installed.packages()) == FALSE)
- install.packages("vars")
- library(vars)
- # package:: tseries
- if("tseries" %in% rownames(installed.packages()) == FALSE)
- install.packages("tseries")
- library(tseries)
- # package:: TTR
- if("TTR" %in% rownames(installed.packages()) == FALSE)
- install.packages("TTR")
- library("TTR")
- # package:: ECP
- if("ecp" %in% rownames(installed.packages()) == FALSE)
- install.packages("ecp")
- library("ecp")
- # package:: BCP
- if("bcp" %in% rownames(installed.packages()) == FALSE)
- install.packages("bcp")
- library("bcp")
- # gdata
- if("gdata" %in% rownames(installed.packages()) == FALSE)
- install.packages("gdata")
- library("gdata")
- # stats
- if("stats" %in% rownames(installed.packages()) == FALSE)
- install.packages("stats")
- library("stats")
- # caret
- if("caret" %in% rownames(installed.packages()) == FALSE)
- install.packages("caret")
- library("caret")
- ########################################################################################
- # Connect to PostgreSQL/Greenplum/HAWQ
- drv <- dbDriver("PostgreSQL")
- con <- dbConnect(drv,
- host='#######',
- port='5432',
- dbname='#######',
- user='#######',
- password='#######')
- # Example
- # query <- paste("SELECT * FROM schema.table")
- # d <- dbGetQuery(con, query)
- ########################################################################################
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement