* Encoding: UTF-8.
* Easypower

BEGIN PROGRAM R. 

# Easypower

install.packages("easypower", repos="http://cran.rstudio.com")
library(easypower)


# Defining Effect Size
# Etasquared s 0.01, m 0.06, l 0.138

main.eff.1 <- list(name = "Promotion", levels = 3, eta.sq = 0.06)
main.eff.2 <- list(name = "Coupon", levels = 2, eta.sq = 0.06)

# Running n.multiway

n.multiway(iv1=main.eff.1, iv2=main.eff.2, interaction.eta2 = 0.01, sig.level = 0.05, power = 0.8)

END PROGRAM.