Amelia March 2015

amelia@lists.gking.harvard.edu

6 participants
5 discussions

[Novice user] Amelia Error - 'x' must be an array of at least two dimensions

by MICHAL KUCER (RIT Student)

Good afternoon, I am student at the Rochester Institute of Technology and I am currently working with a time-series data set that I am trying to impute, however I get the following error: Loading required package: Rcpp ## ## Amelia II: Multiple Imputation ## (Version 1.7.3, built: 2014-11-14) ## Copyright (C) 2005-2015 James Honaker, Gary King and Matthew Blackwell ## Refer to http://gking.harvard.edu/amelia/ for more information ## amelia starting beginning prep functions Variables used: Volume Speed Delay Stops Error in colSums(sapply(priors[, 1, drop = FALSE], ">", blanks)) : 'x' must be an array of at least two dimensions Calls: amelia ... amelia.default -> amelia.prep -> amsubset -> colSums I am calling Amelia with the following command: amelia(dfMat, m=5, ts=5, priors=priorsMat, bouds=boundsMat, p2s=2) where dfMat is the data matrix of size 60000x5, where the fifth column is the time variable, priorsMat is the matrix of observational priors with 4 columns(I specify the mean and deviation for each data point). I've checked that dfMat and priorsMat have the correct dimensions and thus I am not sure what could be giving me this error. I would be very grateful if somebody could give me any pointers as to what might be the issue. Thank you very much. Sincerely, Michal Kucer -- Michal Kucer Rochester Institute of Technology

8 years, 10 months

FW: multiple time series data

by Graham, Erin

Amelia users, My data set consists of several environmental predictor variables, each of which are time series with seasonal and trend components. These are monthly values taken over 15 years. I have been experimenting with Amelia and have read the referenced papers and documentation, but two questions remain: 1) What is the best way to indicate the "ts" component? If this is monthly, should I assign sequential numbers to my "Month" column (1-180) indicating 12 months X 15 years and leave "Year" out of the analysis, or should I simply number my months 1-12 for each year and again only select "Month" for ts? If there is both a seasonal and a trend component to the data, will it be captured using either of these methods? 2) All of my variables (both independent and dependent) are time series, and all have missing values. If I do nothing to the data, except for maybe simple transformations to a few variables to better approach normality, are there any major precautions to imputing ts data from all ts data? Of course, I will experiment with polytime, splinetime, lags, etc. Thank you for your help. Regards, Erin Graham

9 years

Successful impute but file corrupted

by Evelyn Chan

Hello, The Amelia output file indicates the imputation is successful. But when I opened up the stacked.dta file, I get this error message "dta file corrupt The file unexpectedly ended before it should have" Any ideas? Thanks Evelyn

9 years

is it possible to set maximum number of iterations?

by Andres Colubri

Hi there, In some rare occasions, Amelia is unable to converge and keeps iterating without ever reaching the tolerance value. I wouldn't not want to lower the tolerance since in most situations Amelia converges to a good imputation. I'm using Amelia within a larger automated pipeline that exhaustively tests different models, so the non-converging situations, although rare, happen from time to time and require manual intervention to stop the Amelia instance, restart the pipeline, etc. Is is possible to set a maximum number of iterations so that Amelia can quit the EM loop before reaching the desired tolerance? I revised the documentation, but didn't find such an argument. Thanks! Andres

9 years

Problem

by Miles M Evers

