{"id":198,"date":"2017-07-10T19:58:32","date_gmt":"2017-07-10T19:58:32","guid":{"rendered":"http:\/\/blog.espol.edu.ec\/casaresfelix\/?p=198"},"modified":"2017-07-10T19:58:32","modified_gmt":"2017-07-10T19:58:32","slug":"comprar-modelos-en-una-sola-tabla-con-r","status":"publish","type":"post","link":"https:\/\/blog.espol.edu.ec\/casaresfelix\/2017\/07\/10\/comprar-modelos-en-una-sola-tabla-con-r\/","title":{"rendered":"Comprar modelos en una sola tabla con R"},"content":{"rendered":"<p>Cuando estamos construyendo y comprobando modelos resulta un poco dif\u00edcil resumir la <!--more-->informaci\u00f3n en una sola tabla que permita analizar los principales indicadores, coeficientes, error estandar, entre otros.<\/p>\n<p>En este post les mostrar\u00e9 c\u00f3mo agregar en una tabla res\u00famen varios modelos calculados a partir de los MCO con los principales resultados. Lo que tienes que hacer simplemente es copiar y pegar los c\u00f3digos en tu RStudio y replicar el ejercicio<\/p>\n<p>Primero instalamos la librer\u00eda memisc y llamamos al paquete<\/p>\n<p>&nbsp;<\/p>\n<p><code><br \/>\ninstall.packages(\"memisc\")<br \/>\nlibrary(memisc)<br \/>\n<\/code><\/p>\n<p>Cargamos la base de datos, seleccionamos las columnas de inter\u00e9s y las transformamos (de ser necesario)<\/p>\n<p><code><br \/>\ndata=read.csv(\"http:\/\/www.betametrica.ec\/wp-content\/uploads\/2017\/07\/COBB.csv\")<br \/>\ndata &amp;lt;- data[,2:4]<br \/>\n<\/code><\/p>\n<p>En esta etapa pueden realizar cualquier manipulaci\u00f3n o transformaci\u00f3n, y luego atachar la base para que pueda ser utilizada de manera r\u00e1pida a trav\u00e9s de los dem\u00e1s comandos.<\/p>\n<p>#Transformar a logaritmo natural<br \/>\n<code><br \/>\ndata= log(data)<br \/>\nattach(data)<br \/>\n<\/code><\/p>\n<p>Realizamos las regresiones<\/p>\n<p><code><br \/>\nmodelo1= lm(PIBREAL~L)<br \/>\nmodelo2= lm(PIBREAL~ L+K)<br \/>\n<\/code><br \/>\nAgregamos las regresiones en una tabla<\/p>\n<p><code><br \/>\nmemisc::mtable(mod[\/sourcecode]elo1,modelo2)<\/code><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-full wp-image-203\" src=\"http:\/\/blog.espol.edu.ec\/casaresfelix\/files\/2017\/07\/tabla-reg.png\" alt=\"\" width=\"846\" height=\"770\" srcset=\"https:\/\/blog.espol.edu.ec\/casaresfelix\/files\/2017\/07\/tabla-reg.png 846w, https:\/\/blog.espol.edu.ec\/casaresfelix\/files\/2017\/07\/tabla-reg-300x273.png 300w, https:\/\/blog.espol.edu.ec\/casaresfelix\/files\/2017\/07\/tabla-reg-768x699.png 768w\" sizes=\"auto, (max-width: 846px) 100vw, 846px\" \/><\/p>\n<p>Con estos pocos pasos podr\u00e1s agregar varios modelos y comparar los principales indicadores. Sin dudas no est\u00e1n otros criterios que tienen que ser evaluados y que no est\u00e1n en la tabla, sin embargo es una forma elegante de mostrar los resultados preliminares.<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p style=\"text-align: justify\">Puedes seguir mis publicaciones v\u00eda:<\/p>\n<p><a href=\"https:\/\/twitter.com\/CasaresFelix\">Twitter<\/a><\/p>\n<p><a href=\"https:\/\/www.facebook.com\/CasaresFelix\">Facebook<\/a><\/p>\n<p><a href=\"http:\/\/blog.espol.edu.ec\/casaresfelix\">Twitter<\/a><\/p>\n<p><a href=\"http:\/\/casaresfelix.com\">Blog Personal<\/a><\/p>\n<p><a href=\"http:\/\/www.betametrica.ec\/\">Blog Acad\u00e9mico<\/a><\/p>\n<hr \/>\n<p>Nota: puedes solicitarme el script de RStudio para este ejemplo mediante cualquier\u00a0de las v\u00eda de contacto anteriormente mencionadas o por correo.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Cuando estamos construyendo y comprobando modelos resulta un poco dif\u00edcil resumir la<\/p>\n","protected":false},"author":10866,"featured_media":203,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[34936],"tags":[34936,1418589,1418591],"class_list":["post-198","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-econometria","tag-econometria","tag-econometria-ecuador","tag-modelos-econometricos"],"_links":{"self":[{"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/posts\/198","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/users\/10866"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/comments?post=198"}],"version-history":[{"count":5,"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/posts\/198\/revisions"}],"predecessor-version":[{"id":204,"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/posts\/198\/revisions\/204"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/media\/203"}],"wp:attachment":[{"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/media?parent=198"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/categories?post=198"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/casaresfelix\/wp-json\/wp\/v2\/tags?post=198"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}