kurogelee’s gists

kurogelee / file1.txt

Created February 15, 2015 08:10

Rで回帰モデルのオブジェクトからモデル式を再構築する ref: http://qiita.com/kurogelee/items/88fb90902710b216be7e

	> model <- lm(Sepal.Length ~ . -Species, iris)
	> model

	Call:
	lm(formula = Sepal.Length ~ . - Species, data = iris)

	Coefficients:
	(Intercept) Sepal.Width Petal.Length Petal.Width
	1.8560 0.6508 0.7091 -0.5565

kurogelee / sample.R

Created February 10, 2015 23:21

Rでデータフレームを行ごと・列ごとに処理した結果を再度データフレームに戻す ref: http://qiita.com/kurogelee/items/9e27fd8241e92fd9dd82

	df <- data.frame(x=1:3,y=3:5,z=5:7)

	# 行ごと
	data.frame(t(apply(df, 1, function(d){ c(d, Z=sum(d)) })))
	data.frame(do.call(rbind, lapply(split(df, 1:nrow(df)), function(d){ c(d, Z=sum(d)) })))

	# 列ごと
	data.frame(apply(df, 2, function(d){ c(d, sum(d)) }))
	data.frame(do.call(cbind, lapply(df, function(d){ c(d, sum(d)) })))

kurogelee / round.clj

Created February 1, 2015 03:38

任意の単位での切り捨て、切り上げ、四捨五入 ref: http://qiita.com/kurogelee/items/69b35e75b10dacf8be8b

	(defn half [x] (/ x 2))
	(defn floor [value unit]
	{:pre [(pos? unit)]}
	(cond
	(Double/isNaN value) value
	(Double/isInfinite value) value
	:else (let [q (quot value unit)]
	(* unit (if (neg? (rem value unit))
	(dec q) q)))))

kurogelee / file0.txt

Created January 5, 2015 13:05

挿入した順序を保証するMap, Set ref: http://qiita.com/kurogelee/items/02fdd51c88dc8f2d2be0

[org.flatland/ordered "1.5.2"]

kurogelee / sample.clj

Created December 29, 2014 22:07

行列の行を追加したり集計したりをcore.matrixでやりたい ref: http://qiita.com/kurogelee/items/ede48329451e2ac1a0e7

	(defn aggregate [matrix aggregate-index f group-indices]
	(->> (group-by #(reduce (fn [m i] (conj m (nth % i))) [] group-indices) matrix)
	(mapcat (fn [[k v]] [k (reduce f (map #(nth % aggregate-index) v))]))
	(apply hash-map)))

	(aggregate c 3 + [0 1])

kurogelee / file0.txt

Created December 29, 2014 10:15

clojure.core.matrixのお試しサンプル ref: http://qiita.com/kurogelee/items/67656a04fe9a2374da0d

[net.mikera/core.matrix "0.32.1"]

kurogelee / clj

Created December 20, 2014 15:25

Light TableでLeiningenのコマンドを実行するショートカットを作る ref: http://qiita.com/kurogelee/items/3760689fa9fab1fc0ff6

{:exit 0, :out "Generating a project called sandbox-project based on the 'default' template.\r\nTo see other templates (app, lein plugin, etc), try `lein help new`.\r\n", :err ""}

kurogelee / (sort_(first_diff))

Last active October 19, 2017 04:29

ClojureとClojureScriptで使える関数・マクロの違い ref: http://qiita.com/kurogelee/items/0d4a27f3fbd83e0e33b2

(*' *agent* *allow-unresolved-vars* *assert* *clojure-version* *command-line-args* *compile-files* *compile-path* *compiler-options* *data-readers* *default-data-reader-fn* *e *err* *file* *fn-loader* *in* *math-context* *ns* *out* *read-eval* *source-path* *unchecked-math* *use-context-classloader* *verbose-defrecords* *warn-on-reflection* +' -' ->ArrayChunk ->Vec ->VecNode ->VecSeq -cache-protocol-fn -reset-methods EMPTY-NODE accessor add-classpath agent agent-error agent-errors alias all-ns alter alter-var-root aset-boolean aset-byte aset-char aset-double aset-float aset-int aset-long aset-short await await-for await1 bases bean bigdec bigint biginteger boolean-array bound-fn bound-fn* bound? byte-array cast char-array char-escape-string char-name-string char? class class? clear-agent-errors clojure-version commute compile construct-proxy create-ns create-struct dec' decimal? default-data-readers definline definterface defmacro defstruct deliver denominator destructure dosync ensure enumeration-seq error-h

kurogelee / html

Created December 9, 2014 16:08

Selmerを使ったローカルHTMLテンプレート ref: http://qiita.com/kurogelee/items/db575a4d4d2456a37ac7

	<div class="row">
	<div class="col-md-2">住所</div>
	<div class="col-md-4">

	<input id="address" class="form-control" type="text">

	</div>
	<div class="col-md-2">abc</div>
	</div>

kurogelee / clj

Last active August 29, 2015 14:10

ClojureのオブジェクトをClojureScriptに変換する ref: http://qiita.com/kurogelee/items/9bff219edd55b35ce1af

	(ns sample
	(:require [selmer.filters :as f]))

	(f/add-filter! :cljs (fn [x] [:safe (pr-str (pr-str x))]))