Nothing
#' Sfunc
#'
#'function for calculating the matrices for the Kohler Rodgers SE
#'
#' @param X A matrix of X variables
#' @param e A matrix of error terms
#'
#' @return A matrix
#' @export
#'
#' @examples print("Nah")
Sfunc<-function(X,e){ #function for calculating the matrices for the Kohler Rodgers SE
X<-matrix(X,nrow=2,byrow=F)
as.matrix(e)
Stemp<-(crossprod(X,e)%*%crossprod(e,X))
return(Stemp)
}
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.