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){ ... }
## 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. ##-----------------------------------------------------------------------------