library(NlsyLinks) #Load the package into the current R session.
data(Links79PairExpanded) #Load the dataset from the NlsyLinks package.
olderR <- Links79PairExpanded$RExplicitOlderSibVersion #Declare a concise variable name.
youngerR <- Links79PairExpanded$RExplicitYoungerSibVersion #Declare a concise variable name.
plot(jitter(olderR), jitter(youngerR)) #Scatterplot the siblings' responses.
table(youngerR, olderR) #Table of the relationship between the siblings' responses.
ftable(youngerR, olderR, dnn=c("Younger's Version", "Older's Version")) #A formatted table.
#write.csv(Links79PairExpanded, file='F:/Projects/RDev/NlsyLinksStaging/Links79PairExpanded.csv',
# row.names=FALSE)
Run the code above in your browser using DataLab