>a=sample(1:100,replace=TRUE)
> a
[1] 41 41 79 19 40 33 61 20 60 70 73 20 24 47 70 33 77 82 79 68 28 63 6 41 47
[26] 73 16 25 25 37 91 33 51 62 91 62 56 39 6 64 37 2 10 80 52 63 65 51 71 13
[51] 5 27 48 42 31 89 89 83 32 76 90 65 13 38 45 86 41 69 38 64 32 71 56 7 85
[76] 15 51 69 55 70 84 83 45 69 25 41 26 51 18 21 81 74 50 60 7 69 62 29 71 63
> class(a)
[1] "integer"
> as.numeric(a)
[1] 41 41 79 19 40 33 61 20 60 70 73 20 24 47 70 33 77 82 79 68 28 63 6 41 47
[26] 73 16 25 25 37 91 33 51 62 91 62 56 39 6 64 37 2 10 80 52 63 65 51 71 13
[51] 5 27 48 42 31 89 89 83 32 76 90 65 13 38 45 86 41 69 38 64 32 71 56 7 85
[76] 15 51 69 55 70 84 83 45 69 25 41 26 51 18 21 81 74 50 60 7 69 62 29 71 63
> mean(as.numeric(sample(1:100,replace=TRUE)))
[1] 50.87
>