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