getAnywhere
getAnywhere(splitSubstitution)
A single object matchingsplitSubstitutionwas 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