dsSingleLinks <- data.frame(
ExtendedID=c(1, 1, 1, 2),
Subject1Tag=c(101, 101, 102, 201),
Subject2Tag=c(102, 103, 103, 202),
R=c(.5, .25, .25, .5),
RelationshipPath=rep("Gen2Siblings", 4)
)
dsSingleOutcomes <- data.frame(SubjectTag=c(101, 102, 103, 201, 202), DV1=c(11, 12, 13, 41, 42), DV2=c(21, 22, 23, 51, 52))
dsDouble <- CreatePairLinksDoubleEntered(outcomeDataset=dsSingleOutcomes, linksPairDataset=dsSingleLinks, outcomeNames=c("DV1", "DV2"), validateOutcomeDataset=TRUE)
dsDouble #Show the 8 rows in the double-entered pair links
summary(dsDouble) #Summarize the variables
ValidatePairLinksAreSymmetric(dsDouble) #Should return TRUE.
Run the code above in your browser using DataLab