Permalink
Browse files

Replaced seq function with 1:m now that m=length(cases) is defined

  • Loading branch information...
1 parent e758a13 commit f73374597d3357d67a580ac8f40f725f38ff2242 @seancarmody committed Oct 25, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 RCT/RCT.R
View
@@ -39,7 +39,7 @@ rct <- function(cases, type="square", border="grey", xlim=c(0, 1), ylim=c(0, 1),
# Colour each case type differently
plan$col <- NA
- plan$col[seats] <- unlist(sapply(seq(along=cases), function(i) rep(fill[i], cases[i])))
+ plan$col[seats] <- unlist(sapply(1:m, function(i) rep(fill[i], cases[i])))
# Get text labels (if they exist)
l <- rct$labels

0 comments on commit f733745

Please sign in to comment.