data(heaviness)
## 6 subjects chose 90g over 100g, when 90g was presented first.
heaviness["90g", "100g", "order1"]
## 44 subjects chose 100g over 90g, when 90g was presented first.
heaviness["100g", "90g", "order1"]
## 14 subjects chose 90g over 100g, when 90g was presented second.
heaviness["90g", "100g", "order2"]
## 36 subjects chose 100g over 90g, when 90g was presented second.
heaviness["100g", "90g", "order2"]
Run the code above in your browser using DataLab