prob <- list( normal = c(0.35, 0.40, 0.20, 0.05), # A,B,C,D 一般题目 reverse = c(0.05, 0.15, 0.40, 0.40), # 测谎题 somatic = c(0.50, 0.35, 0.10, 0.05), # 身体症状 social = c(0.30, 0.45, 0.20, 0.05) # 社交焦虑 ) 生成框架 tibble( # ==== 学习焦虑 ==== Q4 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q5 = sample(LETTERS[1:4], n, prob = c(0.25,0.45,0.25,0.05), replace = TRUE), Q6 = sample(LETTERS[1:4], n, prob = prob$social, replace = TRUE), Q7 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q8 = sample(LETTERS[1:4], n, prob = c(0.40,0.35,0.20,0.05), replace = TRUE),
==== 对人焦虑 ====
Q9 = sample(LETTERS[1:4], n, prob = prob$social, replace = TRUE), Q10 = sample(LETTERS[1:4], n, prob = prob$social, replace = TRUE), Q11 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q12 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q13 = sample(LETTERS[1:4], n, prob = prob$reverse, replace = TRUE), # 测谎
==== 孤独倾向 ====
Q14 = sample(LETTERS[1:4], n, prob = c(0.45,0.35,0.15,0.05), replace = TRUE), Q15 = sample(LETTERS[1:4], n, prob = c(0.50,0.30,0.15,0.05), replace = TRUE), Q16 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q17 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE),
==== 自责倾向 ====
Q18 = sample(LETTERS[1:4], n, prob = c(0.30,0.40,0.25,0.05), replace = TRUE), Q19 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q20 = sample(LETTERS[1:4], n, prob = c(0.35,0.40,0.20,0.05), replace = TRUE), Q21 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE),
==== 过敏倾向 ====
Q22 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q23 = sample(LETTERS[1:4], n, prob = c(0.40,0.35,0.20,0.05), replace = TRUE), Q24 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q25 = sample(LETTERS[1:4], n, prob = prob$reverse, replace = TRUE), # 测谎 Q26 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE),
==== 身体症状 ====
Q27 = sample(LETTERS[1:4], n, prob = prob$somatic, replace = TRUE), Q28 = sample(LETTERS[1:4], n, prob = prob$somatic, replace = TRUE), Q29 = sample(LETTERS[1:4], n, prob = prob$somatic, replace = TRUE), Q30 = sample(LETTERS[1:4], n, prob = prob$somatic, replace = TRUE),
==== 恐怖倾向 ====
Q31 = ifelse(base_info$年级 %in% 3:4, sample(LETTERS[1:4], n, prob = c(0.4,0.3,0.2,0.1), replace = TRUE), sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE)), Q32 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q33 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q34 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE),
==== 冲动倾向 ====
Q35 = ifelse(base_info$性别 == “男”, sample(LETTERS[1:4], n, prob = c(0.6,0.3,0.08,0.02), replace = TRUE), sample(LETTERS[1:4], n, prob = c(0.4,0.4,0.15,0.05), replace = TRUE)), Q36 = sample(LETTERS[1:4], n, prob = c(0.55,0.30,0.10,0.05), replace = TRUE), Q37 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE), Q38 = sample(LETTERS[1:4], n, prob = prob$normal, replace = TRUE),克隆巴赫太小这段要怎么改才能让克隆巴赫大于0.6
最新发布