### Os pacotes require(MASS) require(geoR) ## Funcoes source("montamatriz.R") source("logvero.R") source("mgec.R") source("simula.R") source("milSimulacoes.R") ## Usando a funcao theta <- c(50,70,2.5,3.5,2.5,3.5,0.6,0.5) BFGS <- simulando(theta,n.simu=1000,n.amostra=500,metodo="BFGS") write.table(LBFGSB,"BFGS.txt")