Skip to content

Commit

Permalink
version 0.3.2
Browse files Browse the repository at this point in the history
  • Loading branch information
mchlbckr authored and cran-robot committed Feb 16, 2024
1 parent 44d0915 commit 6baef8e
Show file tree
Hide file tree
Showing 3 changed files with 7 additions and 7 deletions.
8 changes: 4 additions & 4 deletions DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,14 +1,14 @@
Package: lcda
Type: Package
Title: Latent Class Discriminant Analysis
Version: 0.3.1
Date: 2022-03-11
Version: 0.3.2
Date: 2024-02-15
Depends: R (>= 2.6.0), poLCA
Author: Michael Buecker
Maintainer: Michael Buecker <michael.buecker@fh-muenster.de>
Description: Providing a method for Local Discrimination via Latent Class Models. The approach is described in <https://www.r-project.org/conferences/useR-2009/abstracts/pdf/Bucker.pdf>.
License: GPL
Packaged: 2022-03-11 13:45:14 UTC; michael
Packaged: 2024-02-15 13:49:27 UTC; michael
Repository: CRAN
Date/Publication: 2022-03-11 16:00:02 UTC
Date/Publication: 2024-02-15 14:10:02 UTC
NeedsCompilation: no
4 changes: 2 additions & 2 deletions MD5
Original file line number Diff line number Diff line change
@@ -1,10 +1,10 @@
e457450da94ec04f1800bbbc1f794a22 *DESCRIPTION
abc2d323cbb058c28ae846ebf0878d9f *DESCRIPTION
b2b31d94237d4d27cee7d08b55c8d61f *NAMESPACE
2c3ee30e6f039781d41e07befb2ee196 *R/cclcda.R
984baef5c464fdfdb603eeaa68cb8f5b *R/cclcda.default.R
d44771a3695e339787588910d17f1eab *R/cclcda.formula.R
334ee6398b0dce13728e8794cfbd80cf *R/cclcda2.R
7272a076a6b55fc8c74fb9443ac4faab *R/cclcda2.default.R
d74768e5610085c237186329640c5820 *R/cclcda2.default.R
b4ae78d5f1fc03fd62ec26026b6f0718 *R/cclcda2.formula.R
48f4832a048810c0afac3053acefef79 *R/entropy.R
09a177eaaabe8c3d516e8506682e37a6 *R/lcda.R
Expand Down
2 changes: 1 addition & 1 deletion R/cclcda2.default.R
Original file line number Diff line number Diff line change
Expand Up @@ -138,7 +138,7 @@ repeat{
wmk.est <- matrix(0,nrow=k, ncol=m)
for (i in 1:k)
{
wmk.est[i,] <- 1/nk[i] * apply(tau.est[seq(i,m*k,k),grouping==i],1,sum)
wmk.est[i,] <- 1/nk[i] * apply(tau.est[seq(i,m*k,k),grouping==i,drop=FALSE],1,sum)
}

# estimation of theta
Expand Down

0 comments on commit 6baef8e

Please sign in to comment.