R/pct.R

In craigroth/pct:

# CONVERTED TO EMPTY REPOSITORY


# ## round2.R
# ## Original Source: miceadds
# ## https://github.com/alexanderrobitzsch/miceadds/blob/master/R/round2.R
# ## File Version: 0.04
# round2 <- function( vec , digits=0 ){
#   vec0 <- vec
#   eps <- 10^(-10)
#   vec <- abs(vec)
#   vec <- vec*10^digits
#   vec2 <- vec-floor(vec)
#   #    vec <- floor( vec ) + ifelse( vec2 < .5 , 0 , 1 )
#   vec <- floor( vec ) + ifelse( ( vec2 - .5 ) < - eps, 0 , 1 )
#   vec.round <- sign(vec0) * vec / 10^digits
#   return(vec.round)
# }
# 
# # convert number to percent as character variable
# # input:
#   # numbertobeconvertedtocharacter = numeric value
#   # numberofdecimals = number of decimal places in percentage (default: 0)
# # output: character with that number written as a percent
# pct <- function(numbertobeconvertedtocharacter, numberofdecimals = 0){
#   return(paste0(round2(numbertobeconvertedtocharacter*100,numberofdecimals),"%"))
# }