Permalink
Browse files

doc fix

  • Loading branch information...
1 parent 78abf2e commit 6ca1ff76016bc40bd2b9286dd7e72c6c0c7084f9 @philchalmers committed Oct 3, 2012
Showing with 4 additions and 4 deletions.
  1. +2 −2 R/multipleGroup.R
  2. +2 −2 man/multipleGroup.Rd
View
@@ -147,7 +147,7 @@
#' mod_scalar1 <- multipleGroup(dat, models, group = group, method = 'EM', #fixed means
#' invariance=c('slopes', 'intercepts', 'free_varcov'),
#' nested.mod = mod_configural)
-#' mod_fullconstrain <- mirt(data, models) #fix variance (equivalent to full constrain)
+#' mod_fullconstrain <- mirt(dat, models) #fix variance (equivalent to full constrain)
#'
#' anova(mod_metric, mod_configural) #equal slopes only
#' anova(mod_scalar2, mod_metric) #equal intercepts, free variance and mean
@@ -197,7 +197,7 @@
#' mod_metric <- multipleGroup(dat, models, group = group, invariance=c('slopes')) #equal slopes
#' mod_scalar <- multipleGroup(dat, models, group = group, #equal means, slopes, intercepts
#' invariance=c('slopes', 'intercepts', 'free_varcov'))
-#' mod_fullconstrain <- confmirt(data, models)
+#' mod_fullconstrain <- confmirt(dat, models)
#'
#' anova(mod_metric, mod_configural)
#' anova(mod_scalar, mod_metric)
@@ -226,7 +226,7 @@ mod_scalar2 <- multipleGroup(dat, models, group = group, method = 'EM', #equal
mod_scalar1 <- multipleGroup(dat, models, group = group, method = 'EM', #fixed means
invariance=c('slopes', 'intercepts', 'free_varcov'),
nested.mod = mod_configural)
-mod_fullconstrain <- mirt(data, models) #fix variance (equivalent to full constrain)
+mod_fullconstrain <- mirt(dat, models) #fix variance (equivalent to full constrain)
anova(mod_metric, mod_configural) #equal slopes only
anova(mod_scalar2, mod_metric) #equal intercepts, free variance and mean
@@ -276,7 +276,7 @@ mod_configural <- multipleGroup(dat, models, group = group) #completely seperate
mod_metric <- multipleGroup(dat, models, group = group, invariance=c('slopes')) #equal slopes
mod_scalar <- multipleGroup(dat, models, group = group, #equal means, slopes, intercepts
invariance=c('slopes', 'intercepts', 'free_varcov'))
-mod_fullconstrain <- confmirt(data, models)
+mod_fullconstrain <- confmirt(dat, models)
anova(mod_metric, mod_configural)
anova(mod_scalar, mod_metric)

0 comments on commit 6ca1ff7

Please sign in to comment.