Classification

This note contains a brief description of the algorithm used to determine zygocity in recruitment in the 2000s.

NameAnswer questions about...Used for
DropYou and your twin were like two drops of water in childhoodPairs and singles
StrangerStrangers had trouble telling the difference when you were childrenPairs and singles
EyeSimilarity in terms of eye colorPairs
VoiceSimilarity in terms of voiceSingle
DexterSimilarity in DexterityPairs and Singles
BeliefWhat you believe yourselfPairs and Singles

"Single" twins here means those who have responded alone, i.e. there is no data available for both in the pair. The similarity questions that are not found in the table above, e.g. whether or not family members had problems distinguishing the twins is not used in the classification.

Weights

During calculations of the entire zygocity score, weights are applied to the different categories, depending on whether one or both twins have responded to the questionnaire.

NameAnswer questions about...Factor singleFactor pair
DropYou and your twin were like two drops of water1.4942.111
StrangerStrangers had trouble seeing the difference0.6470.691
EyeSimilarity in terms of eye color0.394
VoiceSimilarity in terms of voice0.347
DexterDexterity Similarity0.4580.366
BeliefWhat you believe yourself0.4170.481
Constant term in the formula0.007- 0.087
zygo_calc(x, type, n = "single", recode = TRUE)

Arguments

x

integer vector of answers to one of the questionnaire questions. Should not be longer than 2.

type

type of question the vector is from. "drop", "stranger, "dexterity", "voice", "eye", or "belief".

n

string indicating number of twins in the pair available. Either "single" or "pair".

recode

logical indicating if data should be recoded from 1-5(7) to -1. 0. 1.

Value

single value of calculated score based on recoded vector and multiplied with correct factor weight.

Examples

zygo_calc(c(1), type = "eye")
#> Warning: Cannot calculate 'eye' for 'single' data
#> [1] NA
zygo_calc(c(1,3), type = "belief", n = "pair")
#> [1] 0.2405
zygo_calc(c(4), type = "voice")
#> [1] 0