NELS {copulaData} | R Documentation |

## National Education Longitudinal Study Data

### Description

Random sample of size 1000 from the US National Education Longitudinal Study (NELS) data containing the mathematics, science and reading scores, together with covariates, of 8th graders in 1988.

### Usage

```
data("NELS88")
```

### Format

`data.frame`

containing the identification
number of the school to which the student belongs (`ID`

),
the standardized score of the student on a
mathematics achievement test (`Math`

; rescaled by an Item
Response Theory (IRT) method where a higher score indicates greater
proficiency in mathematics), the standardized
score of the student on a science achievement test (`Science`

),
the standardized score of the student on a reading achievement test
(`Reading`

), a factor indicating whether the student is a member
of an ethnic minority group (`Minority`

), a numeric measure of
the socio-economic status of the student and family (`SES`

), a
factor indicating whether the student is female (`Female`

), a
factor indicating whether the school is publicly funded
(`Public`

), the size of the student's school (`Size`

),
a factor indicating whether the school is located in an urban environment
(`Urban`

) and a factor indicating whether the school is located in a
rural environment (`Rural`

).

### Source

Edward W. Frees, ‘Student Achievement Data’ in https://sites.google.com/a/wisc.edu/jed-frees/tutorial-multivariate-regression-using-copulas.

Originally, the National Center for Education Statistics page, https://nces.ed.gov/surveys/nels88/

### Examples

```
data("NELS88")
str(NELS88)
ftable(xtabs(~ Urban+Rural + Public, NELS88))#
## Add more sensible variable, ordered factor rural < agglo < urban
NELS88. <- within(NELS88, {
UR <- factor(Urban:Rural, labels = c("agglo", "rural", "urban"))
Urbanity <- ordered(UR, levels = c("rural", "agglo", "urban"))
rm(UR) })
unique(NELS88.[, c("Urban","Rural", "Urbanity")]) # indeed, just 3 combination cases
xtabs(~ Minority+Urbanity, NELS88.) # (_not_ independent)
ftable(xtabs(~ Public+Urbanity+Female+Minority, NELS88.) -> tab.)
summary(tab.) # very very clearly not independent
```

*copulaData*version 0.0-2 Index]