A Dataset for Factor Analysis
The data set is obtained from Rencher (2002). Here, a 12-year old girl rates 7 of her acquaintances on a differential grade of 1-9 for five adjectives kind, intelligent, happy, likable, and just.
data(adjectives)
A data frame with 7 observations on the following 6 variables.
Peoplea factor with levels FATHER FSM1a FSM2 FSM3 MSMb SISTER TEACHER
Kinda numeric vector
Intelligenta numeric vector
Happya numeric vector
Likeablea numeric vector
Justa numeric vector
Rencher, A.C. (2002). Methods of Multivariate Analysis, 2e. J. Wiley.
data(adjectives) adjectivescor <- cor(adjectives[,-1]) round(adjectivescor,3) adj_eig <- eigen(adjectivescor) cumsum(adj_eig$values)/sum(adj_eig$values) adj_eig$vectors[,1:2] loadings1 <- adj_eig$vectors[,1]*sqrt(adj_eig$values[1]) loadings2 <- adj_eig$vectors[,2]*sqrt(adj_eig$values[2]) cbind(loadings1,loadings2) communalities <- (adj_eig$vectors[,1]*sqrt(adj_eig$values[1]))^2+ (adj_eig$vectors[,2]*sqrt(adj_eig$values[2]))^2 round(communalities,3) specific_variances <- 1-communalities round(specific_variances,3) var_acc_factors <- adj_eig$values round(var_acc_factors,3) prop_var <- adj_eig$values/sum(adj_eig$values) round(prop_var,3) cum_prop <- cumsum(adj_eig$values)/sum(adj_eig$values) round(cum_prop,3)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.