ICC tesis_Influencia del operador

#abro el df

df <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=1310878847&single=true&output=csv")

Error in read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=1310878847&single=true&output=csv") : 
  could not find function "read_csv"

#los packages

library("tidyverse")
library("irr")

#Select col 3 y 4

#ICC para el modelo (2do)

icc(df2, model = "twoway", type = "agreement")

 Single Score Intraclass Correlation

   Model: twoway 
   Type : agreement 

   Subjects = 30 
     Raters = 2 
   ICC(A,1) = 1

 F-Test, H0: r0 = 0 ; H1: r0 > 0 
 F(29,29.9) = 5202 , p = 2.71e-48 

 95%-Confidence Interval for ICC Population Values:
  0.999 < ICC < 1