####### MAURÍCIO TAKASHI COUTINHO WATANABE ######## Exercício 9

getwd()
setwd("C:/Users/Maurício/Documents/aula9")


#### Exercício Programar 1.: QUE FRIO!

celsius <-function(x)
	{
	diferenca= 5*(x)-160
	celsius=diferenca/9
	return(celsius)
	}

#### Exercício Programar 2. : Análise exploratória simultânea de duas variáveis

require(plotrix)

datagraph <- function(x,y)
	{ 
	x11()
	par(mfrow = c(2,3))	
	boxplot(y~x,col=c("gray","green"), main="Boxplot das variáveis")
	multhist(list(x,y),beside=TRUE,col=c("blue","red"),ylab="Frequência",main="Dados de frequência")                 
	plot(y,x,xlab="y",ylab="x",col=c("orange","purple"),main="Gráfico de dispersão")
	qqnorm(x,col="yellow", xlab="Quantis teóricos", ylab="Quantis observados", main="Gráfico Q-Q de x")
	qqline(x, col="pink")
	qqnorm(y,col="black",xlab="Quantis teóricos", ylab="Quantis observados", main="Gráfico Q-Q de y")
	qqline(y,col="brown")
	par(mfrow=c(1,1))
	estatistica=list(cor(x,y),summary(x),summary(y))
	names(estatistica)=c("Correlação entre x e y", "Sumário de x", "Sumário de y")
	return(estatistica)
	}

###### Programar 3: Índices de Diversidade de Espécies