Nothing
#' Support function for \code{\link{ui.causal}}
#'
#' Divides the \code{rho} interval into a grid
#' @param rho interval that should be divided
#' @param gridn number of gridpoints
#' @param rho.plotrange a larger interval of grids to be used in a plot
#' @param plot whether or not the larger interval of grids should be created
#'
#' @export
gridrho.f<-function(rho,gridn,rho.plotrange,plot){
if(length(rho)>1){
gridrho<-rho[1]+((rho[2]-rho[1])/(gridn-1))*(0:(gridn-1))
if(plot==TRUE){
gridrho<-c(rho.plotrange[1]+((rho[1]-rho.plotrange[1])/(gridn-1))*(0:(gridn-2)),gridrho)
gridrho<-c(gridrho,rho[2]+((rho.plotrange[2]-rho[2])/(gridn-1))*(1:(gridn-1))) }
}else{
gridrho<-rho
#gridrho<-paste("rho0=",rho0," and ","rho1=",rho1,sep="")
}
if(sum(gridrho==0)==0){
gridrho<-sort(c(gridrho,0))
}
#vector with logical values of which values of rho should be included in the UI
nui<-gridrho>=min(rho)&gridrho<=max(rho)
return(list(gridrho,nui))
}
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.