Create factorProduct.R