Difference between revisions of "OpasnetUtils/Orbind"

Latest revision as of 13:45, 16 August 2012

This page is a 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, and then a rating bar will appear here.
Upload data

orbind combines two ovariables using clever rbind

@@ Line 1: / Line 1: @@
 [[Category:Opasnet]]
 [[Category:R tools]]
+[[Category:OpasnetUtils]]
 {{method|moderator=|stub=Yes}}
@@ Line 7: / Line 8: @@
 ==Code==
-<rcode
-	name="answer"
-	label="Initiate functions"
-	graphics="1"
->
-library(OpasnetBaseUtils)
-library(xtable)
-n <- 5
+https://www.opasnet.org/svn/opasnet_utils/trunk/R/ORBind.r
-# 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.
-	}
-</rcode>
 ==See also==