length(num)
class(num)
num <- as.numeric(num)
sqrt(num^2)