# 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 <- x
	nr <- nrow(y)
	nc <- ncol(y)
	#
	m.new <- matrix(0,nr+nc,nr+nc)
	name.n <- c(dimnames(x)[[1]],dimnames(x)[[2]])
	dimnames(m.new)[[1]] <- name.n
	dimnames(m.new)[[2]] <- name.n
	# 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)