Nothing
#' jackknife
#'
#' @param data The data to jackknife
#'
#' @return a list of jackknife datasets
#' @export
#'
#' @examples data<-cbind(1:10,1:10)
#' result<-jackknife(data)
#' lapply(result,mean)
#'
jackknife<-function(data){
data<-as.matrix(data)
results<-1:nrow(data)
results<-lapply(results, leave1out, data=data)
return(results)
}
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.