examples inspired by this book
examples inspired by this book
Dhrumin Shah steadyfish
timelyportfolio
/ Readme.md
Last active
March 30, 2020 06:14
some examples with rbokeh inspired by ggplot2 and lattice
sinhrks
/ fortify_survfit.R
Created
October 4, 2014 10:53
Allow ggplot2 to handle survival::survfit result
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(survival) | |
| library(ggplot2) | |
| library(scales) | |
| d.survfit <- survival::survfit(survival::Surv(time, status) ~ sex, | |
| data = lung) | |
| fortify.survfit <- function(survfit.data) { | |
| data.frame(time = survfit.data$time, |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(htmltools) | |
| addUIDep <- function(x) { | |
| jqueryUIDep <- htmlDependency("jqueryui", "1.10.4", c(href="shared/jqueryui/1.10.4"), | |
| script = "jquery-ui.min.js", | |
| stylesheet = "jquery-ui.min.css") | |
| attachDependencies(x, c(htmlDependencies(x), list(jqueryUIDep))) | |
| } |
shanebutler
/ sql.export.randomForest.R
Last active
August 9, 2025 03:32
Deploy your RandomForest models in SQL! This tool enables in-database scoring of Random Forest models built using R. To use it, you simply call the function with the Random Forest model, output filename, SQL input data table and the name of the unique key on that table. For example:sql.export.rf(rf.mdl, file="model_output.SQL", input.table="sour…
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # sql.export.rf(): save a randomForest model as SQL | |
| # v0.04 | |
| # Copyright (c) 2013-2014 Shane Butler <shane dot butler at gmail dot com> | |
| # | |
| # sql.export.rf is free software: you can redistribute it and/or modify it | |
| # under the terms of the GNU General Public License as published by | |
| # the Free Software Foundation, either version 2 of the License, or | |
| # (at your option) any later version. | |
| # | |
| # sql.export.rf is distributed in the hope that it will be useful, but |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| library(datasets) | |
| Logged = FALSE; | |
| PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad") | |
| # Define server logic required to summarize and view the selected dataset | |
| shinyServer(function(input, output) { | |
| source("www/Login.R", local = TRUE) | |
| observe({ | |
| if (USER$Logged == TRUE) { |
julionc
/ 00.howto_install_phantomjs.md
Last active
August 31, 2025 01:22
How to install PhantomJS on Debian/Ubuntu
shanebutler
/ sql.export.gbm.R
Last active
August 9, 2025 03:31
Deploy your GBM models in SQL! This tool enables in-database scoring of GBM models built using R. To use it, you simply call the function with the GBM model, output filename, SQL input data table and the name of the unique key on that table. For example:sql.export.gbm(gbm1, file="model_output.SQL", input.table="source_table", id="id") Please let…
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # sql.export.gbm(): save a GBM model as SQL | |
| # v0.11 | |
| # Copyright (c) 2013-2014 Shane Butler <shane dot butler at gmail dot com> | |
| # | |
| # sql.export.gbm is free software: you can redistribute it and/or modify it | |
| # under the terms of the GNU General Public License as published by | |
| # the Free Software Foundation, either version 2 of the License, or | |
| # (at your option) any later version. | |
| # | |
| # sql.export.gbm is distributed in the hope that it will be useful, but |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| data_sets <- c("mtcars", "morley", "rock") | |
| shinyServer(function(input, output) { | |
| # Drop-down selection box for which data set | |
| output$choose_dataset <- renderUI({ | |
| selectInput("dataset", "Data set", as.list(data_sets)) | |
| }) | |
| # Check boxes |