R version 3.0.2 (2013-09-25) -- "Frisbee Sailing"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 
> RC.capture <- function (expression, collapse = NULL) {
+     resultConn <- textConnection('RC.resultText', open = 'w', local=TRUE)
+     sink(resultConn)
+     on.exit(function() {
+         sink()
+         close(resultConn)
+     })
+     expression
+     on.exit(NULL)
+     sink()
+     close(resultConn)
+     return(paste(c(RC.resultText, ''), collapse = collapse, sep = ''))
+ }
> RC.texteval <- function (sourceText, collapse = NULL, echo = TRUE) {
+     sourceConn <- textConnection(sourceText, open = 'r')
+     on.exit(close(sourceConn))
+     result <- RC.capture(source(file = sourceConn, local = FALSE, echo = echo, print.eval = TRUE), collapse = collapse)
+     on.exit(NULL)
+     close(sourceConn)
+     res <- ''
+     for(i in 1:length(result)) {
+       if (result[i]!='') res <- paste(res,result[i],'
+ ',sep='')
+     }
+     return(res)
+ }
> y <- c(165.89
+ ,9.18
+ ,79.84
+ ,101.88
+ ,136.56
+ ,45.27
+ ,35.48
+ ,6.62
+ ,40.47
+ ,19.38
+ ,92.68
+ ,26.05
+ ,52.13
+ ,5.61
+ ,47.88
+ ,347.93
+ ,67.22
+ ,205.73
+ ,601.39
+ ,359.43
+ ,37.78
+ ,436.79
+ ,65.39
+ ,282.10
+ ,20.21
+ ,22.94
+ ,13.44
+ ,31.45
+ ,33.79
+ ,130.22
+ ,33.38
+ ,49.93
+ ,128.34
+ ,68.09
+ ,49.64
+ ,21.56
+ ,166.85
+ ,63.48
+ ,72.70
+ ,28.38
+ ,43.04
+ ,154.14
+ ,59.63
+ ,51.50
+ ,43.35
+ ,41.67
+ ,39.08
+ ,522.74
+ ,184.53
+ ,297.43
+ ,120.95
+ ,69.09
+ ,133.89
+ ,59.98
+ ,223.17
+ ,13.73
+ ,209.02
+ ,88.15
+ ,40.28
+ ,18.43
+ ,28.17
+ ,56.45
+ ,201.51
+ ,10.21
+ ,116.81
+ ,148.53
+ ,58.84
+ ,77.50
+ ,112.12
+ ,48.95
+ ,47.36
+ ,160.35
+ ,7.96
+ ,37.13
+ ,18.93
+ ,104.64
+ ,21.73
+ ,63.37
+ ,4.88
+ ,54.05
+ ,348.71
+ ,70.65
+ ,231.20
+ ,374.92
+ ,29.08
+ ,441.02
+ ,74.13
+ ,47.60
+ ,40.82
+ ,65.21
+ ,332.60
+ ,28.70
+ ,125.37
+ ,51.88
+ ,62.16
+ ,136.05
+ ,70.46
+ ,47.58
+ ,18.59
+ ,172.65
+ ,74.64
+ ,30.87
+ ,45.82
+ ,155.32
+ ,62.41
+ ,49.76
+ ,38.51
+ ,49.52
+ ,46.62
+ ,508.54
+ ,197.04
+ ,326.15
+ ,158.38
+ ,149.50
+ ,64.06
+ ,226.83
+ ,119.28
+ ,14.84
+ ,230.15
+ ,99.53
+ ,66.00
+ ,197.53
+ ,90.68
+ ,45.29
+ ,15.74
+ ,57.74
+ ,47.32
+ ,43.56
+ ,68.88
+ ,9.51
+ ,50.75
+ ,15.71
+ ,167.70
+ ,144.08
+ ,62.42
+ ,79.58
+ ,113.17
+ ,135.90
+ ,62.67
+ ,55.05
+ ,156.67
+ ,41.85
+ ,17.05
+ ,106.33
+ ,17.26
+ ,84.28
+ ,4.19
+ ,59.24
+ ,365.42
+ ,62.96
+ ,258.74
+ ,605.71
+ ,375.67
+ ,20.70
+ ,410.27
+ ,83.55
+ ,65.90
+ ,42.89
+ ,64.27
+ ,302.61
+ ,47.92
+ ,126.98
+ ,52.77
+ ,79.86
+ ,134.14
+ ,67.29
+ ,46.36
+ ,21.57
+ ,199.34
+ ,73.39
+ ,31.63
+ ,73.25
+ ,155.85
+ ,59.65
+ ,55.35
+ ,43.28
+ ,47.21
+ ,532.70
+ ,187.93
+ ,336.20
+ ,156.39
+ ,69.50
+ ,160.84
+ ,81.32
+ ,123.02
+ ,14.66
+ ,245.81
+ ,102.64
+ ,44.76
+ ,102.55
+ ,213.80
+ ,102.31
+ ,54.74
+ ,28.83
+ ,57.62
+ ,54.17
+ ,76.39
+ ,63.38
+ ,59.45
+ ,15.56
+ ,185.46
+ ,164.88
+ ,61.22
+ ,89.07
+ ,49.89
+ ,120.19
+ ,89.93
+ ,57.05
+ ,149.03
+ ,6.77
+ ,57.94
+ ,18.96
+ ,48.04
+ ,18.73
+ ,51.14
+ ,284.48
+ ,58.60
+ ,584.48
+ ,370.18
+ ,17.70
+ ,424.96
+ ,83.77
+ ,79.15
+ ,69.63
+ ,328.02
+ ,87.33
+ ,93.34
+ ,151.00
+ ,71.43
+ ,54.17
+ ,19.47
+ ,88.78
+ ,34.77
+ ,86.75
+ ,71.91
+ ,65.13
+ ,45.27
+ ,526.69
+ ,209.80
+ ,374.72
+ ,164.75
+ ,66.07
+ ,168.21
+ ,60.57
+ ,212.78
+ ,134.68
+ ,14.83
+ ,258.62
+ ,96.51
+ ,44.78
+ ,220.44
+ ,126.21
+ ,62.96
+ ,31.64
+ ,20.02
+ ,53.15
+ ,84.75
+ ,74.07
+ ,1.44
+ ,45.04
+ ,383.94
+ ,189.89
+ ,245.06
+ ,397.59
+ ,185.06
+ ,339.35
+ ,131.76
+ ,55.16
+ ,298.14
+ ,144.40
+ ,79.48
+ ,112.71
+ ,269.16
+ ,191.93
+ ,775.30
+ ,284.12
+ ,480.56
+ ,366.83
+ ,274.81
+ ,708.45
+ ,450.91
+ ,548.10
+ ,623.20
+ ,147.62
+ ,184.14
+ ,207.59
+ ,183.55
+ ,419.09
+ ,166.73
+ ,221.77
+ ,121.34
+ ,136.11
+ ,297.50
+ ,168.64
+ ,86.64
+ ,126.75
+ ,399.37
+ ,222.87
+ ,66.83
+ ,116.55
+ ,111.21
+ ,201.94
+ ,75.00
+ ,149.96
+ ,142.80
+ ,88.12
+ ,752.00
+ ,347.13
+ ,503.74
+ ,256.75
+ ,204.43
+ ,329.21
+ ,77.74
+ ,270.74
+ ,186.22
+ ,176.09
+ ,448.29
+ ,83.80
+ ,194.71
+ ,411.82
+ ,111.74
+ ,265.19
+ ,232.57
+ ,199.79
+ ,211.28
+ ,91.48
+ ,160.45
+ ,120.69)
> x <- c(462.66
+ ,103.13
+ ,265.94
+ ,137.73
+ ,249.37
+ ,400.47
+ ,427.97
+ ,59.34
+ ,133.92
+ ,144.60
+ ,153.77
+ ,102.75
+ ,173.26
+ ,30.22
+ ,280.39
+ ,890.48
+ ,174.62
+ ,784.39
+ ,735.10
+ ,2.639.02
Error: unexpected numeric constant in:
",735.10
,2.639.02"
Execution halted