November 2017
Beginner to intermediate
366 pages
7h 59m
English
The RShiny application source code:
library(shiny)library(RecordLinkage)data("RLdata500")server <- function(input, output) { output$records <- renderDataTable({ RLdata500 }) output$weights <- renderDataTable({ rec.pairs <- compare.dedup(RLdata500 ,blockfld = list(1, 5:7) ,strcmp = c(2,3,4) ,strcmpfun = levenshteinSim) pairs.weights <- emWeights(rec.pairs) pairs.classify <- emClassify(pairs.weights, threshold.upper = input$upperthreshold, threshold.lower = input$lowerthreshold) final.results <- pairs.classify$pairs final.results$weight <- pairs.classify$Wdata final.results$links <- pairs.classify$prediction final.results }) output$weightplot <- renderPlot({ rec.pairs <- compare.dedup(RLdata500 ,blockfld = list(1, 5:7) ...Read now
Unlock full access