Econometrics PS1
- 최초 등록일
- 2020.10.10
- 최종 저작일
- 2018.04
- 14페이지/ MS 워드
- 가격 1,000원
소개글
"Econometrics PS1"에 대한 내용입니다.
목차
없음
본문내용
1.
plot(c(0,100),c(0,100),type="n",las="1",xlab="x",ylab="y")
abline(10,1)
abline(0,2)
par(new=TRUE)
x<-sample(0:100,60,replace=TRUE)
u<-runif(60,-20,20)
y<-10+x+u
points(x,y)
abline(lm(y~x))
M1 : Y=10+x
M2 : Y=2x
2.
data<-read.table(file.choose())
Wages<-data$V1
IQ<-data$V3
lwage<-data$V17
plot(IQ,Wages)
lwages<-data$V17
plot(IQ,lwages)
x<-IQ
y<-Wages
y<-lwages
xd<-x-mean(x)
b1<-sum(xd*y)/sum(xd^2)
b0<-mean(y)-b1*mean(x)
c(b0,b1)
lm(formula=lwages~IQ, data=data)
lm(formula=Wages~IQ, data=data)
plot(Wages~IQ,data=data)
abline(lm(Wages~IQ,data=data))
par(new=T)
plot(lwages~IQ,xlab="",ylab="",data=data,col="blue")
abline(lm(lwages~IQ,data=data),col="blue")
summary( lm(formula=lwages~IQ, data=data))
summary( lm(formula=Wages~IQ, data=data))
(a)
When a unit of IQ increases, the wages will increase too.
As well, there is difference between scatter plot of wages and IQ and that of log(Wages) and IQ.
참고 자료
없음