data(results)
#Summarize results
summary(results)
##Plot posterior distribution of var(A)
plotbayestwin(results$samples_var_a)
##Plot 95% credibility region of GxE interaction effect
geplot(results$var_a, results$samples_beta0, results$samples_beta1)
##Simulate data
data = simulate(irt_model = "1PL", var_a = 0.5, var_c = 0.3, ge_beta0 = log(0.2),
ge = TRUE)
data_mz = data$y_mz
data_dz = data$y_dz
##Run analysis
results = IRTtwin(data_mz, data_dz, 1:20, 21:40, ge = TRUE)
##Summarize results:
summary(results)
##Plot trace lines for var(A)
plotbayestwin(results$samples_var_a, type = "trace")
##Plot posterior distribution of var(A)
plotbayestwin(results$samples_var_a)
##Plot 95% credibility region of GxE interaction effect
geplot(results$var_a, results$samples_beta0, results$samples_beta1)
Run the code above in your browser using DataLab