getStudentsFromExtremeSchools: Find schools or students from schools with most extreme...
In pbiecek/PISAtools: A set of tools useful when dealing with PISA data.

Find schools or students from schools with most extreme average of given variable (like ESCS or PV1MATH)

1
2
3

  getExtremeSchools(values, weights, schoolid, cntid, quant=0.2, below=quant<0.5)

  getStudentsFromExtremeSchools(values, weights, schoolid, cntid, quant=0.2, below=quant<0.5)

Przemyslaw Biecek

  library(PISA2009lite)
  sel <- student2009[student2009$OECD == "OECD",]
  # weathiest top10pct of schools
  head(getExtremeSchools(sel$ESCS, sel$W_FSTUWT, sel$SCHOOLID, sel$FAKECNT, 0.9))
  # students from weathiest top10pct of schools
  wsel <- sel[getStudentsFromExtremeSchools(sel$ESCS, sel$W_FSTUWT, sel$SCHOOLID, sel$FAKECNT, 0.1),]
 head(wsel[,1:20])