OpasnetUtils/Orbind

This page is a knowledge crystal of subtype method. The page identifier is Op_en5728
Moderator:Nobody (see all) Click here to sign up.
This page is a stub. You may improve it into a full page.
Upload data {{#opasnet_base_link:Op_en5728}}

Description

orbind combines two ovariables using clever rbind

Code

+ Show code- Hide code library(OpasnetBaseUtils) library(xtable) n <- 5 # ORBIND ########################### orbind combines two ovariables using clever rbind orbind <- function(x, y) { if(class(x) == "ovariable") {xoutput <- x@output} else {xoutput <- x} if(class(y) == "ovariable") {youtput <- y@output} else {youtput <- y} cols <- setdiff(colnames(youtput), colnames(xoutput)) # Take all columns that do not exist in x and add them. col <- as.data.frame(array("NA", dim = c(1, length(cols)))) colnames(col) <- cols if("Unit" %in% cols) {col[, "Unit"] <- "?"} temp <- cbind(xoutput, col) cols <- setdiff(colnames(xoutput), colnames(youtput)) # Take all columns that do not exist in y and add them. col <- as.data.frame(array("NA", dim = c(1, length(cols)))) colnames(col) <- cols if("Unit" %in% cols) {col[, "Unit"] <- "?"} xoutput <- rbind(temp, cbind(youtput, col)) # Combine x and y with rbind. return(xoutput) #Should this be made S4 function for ovariables? Then it could be named simply rbind. }

See also

• OpasnetBaseUtils
• Object-oriented programming in Opasnet
• Opasnet (R library)