R语言中写一个函数function

generate_hydrophobicity_matrix <- function(AA) {
  max_length <- max(nchar(AA))
  data <- matrix(NA, nrow = length(AA), ncol = max_length)
  # 填充矩阵
  for (i in 1:length(AA)) {
    seq <- AA[i]
    amino_acids <- strsplit(seq, "")[[1]]
    kd_values <- kd_scale[amino_acids]
    data[i, 1:length(kd_values)] <- kd_values
  }
  rownames(data) <- AA
  colnames(data) <- -z:z
  return(data)
}
data1 = generate_hydrophobicity_matrix(noPTM)