Nothing
## ----echo=FALSE,results='hide'----------------------------
knitr::opts_chunk$set(message =FALSE, warnings = FALSE)
options(width=60)
backup_options <- options()
## ----results='hide',echo=FALSE----------------------------
library(RecordLinkage)
## ---------------------------------------------------------
data(RLdata500)
bf=list(1,3,5,6,7)
rpairs=compare.dedup(RLdata500,identity=identity.RLdata500,
blockfld=bf,strcmp=1:4)
rpairs=emWeights(rpairs)
## ----results='hide'---------------------------------------
## Not run: getParetoThreshold(rpairs)
## ----echo=FALSE-------------------------------------------
plotMRL(rpairs)
## ----echo=FALSE-------------------------------------------
plotMRL(rpairs)
abline(v=c(1.2,12.8),col="red",lty="dashed")
l=mrl(rpairs$Wdata)
range=l$x>1.2 & l$x < 12.8
points(l$x[range], l$y[range],col="red",type="l")
## ---------------------------------------------------------
threshold=getParetoThreshold(rpairs,interval=c(1.2,12.8))
result=emClassify(rpairs,threshold)
summary(result)
## ----echo=FALSE,results='hide'----------------------------
options(backup_options)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.