       [
 
        ]}))
+
+(def questions-long
+  )
+
+
+

(ns simulacrum.ipip
  (:require [simulacrum.bigfive :refer [domains questions-base]]))


(def facets

   :N5 "Immoderation"
   :N6 "Vulnerability"})

(def five-point-compatibility-matrix-model-1
  "The problems observed with this model were:
    * "
  (matrix/matrix
    [[5 3 4 4 2]
     [3 5 2 4 3]
     [4 2 5 3 2]
     [3 4 4 5 3]
     [3 2 1 3 5]]))

(def five-point-compatibility-matrix-model-2
  "This model exhibits the following properties:
    * "
  (matrix/matrix
    [[5 3 4 4 2]
     [2 5 3 4 1]
     [4 2 5 3 2]
     [3 4 4 5 3]
     [3 2 1 3 5]]))

(def five-point-compatibility-matrix
  "The columns of the compatibilty matrices follow the order of the OCEAN
  acronym:
    1) Openness, 2) Conscientiousness, 3) Extraversion, 4) Agreeableness,
    5) Neuroticism.
  Similarly, the rows number in the same order.

  This function simply points to the matrix that provides the best default
  model for compatibilty.
  For more informtaion, see docs/compat.rst."
  five-point-compatibility-matrix-model-2)

(def signed-compatibility-matrix
  "Convert the compatibilty matrix to one whose values range from -2 to 2, with
  the neurtal value being 0."
  (sub five-point-compatibility-matrix const/mid-value))

(def normalized-compatibility-matrix
  "Convert the compatibilty matrix to one whose values have been normalized."
  (matrix/emap
    float
    (div five-point-compatibility-matrix const/max-value)))

(def questions-short
  (conj
    questions-base
