updated algo.Rnw