#!/usr/bin/env Rscript
suppressPackageStartupMessages(library(RSiena))
suppressPackageStartupMessages(library(tcltk))
RSiena:::DONE(FALSE)
siena01Gui()
while(!RSiena:::DONE()) {Sys.sleep(0.1)}

