Cannot calculate reliability for Diary Data

Dear Davo,

Thank you for the reply!

I am not sure if this what you are talking about, but here it is:

 [1] "Day"                        
  [2] "Register"                   
  [3] "Code"                       
  [4] "StartDate"                  
  [5] "EndDate"                    
  [6] "Status"                     
  [7] "IPAddress"                  
  [8] "Progress"                   
  [9] "Duration__in_seconds_"      
 [10] "Finished"                   
 [11] "RecordedDate"               
 [12] "ResponseId"                 
 [13] "RecipientLastName"          
 [14] "RecipientFirstName"         
 [15] "RecipientEmail"             
 [16] "ExternalReference"          
 [17] "LocationLatitude"           
 [18] "LocationLongitude"          
 [19] "DistributionChannel"        
 [20] "UserLanguage"               
 [21] "M_SP"                       
 [22] "M_SP.0"                     
 [23] "M_SP.1"                     
 [24] "M_SP.2"                     
 [25] "M_SP.3"                     
 [26] "M_Motives_SP"               
 [27] "M_Motives_SP_8_TEXT" 

Then I had some for the afternoon. For example:

 [58] "A_WI_F_Vic_1"               
 [59] "A_WI_F_Vic_2"               
 [60] "A_WI_F_Vic_3"               
 [61] "A_WI_F_Vic_4"               
 [62] "A_WI_F_Exp_1" 

` = 1, 
    `Slightly delayed
2
` = 2, `Markedly delayed
3
` = 3, `Very delayed or did not sleep at all
4
` = 4
    ), class = c("haven_labelled", "vctrs_vctr", "double")), 
    m_sp.0 = structure(c(2, 3, NA, NA, 1, NA), label = "2.\tAwakenings during the night", format.spss = "F40.0", display_width = 5L, labels = c(`No problem
1
` = 1, 
    `Minor problem
2
` = 2, `Considerable problem

3
` = 3, `Serious problem or did not sleep at all
4
` = 4
    ), class = c("haven_labelled", "vctrs_vctr", "double")), 
    m_sp.1 = structure(c(1, 3, NA, NA, 1, NA), label = "3.\tFinal awakening earlier than desired", format.spss = "F40.0", display_width = 5L, labels = c(`Not earlier
1
` = 1, 
    `A little earlier
2
` = 2, `Markedly earlier
3
` = 3, `Much earlier or did not sleep at all
4
` = 4
    ), class = c("haven_labelled", "vctrs_vctr", "double")), 
    m_sp.2 = structure(c(2, 3, NA, NA, 1, NA), label = "4.\tTotal sleep duration", format.spss = "F40.0", display_width = 5L, labels = c(`Sufficient
1
` = 1, 
    `Slightly insufficient
2
` = 2, `Markedly insufficient
3
` = 3, 
    `Very insufficient or did not sleep at all
4
` = 4), class = c("haven_labelled", 
    "vctrs_vctr", "double")), m_sp.3 = structure(c(3, 2, NA, 
    NA, 1, NA), label = "5.\tOverall quality of sleep (no matter how long you slept)", format.spss = "F40.0", display_width = 5L, labels = c(`Satisfactory
1
` = 1, 
    `Slightly unsatisfactory
2
` = 2, `Markedly unsatisfactory
3
` = 3, 
    `Very unsatisfactory or did not sleep at all
4
` = 4), class = c("haven_labelled", 
    "vctrs_vctr", "double")), m_motives_sp = structure(c(8, 3, 
    NA, NA, 1, NA), label = "Were there any factors/events that may have interfered with your sleep last night? - Selected Choice", format.spss = "F40.0", display_width = 5L, labels = c(`No, there were not
1` = 1, 
    `Features of the room (e.g., temperature, light, air quality)
2
` = 2, 
    `University Duties (e.g., studying, group work)
3
` = 3, 
    `Professional Duties (e.g., working late)
4
` = 4, `Socializing events (e.g. going out with friends)
5
` = 5, 
    `Family/Pet obligations (e.g. taking care of a baby, walk a dog in the middle of the night)
6
` = 6, 
    `Sickness
