Scribd
Cargar
131 vistas2 páginas

Script R Capitulo 1

Este documento presenta una introducción al uso de R para aplicaciones econométricas. Explica conceptos básicos como la regresión lineal simple y múltiple utilizando datos económicos reales. Muestra cómo cargar datos, estimar modelos de regresión lineal, interpretar los resultados e inspeccionar gráficamente la relación entre variables. El objetivo es familiarizar al lector con las herramientas básicas de R para el análisis econométrico.

Cargado por

Eliú Salinas
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd
131 vistas2 páginas

Script R Capitulo 1

Este documento presenta una introducción al uso de R para aplicaciones econométricas. Explica conceptos básicos como la regresión lineal simple y múltiple utilizando datos económicos reales. Muestra cómo cargar datos, estimar modelos de regresión lineal, interpretar los resultados e inspeccionar gráficamente la relación entre variables. El objetivo es familiarizar al lector con las herramientas básicas de R para el análisis econométrico.

Cargado por

Eliú Salinas
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd

#Econometra aplicada utilizando R

# Captulo 1. La econometra: sus usos y aplicaciones en R


# Eli Elas Salinas Del Mazo. Seminario III.
a<-2
b<-5
y<-a*b
y
2*5
objects()
ls()
help(objects)
rm(a,b)
x <- c(5,10,8,7,9)
assign("x", c(5,10,8,7,9))
mean(x)
var(x)
max(x)
min(x)
length(x)
y<- c(1:10)
y
names(x)<-c("cinco","diez","ocho","siete","nueve")
x
plot(y)
y<-c(1,2,3,-1,0,-1,2,1,2)
y<-c(1,2,3,-1,0,-1,2,1,2)
x<-c(0,1,2,-2,1,-2,0,-1,1)
y<-c(1,2,3,-1,0,-1,2,1,2)
lm(y~x)
summary(lm(y~x))
getwd()
setwd("C:/Users/Elas")
getwd()
setwd("C:/Users/Elas/Documents")
(header=TRUE) y que las columnas estn separadas por tabulaciones (sep=)
datos<-read.table("PWT_2000.txt",header=TRUE,sep="")
datos<-read.table("PWT_2000.txt",header=TRUE,sep="")
attach(datos)
getwd()
setwd("C:\Users\Elas\FES Acatln\10o semestre\Seminario\TAreas\R\Captulo 1")
setwd("C:\Users\Elas\FES Acatln\10o semestre\Seminario\TAreas\R\Captulo 1")
setwd("C:/Users/Elas/FES Acatln/10o semestre/Seminario/TAreas/R/Captulo 1")
datos<-read.table("PWT_2000.txt",header=TRUE,sep="")
attach(datos)
ls(datos)
PWT<-lm(PIBPCL ~ K)
plot(PWT)
plot(datos)
PWT<-lm(PIBPCL~K)
summary(PWT)
abline(PWT)
PWT<-lm(PIBPCL~K)
abline(PWT)
summary(PWT)
hist(PIBPCL)
hist(PIBPCL,freq=FALSE)
hist(PIBPCL,freq=FALSE)
lines(density(PIBPCL))
boxplot(PIBPCL)
Attach(PWT_2000)

ls(PWT_2000)
plot(K,PIBPCL)
PWT<-lm(PIBPCL~K)
summary(PWT)
abline(PWT)
hist(PIBPCL)
hist(PIBPCL,freq=FALSE)
lines(density(PIBPCL)

También podría gustarte