eda.shape<-function(x)
{
	#Description
	#	Verifica graficamente le ipotesi di normalità di un vettore per poter decidere se utilizzare
	#	i test inferenziali tradizionali sulla media e varianza
	#Usage
	#	eda.shape(x)
	#Arguments
	#	x Vettore numerico
	#Value
	#	Serie di quattro grafici per lo studio della normalità del vettore introdotto
	par(mfrow=c(2,2))
	hist(x)
	boxplot(x)
	idq<-summary(x)[5]-summary(x)[2]
	plot(density(x,width=2*idq),xlab="x",ylab="y",type="l")
	qqnorm(x)
	qqline(x)
	par(mfrow=c(1,1))
}