connessione<-function (x)
{
	#Description
	#	Calcola gli indici di connessione Chiquadrato e di Mortara normalizzati
	#Usage
	#	connessione(x)
	#Arguments
	#	x Matrice dei dati di reali positivi su cui calcolare gli indici
	#Value
	#	chiquadrato Valore del chiquadrato normalizzato
	#	mortara Valore dell'indice di Mortara normalizzato
	options(warn=-1)
	dimensione<-dim(x)
	chis<-chisq.test(x)$statistic
	names(chis)<-c()
	n<-sum(x)
	chiquadrato<-1/(n*min(dimensione-1))*chis
	y<-chisq.test(x)$expected
	mortara<-1/(2*n)*sum(abs(x-y))
	options(warn=0)
	list(chiquadrato=chiquadrato,mortara=mortara)
}