library(AER)
\nlibrary(stargazer)<\/p>\n

data(CASchools)
\nstr(CASchools)
\nC <- CASchools[ , c(11,13)]
\nstr(C)
\nplot(data=C,read~income)<\/p>\n

C$H_income = ifelse( C$income >=27 , C$income-27 ,0 )
\nstr(C)<\/p>\n

spline_1 <- lm (data=C, read ~ income+ H_income)
\nsummary(spline_1)<\/p>\n

C$N_income <- ifelse( C$income <= 27 , C$income ,27 )<\/p>\n

spline_2 <- lm (data=C, read ~ N_income+ H_income)
\nsummary(spline_2)<\/p>\n

stargazer(spline_1,spline_2, type = “text”, title = “Spline Regression models”)<\/p>\n

ord <- order(C$income)<\/p>\n

windows()
\nplot(data=C, read~income, main=”Spline 1″)
\nlines(C$income[ord],spline_1$fitted.values[ord],col=’blue’,lwd=2)<\/p>\n

windows()
\nplot(data=C, read~income, main=”Spline 2″)
\nlines(C$income[ord],spline_2$fitted.values[ord],col=2,lwd=2)<\/p>\n

windows()
\nplot(spline_1,1)<\/p>\n

acf(spline_1$residuals[ord]) #\u6309\u7167\u9806\u5e8f\u6392\u5217<\/p>\n

windows()
\nacf(spline_1$residuals)<\/p>\n

 <\/p>\n

<\/p>\n

<\/p>\n

<\/p>\n

<\/p>\n

<\/p>\n

 <\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

library(AER) library(stargazer) data(CAS<\/p>\n","protected":false},"author":15,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[],"_links":{"self":[{"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/posts\/967"}],"collection":[{"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/users\/15"}],"replies":[{"embeddable":true,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=967"}],"version-history":[{"count":1,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/posts\/967\/revisions"}],"predecessor-version":[{"id":973,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/posts\/967\/revisions\/973"}],"wp:attachment":[{"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=967"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=967"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=967"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}