Commit bcfdcc05 by Armin Rauschenberger

automation

parent 958b5725
 ... ... @@ -277,11 +277,11 @@ cornet <- function(y,cutoff,X,alpha=1,npi=101,pi=NULL,nsigma=99,sigma=NULL,nfold #' and corresponding loss. #' #' @examples #' \donttest{n <- 100; p <- 200 #' n <- 100; p <- 200 #' y <- rnorm(n) #' X <- matrix(rnorm(n*p),nrow=n,ncol=p) #' net <- cornet(y=y,cutoff=0,X=X) #' print(net)} #' print(net) #' print.cornet <- function(x,...){ cat("cornet object:\n") ... ... @@ -313,15 +313,15 @@ print.cornet <- function(x,...){ #' @return #' This function returns a matrix with \eqn{n} rows and two columns, #' where \eqn{n} is the sample size. It includes the estimated coefficients #' from linear regression (1st column, \code{"beta"}) #' and logistic regression (2nd column, \code{"gamma"}). #' from linear regression (1st column: \code{"beta"}) #' and logistic regression (2nd column: \code{"gamma"}). #' #' @examples #' \donttest{n <- 100; p <- 200 #' n <- 100; p <- 200 #' y <- rnorm(n) #' X <- matrix(rnorm(n*p),nrow=n,ncol=p) #' net <- cornet(y=y,cutoff=0,X=X) #' coef(net)} #' coef(net) #' coef.cornet <- function(object,...){ ... ... @@ -362,11 +362,11 @@ coef.cornet <- function(object,...){ #' White always represents high. #' #' @examples #' \donttest{n <- 100; p <- 200 #' n <- 100; p <- 200 #' y <- rnorm(n) #' X <- matrix(rnorm(n*p),nrow=n,ncol=p) #' net <- cornet(y=y,cutoff=0,X=X) #' plot(net)} #' plot(net) #' plot.cornet <- function(x,...){ ... ... @@ -446,11 +446,11 @@ plot.cornet <- function(x,...){ #' further arguments (not applicable) #' #' @examples #' \donttest{n <- 100; p <- 200 #' n <- 100; p <- 200 #' y <- rnorm(n) #' X <- matrix(rnorm(n*p),nrow=n,ncol=p) #' net <- cornet(y=y,cutoff=0,X=X) #' predict(net,newx=X)} #' predict(net,newx=X) #' predict.cornet <- function(object,newx,type="probability",...){ ... ... @@ -651,6 +651,11 @@ predict.cornet <- function(object,newx,type="probability",...){ #' @inheritParams cornet #' #' @examples #' \dontshow{n <- 100; p <- 20 #' y <- rnorm(n) #' X <- matrix(rnorm(n*p),nrow=n,ncol=p) #' loss <- cornet:::.compare(y=y,cutoff=0,X=X,nfolds=2) #' loss} #' \donttest{n <- 100; p <- 200 #' y <- rnorm(n) #' X <- matrix(rnorm(n*p),nrow=n,ncol=p) ... ... @@ -727,10 +732,10 @@ predict.cornet <- function(object,newx,type="probability",...){ #' @inheritParams cornet #' #' @examples #' \donttest{n <- 100; p <- 200 #' n <- 100; p <- 200 #' y <- rnorm(n) #' X <- matrix(rnorm(n*p),nrow=n,ncol=p) #' cornet:::.test(y=y,cutoff=0,X=X)} #' cornet:::.test(y=y,cutoff=0,X=X) #' .test <- function(y,cutoff,X,alpha=1,type.measure="deviance"){ ... ... @@ -795,6 +800,7 @@ predict.cornet <- function(object,newx,type="probability",...){ return(invisible(list(y=y,X=X))) } #--- Legacy -------------------------------------------------------------------- # # Import this function from the palasso package. ... ...
 Thanks for your suggestions! Thanks! # Changes - More details in description field. - Reference in description field. - Executable examples in all help files. - examples without \donttest{}, or with \donttest{} and \dontshow{} # Notes ... ...
 Lasso and ridge regression for dichotomised outcomes • cornet ... ... @@ -22,15 +22,14 @@
... ...
 ... ... @@ -9,17 +9,17 @@ Articles • cornet ... ... @@ -35,8 +35,7 @@
 Combined Regression • cornet ... ... @@ -22,15 +22,14 @@
... ... @@ -114,8 +113,9 @@

Site built with pkgdown 1.3.0.

Site built with pkgdown.

... ...
 ... ... @@ -9,17 +9,17 @@ Authors • cornet ... ... @@ -35,8 +35,7 @@
 Elastic Net with Dichotomised Outcomes • cornet ... ... @@ -22,15 +22,14 @@

... ... @@ -144,8 +143,9 @@

Site built with pkgdown 1.3.0.

Site built with pkgdown.

... ...
 ... ... @@ -9,17 +9,17 @@ Changelog • cornet ... ... @@ -35,8 +35,7 @@
 ... ... @@ -58,14 +58,9 @@ img { max-width: 100%; } /* Fix bug in bootstrap (only seen in firefox) */ summary { display: list-item; } /* Typographic tweaking ---------------------------------*/ .contents .page-header { .contents h1.page-header { margin-top: calc(-60px + 1em); } ... ... @@ -141,9 +136,10 @@ a.anchor { .ref-index th {font-weight: normal;} .ref-index td {vertical-align: top;} .ref-index .icon {width: 40px;} .ref-index .alias {width: 40%;} .ref-index-icons .alias {width: calc(40% - 40px);} .ref-index .title {width: 60%;} .ref-index .alias {width: 40%;} .ref-index .title {width: 60%;} .ref-arguments th {text-align: right; padding-right: 10px;} ... ...
 ... ... @@ -25,13 +25,9 @@ for (var i = 0; i < links.length; i++) { if (links[i].getAttribute("href") === "#") continue; // Ignore external links if (links[i].host !== location.host) continue; var nav_path = paths(links[i].pathname); var path = paths(links[i].pathname); var length = prefix_length(nav_path, cur_path); var length = prefix_length(cur_path, path); if (length > max_length) { max_length = length; pos = i; ... ... @@ -56,14 +52,13 @@ return(pieces); } // Returns -1 if not found function prefix_length(needle, haystack) { if (needle.length > haystack.length) return(-1); return(0); // Special case for length-0 haystack, since for loop won't run if (haystack.length === 0) { return(needle.length === 0 ? 0 : -1); return(needle.length === 0 ? 1 : 0); } for (var i = 0; i < haystack.length; i++) { ... ... @@ -83,9 +78,9 @@ element.setAttribute('data-original-title', tooltipOriginalTitle); } if(ClipboardJS.isSupported()) { if(Clipboard.isSupported()) { $(document).ready(function() { var copyButton = ""; var copyButton = "";$(".examples, div.sourceCode").addClass("hasCopyButton"); ... ... @@ -96,7 +91,7 @@ \$('.btn-copy-ex').tooltip({container: 'body'}); // Initialize clipboard: var clipboardBtnCopies = new ClipboardJS('[data-clipboard-copy]', { var clipboardBtnCopies = new Clipboard('[data-clipboard-copy]', { text: function(trigger) { return trigger.parentNode.textContent; } ... ...
 pandoc: 2.7.1 pkgdown: 1.3.0 pkgdown: 1.1.0 pkgdown_sha: ~ articles: article: article.html ... ...
 ... ... @@ -9,17 +9,17 @@ Extract estimated coefficients — coef.cornet • cornet