ddplot中的意外符号

Question

我在R中键入此字符，它一直告诉我我有一个意外的符号。救命！

  ddscale <- function(control, treatment){ n <- length(control)

control.scaled <- (control - mean(control[1:(n-1)])) /(sd(control[1:(n-1)])) treatment.hyp <- (control.scaled *(sd(treatment[1:(n-1)]) / sd(control.scaled[1:(n-1)])) +(mean(treatment[1:(n-1)]) - mean(control.scaled[1:(n-1)]))) treatment.hyp}

我已经尝试了一切。在Mac上工作

ddscale <- function(control, treatment){ n <- length(control)control.scaled <- (control - mean(control[1:(n-1)])) /(sd(control[1:(n-1)])) treatment.hyp <- (control.scaled *(sd(treatment[1:(n-1)]) / sd(control.scaled[1:(n-1)])) +(mean(treatment[1:(n-1)]) - mean(control.scaled[1:(n-1)]))) treatment.hyp}

Answer 1

R命令必须用分号（x match { case s"Some($number)" => number.toIntOption case _ => None } // x = "Some(1234)" => Option[Int] = Some(1234) // x = "Some(1S3R)" => Option[Int] = None // x = "None" => Option[Int] = None ）或换行符（source）分隔。您的代码包含多个命令，所有命令都在同一行上，而没有任何命令分隔符。

在这里，我为第一个代码段重新设置了格式，并增加了换行符和缩进以提高可读性：

;

此操作成功使用ddscale <- function(control, treatment) { n <- length(control) control.scaled <- (control - mean(control[1:(n-1)])) / (sd(control[1:(n-1)])) treatment.hyp <- (control.scaled * (sd(treatment[1:(n-1)]) / sd(control.scaled[1:(n-1)])) + (mean(treatment[1:(n-1)]) - mean(control.scaled[1:(n-1)])) ) treatment.hyp } 进行了解析。