#' @name apim
#' @title actor-partner interdependence model
#'
#' will run the apim on indistinguishable dyads eventualy
#'
#' even more stuff about the apim
#'
#' @param x is a function with form y ~ x.
#' @param dat is the dataframe.
#' @param dyadid is a dyadic variable.
#' @param option is to check whether dyad is indistingusihable.
#'
#' @details some additional details about these functions
#' @import lazyeval
#' @export
apim <- function(x, dat, dyadid, option = "indistinguishable"){
if (lazyeval::is_formula(x)){
mod <- gls(x, na.action=na.omit,
method="REML", verbose=TRUE, correlation=eval(parse(text=paste0("corCompSymm(form=~1|", dyadid, ")"))),
data=dat)
return(mod)
}else {
message("please enter a formula")
}
}
globalVariables(c("gls","na.omit", "corCompSymm"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.