# NOT RUN {
data(api)
dclus1<-svydesign(id=~dnum, weights=~pw, data=apiclus1, fpc=~fpc)
svykappa(~comp.imp+sch.wide, dclus1)
dclus1<-update(dclus1, stypecopy=stype)
svykappa(~stype+stypecopy,dclus1)
# }
Run the code above in your browser using DataLab