# filenames
         self.__fn_studentinfo = "data/student_information.tsv"
         self.__fn_daily_calllist = f"data/call_list-{self.today}.tsv"
-        self.__fn_daily_attendence = f"data/attendence-{self.today}.tsv"
+        self.__fn_daily_attendance = f"data/attendance-{self.today}.tsv"
 
     def __load_prev_questions(self):
         previous_questions = defaultdict(int)
         print(weights)
         return choices(list(weights.keys()), weights=list(weights.values()), k=1)[0]
 
-    def __record_attendence(self, students_present):
+    def __record_attendance(self, students_present):
         # if it's the first one of the day, write it out
-        if not os.path.exists(self.__fn_daily_attendence):
-            with open(self.__fn_daily_attendence, "w") as f:
-                print("\t".join(["timestamp", "attendence_list"]), file=f)
+        if not os.path.exists(self.__fn_daily_attendance):
+            with open(self.__fn_daily_attendance, "w") as f:
+                print("\t".join(["timestamp", "attendance_list"]), file=f)
 
         # open for appending the student
-        with open(self.__fn_daily_attendence, "a") as f:
+        with open(self.__fn_daily_attendance, "a") as f:
             print("\t".join([str(datetime.now()),
                              ",".join(students_present)]),
                   file=f)
         selected_student = self.__select_student_from_list(students_present)
 
         # record the called-upon student in the right place
-        self.__record_attendence(students_present)
+        self.__record_attendance(students_present)
         self.__record_coldcall(selected_student)
 
         preferred_name = self.__get_preferred_name(selected_student)
 
 ## read all the folks who have been called and see who is missing from
 ## the google sheet
 
-call.list <- unlist(lapply(list.files(".", pattern="^attendence-.*tsv$"), function (x) {
+call.list <- unlist(lapply(list.files(".", pattern="^attendance-.*tsv$"), function (x) {
     d <- read.delim(x)
     strsplit(d[[2]], ",")
-}))
-
+})
+)
 present <- unique(call.list)
 present[!present %in% gs[["Your.username.on.the.class.Discord.server"]]]