# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#' @title A Gibbs sampler using Rcpp
#' @description A Gibbs sampler using Rcpp
#' @param N the number of samples
#' @param thin the number of between-sample random numbers
#' @return a random sample of size
#' @useDynLib SC19077
#' @examples
#' \dontrun{
#' rnC <- gibbsC(100,10)
#' par(mfrow=c(2,1));
#' plot(rnC[,1],type='l')
#' plot(rnC[,2],type='l')
#' }
#' @export
rwMetropolisC <- function(x0, N, sigma) {
.Call('_SC19077_rwMetropolisC', PACKAGE = 'SC19077', x0, N, sigma)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.