# TODO: Add comment
# 
# Author: E.Korsching 19.12.2011
###############################################################################



perm.sub.matrix.to.full <- function(x){
	#x cor matrix of permutation input or output
	#rows: test factors, cols: ref factors
	#for drawing a network with R functions : plot.network( network( 'sym.matrix' ) )
	
	#ini
	y <- as.data.frame(x)
	nr <- nrow(y)
	nc <- ncol(y)
	
	#
	m.new <- as.data.frame(matrix(0,nr+nc,nr+nc),row.names=c(row.names(y),names(y)))
	names(m.new) <- c(row.names(y),names(y))
	# place subelement in emty matrix
	m.new[1:nr,(nr+1):(nr+nc)] <- y
	m.new[(nr+1):(nr+nc),1:nr] <- t(y)
	
	return(m.new)
}



#tmp <- matrix(c(1:6),3,2); dimnames(tmp)[[1]] <- c("a","b","c"); dimnames(tmp)[[2]] <- c("d","e")
#tmp; perm.sub.matrix.to.full(tmp)