View source: R/recode_replace.R
pad  R Documentation 
The pad
function inserts elements / rows filled with value
into a vector matrix or data frame X
at positions given by i
. It is particularly useful to expand objects returned by statistical procedures which remove missing values to the original data dimensions.
pad(X, i, value = NA, method = c("auto", "xpos", "vpos"))
X 
a vector, matrix, data frame or list of equallength columns.  
i 
either an integer (positive or negative) or logical vector giving positions / rows of  
value 
a scalar value to be replicated and inserted into  
method 
an integer or string specifying the use of

X
with elements / rows filled with value
inserted at positions given by i
.
append
, Recode and Replace Values, Small (Helper) Functions, Collapse Overview
v < 1:3
pad(v, 1:2) # Automatic selection of method "vpos"
pad(v, (1:2)) # Same thing
pad(v, c(TRUE, TRUE, FALSE, FALSE, FALSE)) # Same thing
pad(v, c(1, 3:4)) # Automatic selection of method "xpos"
pad(v, c(TRUE, FALSE, TRUE, TRUE, FALSE)) # Same thing
head(pad(wlddev, 1:3)) # Insert 3 missing rows at the beginning of the data
head(pad(wlddev, 2:4)) # ... at rows positions 24
# pad() is mostly useful for statistical models which only use the complete cases:
mod < lm(LIFEEX ~ PCGDP, wlddev)
# Generating a residual column in the original data (automatic selection of method "vpos")
settfm(wlddev, resid = pad(resid(mod), mod$na.action))
# Another way to do it:
r < resid(mod)
i < as.integer(names(r))
resid2 < pad(r, i) # automatic selection of method "xpos"
# here we need to add some elements as flast(i) < nrow(wlddev)
resid2 < c(resid2, rep(NA, nrow(wlddev)length(resid2)))
# See that these are identical:
identical(unattrib(wlddev$resid), resid2)
# Can also easily get a model matrix at the dimensions of the original data
mm < pad(model.matrix(mod), mod$na.action)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.