Транспонирование фрейма данных с сохранением первого столбца в качестве заголовка

У меня есть большой фрейм данных, но небольшой пример: вот так:

mydf <- data.frame(A = c(letters[1:10]), M1 = c(11:20), M2 = c(31:40), M3 = c(41:50))

Я хочу транспонировать фрейм данных и сохранить столбец 1 (A) в качестве заголовка столбца (буква [1:10]) в качестве имен переменных. Ниже приведены скретч-тесты неудачных кодов.

tmydf = data.frame(t(mydf))
names(tmydf) <- tmydf[1,]

Спасибо;