#!/usr/bin/env Rscript
library(Rtsne)
library(ggplot2)
args = commandArgs(trailingOnly=TRUE)
data = read.csv(args[1],header=F)
smi = data[,1]
data[,1] = NULL
m = as.matrix(data)
dist = as.dist(m)
set.seed(66)
tsne = Rtsne(dist,verbose=T,is_distance=T)
write.csv(data.frame(smiles= smi, x = tsne$Y[,1], y = tsne$Y[,2]),args[2],row.names=F)