Copia y pega el siguiente código en un nuevo R Script
sujeto<-paste0("s",1:18) # paste adds a space between the characters
condicion<-c(rep("Música en vivo",6),rep("Música envasada",6),rep("Sin música",6))
satisfaccion <- c(3,4,1,2,0,2,6,2,4,3,4,5,7,7,5,5,8,4)
df <-data.frame(sujeto,condicion,satisfaccion)
Para visualizar la data puedes
Global EnvironmentView(df)df para verlo en la consola