rm(list=ls()) ### 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) LBFGSB <- simulando(theta,n.simu=1,n.amostra=500,metodo="L-BFGS-B") write.table(LBFGSB,"LBFGSB.txt")