schools: Schools data set (NELS-88)

Description

Data set used by Kreft and De Leeuw in their book Introducing Multilevel Modeling, Sage (1988) to analyse the relationship between math score and time spent by students to do math homework. The data set is a subsample of NELS-88 data consisting of 10 handpicked schools from the 1003 schools in the full data set. Students are nested within schools and information is available both at the school and student level.

Usage

data("schools")

Arguments

Format

A data frame with 260 observations on the following 19 variables.

schid: School ID: a numeric vector identyfing each school.
stuid: The student ID.
ses: Socioeconomic status.
meanses: Mean ses for the school.
homework: The number of hours spent weekly doing homeworks.
white: A dummy for white race (=1) versus non-white (=0).
parented: Parents highest education level.
public: Public school: 1=public, 0=non public.
ratio: Student-teacher ratio.
percmin: Percent minority in school.
math: Math score
sex: Sex: 1=male, 2=female.
race: Race of student, 1=asian, 2=Hispanic, 3=Black, 4=White, 5=Native American.
sctype: Type of school: 1=public, 2=catholic, 3= Private other religion, 4=Private non-r.
cstr: Classroom environment structure: ordinal from 1=not accurate to 5=very much accurate.
scsize: School size: ordinal from 1=[1,199) to 7=[1200+).
urban: Urbanicity: 1=Urban, 2=Suburban, 3=Rural.
region: Geographic region of the school: NE=1,NC=2,South=3,West=4.
schnum: Standardized school ID.

Details

The data set is used in the example section to illustrate the use of functions MatchW and MatchPW.

Examples

Run this code

data(schools)
 
# Kreft and De Leeuw, Introducing Multilevel Modeling, Sage (1988).   
# The data set is the subsample of NELS-88 data consisting of 10 handpicked schools
# from the 1003 schools in the full data set.
 
# To study the effect of the homeworks on the outcome math score, conditional on
# confounder(s) X and unobserved school features, we can define the following variables:

X<-schools$ses 
# or define a vector for more than one confounder
X<-as.matrix(schools[,c("ses","white","public")])
Y<-schools$math
Tr<-ifelse(schools$homework>1,1,0)
Group<-schools$schid