# Example 8.21: latent class analysis

January 18, 2011
By

(This article was first published on SAS and R, and kindly contributed to R-bloggers)

Latent class analysis is a technique used to classify observations based on patterns of categorical responses. Collins and Lanza's book,"Latent Class and Latent Transition Analysis," provides a readable introduction, while the UCLA ATS center has an online statistical computing seminar on the topic.

We consider an example analysis from the HELP dataset, where we wish to classify subjects based on their observed (manifest) status on the following variables: 1) on street or in shelter in past 180 days [homeless], 2) CESD score above 20, 3) received substance abuse treatment [satreat], or 4) linked to primary care [linkstatus]. We arbitrarily specify a three class solution.

SAS
Support for this method in SAS is available through the proc lca and proc lta add-on routines created and distributed by the Methodology Center at Penn State University. While it's customary in R to use researcher-written routines, it's less so for SAS; the machinery which allows independently written procs thus has the potential to mislead users. It bears explicitly stating that third-party procs probably don't have the same level of robustness or support as those distributed by SAS Institute.

The proc lca code assumes that the data exist in the dataset ds. The current coding of 0's and 1's needs to be changed to 1's and 2's.
data ds_0; set "c:\book\help.sas7bdat"; run;data ds; set ds_0;   homeless = homeless+1;   cesdcut = (cesd > 20) + 1;   satreat = satreat+1;   linkstatus = linkstatus+1;run;

The call to the LCA procedure specifies the number of classes, the variables to include, the number of categories per variable, and information about the starting values and random starts. It's highly recommended to run a "large" number of random starts to ensure that the true maximum likelihood estimate is reached (the 20 we used is likely too few for more complex models).
proc lca data=ds;   title '3 class model';   nclass 3;   items homeless cesdcut satreat linkstatus;   categories 2 2 2 2;   seed 42;   nstarts 20;run;

The output begins with diagnostic information, and indicates that 40% of the seeds were associated with the best fitting model.
Data Summary, Model Information, and Fit Statistics (EM Algorithm)Number of subjects in dataset:              431Number of subjects in analysis:             431Number of measurement items:             4Response categories per item:            2 2 2 2Number of groups in the data:            1Number of latent classes:                3Rho starting values were randomly generated (seed = 42).No parameter restrictions were specified (freely estimated).Seed selected for best fitted model:    1486228051Percentage of seeds associated with best fitted model:   40.00%The model converged in 3241 iterations.Maximum number of iterations: 5000Convergence method: maximum absolute deviation (MAD)Convergence criterion:  0.000001000

A number of fit statistics are provided to help with model comparison (e.g. number of classes, constraints in more complex models).
=============================================Fit statistics:=============================================Log-likelihood:     -1032.48G-squared:              1.22AIC:                   29.22BIC:                   86.15CAIC:                 100.15Adjusted BIC:          41.72Entropy R-sqd.:         0.94Degrees of freedom:        1

The results indicate that 22% of subjects are in class 1, just 8% in class 2, and 70% in class 3.
                            Parameter EstimatesGamma estimates (class membership probabilities): Class:                     1          2          3                      0.2163     0.0785     0.7052

The next set of output describes the classes. The prevalence for each level of each variable is described for each class. The last response category is redundant (equal to 1 minus the sum of the other probabilities).
Rho estimates (item response probabilities):   Response category  1:Class:                     1          2          3  homeless    :       0.2703     1.0000     0.5625  cesdcut     :       0.1154     0.4214     0.1678  satreat     :       0.0004     0.0000     1.0000  linkstatus  :       0.6029     1.0000     0.5855  Response category  2:Class:                     1          2          3  homeless    :       0.7297     0.0000     0.4375  cesdcut     :       0.8846     0.5786     0.8322  satreat     :       0.9996     1.0000     0.0000  linkstatus  :       0.3971     0.0000     0.4145

Members of class 1 were primarily homeless subjects with a larger proportion of high scores on the CESD, with substance abuse treatment history, and 40% of whom linked to primary care. Class 2 (the smallest group) was comprised of non-homeless subjects with lower CESD scores, substance abuse treatment, but no linkage. Class 3 was 44% homeless, had high levels of CESD, did not report substance abuse treatment, and 41% linked to primary care.

R

We begin by reading in the data, Then we use the within() function (section 1.3.1) to generate a dataframe with the variables of interest.
ds = read.csv("http://www.math.smith.edu/r/data/help.csv")ds = within(ds, (cesdcut = ifelse(cesd>20, 1, 0)))

The poLCA package supports estimation of latent class models in R. The poLCA() function, like proc lca, can incorporate polytomous categorical variables, but also like proc lca requires the variables to be coded starting with positive integers. We specify 10 repetitions (with random starting values).
library(poLCA)res2 = poLCA(cbind(homeless=homeless+1,    cesdcut=cesdcut+1, satreat=satreat+1,    linkstatus=linkstatus+1) ~ 1,    maxiter=50000, nclass=3,    nrep=10, data=ds)

This generates the following output:
Model 1: llik = -1032.889 ... best llik = -1032.889Model 2: llik = -1032.889 ... best llik = -1032.889Model 3: llik = -1032.484 ... best llik = -1032.484Model 4: llik = -1032.889 ... best llik = -1032.484Model 5: llik = -1032.889 ... best llik = -1032.484Model 6: llik = -1032.484 ... best llik = -1032.484Model 7: llik = -1032.484 ... best llik = -1032.484Model 8: llik = -1032.889 ... best llik = -1032.484Model 9: llik = -1032.889 ... best llik = -1032.484Model 10: llik = -1032.889 ... best llik = -1032.484Conditional item response (column) probabilities, by outcome variable, for each class (row)  $homeless Pr(1) Pr(2)class 1: 0.2703 0.7297class 2: 1.0000 0.0000class 3: 0.5625 0.4375$cesdcut           Pr(1)  Pr(2)class 1:  0.1154 0.8846class 2:  0.4213 0.5787class 3:  0.1678 0.8322$satreat Pr(1) Pr(2)class 1: 0 1class 2: 0 1class 3: 1 0$linkstatus           Pr(1)  Pr(2)class 1:  0.6029 0.3971class 2:  1.0000 0.0000class 3:  0.5855 0.4145Estimated class population shares  0.2162 0.0785 0.7053  Predicted class memberships (by modal posterior prob.)  0.181 0.1137 0.7053  ========================================================= Fit for 3 latent classes: ========================================================= number of observations: 431 number of estimated parameters: 14 residual degrees of freedom: 1 maximum log-likelihood: -1032.484  AIC(3): 2092.967BIC(3): 2149.893G^2(3): 1.221830 (Likelihood ratio/deviance statistic) X^2(3): 1.233247 (Chi-square goodness of fit)

The results are consistent with those found in proc lca. We note that, also similar to proc lca the global maximum likelihood estimates were reached 3 times out of 10-- this can be discerned by examination of the 10 model results. It's always a good idea to fit a large number of iterations to ensure that the global maximum likelihood estimates have been reached.

R-bloggers.com offers daily e-mail updates about R news and tutorials on topics such as: visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...