cte <- function(X) {
  return(1.0)
}