Выполнить эконометрическое задание в R project
Budget: $10 – $30 USD
Data prep
library(wooldridge)
data(discrim)
discrim <-select(discrim, c(psoda, pfries, pentree, wagest, nmgrs, emp, chain, density, crmrte, prpblck, prppov, prpncar, nstores, income, hseval, lpsoda, lpfries, lhseval, lincome, ldensity, state ))
discrim<-discrim[complete.cases(discrim), ]
rnd<-round(runif(6, 1, 356))
discrim<-discrim[-c(rnd), ]
rm(rnd)
attach(discrim)
?discrim
library(wooldridge)
data(discrim)
discrim <-select(discrim, c(psoda, pfries, pentree, wagest, nmgrs, emp, chain, density, crmrte, prpblck, prppov, prpncar, nstores, income, hseval, lpsoda, lpfries, lhseval, lincome, ldensity, state ))
discrim<-discrim[complete.cases(discrim), ]
rnd<-round(runif(6, 1, 356))
discrim<-discrim[-c(rnd), ]
rm(rnd)
attach(discrim)
?discrim