btrue <-
c(-0.264547705008077, 0.648427878533117, -0.348119682962827, 
-0.8017541047264, 1.40007220392219, 1.2807994096491, 0.7291685391767, 
-0.671423984065027, -0.611431494212144, 1.29394631299766)
lnatrue <-
c(0.0476387492090415, 0.795997940149361, 0.645667166162376, 0.0951405901752131, 
0.183003819393273, 0.452195207193981, -0.754331913375436, 0.368635945624921, 
-0.634582528168393, -0.0362834000036211)