Skip to content

Instantly share code, notes, and snippets.

Avatar
💭
Taking a sabbatical

Marcin Kosiński MarcinKosinski

💭
Taking a sabbatical
View GitHub Profile
View plot_coxphSGD_estimates
library(coxphSGD)
library(survival)
library(reshape2)
set.seed(456)
x <- matrix(sample(0:1, size = 20000, replace = TRUE), ncol = 2)
head(x)
dCox <- dataCox(10^4, lambda = 3, rho = 2, x,
beta = c(2,2), cens.rate = 5)
head(dCox)
View FSelectorRcpp_1
# install.packages(c('magrittr', 'FSelectorRcpp'))
library(magrittr)
library(FSelectorRcpp)
information_gain( # Calculate the score for each attribute
formula = Species ~ ., # that is on the right side of the formula.
data = iris, # Attributes must exist in the passed data.
type = "infogain", # Choose the type of a score to be calculated.
threads = 2 # Set number of threads in a parallel backend.
) %>%
cut_attrs( # Then take attributes with the highest rank.
View survminer_playing_with_fonts_and_text.R
devtools::install_github("kassambara/survminer", build_vignettes = TRUE)
library("survminer")
library("survival")
fit<- survfit(Surv(time, status) ~ sex, data = lung)
ggsurvplot(
fit, # survfit object with calculated statistics.
risk.table = TRUE, # show risk table.
pval = TRUE, # show p-value of log-rank test.
conf.int = TRUE, # show confidence intervals for
# point estimaes of survival curves.
View data z gumtree
library(stringi)
library(stringr)
library(rvest)
aktualne_oferty <- function(link) {
linki<-read_html(link) %>%
html_nodes('.href-link') %>%
View disqus_shiny_example
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
menuItem(
"Comments",
tabName = "disqus_here",
icon = icon("info")
View venn_diagram
library(VennDiagram)
venn.diagram(list(first = c("a", "b", "c"),
second = c("a", "c", "d"),
third = c("a", "d"))
imagetype = "png",
col = "transparent",
filename = "example.png",
height = 2000,
width = 2000,
@MarcinKosinski
MarcinKosinski / RTCGA_info_gain.R
Last active Apr 11, 2016
information gain for RTCGA BRCA
View RTCGA_info_gain.R
library(devtools)
devtools::install_github('RTCGA/RTCGA')
library(RTCGA)
installTCGA('RTCGA.clinical')
installTCGA('RTCGA.rnaseq')
library(RTCGA.rnaseq)
library(RTCGA.clinical)
library(dplyr)
survivalTCGA(BRCA.clinical) %>%