apply-to-df.R

#
# Convert apply() result to data.frame
#

# Sample data frame
df <- data.frame(A = c(1, 2, 3),
                 B = c(4, 5, 6))

# Sample function
calculate_sum <- function(row) {
  sum(row)
}

# Apply function
result <- apply(df, 1, calculate_sum)

# Convert to data.frame
result_df <- do.call(rbind, lapply(result, as.data.frame))

print(result_df)