require("faraway")
library(faraway)
dane <- force(chmiss)
#print(subset(dane))


n = dim(dane)

for (i in 1:n[2])
{
  avg = 0
  for (j in 1:n[1])
  {
    if(!is.na(dane[j,i]))
    {
      avg = avg + dane[j,i]
    }
  }
  avg = avg/n[1]

  for (j in 1:n[1])
  {
    if(is.na(dane[j,i]))
    {
      dane[j,i] = avg
    }
  }
}

print(lm(race ~ involact, data=dane))
print(lm(fire ~ involact, data=dane))
print(lm(theft ~ involact, data=dane))
print(lm(age ~ involact, data=dane))
print(lm(income ~ involact, data=dane))