data_zscore_row <- t(apply(sample_data_heatmap, 1, normalize)) data_zscore_both <- apply(data_zscore_row, 2, normalize) ...