Below is the data set for reference X1
X1 <- data.frame(A = c(2,3,4,5,6,7),
B = c(0,0,0.23,1.7,2.45,84.5))
# A B
#1 2 0.00
#2 3 0.00
#3 4 0.23
#4 5 1.70
#5 6 2.45
#6 7 84.50
Now i need to replace values greater than 0 as 1
# A B
#1 2 0
#2 3 0
#3 4 1
#4 5 1
#5 6 1
#6 7 1