Nothing
#' Return the index of row equals to r on m
#' @param m matrix
#' @param r row
#' @keywords internal
getEqualRowId<-function(m,r) {
which(rowSums(t(t(m)==r))==length(r))
}
#' Returns data from different models
#'
#' @keywords internal
getData<-function(x) {
data=NULL;
if(is(x,"glm")|| is(x,"clm")) {
if(!is.null(x$data) & !is(x$data,"environment")) {
data=x$data
} else {
data=x$model
}
} else if(is(x,"lm")) {
if(!is.null(x$call$data)) {
#print(where(as.character(x$call$data)))
data=get(as.character(x$call$data))
} else {
data=x$model
}
if(is.null(data)) {
stop("Can't get data")
}
} else if(is(x,"lmerMod")) {
data=x@frame
} else if(is(x,"betareg")) {
if(is.null(x$model)) {
stop("Please, use model=TRUE to fit betareg")
} else {
data=x$model
}
}
data;
}
#' Check if the given object have the dominanceAnalysis class
#'
#' Stop execution if object isn't a dominanceAnalysis object
#' @param x an object
#' @return boolean TRUE if x is a dominanceAnalysis object, raises an error otherwise
#' @keywords internal
checkDominanceAnalysis<-function(x) {
if(!inherits(x,"dominanceAnalysis")) {
stop("parameter da.object should be a dominanceAnalysis object")
}
TRUE
}
#' Replace terms by name using the terms definition
#' @param string string to be updated
#' @param replacement string with replacement for strings. values are replaced by names
replaceTermsInString<-function(string,replacement) {
if(is.null(replacement) || is.null(names(replacement))) {
string
} else {
names.r=names(replacement)
to.replace<-as.character(replacement)
for(i in 1:length(names.r)) {
if(names.r[i]!="") {
string=sub(to.replace[i], names.r[i], string, fixed=TRUE)
}
}
}
string
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.