R/read.tda.mdist.R

Defines functions read.tda.mdist

Documented in read.tda.mdist

## ========================================
## Read a TDA output into a distance matrix
## ========================================

read.tda.mdist <- function(file) {
	tmp <- read.table(file=file,header=FALSE)
	Y <- nrow(tmp)
	d <- 1+8*Y
	n <- (1+sqrt(d))/2

	cat(" [>] reading a",n,"x",n,"matrix\n")
	m <- matrix(nrow=n,ncol=n)
	diag(m) <- 0

	for (i in 1:Y) {
		m[tmp[i,"V1"],tmp[i,"V2"]] <- tmp[i,"V5"]
	}

	m[upper.tri(m)] <- t(m)[upper.tri(m)]

	return(m)
}
		
			

Try the TraMineR package in your browser

Any scripts or data that you put into this service are public.

TraMineR documentation built on Jan. 9, 2024, 3:02 p.m.