1.9 PRIMJER 3

• Utječu li djelatnost i kotacija na burzi na zaduženost poduzeća (bez efekta interakcije)?

tablica3=aov(zaduzenost~djelatnost+kotacija,data=mojipodaci)
summary(tablica3)

##             Df Sum Sq Mean Sq F value   Pr(>F)    
## djelatnost   2  0.661  0.3305   12.73 3.97e-05 ***
## kotacija     1  2.874  2.8745  110.75 7.83e-14 ***
## Residuals   46  1.194  0.0260                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

• Pomoću naredbe aggregate() izračunajte prosječnu zaduženost prema djelatnosti i prema kotaciji

aggregate(mojipodaci$zaduzenost,list(mojipodaci$djelatnost),mean)
aggregate(mojipodaci$zaduzenost,list(mojipodaci$kotacija),mean)

##       Group.1         x
## 1 proizvodnja 0.3840522
## 2    trgovina 0.6439748
## 3      usluge 0.5509327

##   Group.1         x
## 1      da 0.2247705
## 2      ne 0.7509134