src/library/stats/tests/ppr.R - R - Git at Google

 ## example from PR#13571: should fail, not crash.

 require("stats")
 bad <- as.matrix(read.csv("ppr_test.csv"))
 try(ppr(bad[,-3], bad[, 3], nterms=1))
	## example from PR#13571: should fail, not crash.

	require("stats")
	bad <- as.matrix(read.csv("ppr_test.csv"))
	try(ppr(bad[,-3], bad[, 3], nterms=1))