Nothing
# File rm1stchar.R
# Part of the hydroTSM R package, https://github.com/hzambran/hydroTSM ;
# https://CRAN.R-project.org/package=hydroTSM
# Copyright 2010-2017 Mauricio Zambrano-Bigiarini
# Distributed under GPL 2 or later
################################################################################
# 'rm1stchar' : deletes the first n characther(s) of 'x' #
################################################################################
# Author : Mauricio Zambrano-Bigiarini #
################################################################################
# Started: 01-Oct-2010 #
################################################################################
# 'x' : Character, e.g, each element may represent the name of a single gauging station
# 'n' : numeric, indicating the number of characters that have to be removed from the beginning of 'x'
rm1stchar <- function(x, n=1) {
if (n<0) stop("'n' must be a positive integer")
L <- length(x)
start.col <- n + 1
x[start.col:length(x)] <- sapply(start.col:length(x), function(j,x) {
x[j] <- substr(x[j], start=start.col, stop=nchar(x[j]))
}, x = x)
return(x)
} # 'rm1stchar' END
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.