Commit a6c61b9a authored by Tom Lampert's avatar Tom Lampert

Removing ignored files

parent 4c80c1df
mustLink<-matrix(, nrow = 0, ncol = 2)
source('test_clustering_CCLS.R')
setwd("~/Documents/University/Strasbourg/PostDoc_3/code/comparisons")
setwd("~/Documents/University/Strasbourg/PostDoc_3/code/comparisons/aHiep16")
source('test_clustering_CCLS.R')
#!/usr/bin/env Rscript
library(dtwclust)
source('ccls_DTW.R')
datafilename <- 'ChlorineConcentration.data'
constraintsfilename <- 'ChlorineConcentration_0.15_3.constraints'
kfilename <- 'ChlorineConcentration.k'
outfilename <- 'ChlorineConcentration.out'
data <- as.matrix(read.table(datafilename, sep="\t", header=FALSE))
constraints <- as.matrix(read.table(constraintsfilename, sep="\t", header=FALSE))
k <- as.matrix(read.table(kfilename, sep="\t", header=FALSE))
k <- k[1]
mustLink<-matrix(, nrow = 0, ncol = 2)
cannotLink<-matrix(, nrow = 0, ncol = 2)
for (i in 1:nrow(constraints)){
if (constraints[i,3]==1){
mustLink <- rbind(mustLink, constraints[i,1:2])
}
if (constraints[i,3]==-1){
cannotLink <- rbind(cannotLink, constraints[i,1:2])
}
}
clustering <- ccls(data, k, mustLink, cannotLink, maxIter = 1, tabuIter = 100, tabuLength = 20)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment