OpasnetUtils/Orbind: Difference between revisions

Latest revision as of 13:45, 16 August 2012

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}}

orbind combines two ovariables using clever rbind

@@ Line 8: / Line 8: @@
 ==Code==
-<rcode
-	name="answer"
-	label="Initiate functions"
-	graphics="1"
-	showcode="1"
->
-# ORBIND ########################### orbind combines two ovariables using clever rbind
-orbind <- function(x, y) {
+https://www.opasnet.org/svn/opasnet_utils/trunk/R/ORBind.r
-		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==