Неожиданный символ в 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 должны быть разделены точкой с запятой (;) или новой строкой ( 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
}

Это успешно анализирует, используя Rscript.