Now it should be correct i think:
datapasta::df_paste(head(DNAMorfR, 9)[, c('Time', 'Patient', 'Normal morphology (%)')])
data.frame(
Patient = c("1","1","1","2","2","2","3","3","3"),
Normal morphology (%) = c(7, 2, 3, 1, 3, 3, 6, 7, 8),
Time = as.factor(c("Week 1","Week 2","Week 3","Week 1",
"Week 2","Week3 ","Week 1","Week 2",
"Week 3")))