fork download
copy 
  1. x <- c("33.72", "34.72", "35.72", "36.72", "37.72", "29.05", "30.05", "31.05", "32.05", "33.05",
  2.        "34.05", "35.05", "36.05", "37.05", "1.09 ", "2.09 ", "3.09 ", "4.09 ", "5.09 ", "6.09 ",
  3.        "7.09 ", "8.09 ", "9.09 ", "46.86", "1.9 y", "2.9 y", "3.9 y", "4.9 y", "5.9 y", "6.9 y")
  4. as.double(sub("^(\\d+\\.\\d+).*", "\\1", x))
Success #stdin #stdout 0.22s 183680KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 [1] 33.72 34.72 35.72 36.72 37.72 29.05 30.05 31.05 32.05 33.05 34.05 35.05
[13] 36.05 37.05  1.09  2.09  3.09  4.09  5.09  6.09  7.09  8.09  9.09 46.86
[25]  1.90  2.90  3.90  4.90  5.90  6.90
https://ideone.com/tKKzB7
language:
R (R 3.5.2)
created:
6 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!