# adjectives: A Dataset for Factor Analysis In ACSWR: A Companion Package for the Book "A Course in Statistics with R"

## Description

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.

## Usage

 `1` ```data(adjectives) ```

## Format

A data frame with 7 observations on the following 6 variables.

`People`

a factor with levels `FATHER` `FSM1a` `FSM2` `FSM3` `MSMb` `SISTER` `TEACHER`

`Kind`

a numeric vector

`Intelligent`

a numeric vector

`Happy`

a numeric vector

`Likeable`

a numeric vector

`Just`

a numeric vector

## References

Rencher, A.C. (2002). Methods of Multivariate Analysis, 2e. J. Wiley.

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20``` ```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) ```

ACSWR documentation built on May 29, 2017, 8:41 p.m.