marcuskammer/dev.metalisp.qmetrics
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add comments

Browse source
This commit is contained in:
Marcus Kammer 2024-12-02 19:49:45 +01:00
parent b540eca93c
commit e722342031
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/assessment/sus.lisp
View file

@ -14,6 +14,10 @@
(defun sus-response-entry-process (entry)
(response-entry-process #'response-entry-negative-p #'sus-recode-value entry))
;;;
;;; CALCULATOR
;;;
(defclass sus-calculator (calculator) ())
(defmethod calculator-calc-results ((calc sus-calculator) responses)
@ -24,6 +28,9 @@
:collect (cons :TIMESTAMP
(cons timestamp
(append values (sus-score values))))))
;;;
;;; DISPLAYER
;;;
(defclass sus-displayer (displayer) ())
@ -53,6 +60,9 @@
(with-title-bar "Group Stats"
"Download CSV" (displayer-csv-url disp survey-id "group-stats"))
(render-nested-plist-tbl group-stats))))))
;;;
;;; ASSESSMENT
;;;
(defclass sus-assessment (assessment) ())

7
src/assessment/visawi.lisp
View file

@ -24,6 +24,10 @@ Returns an integer."
(defun visawi-entry-process (entry)
(response-entry-process #'response-entry-negative-p #'visawi-recode-value entry))
;;;
;;; CALCULATOR
;;;
(defclass visawi-calculator (calculator) ())
(defmethod calculator-calc-results ((calc visawi-calculator) responses)
@ -32,6 +36,9 @@ Returns an integer."
:collect (cons :timestamp
(cons timestamp (average-score-per-group #'visawi-entry-process
(rest response))))))
;;;
;;; ASSESSMENT
;;;
(defclass visawi-assessment (assessment) ())