samples(cuff)
sample_index sample_name sample_name parameter value
1            1          q1        <NA>      <NA>  <NA>
2            2          q2        <NA>      <NA>  <NA>
3            3          q3        <NA>      <NA>  <NA>
4            4          q4        <NA>      <NA>  <NA>
5            5          q5        <NA>      <NA>  <NA>

> samples(cuff) <- c("Batis", "Blue_silver","Chakwal_50","Local_white","Syn_22")
Error in samples(cuff) <- c("Batis", "Blue_silver", "Chakwal_50", "Local_white",  :
could not find function "samples<-"