## load Visual Array data set (Rouder et al., 2008)
data(VisualArray)
wommbatGUI(dataFrame = VisualArray)
## Once the model is defined via the GUI,
## compute log-likelihood at posterior mean
## replace 'Model' with model name (in quotes)
myModel = womExtractModel('Model')
posteriorMean = myModel$results$pointEst[,5]
womRPredVals(posteriorMean,myModel)Run the code above in your browser using DataLab