| Hosted by CoCalc | Download
Kernel: R (R-Project)
require(testthat)
Loading required package: testthat
prices <- read.table("prices.csv",sep=",",header=TRUE) prices$zipcode <- factor(prices$zipcode) head(prices)
idzipcodelatlongdatepricebedroomssqft_living
524560010598148 47.4258 -122.322 16329 228000 3 1190
955820004598148 47.4366 -122.335 16310 289000 3 1260
282407905398024 47.5385 -121.911 16448 440000 3 1910
94310026098024 47.5687 -121.899 16394 213000 2 1000
82407903298024 47.5753 -121.950 16247 563500 4 2085
867850006098024 47.5954 -121.950 16261 1550000 5 6070
boxplot(I(price/1000)~zipcode,data=prices,log="y",las=1) p <- recordPlot()
Image in a Jupyter notebook
h <- digest::digest(p) h
'b0aeddb9e10f8d8b10e4d89d85c32182'
plot(I(long)~lat,data=prices,las=1) p2 <- recordPlot()
Image in a Jupyter notebook
h2 <- digest::digest(p2) h2
'7cd4b3d2de2e7ec89b6c45780b8dad08'
digest::digest(p)
'b0aeddb9e10f8d8b10e4d89d85c32182'