{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

4.1 aşağıdaki model,kampanya harcamlarının seçim sonuçlarını etkileyip etkilemediğini incelemek için apılan bir çalışmada kullanılabilir:

\[ voteA = /beta_0 + /beta1 log(expendA) + /beta_2log(expendB) + /beta_3prtystrA + U \]

Burada voteA aday A tarafından alınan oy oranı,expendA ve expendB aday A ve B tarafından yapılan kampanya harcamaları ve prtystrA ise aday A için parti gücünün bir ölçüsüdür.(A’nın partisine en son başkanlık seçiminde giden oy oranı)

B1’in yorumu nedir?

library(wooldridge)
data("rdchem")
help(rdchem)

Açıklama Wooldridge kaynak: businessweek R&D Scoreboard’dan, 25 Ekim 1991. Veriler yavaş yükleniyor.

Kullanım veri(‘rdchem’) Biçim 8 değişken üzerinde 32 gözlem içeren bir data.frame:

rd: Ar-Ge harcamaları, milyonlar

satışlar: sabit satışlar, milyonlar

kârlar: kârlar, milyonlar

rdintens: satışların yüzdesi olarak rd

profmarg: satışların yüzdesi olarak kar

salesq: satış^2

lsatışlar: günlük(satışlar)

lrd: günlük(rd)

ilkregresyon<- lm(rdchem$lsales~rdchem$lrd)
summary(ilkregresyon)

A’nın harcamalarındaki %1’lik artışın B’nin harcamalarındaki %1’ lik artışla dengelendiği hipotezini parametreler cinsinden ifade ediniz.

\[ voteA=β0+β1log(1)+β2log(1)+β3prtystrA+u \]

stargazer(list(ilkregresyon),type = 'text')

bu sonuca göre A ve B’nin yaptığı harcamalar aynı oranda etkiler.

##verilen modeli VOTE1.RAW’daki verileri kullanarak tahmin ediniz vesonuçları her zamanki formda rapor ediniz.A’nın harcamaları sonucu etkiler mi? B’nin ?bu sonuçları 2’ deki hipotezi test etmek için kullanın.

library(wooldridge)
data("vote1")
head(vote1,1-10)