q <- c(-4.84597385639727, -4.68570652409503, -4.7460675002035, -5.15286779051671, -3.68771694696549)