[R] Signed-Binary transform test (Fisher.test??)

[Jorge Cornejo]

Hi, I was looking for the fisher test to use on my data (no normal, non
symetrical and because is median what i'm looking for I don't what to
made bootstraping) to test the median <> Ho=1, but I'm not sure if
Fisher.test in R is what I need or I just don't know how to use it.
Here is the example data:

data  <- c(0.3, 1.87, 2.46, 1.68, 0.18, 0.76, 0.39, 0.76, 0.6, 0.26,
1.01, 0.48, 0.39, 3.92, 0.58, 0.02, 0.24, 4.53, 0.67, 1.23, 0.39, 1.06,
0.74, 0.3, 0.19, 2.74, 0.59, 0.02, 0.55, 0.62, 0.61, 0.4, 0.12, 0.55,
0.33, 0.18, 3.33, 0.97, 0.17)

Any one could give my some help??
Thanks in advance