if (FALSE) {
# Read in the Sawtooth Formatted data
design <- read.csv("Design.csv")
prices = c(0.79, 1.29, 1.79, 2.29, 2.79)
design$price <- prices[design$price]
codedDesign <- codeSawtoothDesignFile(design, c(4:9))
}
Run the code above in your browser using DataLab