Nothing
#' (Internal) Replace missing values with other values,internally used for
#' parallelization
#'
#' @param X An input vector
#' @param missing A charactors representing a missing value
#' @param rep A vector of new values to replace missing values
#'
#' @return A vector with replaced values
#'
replace.missing <- function(X,missing=NA,rep){
if (is.na(missing)){
idx = which(is.na(X))
X[idx] = rep[idx]
}else{
idx = which(X == missing)
X[idx] = rep[idx]
}
return(X)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.