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
year
data year of the transaction
month
data month of the transaction
surface
apartment area in m2
city
city (all transactions are from Warsaw)
district
district in which the apartment is located, factor with 28 levels
street
steet in which the apartment is located
n.rooms
number of rooms
floor
floor
construction.date
the construction year
type
ownership rights
offer.price
price in the offer
transaction.price
declared price in the transaction
m2.price
price per m2
condition
apartment condition, factor with 5 levels
lat
, lon
latitude 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.