R/oneHotDSS.R
In sib-swiss/dsSwissKnife: DataSHIELD Tools and Utilities - server side
Defines functions
oneHotDSS
oneHotDSS <- function(x){
lvs <- levels(as.factor(x))
as.data.frame(sapply(lvs, function(y){
z <- unclass(x[x==y])[1]
x <- unclass(x)
out <- sign((z+1-x)*(x+1-z))
out*(out+1)/2
}, simplify = FALSE))
}
sib-swiss/dsSwissKnife documentation built on Nov. 27, 2024, 6:03 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions oneHotDSS
oneHotDSS <- function(x){
lvs <- levels(as.factor(x))
as.data.frame(sapply(lvs, function(y){
z <- unclass(x[x==y])[1]
x <- unclass(x)
out <- sign((z+1-x)*(x+1-z))
out*(out+1)/2
}, simplify = FALSE))
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.