My code:
SCRIPT_REAL ( " a <- (.arg1); b <-(ks.test((a), \'pnorm\', mean(a), sd(a) )); c <- (b[2]); d <- (c[[1]]); d; " , SUM([Data Co