dextergui.R
In dextergui: A Graphical User Interface for Dexter

## ----setup, include=FALSE, message=FALSE, warning=FALSE-----------------------
library(knitr)
library(dplyr)
library(dexter)

opts_chunk$set(echo = FALSE,dev='CairoPNG')

## ---- eval=FALSE, echo=TRUE---------------------------------------------------
#  library(dextergui)
#  dextergui()
#  

## ---- echo=FALSE, message=FALSE, warning=FALSE--------------------------------


data.frame(item_id = c('S1DoCurse', 'S1DoScold'), response = c(0,0,1,1,2,2), item_score = c(0,0,1,1,2,2)) %>%
  arrange(item_id, response) %>%
  kable(caption='Standard format, suitable for polytomous and mc items')


## ---- echo=FALSE, out.extra='style="float:left;"'-----------------------------

data.frame(item_id = c('mcItem_1', 'mcItem_2','mcItem_3'), nOptions = c(3,4,3), key=c('C','A','A')) %>%
  kable(caption='Alternative format, only suitable for mc items')


## ---- echo=FALSE--------------------------------------------------------------
verbAggrData[1:8,1:8] %>%
  kable(caption="example response data for the verbal aggression dataset (Vansteelandt, 2000)")

## ---- include=FALSE, message=FALSE--------------------------------------------
db = start_new_project(verbAggrRules,':memory:', person_properties=list(gender='NA'))
add_item_properties(db, verbAggrProperties)
add_booklet(db, verbAggrData, "agg")
tia=tia_tables(db)

## -----------------------------------------------------------------------------
tia$booklets %>%
  mutate_if(is.double, round, digits=3) %>%
  kable()

## ---- fig.width=5, fig.height=5-----------------------------------------------
f=fit_inter(db)
plot(f, "S1DoScold", show.observed=TRUE)

## -----------------------------------------------------------------------------
tia$items %>%
  slice(1:10) %>%
  mutate_if(is.double, round, digits=3) %>%
  kable()

## ----fig.width=5,fig.height=5,results='hide'----------------------------------
get_items(db) %>%
  mutate(behavior2=if_else(behavior %in% c('Curse','Scold'),'Curse,Scold',behavior)) %>%
  add_item_properties(db,.)

profile_plot(db, item_property='behavior2', covariate='gender',x='Curse,Scold',main='behavior')


## ---- include=FALSE-----------------------------------------------------------
close_project(db)