################ Código da função select.explorer  ###########


select.explorer <- function(x,colnum,compare)

	{

	resumo=summary(x[,colnum],na.rm=TRUE)
		

		ol=boxplot.stats(x[,colnum])

		outliers=ol$out

			media=mean(morf3[,colnum], na.omit=TRUE)

			pramenos=1-compare

			er.me= media*pramenos

			valores.inferiores<- x[,colnum]<er.me

			valores.inferiores

			pramais=1+compare

			er.ma=media*pramais

			valores.superiores<- x[,colnum]>er.ma

			valores.superiores


	final<- list(resumo, outliers, valores.inferiores, valores.superiores)
	
	names(final)<- c("Resumo Estatístico", "Outliers", "Valores inferiores ao comparado", "Valores superiores ao comparado")	

	return(final)

	}