Skip to content

Instantly share code, notes, and snippets.

View mhnierhoff's full-sized avatar

Maximilian H. Nierhoff mhnierhoff

View GitHub Profile
@mhnierhoff
mhnierhoff / server.R
Last active August 29, 2015 14:22
Shiny & Gist
library(shiny)
library(datasets)
shinyServer(function(input, output) {
output$carsPlot <- renderPlot({
hist(mtcars[,input$variable],
main = "Histogram of mtcars variables",
xlab = input$variable)
@mhnierhoff
mhnierhoff / QQL
Created October 19, 2014 18:56
QQL
Learn more about QQL: https://www.quintly.com/features/qql/
Average Instagram Posts Per Weekday
SELECT "Average Posts By Weekday" AS dim1, dim2, AVG(posts) FROM (SELECT profileId, STRFTIME('%w', time) AS dim2, (SUM(images)+SUM(videos)) AS posts FROM instagram GROUP BY profileID, dim2) GROUP BY dim2
#Finding unique libraries from complete Data Science course series...
library(knitr)
#Johns Hopkins Data Science Certificate repo
#https://github.com/DataScienceSpecialization/courses
#Set to your own working directory where .Rmd forked GitHub files reside
path <- setwd("~/R/Data_Science_Johns Hop/datasciencecoursera/courses")
#path = getwd()