arnoud999

  ############################################################################
  #                                                                          #
  #  Excluding participants who participated in previous studies             #
  #  By Arnoud Plantinga, based on Gabriele Paolacci's Excel solution        #
  #                                                                          #
  #  Instructions (Note: edit only the non-indented lines):                  #
  #                                                                          #
  #  1. Create a qualification (e.g., "Study 1"; keep in mind that the name  #
  #  will be visible to Workers) in MTurk/Manage/Qualification Types         #
  #                                                                          #

arnoud999

# Compute omega-squared and partial omega-squared
# By Arnoud Plantinga
# Based on http://stats.stackexchange.com/a/126520

# Functions ---------------------------------------------------------------

# Omega-squared
Omegas <- function(mod){
  aovMod <- mod
  if(!any(class(aovMod) %in% 'aov')) aovMod <- aov(mod)