em Scripts

Script – Matriz de Transição Litológica

por Jorge Kazuo Yamamoto 15/01/2021, 10:00 0 Comments

A explicação do script a seguir está no artigo Matriz de Transição Litológica – Teste do chi-quadrado em Linguagem

#dados segundo Davis 2002 p. 169
MT=as.table(rbind(c(18,0,5,0),c(0,5,2,0),
c(5,2,18,3),c(0,0,3,2)))
dimnames(MT)=list(De=c("A","B","C","D"),
Para=c("A","B","C","D"))
MT
x2=chisq.test(MT)
round(x2$expected,3)
x2

Escrito por Jorge Kazuo Yamamoto

Prof. Dr. Jorge Kazuo Yamamoto, fundador da Geokrigagem, é geólogo, foi pesquisador do IPT e docente do Instituto de Geociências da USP, onde se aposentou como Professor Titular do Departamento de Geologia Sedimentar e Ambiental. Atualmente, atua como Professor Sênior do Departamento de Engenharia de Minas e de Petróleo – Escola Politécnica – USP. É responsável pela disciplina “Métodos geoestatísticos” na Pós-Graduação do IPT – Investigação do subsolo: Geotecnia e Meio Ambiente. Dedica-se ao ensino de geoestatística, com ênfase no desenvolvimento de algoritmos e pesquisa de novas aplicações, tais como: variância de interpolação, cálculo da variância global de depósitos minerais e correção do efeito de suavização da krigagem. Ultimamente, seu interesse está voltado para o ensino e divulgação da linguagem R.