Hi All, I’m trying to use AmeliaView in RStudio on Mac Yosemite OS X 10.10.2. Every time I enter AmeliaView into the console, however, I receive the following message below rather than the interface popping up. Please help! > AmeliaView function () { require(tcltk) || stop("The package 'tcltk' is required") if (.Platform$OS.type != "windows") { tcltk::tcl("ttk::style", "theme", "use", "clam") tcltk::tkfont.configure("TkHeadingFont", weight = "normal") tcltk::tkfont.configure("TkCaptionFont", weight = "normal") } if (file.access(getwd(), mode = 2) == -1) { if (file.access(Sys.getenv("HOME"), mode = 0) == 0 & file.access(Sys.getenv("HOME"), mode = 2) == 0) { setwd(Sys.getenv("HOME")) } } tcltk::tclServiceMode(on = FALSE) putAmelia("outname", tcltk::tclVar("outdata")) putAmelia("outnum", tcltk::tclVar("5")) putAmelia("empri", tcltk::tclVar("0")) putAmelia("tol", tcltk::tclVar("0.0001")) putAmelia("amelia.data", NULL) putAmelia("am.filename", NULL) putAmelia("varnames", NULL) putAmelia("tsvar", NULL) putAmelia("csvar", NULL) putAmelia("varmin", NULL) putAmelia("varmax", NULL) putAmelia("runState", "noimps") putAmelia("session.flag", FALSE) putAmelia("intercs", tcltk::tclVar("0")) putAmelia("splinestime", tcltk::tclVar("0")) putAmelia("outtype", tcltk::tclVar("1")) putAmelia("max.resample", tcltk::tclVar("1000")) putAmelia("inname", tcltk::tclVar("")) putAmelia("seed", tcltk::tclVar("")) putAmelia("output.log", NULL) putAmelia("boundMin", tcltk::tclVar("")) putAmelia("boundMax", tcltk::tclVar("")) putAmelia("wdForLastImputation", getwd()) output.types <- c("(no save)", "CSV", "Tab Delimited", "Stata 6", "Stata 7", "Stata 8/9", "Stata 10+", "Stata 10+ (stacked)", "RData") ampath <- find.package(package = "Amelia")[1] ameliaFile <- file.path(ampath, "gui/gallery19.gif") goFile <- file.path(ampath, "gui/action_go.gif") tableFile <- file.path(ampath, "gui/table.gif") rFile <- file.path(ampath, "gui/page-R.gif") dtaFile <- file.path(ampath, "gui/page_dta.gif") spssFile <- file.path(ampath, "gui/page_spss.gif") clockFile <- file.path(ampath, "gui/icon_clock.gif") userFile <- file.path(ampath, "gui/icon_user.gif") upFile <- file.path(ampath, "gui/arrow_up.gif") downFile <- file.path(ampath, "gui/arrow_down.gif") worldFile <- file.path(ampath, "gui/icon_world.gif") pageTextFile <- file.path(ampath, "gui/page_text.gif") pageEditFile <- file.path(ampath, "gui/page_edit.gif") histFile <- file.path(ampath, "gui/histogram.gif") saveFile <- file.path(ampath, "gui/action_save.gif") pageUpFile <- file.path(ampath, "gui/page_up.gif") redStopFile <- file.path(ampath, "gui/action_stop.gif") redFlagFile <- file.path(ampath, "gui/flag_red.gif") greenCheckFile <- file.path(ampath, "gui/icon_accept.gif") putAmelia("ameliaPic", tcltk::tkimage.create("photo", file = ameliaFile)) putAmelia("action.go.icon", tcltk::tkimage.create("photo", file = goFile)) putAmelia("tablePic", tcltk::tkimage.create("photo", file = tableFile)) putAmelia("rPic", tcltk::tkimage.create("photo", file = rFile)) putAmelia("dtaPic", tcltk::tkimage.create("photo", file = dtaFile)) putAmelia("spssPic", tcltk::tkimage.create("photo", file = spssFile)) putAmelia("clockIcon", tcltk::tkimage.create("photo", file = clockFile)) putAmelia("userIcon", tcltk::tkimage.create("photo", file = userFile)) putAmelia("worldIcon", tcltk::tkimage.create("photo", file = worldFile)) putAmelia("upArrowIcon", tcltk::tkimage.create("photo", file = upFile)) putAmelia("downArrowIcon", tcltk::tkimage.create("photo", file = downFile)) putAmelia("histIcon", tcltk::tkimage.create("photo", file = histFile)) putAmelia("saveIcon", tcltk::tkimage.create("photo", file = saveFile)) putAmelia("pageUpIcon", tcltk::tkimage.create("photo", file = pageUpFile)) putAmelia("redFlagIcon", tcltk::tkimage.create("photo", file = redFlagFile)) putAmelia("redStopIcon", tcltk::tkimage.create("photo", file = redStopFile)) putAmelia("greenCheckIcon", tcltk::tkimage.create("photo", file = greenCheckFile)) putAmelia("pageTextIcon", tcltk::tkimage.create("photo", file = pageTextFile)) putAmelia("pageEditIcon", tcltk::tkimage.create("photo", file = pageEditFile)) putAmelia("gui", tcltk::tktoplevel()) tcltk::tkwm.title(getAmelia("gui"), "AmeliaView") tcltk::tkwm.protocol(getAmelia("gui"), "WM_DELETE_WINDOW", function() main.close()) tcltk::tkwm.geometry(getAmelia("gui"), "800x500") putAmelia("main.menu", tcltk::tkmenu(getAmelia("gui"))) putAmelia("main.menu.file", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) putAmelia("main.menu.demo", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) putAmelia("main.menu.import", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) putAmelia("main.menu.options", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) putAmelia("main.menu.splines", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) putAmelia("main.menu.output", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) putAmelia("main.menu.help", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) putAmelia("main.menu.variables", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0, postcommand = variableOptionsPost)) putAmelia("main.menu.trans", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) putAmelia("main.menu.outfile", tcltk::tkmenu(getAmelia("main.menu"), tearoff = 0)) tcltk::tkadd(getAmelia("main.menu.file"), "command", label = "Load R Data File...", command = function() loadRData(), underline = 5) tcltk::tkadd(getAmelia("main.menu.import"), "command", label = "Import comma-separated value data...", command = loadCSV, underline = 7) tcltk::tkadd(getAmelia("main.menu.import"), "command", label = "Import tab-delimited data...", command = loadTAB, underline = 7) tcltk::tkadd(getAmelia("main.menu.import"), "command", label = "Import Stata dta file...", command = loadStata, underline = 13) tcltk::tkadd(getAmelia("main.menu.import"), "command", label = "Import SPSS data...", command = loadSPSS, underline = 7) tcltk::tkadd(getAmelia("main.menu.import"), "command", label = "Import SAS Transport data...", command = loadSAS, underline = 8) tcltk::tkadd(getAmelia("main.menu.file"), "cascade", menu = getAmelia("main.menu.import"), label = "Import Data", underline = 0) tcltk::tkadd(getAmelia("main.menu.demo"), "command", label = "africa", command = function() loadDemo(name = "africa"), underline = 0) tcltk::tkadd(getAmelia("main.menu.demo"), "command", label = "freetrade", command = function() loadDemo(name = "freetrade"), underline = 0) tcltk::tkadd(getAmelia("main.menu.file"), "cascade", menu = getAmelia("main.menu.demo"), label = "Load Package Data", underline = 5) tcltk::tkadd(getAmelia("main.menu.file"), "command", command = setWorkingDir, label = "Set Working Directory...", underline = 4) tcltk::tkadd(getAmelia("main.menu.file"), "command", label = "Edit Data...", command = function() { putAmelia("amelia.data", edit(getAmelia("amelia.data"))) updateTreeStats() }, state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.file"), "separator") tcltk::tkadd(getAmelia("main.menu.file"), "command", label = "Load Session...", command = function() load.session(), underline = 0) tcltk::tkadd(getAmelia("main.menu.file"), "command", label = "Save Session...", command = function() save.session(), state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.file"), "separator") tcltk::tkadd(getAmelia("main.menu.file"), "command", label = "Quit Amelia", command = function() main.close(), underline = 0) tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Set as Time-Series Variable", command = setTS, state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Set as Cross-Section Variable", command = setCS, state = "disabled", underline = 7) tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Unset as Time-Series Variable", command = unsetTS, state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Unset as Cross-Section Variable", command = unsetCS, state = "disabled", underline = 23) tcltk::tkadd(getAmelia("main.menu.variables"), "separator") tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Add Lag", command = function() addLag(), state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Add Lead", command = function() addLead(), state = "disabled", underline = 4) tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Remove Lag", command = function() dropLag(), state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Remove Lead", command = function() dropLead(), state = "disabled", underline = 1) tcltk::tkadd(getAmelia("main.menu.variables"), "separator") tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Plot Histogram(s) of Selected", command = plotHist, state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.trans"), "command", label = "Log", command = function(x) setTrans("logs"), underline = 0) tcltk::tkadd(getAmelia("main.menu.trans"), "command", label = "Square Root", command = function(x) setTrans("sqrt"), underline = 0) tcltk::tkadd(getAmelia("main.menu.trans"), "command", label = "Logistic", command = function(x) setTrans("lgstc"), underline = 1) tcltk::tkadd(getAmelia("main.menu.trans"), "command", label = "Nominal", command = function(x) setTrans("noms"), underline = 0) tcltk::tkadd(getAmelia("main.menu.trans"), "command", label = "Ordinal", command = function(x) setTrans("ords"), underline = 0) tcltk::tkadd(getAmelia("main.menu.trans"), "command", label = "ID Variable", command = function(x) setTrans("idvar"), underline = 0) tcltk::tkadd(getAmelia("main.menu.variables"), "cascade", label = "Add Transformation...", menu = getAmelia("main.menu.trans"), state = "disabled", underline = 4) tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Remove Transformations", command = dropTrans, state = "disabled", underline = 2) tcltk::tkadd(getAmelia("main.menu.variables"), "separator") tcltk::tkadd(getAmelia("main.menu.variables"), "command", label = "Add or Edit Bounds", command = addBounds, state = "disabled", underline = 12) for (i in 0:10) tcltk::tkadd(getAmelia("main.menu.splines"), "radiobutton", variable = getAmelia("splinestime"), label = paste(i, "knots"), value = i, underline = 0) tcltk::tkadd(getAmelia("main.menu.options"), "cascade", label = "Splines of Time with...", menu = getAmelia("main.menu.splines"), state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.options"), "checkbutton", label = "Interact Spline With Cross-Section?", variable = getAmelia("intercs"), onvalue = 1, offvalue = 0, state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.options"), "separator") tcltk::tkadd(getAmelia("main.menu.options"), "command", label = "Add Observations Priors...", command = gui.pri.setup, state = "disabled", underline = 17) tcltk::tkadd(getAmelia("main.menu.options"), "separator") tcltk::tkadd(getAmelia("main.menu.options"), "command", label = "Numerical Options", command = buildNumericalOptions, state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.options"), "command", label = "Draw Missingness Map", command = drawMissMap, state = "disabled", underline = 5) tcltk::tkadd(getAmelia("main.menu.options"), "command", label = "Output File Options...", command = buildOutputOptions, state = "disabled", underline = 0) for (i in 1:length(output.types)) { tcltk::tkadd(getAmelia("main.menu.outfile"), "radiobutton", variable = getAmelia("outtype"), label = output.types[i], value = i - 1) } tcltk::tkadd(getAmelia("main.menu.options"), "cascade", label = "Output File Type...", menu = getAmelia("main.menu.outfile"), state = "disabled", underline = 7) tcltk::tkadd(getAmelia("main.menu.output"), "command", label = "Imputation Diagnostics...", command = gui.diag.setup, state = "disabled", underline = 11) tcltk::tkadd(getAmelia("main.menu.output"), "command", label = "Output Log", command = show.output.log, state = "disabled", underline = 0) tcltk::tkadd(getAmelia("main.menu.output"), "command", label = "Open Folder Containing Imputated Data", command = showImputedFiles, state = "disabled", underline = 12) tcltk::tkadd(getAmelia("main.menu.help"), "command", label = "Amelia Website", command = function() browseURL("http://gking.harvard.edu/amelia/"), underline = 7) tcltk::tkadd(getAmelia("main.menu.help"), "command", label = "Documentation", command = function() browseURL("http://gking.harvard.edu/amelia/docs/"), underline = 0) tcltk::tkadd(getAmelia("main.menu.help"), "command", label = "About...", command = function() buildAboutDialog(), underline = 0) tcltk::tkadd(getAmelia("main.menu"), "cascade", label = "File", menu = getAmelia("main.menu.file"), underline = 0) tcltk::tkadd(getAmelia("main.menu"), "cascade", label = "Variables", menu = getAmelia("main.menu.variables"), underline = 0) tcltk::tkadd(getAmelia("main.menu"), "cascade", label = "Options", menu = getAmelia("main.menu.options"), underline = 0) tcltk::tkadd(getAmelia("main.menu"), "cascade", label = "Output", menu = getAmelia("main.menu.output"), underline = 1) tcltk::tkadd(getAmelia("main.menu"), "cascade", label = "Help", menu = getAmelia("main.menu.help"), underline = 0) tcltk::tkconfigure(getAmelia("gui"), menu = getAmelia("main.menu")) putAmelia("gui.welcome", tcltk::ttkframe(getAmelia("gui"))) ameliaPicLabel <- tcltk::ttklabel(getAmelia("gui.welcome"), relief = "groove", image = getAmelia("ameliaPic")) loadRButton <- tcltk::ttkbutton(getAmelia("gui.welcome"), text = "Load R Data", image = getAmelia("rPic"), compound = "top", command = loadRData) loadCSVButton <- tcltk::ttkbutton(getAmelia("gui.welcome"), text = "Import CSV", image = getAmelia("tablePic"), compound = "top", command = loadCSV) loadStataButton <- tcltk::ttkbutton(getAmelia("gui.welcome"), text = "Import STATA", image = getAmelia("dtaPic"), compound = "top", command = loadStata) loadSPSSButton <- tcltk::ttkbutton(getAmelia("gui.welcome"), text = "Import SPSS", image = getAmelia("spssPic"), compound = "top", command = loadSPSS) loadDemoButton <- tcltk::ttkbutton(getAmelia("gui.welcome"), text = "Load Demo", image = getAmelia("tablePic"), compound = "top", command = function() loadDemo(name = "africa")) tcltk::tkgrid(ameliaPicLabel, row = 0, column = 0, columnspan = 6, padx = 10, pady = 10) tcltk::tkgrid(tcltk::ttklabel(getAmelia("gui.welcome"), text = paste("Welcome to AmeliaView ", packageDescription("Amelia", fields = "Version"), "!", sep = "")), row = 1, column = 0, columnspan = 6, padx = 10, pady = 10) tcltk::tkgrid(tcltk::ttklabel(getAmelia("gui.welcome"), text = "Please load a dataset:"), row = 2, column = 0, columnspan = 6, padx = 10, pady = 10) tcltk::tkgrid(loadRButton, row = 3, column = 0, padx = 10, pady = 10) tcltk::tkgrid(loadCSVButton, row = 3, column = 1, padx = 10, pady = 10) tcltk::tkgrid(loadStataButton, row = 3, column = 2, padx = 10, pady = 10) tcltk::tkgrid(loadSPSSButton, row = 3, column = 3, padx = 10, pady = 10) tcltk::tkgrid(loadDemoButton, row = 3, column = 4, padx = 10, pady = 10) tcltk::tkgrid(getAmelia("gui.welcome"), row = 0, column = 0) putAmelia("gui.skel", tcltk::ttkpanedwindow(getAmelia("gui"), orient = "vertical")) toolbar <- tcltk::ttkframe(getAmelia("gui.skel")) putAmelia("loadSessionButton", tcltk::ttkbutton(toolbar, text = "Load Session", command = load.session, image = getAmelia("pageUpIcon"), compound = "top", style = "Toolbutton")) putAmelia("saveSessionButton", tcltk::ttkbutton(toolbar, text = "Save Session", command = save.session, image = getAmelia("saveIcon"), compound = "top", style = "Toolbutton")) putAmelia("plotHistButton", tcltk::ttkbutton(toolbar, text = "Plot Histogram", state = "disabled", command = plotHist, image = getAmelia("histIcon"), compound = "top", style = "Toolbutton")) putAmelia("editDataButton", tcltk::ttkbutton(toolbar, text = "Edit Data", state = "disabled", command = function() { putAmelia("amelia.data", edit(getAmelia("amelia.data"))) updateTreeStats() }, image = getAmelia("pageEditIcon"), compound = "top", style = "Toolbutton")) putAmelia("missmapButton", tcltk::ttkbutton(toolbar, text = "Missingness Map", state = "disabled", command = drawMissMap, image = getAmelia("worldIcon"), compound = "top", style = "Toolbutton")) putAmelia("output.run", tcltk::ttkbutton(toolbar, text = "Impute!", state = "disabled", command = run.amelia, image = getAmelia("action.go.icon"), compound = "top", style = "Toolbutton")) putAmelia("showLogButton", tcltk::ttkbutton(toolbar, text = "Output Log", state = "disabled", command = show.output.log, image = getAmelia("pageTextIcon"), compound = "top", style = "Toolbutton")) tcltk::tkgrid(getAmelia("loadSessionButton"), row = 0, column = 0, sticky = "ew") tcltk::tkgrid(getAmelia("saveSessionButton"), row = 0, column = 1, sticky = "ew") tcltk::tkgrid(tcltk::ttkseparator(toolbar, orient = "vertical"), row = 0, column = 2, padx = 5, pady = 5, sticky = "ns") tcltk::tkgrid(getAmelia("plotHistButton"), row = 0, column = 3, sticky = "ew") tcltk::tkgrid(getAmelia("editDataButton"), row = 0, column = 4, sticky = "ew") tcltk::tkgrid(getAmelia("missmapButton"), row = 0, column = 5, sticky = "ew") tcltk::tkgrid(tcltk::ttkseparator(toolbar, orient = "vertical"), row = 0, column = 6, padx = 5, pady = 5, sticky = "ns") tcltk::tkgrid(getAmelia("output.run"), row = 0, column = 7, sticky = "ew") tcltk::tkgrid(getAmelia("showLogButton"), row = 0, column = 8, sticky = "ew") dashboard <- tcltk::ttkframe(getAmelia("gui.skel")) yscr <- tcltk::ttkscrollbar(dashboard, orient = "vertical", command = function(...) tcltk::tkyview(getAmelia("main.tree"), ...)) xscr <- tcltk::ttkscrollbar(dashboard, orient = "horizontal", command = function(...) tcltk::tkxview(getAmelia("main.tree"), ...)) sorts <- rep(FALSE, times = 10) names(sorts) <- c("#0", "transform", "lag", "lead", "bounds", "min", "max", "mean", "sd", "miss") putAmelia("sortDirs", sorts) putAmelia("main.tree", tcltk::ttktreeview(dashboard, columns = "transform lag lead bounds min max mean sd miss", yscrollcommand = function(...) tcltk::tkset(yscr, ...), xscrollcommand = function(...) tcltk::tkset(xscr, ...), selectmode = "extended")) tcltk::tcl(getAmelia("main.tree"), "column", "#0", width = 70, minwidth = 80) tcltk::tcl(getAmelia("main.tree"), "column", 0, width = 78, minwidth = 78, anchor = "center") tcltk::tcl(getAmelia("main.tree"), "column", 1, width = 20, minwidth = 20, anchor = "center") tcltk::tcl(getAmelia("main.tree"), "column", 2, width = 20, minwidth = 20, anchor = "center") tcltk::tcl(getAmelia("main.tree"), "column", 3, width = 50, minwidth = 50, anchor = "e") tcltk::tcl(getAmelia("main.tree"), "column", 4, width = 50, minwidth = 50, anchor = "e") tcltk::tcl(getAmelia("main.tree"), "column", 5, width = 50, minwidth = 50, anchor = "e") tcltk::tcl(getAmelia("main.tree"), "column", 6, width = 50, minwidth = 50, anchor = "e") tcltk::tcl(getAmelia("main.tree"), "column", 7, width = 50, minwidth = 50, anchor = "e") tcltk::tcl(getAmelia("main.tree"), "column", 8, width = 50, minwidth = 50, anchor = "e") tcltk::tcl(getAmelia("main.tree"), "heading", "#0", text = "Variable", command = function() sortTreeBy("#0")) tcltk::tcl(getAmelia("main.tree"), "heading", 0, text = "Transformation", command = function() sortTreeBy("transform")) tcltk::tcl(getAmelia("main.tree"), "heading", 1, text = "Lag", command = function() sortTreeBy("lag")) tcltk::tcl(getAmelia("main.tree"), "heading", 2, text = "Lead", command = function() sortTreeBy("lead")) tcltk::tcl(getAmelia("main.tree"), "heading", 3, text = "Bounds", command = function() sortTreeBy("lower")) tcltk::tcl(getAmelia("main.tree"), "heading", 4, text = "Min", command = function() sortTreeBy("min")) tcltk::tcl(getAmelia("main.tree"), "heading", 5, text = "Max", command = function() sortTreeBy("max")) tcltk::tcl(getAmelia("main.tree"), "heading", 6, text = "Mean", command = function() sortTreeBy("mean")) tcltk::tcl(getAmelia("main.tree"), "heading", 7, text = "SD", command = function() sortTreeBy("sd")) tcltk::tcl(getAmelia("main.tree"), "heading", 8, text = "Missing", command = function() sortTreeBy("miss")) tcltk::tkbind(getAmelia("main.tree"), "<Button-3>", mainTreeRightClick) selectbg <- tcltk::tcl("ttk::style", "configure", ".", "-selectbackground") selectfg <- tcltk::tcl("ttk::style", "configure", ".", "-selectforeground") tcltk::tktag.configure(getAmelia("main.tree"), "normal", background = "white") tcltk::tktag.configure(getAmelia("main.tree"), "selected", background = selectbg, foreground = selectfg) tcltk::tkbind(getAmelia("main.tree"), "<<TreeviewSelect>>", function() refreshSelection(getAmelia("main.tree"))) putAmelia("legendFrame", tcltk::ttkframe(dashboard)) tcltk::tkgrid(tcltk::ttklabel(getAmelia("legendFrame"), text = "= Time-Series Variable", image = getAmelia("clockIcon"), compound = "left"), row = 0, column = 0, sticky = "w", padx = 5) tcltk::tkgrid(tcltk::ttklabel(getAmelia("legendFrame"), text = "= Cross-Section Variable", image = getAmelia("userIcon"), compound = "left"), row = 0, column = 1, sticky = "w", padx = 5) tcltk::tkgrid(tcltk::ttklabel(getAmelia("legendFrame"), text = "= Unhandled Factor Variable", image = getAmelia("redFlagIcon"), compound = "left"), row = 0, column = 2, sticky = "w", padx = 5) tcltk::tkgrid(getAmelia("main.tree"), row = 0, column = 0, sticky = "news") tcltk::tkgrid(yscr, row = 0, column = 1, sticky = "ns") tcltk::tkgrid(xscr, row = 1, column = 0, sticky = "ew") tcltk::tkgrid(getAmelia("legendFrame"), row = 2, column = 0, sticky = "ew") tcltk::tkgrid.rowconfigure(dashboard, 0, weight = 1) tcltk::tkgrid.columnconfigure(dashboard, 0, weight = 1) tcltk::tkadd(getAmelia("gui.skel"), toolbar) tcltk::tkadd(getAmelia("gui.skel"), dashboard) tcltk::tkgrid(toolbar, row = 0, column = 1, padx = 2, pady = 2, sticky = "ew") tcltk::tkgrid(dashboard, row = 1, column = 1, sticky = "news", padx = 10, pady = 5) tcltk::tkgrid.rowconfigure(getAmelia("gui.skel"), 1, weight = 1) tcltk::tkgrid.columnconfigure(getAmelia("gui.skel"), 1, weight = 1) tcltk::tkgrid.rowconfigure(getAmelia("gui"), 0, weight = 1) tcltk::tkgrid.columnconfigure(getAmelia("gui"), 0, weight = 1) putAmelia("statusbar", tcltk::ttkframe(getAmelia("gui"), relief = "groove", borderwidth = 3)) statusbar.lab1a <- tcltk::ttklabel(getAmelia("statusbar"), text = "Data Loaded:", anchor = "w", padding = c(2, 0)) putAmelia("statusbar.lab1b", tcltk::ttklabel(getAmelia("statusbar"), text = "Unspecified", relief = "sunken", anchor = "w", foreground = "red", padding = c(2, 0), width = 35)) statusbar.nlab <- tcltk::ttklabel(getAmelia("statusbar"), text = "Obs:", anchor = "e", padding = c(2, 0)) putAmelia("statusbar.n", tcltk::ttklabel(getAmelia("statusbar"), text = "----", relief = "sunken", anchor = "w", foreground = "red", padding = c(2, 0, 0, 0), width = 6)) statusbar.klab <- tcltk::ttklabel(getAmelia("statusbar"), text = "Vars:", anchor = "e", padding = c(2, 0)) putAmelia("statusbar.k", tcltk::ttklabel(getAmelia("statusbar"), text = "----", relief = "sunken", anchor = "w", foreground = "red", padding = c(2, 0, 0, 0), width = 6)) putAmelia("runAmeliaProgress", tcltk::ttkprogressbar(getAmelia("statusbar"), value = 0, length = 200, mode = "determinate")) putAmelia("error.label", tcltk::ttkbutton(getAmelia("statusbar"), text = "Error! See Output Log.", image = getAmelia("redStopIcon"), compound = "left", style = "Toolbutton", command = show.output.log)) putAmelia("allgood.label", tcltk::ttkbutton(getAmelia("statusbar"), text = "Successful Imputation.", image = getAmelia("greenCheckIcon"), compound = "left", style = "Toolbutton", command = showImputedFiles)) putAmelia("noimps.label", tcltk::ttklabel(getAmelia("statusbar"), text = "No imputations run.", justify = "right")) tcltk::tkgrid(statusbar.lab1a, row = 2, column = 1, sticky = "w") tcltk::tkgrid(getAmelia("statusbar.lab1b"), row = 2, column = 2, sticky = "w") tcltk::tkgrid(statusbar.nlab, row = 2, column = 3, sticky = "w") tcltk::tkgrid(getAmelia("statusbar.n"), row = 2, column = 4, sticky = "w") tcltk::tkgrid(statusbar.klab, row = 2, column = 5, sticky = "w") tcltk::tkgrid(getAmelia("statusbar.k"), row = 2, column = 6, sticky = "w") tcltk::tkgrid(getAmelia("noimps.label"), row = 2, column = 7, sticky = "e", padx = 10) tcltk::tkgrid.rowconfigure(getAmelia("statusbar"), 2, weight = 1) bindTooltip(widget = "output.run", tip = "Run Amelia on your input dataset with the current settings.") bindTooltip(widget = "runAmeliaProgress", tip = "Amelia is currently running and this shows its progress. On large datasets, Amelia may take quite some time.") bindTooltip(widget = "showLogButton", tip = "Show the output log for the Amelia run. From here, you can save the output. Look here if something went wrong.") bindTooltip(widget = "missmapButton", tip = "Show a map of the missingnes in the data.") bindTooltip(widget = "editDataButton", tip = "Edit individual cells of the data set.") bindTooltip(widget = "plotHistButton", tip = "Plot histogram(s) of the selected variable(s).") bindTooltip(widget = "loadSessionButton", tip = "Load a previously saved Amelia session. This will remove any current settings.") bindTooltip(widget = "saveSessionButton", tip = "Save the current Amelia session. This will save the data, settings, and any imputed data in the Amelia session.") bindTooltip(widget = "legendFrame", tip = "A legend for the icons used in the variable dashboard.") bindTooltip(widget = "noimps.label", tip = "No imputations have been run yet. To run Amelia, hit the 'Impute!' button in the toolbar.") bindTooltip(widget = "allgood.label", tip = "Amelia has run successfully! You can now run imputation diagnostics from the 'Output' menu above. If you chose to save the imputations to file, they should be saved in the working directory. Click here to open the containing folder..") bindTooltip(widget = "error.label", tip = "There was an error the last time you ran Amelia. Click here to open the output log to identify the problem and to see how to fix it.") if (.Platform$OS.type == "windows") tcltk::tkwm.iconbitmap(getAmelia("gui"), file.path(find.package(package = "Amelia")[1], "gui/amelia.ico")) tcltk::tkraise(getAmelia("gui")) tcltk::tkwm.deiconify(getAmelia("gui")) tcltk::tkfocus(getAmelia("gui")) tcltk::tclServiceMode(on = TRUE) tcltk::tkwait.window(getAmelia("gui")) } <environment: 0x7febc57b5380> __ Miles Murphy Evers Ph.D Student Department of Political Science The George Washington University (630)-697-4344

9 years, 1 month

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

Amelia March 2015