Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library(NlsyLinks)
## -----------------------------------------------------------------------------
subset(Links79Pair, RelationshipPath == "Gen2Siblings" & R == .75)
## ---- results='hide'----------------------------------------------------------
dsLinks <- Links79PairExpanded
isGen2Sib <- dsLinks$RelationshipPath == "Gen2Siblings"
olderFullYoungerHalf <- (dsLinks$RExplicitOlderSibVersion == .5 &
dsLinks$RExplicitYoungerSibVersion == .25)
olderHalfYoungerFull <- (dsLinks$RExplicitOlderSibVersion == .25 &
dsLinks$RExplicitYoungerSibVersion == .5)
dsLinks[isGen2Sib & (olderFullYoungerHalf | olderHalfYoungerFull), ]
## -----------------------------------------------------------------------------
library(NlsyLinks)
filePathOutcomes <- file.path(path.package("NlsyLinks"), "extdata", "gen1-life-course.csv")
## -----------------------------------------------------------------------------
dsDemographics <- ReadCsvNlsy79Gen1(filePathOutcomes)
summary(dsDemographics)
## -----------------------------------------------------------------------------
dsDemographics <- RenameNlsyColumn(dsDemographics, "R0214700", "Race")
dsDemographics <- RenameNlsyColumn(dsDemographics, "R0214800", "Gender")
## -----------------------------------------------------------------------------
# The official documentation calls this last level "NON-BLACK, NON-HISPANIC"
dsDemographics$Race <- factor(
x = dsDemographics$Race,
levels = 1:3,
labels = c("Hispanic", "Black", "NBNH")
)
dsDemographics$Gender <- factor(
x = dsDemographics$Gender,
levels = 1:2,
labels = c("Male", "Female")
)
## -----------------------------------------------------------------------------
library(NlsyLinks)
filePathOutcomes <- file.path(path.package("NlsyLinks"), "extdata", "gen2-birth.csv")
dsDemographics <- ReadCsvNlsy79Gen2(filePathOutcomes) # Notice this function is for Gen2.
# summary(dsDemographics) #Uncomment to see the summary
dsDemographics <- RenameNlsyColumn(dsDemographics, "C0005300", "Race")
dsDemographics <- RenameNlsyColumn(dsDemographics, "C0005400", "Gender")
dsDemographics$Race <- factor(
x = dsDemographics$Race,
levels = 1:3,
labels = c("Hispanic", "Black", "NBNH")
)
dsDemographics$Gender <- factor(
x = dsDemographics$Gender,
levels = 1:2,
labels = c("Male", "Female")
)
## ---- eval=FALSE--------------------------------------------------------------
# dsCombined <- merge(x = dsDemographics, y = dsOutcomes, by = "SubjectTag", all = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.