Nothing
### Hilfsfunktion, wie table(), nur mit festen Werten
### z.B. table.muster(a, c(1,5,7,8,9)) sucht, wie oft jede Zahl in "mustervektor" in "vektor" vorkommt
### Warnung, wenn zusaetzliche Zahlen in Vektor stehen
tablePattern <- function(x, pattern = NULL, weights, na.rm = TRUE, useNA = c("no", "ifany", "always")) {
checkmate::assert_vector(x)
checkmate::assert_vector(pattern, null.ok = TRUE, unique = TRUE)
if(length(pattern)>0) {
additional.values <- na.omit( setdiff(x,pattern))
if( length( additional.values ) > 0 ) {
warning("Found additional values not defined in 'pattern':\n", paste(additional.values,collapse=", "), "\nConcatenate additional values to 'pattern'.")
pattern <- c(pattern, additional.values)
}
notInData <- setdiff(pattern, x)
if ( length(notInData) > 0) {
y <- factor(x, levels = as.character(pattern))
} else {
y <- x
}
} else {
y <- x
}
if(missing(weights)) {
Table <- table(y, useNA =useNA )
} else {
checkmate::assert_numeric(weights, len = length(x))
if ( length(notInData) > 0) {
x <- c(as.character(x), as.character(notInData))
weights<- c(weights, rep(0, length(notInData)))
}
Table <- wtdTable(x = as.character(x), weights = weights, na.rm =na.rm )
}
return(Table)}
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.