Skip to content

Instantly share code, notes, and snippets.

View ktsujister's full-sized avatar

Kei Tsuji ktsujister

4 followers · 4 following
  • Tokyo, Japan
View GitHub Profile
@ktsujister
ktsujister / exponential.clj
Created August 30, 2014 12:23
(ns various-distributions.exponential
(:require [incanter.charts :as c]
[incanter.core :as i]
[incanter.distributions :as d]
[incanter.stats :as s]))
(defn show-exponential-distribution []
(let [dist (d/exponential-distribution 1.0)
n 100000
x (repeatedly n #(d/draw dist))
@ktsujister
ktsujister / uniform.clj
Created August 30, 2014 10:09
(ns various-distributions.uniform
(:require [incanter.charts :as c]
[incanter.core :as i]
[incanter.distributions :as d]))
(defn show-uniform-distribution []
(let [dist (d/uniform-distribution 0.0 1.0)
n 10000
x (repeatedly n #(d/draw dist))
pdf-fn #(d/pdf dist %)]
@ktsujister
ktsujister / index.html
Last active December 20, 2015 19:38 — forked from kohyama/README.md
<html>
<head>
</head>
<body>
<script type="text/javascript" src="/js/repl-test.js"></script>
</body>
</html>