EXAME FINAL no dia 16/07, 19h00 no LABEST. Todo o conteúdo da disciplina. O aluno pode usar computador próprio.
## Estima o vetor de parâmetros \beta
mycoef <- function(X, y, method){
...
}
## Retorna o quadro de análise de variância corrigido para a média
myanova <- function(X, y){
...
}
## Retorna a tabela com erros padrões, t-valor, p-valor e IC para \betas
mycoeftable <- function(X, y, conf=0.95){
...
}
## Retorna o quadro de análise de variância particionado para X1
myanovapart <- function(X, y, X1){
...
}
## Retorna o valor predito com IC
mypredict <- function(x0, betas, vcov, conf){
...
}
,
, e que
têm distribuição Normal.
e que
têm distribuição F sob H0 que
.
## Função que retorna estimativas de parâmetros e estatísticas sob uma
## amostra aleatória simulada ao ser executada.
mysimula <- function(X, beta, sigma, A, m=beta){
...
}
results <- replicate(10000, mysimula)
##----------------------------------------------------------------------------- str(twins) ## 6.4. Eduardo. str(BGSall) ## 6.6. Michele. str(cathedral) ## 6.10. Paula. str(salary) ## 6.13. Cintia. str(mile) ## 6.18. Gustavo. ##-----------------------------------------------------------------------------