testset<-c(0.425, 0.4758, 0.8893, 0.7684, 0.8031, 0.6657, 0.5592, 0.7207, 0.6674, 0.8323, 0.7829, 0.8398, 0.8669, 0.4804, 0.4941, 0.4316, 0.8239, 0.8461, 0.8713, 0.4195, 0.8932, 0.8229, 0.8936, 0.5011, 0.5006, 0.8493, 0.4846, 0.7783, 0.5326, 0.4964, 0.891, 0.5286, 0.4561, 0.9065, 0.8159, 0.7819, 0.8384, 0.7775, 0.6252, 0.7413, 0.6116, 0.7785, 0.844, 0.7061, 0.7783, 0.841, 0.6387, 0.5684, 0.8897, 0.8931, 0.839, 0.5128, 0.8101, 0.5926, 0.8853, 0.6804, 0.6505, 0.8359, 0.6545, 0.6274, 0.8736, 0.6687, 0.8907, 0.5888, 0.5853, 0.9211, 0.8875, 0.8038, 0.7797, 0.8209, 0.7644, 0.7879, 0.9447, 0.8359, 0.581, 0.6442, 0.9422, 0.793, 0.9445, 0.5992, 0.6297, 0.8063, 0.7079, 0.4788, 0.9207, 0.9282, 0.4716, 0.8199, 0.9224, 0.499, 0.9443, 0.6516, 0.8972, 0.6386, 0.8611, 0.7079, 0.743, 0.9249, 0.763, 0.8799, 0.7054, 0.9267, NA, 0.8394, 0.8261, 0.687, 0.7038, 0.858, 0.913, 0.8159, 0.8027, 0.8324, 0.8316, 0.8987)