From efa744c5840e8ea7521aa0955956411dfe30120f Mon Sep 17 00:00:00 2001 From: Samuel Fadel Date: Mon, 22 Aug 2016 02:02:36 -0300 Subject: Added util.R. --- run.R | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'run.R') diff --git a/run.R b/run.R index 3f5d3fa..9f4bbbc 100644 --- a/run.R +++ b/run.R @@ -8,6 +8,7 @@ require(mp) require(Rtsne) source("measures.R") +source("util.R") # Performs automated silhouette improvement manipulation, using a method # inspired by Schaefer et al. (2013). @@ -76,18 +77,6 @@ scale.Ys <- function(Ys) { Ys } -# Creates a directory at given path, optionally logging the action. -# If it already exists, the directory is not created. -dir.create.safe <- function(path, log=T) { - if (!dir.exists(path)) { - if (log) { - loginfo("Creating directory: %s", path) - } - - dir.create(path) - } -} - # Generates samples (one sample per iteration) and performs automated # manipulation for all measures on each sample. run.manipulation <- function(X, Dx, labels, k, ds, n.iter, output.dir) { -- cgit v1.2.3