Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

bugfix

  • Loading branch information...
commit 2bf789f6b99e0abc72657e2bb8e5b60901a7b84d 1 parent b493726
Phil Chalmers authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 R/utils.R
4 R/utils.R
View
@@ -522,9 +522,9 @@ designMats <- function(covdata, fixed, Thetas, nitems, itemdesign = NULL, random
if(item > 1 && fixed.identical){
fixed.design.list[[item]] <- fixed.design.list[[1]]
next
- }
+ }
if(colnames(itemdesign)[1] != 'InTeRnAlUsElESsNaMe2'){
- dat <- data.frame(matrix(itemdesign[item, ], nrow(data), ncol(itemdesign), byrow=TRUE),
+ dat <- data.frame(matrix(itemdesign[item, ], nrow(covdata), ncol(itemdesign), byrow=TRUE),
covdata, Thetas)
colnames(dat) <- c(colnames(itemdesign), colnames(covdata), colnames(Thetas))
} else dat <- data.frame(covdata, Thetas)
Please sign in to comment.
Something went wrong with that request. Please try again.