7
` = 7, `Other(s)
8` = 8), class = c("haven_labelled", 
    "vctrs_vctr", "double")), m_motives_sp_8_text = structure(c("to many dreams", 
    "", "", "", "", ""), label = "Were there any factors/events that may have interfered with your sleep last night? - Other(s)\n\n8 - Text", format.spss = "A2000", display_width = 15L)

1
` = 1, 
    `Slightly
2` = 2, `Moderately
3` = 3, `Very
4
` = 4, `Extremely
5
` = 5
    ), class = c("haven_labelled", "vctrs_vctr", "double")), 
    a_wi_f_vic_1 = structure(c(NA, NA, 1, 4, NA, 2), label = "| - 1.\tPaid little attention to my statements or showed little interest in my opinions.", format.spss = "F40.0", display_width = 5L, labels = c(`Completely Disagree
1
` = 1, 
    `Disagree
2
` = 2, `Neither agree, nor disagree
3
` = 3, 
    `Agree
4
` = 4, `Completely Agree
5
` = 5), class = c("haven_labelled", 
    "vctrs_vctr", "double")), a_wi_f_vic_2 = structure(c(NA, 
    NA, 1, 3, NA, 1), label = "| - 2.\tInterrupted or â\u0080\u009cspoke overâ\u0080\u009d me.", format.spss = "F40.0", display_width = 5L, labels = c(`Completely Disagree
1
` = 1, 
    `Disagree
2
` = 2, `Neither agree, nor disagree
3
` = 3, 
    `Agree
4
` = 4, `Completely Agree
5
` = 5), class = c("haven_labelled", 
    "vctrs_vctr", "double")), a_wi_f_vic_3 = structure(c(NA, 
    NA, 1, 4, NA, 1), label = "| - 3.\tIgnored me or failed to speak to me (e.g. gave me â\u0080\u009cthe silent treatmentâ\u0080\u009d).", format.spss = "F40.0", display_width = 5L, labels = c(`Completely Disagree
1
` = 1, 
    `Disagree
2
` = 2, `Neither agree, nor disagree
3
` = 3, 
    `Agree
4
` = 4, `Completely Agree
5
` = 5), class = c("haven_labelled", 
    "vctrs_vctr", "double")), a_wi_f_vic_4 = structure(c(NA, 
    NA, 1, 3, NA, 2), label = "| - 4. Made jokes at my expense.", format.spss = "F40.0", display_width = 5L, labels = c(`Completely Disagree
1
` = 1, 
    `Disagree
2
` = 2, `Neither agree, nor disagree
3
` = 3, 
    `Agree
4
` = 4, `Completely Agree
5
` = 5), class = c("haven_labelled", 
    "vctrs_vctr", "double")), a_wi_f_exp_1 = structure(c(NA, 
    NA, NA, 2, NA, 2), label = "| - â\u0080\u009cI was expecting these behaviours from my class colleague(s)â\u0080\u009d.", format.spss = "F40.0", display_width = 5L, labels = c(`Completely Disagree
1
` = 1, 
    `Disagree
2
` = 2, `Neither agree, nor disagree
3
` = 3, 
    `Agree
4
` = 4, `Completely Agree
5
` = 5), class = c("haven_labelled", 
    "vctrs_vctr", "double")), a_wi_f_wi1_1 = structure(c(NA, 
    NA, 1, 3, NA, 1), label = "| - I witnessed any of the upper four behaviours (items from 1 to 4). Eg. A colleague that interrupted or â\u0080\u009cspoke overâ\u0080\u009d another colleague.", format.spss = "F40.0", display_width = 5L, labels = c(`Completely Disagree)

Since the first comment, I have added a column with "days" that goes from 1-5 (monday to friday) and a column with registers (1-10, as it was 2 times per day).
I though it could help.

When I calculate RkF i get this:

There were 50 or more warnings (use warnings() to see the first 50)
> mlr(base_w_2v, grp = "code", Time = "register", items = (21:25))
At least one item had no variance  when finding alpha for subject = 2. Proceed with caution
Error in stack.data.frame(xx[items]) : no vector columns were selected
In addition: Warning messages:
1: In cov2cor(C) :
  diag(.) had 0 or NA entries; non-finite result is doubtful
2: In xtfrm.data.frame(x) : cannot xtfrm data frames
3: In xtfrm.data.frame(x) : cannot xtfrm data frames

Sorry if I don´t explain too well. I have very limited knowledge both in statistics and in R.