Description Usage Format Details Source Examples
Dataset downloaded from website http://www.oferty.net/. Dataset contains offer and transictional prices for apartments sold in in Warsaw in years 2007-2009.
1 |
data.frame with 973 obs. and 16 variables
yeardata year of the transaction
monthdata month of the transaction
surfaceapartment area in m2
citycity (all transactions are from Warsaw)
districtdistrict in which the apartment is located, factor with 28 levels
streetsteet in which the apartment is located
n.roomsnumber of rooms
floorfloor
construction.datethe construction year
typeownership rights
offer.priceprice in the offer
transaction.pricedeclared price in the transaction
m2.priceprice per m2
conditionapartment condition, factor with 5 levels
lat, lonlatitude and longitude coordinates for district center
This and other related dataset you may find here http://www.oferty.net/.
website http://www.oferty.net/
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | data(apartments)
library(lattice)
xyplot(m2.price~construction.date|district, apartments, type=c("g","p"))
#
# apartments2 = na.omit(apartments[,c(13,1,3,5,7,8,9,10,14,15,16)])
# wsp = (bincombinations(10)==1)[-1,]
# params = matrix(0, nrow(wsp), 3)
# for (i in 1:nrow(wsp)) {
# model = lm(m2.price~., data=apartments2[,c(TRUE,wsp[i,])])
# params[i,1] = AIC(model, k=log(nrow(apartments2)))
# params[i,2] = model$rank
# params[i,3] = summary(model)$adj.r.squared
# }
# plot(params[,2], params[,3], xlab="no. of regressors", ylab="adj R^2")
#
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.