Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- \name{mccubc}
- \alias{mccubc}
- %- Also NEED an '\alias' for EACH other topic documented here.
- \title{
- %% ~~function to do ... ~~
- }
- \description{
- %% ~~ A concise (1-5 lines) description of what the function does. ~~
- }
- \usage{
- mccubc(X, Y, FUN, naive, ...)
- }
- %- maybe also 'usage' for other objects documented here.
- \arguments{
- \item{X}{
- %% ~~Describe \code{X} here~~
- }
- \item{Y}{
- %% ~~Describe \code{Y} here~~
- }
- \item{FUN}{
- %% ~~Describe \code{FUN} here~~
- }
- \item{naive}{
- %% ~~Describe \code{naive} here~~
- }
- \item{\dots}{
- %% ~~Describe \code{\dots} here~~
- }
- }
- \details{
- %% ~~ If necessary, more details than the description above ~~
- }
- \value{
- %% ~Describe the value returned
- %% If it is a LIST, use
- %% \item{comp1 }{Description of 'comp1'}
- %% \item{comp2 }{Description of 'comp2'}
- %% ...
- }
- \references{
- %% ~put references to the literature/web site here ~
- }
- \author{
- %% ~~who you are~~
- }
- \note{
- %% ~~further notes~~
- }
- %% ~Make other sections like Warning with \section{Warning }{....} ~
- \seealso{
- %% ~~objects to See Also as \code{\link{help}}, ~~~
- }
- \examples{
- ##---- Should be DIRECTLY executable !! ----
- ##-- ==> Define data, use random,
- ##-- or do help(data=index) for the standard data sets.
- ## The function is currently defined as
- function (X, Y, FUN, naive, ...)
- {
- classes <- unique(Y)
- ecocMatrix <- makeMatrix(length(classes), length(classes),
- naive, removeColumns = TRUE)
- cat("Wymiary macierzy ECOC: ", dim(ecocMatrix), "\n")
- models <- apply(ecocMatrix, 2, function(x) {
- goodClasses <- classes[x == 1]
- .Target <- factor(ifelse(Y \%in\% goodClasses, 1, 0), levels = c(1,
- 0))
- dat <- data.frame(.Target, X)
- model <- FUN(.Target ~ ., data = dat, ...)
- return(model)
- })
- names(models) <- 1:sqrt(length(ecocMatrix))
- info <- list(X = X, Y = Y, classes = unique(Y))
- out <- list(models = models, info = info, ecoc = ecocMatrix)
- class(out) <- "mccubc"
- return(out)
- }
- }
- % Add one or more standard keywords, see file 'KEYWORDS' in the
- % R documentation directory.
- \keyword{ ~kwd1 }
- \keyword{ ~kwd2 }% __ONLY ONE__ keyword per line
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement