Skip to content

Instantly share code, notes, and snippets.

View hinkelman's full-sized avatar

Travis Hinkelman hinkelman

View GitHub Profile
// Learn more about F# at http://fsharp.org
open MathNet.Numerics.Distributions
[<EntryPoint>]
let main argv =
let yinit = 1.0 // initial population size
let r = 1.4 // maximum population growth rate
let k = 20.0 // carrying capacity
let thetasd = 0.1 // standard deviation for adding noise to the population
library(shiny)
library(dplyr)
library(visNetwork)
edges <- readr::read_tsv("https://raw.githubusercontent.com/hinkelman/dataframe/master/network-graph/Edges.tsv",
col_names = FALSE) %>%
setNames(c("from", "to"))
nodes <- readr::read_tsv("https://raw.githubusercontent.com/hinkelman/dataframe/master/network-graph/Nodes.tsv",
col_names = FALSE) %>%
(import (dataframe))
(define flights (tsv->dataframe "nycflights.tsv"))
(dataframe-dim flights)
;; 3.1 Introduction
;; 3.1.3