median of a row dataframe in r

# Row wise median using apply() function
df1$row_median = apply(df1[,-1], 1, median)

# Row wise median, 1: row, 2: column

df1$row_median = apply(df1[,-1], 1, median)