getAnywhere
getAnywhere(splitSubstitution) A single object matching ‘splitSubstitution’ was found It was found in the following places namespace:OpenMx with value function (input) { split1 <- unlist(strsplit(input, "[\\[\\]]", perl = TRUE)) identifier <- split1[[1]] split2 <- unlist(strsplit(split1[[2]], ",", fixed = TRUE)) if (length(split2) == 1) { row <- "" col <- "" } else { row <- split2[[1]] col <- split2[[2]] } return(c(identifier, row, col)) } <environment: namespace:OpenMx> insert the code here
page revision: 3, last edited: 11 Oct 2011 16:17