“columna R a los nombres” Código de respuesta

columna R a los nombres

samp2 <- samp[,-1]
rownames(samp2) <- samp[,1]