假设你已经将实验数据存储在一个名为"experiment_data"的数据框中，其中包含3个区组和12个家系的数据。下面是一段可用于计算一般配合力和特殊配合力的R语言代码： R # 计算一般配合力 gen_comb <- combn(1:12, 2) # 生成家系组合 gen_comb <- t(gen_comb) gen_comb <- as.data.frame(gen_comb) gen_comb$gca1 <- apply(gen_comb[, 1:2