#concatène les données et les données supplémentaires
C<-function(B,supplementaire)
{
n1=dim(B)[1]
n3=dim(B)[2]
n4=dim(supplementaire)[1]
n5=dim(supplementaire)[2]	
d=c(n1+n4,n3)
C=array(0,d)
C[1:n1,1:n3]=B
C[(n1+1):(n1+n4),1:n5]=supplementaire
return(C)
	}
	
	dirtotal<-function(dir,dirsupp)
	{
	dirtotal=c(dir,dirsupp)
	return(dirtotal)	
		}
	
	rhstotal<-function(rhs,rhssupp)
	{
	rhstotal=c(rhs,rhssupp)	
	return(rhstotal)
		}