ngopal

ngopal

ngopal

ngopal

REPL <- function() {
  while(T) {
    print(eval(parse(text=readline("NG>>"))))
  }
}

REPL()

ngopal

;; A first attempt at creating bayesian a spam filter from stratch
;; Trying to do this in lisp as a learning exercise
;; Definitely still a work in progress...

(defparameter *spam* '(this is a spam document that is fake news))
(defparameter *ham* '(this is nikhils document))
(defparameter *testdoc* '(this is a test document that is meant to be fake))
(setq spam-table (make-hash-table))
(setq ham-table (make-hash-table))

ngopal

library(randomForest)
library(RJSONIO)
library(ROCR)

# Research Questions
# 1. What are the ranked importances of node encodings?
# 2. What are the ranked importances of edge encodings?
# 3. How important is network structure to noticeability?
# 3a. Where do participants tend to click?

ngopal

library(syuzhet)
library(igraph)
library(RCurl)

plotDashBoard <- function(ticker) {
  twits <- getURL(paste("https://api.stocktwits.com/api/2/streams/symbol/",ticker,".json", sep=""))
  twts.tab <- fromJSON(twits)
  
  # Sentiment
  twt.sent <- get_nrc_sentiment(twts.tab$messages$body)

ngopal

library(rjson)
apikey = 'REDACTED' # please get one from wines.com
url <- paste('http://services.wine.com/api/beta2/service.svc/json/catalog?filter=categories(614)&offset=0&size=100&apikey=',apikey,sep="")
document <- fromJSON(file=url, method='C')
# I am pulling down light and crispy white wine data above

ds <- matrix(0, 100, 3)
for (i in 1:length(document$Products$List)) {
  ds[i,]  <- c(as.numeric(document$Products$List[[i]]$PriceRetail),
               as.numeric(document$Products$List[[i]]$Ratings$HighestScore),

ngopal

ngopal

from flask import Flask, url_for, render_template, g, redirect
import random
import sqlite3

DATABASE = 'quotes.db'

app = Flask(__name__)

def connect_db():
	return sqlite3.connect(DATABASE)