eda.ts<-function(x)
{
	#Description
	#	Verifica graficamente le ipotesi di correlazione seriale di un vettore per poter decidere
	#	se utilizzare i test inferenziali tradizionali sulla media e varianza
	#Usage
	#	eda.ts(x)
	#Arguments
	#	x Vettore numerico
	#Value
	#	Serie di due grafici per lo studio della correlazione seriale del vettore introdotto
	#Note
	#	Richiede l'uso del pacchetto ts
	par(mfrow=c(2,1))
	ts.plot(x)
	acf(x)
	par(mfrow=c(1,1))
}