视频|R语言编码风格

测试开头

第三节视频：《R语言编码风格》。前两节视频如下：

学习和使用R语言，肯定会要写R脚本，如何写一份好的R代码？关于这个问题，请大家留言和讨论。我的建议是，请了解，掌握和遵守一份R语言编码风格。我在写R代码的过程中，尽量让自己的R代码符合谷歌公司的R语言编码风格指南。我结合我自己的实际情况，在本节视频详细说了一些我所用到的约定。视频如下，您在看是视频的过程中，有什么想法或者建议，请给我留言，谢谢支持。

我所用的约定，归总起来就是：1）R脚本的命名；2）标识符的命名；3）缩写和赋值符号；4）R脚本组织和布局；5）注释和自定义函数的编写。尤其是Google编码风格指南里面所写的示例函数，我强烈推荐大家在R代码中写自定义函数的时候严格按着个约定来说。

示例函数

CalculateSampleCovariance <- function(x, y, verbose = TRUE) {
  # Computes the sample covariance between two vectors.
  #
  # Args:
  #   x: One of two vectors whose sample covariance is to be calculated.
  #   y: The other vector. x and y must have the same length, greater than one,
  #      with no missing values.
  #   verbose: If TRUE, prints sample covariance; if not, not. Default is TRUE.
  #
  # Returns:
  #   The sample covariance between x and y.
  n <- length(x)
  # Error handling
  if (n <= 1 || n != length(y)) {
    stop("Arguments x and y have different lengths: ",
         length(x), " and ", length(y), ".")
  }
  if (TRUE %in% is.na(x) || TRUE %in% is.na(y)) {
    stop(" Arguments x and y must not have missing values.")
  }
  covariance <- var(x, y)
  if (verbose)
    cat("Covariance = ", round(covariance, 4), ".n", sep = "")
  return(covariance)
}