Permalink
Browse files

keep columns the same length

  • Loading branch information...
1 parent 5352c5c commit a41b86e45d0260b332af057ff5e3cad3d093bfbe @piccolbo piccolbo committed Sep 7, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 quickcheck/R/quickcheck.R
@@ -66,7 +66,7 @@ tdgg.data.frame =
tdgg.double(),
tdgg.character())
columns = lapply(sample(gens,ncol, replace=TRUE),
- function(g) replicate(nrow, g(), simplify = TRUE))
+ function(g) replicate(nrow, g()[1], simplify = TRUE))
names(columns) = paste("col", 1:ncol)
do.call(data.frame, columns)}}

0 comments on commit a41b86e

Please sign in to comment.