rm(mydata) mydata <- read.table(file=paste("c:/jason/mplus/semclass", "vigact.dat", sep="/")) names_dat <- "w1vigact w3vigact w5vigact w1health w3health w5health" names(mydata) <- toupper(unlist(strsplit(names_dat, " "))) rm(names_dat) library(psych) describe(mydata) library(lavaan)