CIDADE UNIVERSITÁRIA – INSTITUTO DE GEOCIÊNCIAS

GRADUAÇÃO EM GEOLOGIA

DISCIPLINA: GEOMORFOLOGIA GERAL

PROFESSORA: LUIS PAULO

ALUNO: GERSON FELIZARDO DE SOUSA JÚNIOR

DRE.: 117059231

GEOESTATÍSTICA

QUESTÃO 01 - O número de eventos sísmicos ao longo de 20 dias é 664, 658, 610, 670, 640, 643, 675, 650, 676, 575, 660, 661, 520, 667, 668, 635, 671, 673, 645 e 650. Qual o padrão que o histograma destes valores segue? Justifique, utilizando o programa R para obter o histograma.

COMANDO:

caminho="C:/Users/b9f4/Desktop/GeoEst/"

sismica=read.table(paste(caminho,"Q_01.txt",sep=""))

x.norm<-sismica[,1]

h<-hist(x.norm,breaks=10)

xhist<-c(min(h$breaks),h$breaks)

yhist<-c(0,h$density,0)

xfit<-seq(520,676, by=1.0)

yfit<-dnorm(xfit,mean=mean(x.norm),sd=sd(x.norm))

plot(xhist,yhist,type="s",ylim=c(0,max(yhist,yfit)),main="Histograma_Questão_1")

lines(xfit,yfit,col="blue")

Resposta: Letra B. Assimétrico à esquerda.

QUESTÃO 02 - Conhecida uma amostra com as notas de 50 alunos, utilize o programa R para resolver os itens abaixo:

1. Construa o histograma de frequências relativas (use a notação porcentual). Destaque o intervalo modal. 

COMANDO:

caminho="C:/Users/b9f4/Desktop/GeoEst/"

nota=read.table(paste(caminho," Q_02.txt",sep=""))

x.norm<-nota[,1]

h<-hist(x.norm,breaks=10)

xhist<-c(min(h$breaks),h$breaks)

yhist<-c(0,h$counts,0)

xfit<-seq(33,98, by=1.0)

yfit<-dnorm(xfit,mean=mean(x.norm),sd=sd(x.norm))

plot(xhist,yhist,type="s",ylim=c(0,max(yhist,yfit)),main="Histograma Questão 2")

1. Faça o Box-plot relativo ao conjunto de dados.

COMANDO:

caminho="C:/Users/b9f4/Desktop/GeoEst/"

nota=read.table(paste(caminho,"questao2.txt",sep=""))

boxplot(nota)