csJob <- configTable(d.jobsecurity)
fs2cs(csJob)
fs2cs(d.jobsecurity) # data.frame
dJob1 <- d.jobsecurity[1, ]
fs2cs(dJob1) # L=0.57 --> L=1
fs2cs(dJob1, cutoff = 0.6) # --> L=0
fs2cs(dJob1, cutoff = 0.57) # --> L=1 (since border="up" by default)
fs2cs(dJob1, cutoff = 0.57,
border = "down") # --> L=0
Run the code above in your browser using DataLab