Construct a design to make triangle tests.

1 2 | ```
triangle.design (nbprod , nbpanelist, bypanelist = nbprod*(nbprod-1)/2,
labprod=1:nbprod, labpanelist=1:nbpanelist)
``` |

`nbprod` |
number of products to compare |

`nbpanelist` |
number of panelists who make the triangle test |

`bypanelist` |
number of expermient that each panelist can done (by default each panelist make all the comparisons between the products |

`labprod` |
name of the products (by default, the product are coded from 1 to the number of products |

`labpanelist` |
name of the panelists (by default, the panelists are coded from 1 to the number of panelists |

Triangle test: panelists receive three coded samples. They are told that two of the sample are the same and one is different. Panelists are asked to identify the odd sample.

Returns an data.frame of dimension (*t,3*), where *t* is the number of experiments.
In column 1, 2 and 3 the product to test are given.
The product in column 1 is by coded "X", in column 2 is coded by "Y" and in column 3 is coded by "Z".
Panelist should start by product "X", then "Y" and then by "Z".

Fran<e7>ois Husson

`triangle.test`

, `triangle.pair.test`

1 2 3 4 5 6 7 8 | ```
##Example 1
design1 = triangle.design (nbprod = 4, nbpanelist = 8)
##Example 2
design2 = triangle.design(nbprod = 4, nbpanelist = 6, bypanelist = 3,
labprod=c("prod1","prod2","prod3","prod4"),
labpanelist=c("John","Audrey","Peter","Martina","James","Lisa"))
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.