Skip to content

Instantly share code, notes, and snippets.

View jcrodriguez1989's full-sized avatar
🧉
Having fun with R

Juan C Rodriguez jcrodriguez1989

🧉
Having fun with R
View GitHub Profile
#' Install Package Branch.
#'
#' @param repo The repository of the package.
#' @param branch The repository's branch to install.
#' @param owner The GitHub owner of the repository.
#'
#' @examples
#' \dontrun{
#' install_branch("polarispub", "master")
#' }
env Logs Mean weight Median weight
indoor 119 87.08 59.0
outdoor 8 72.08 72.8
tree_medium Logs Mean weight Median weight
coco 16 90.70 52.0
hydro 18 82.67 74.5
soil 71 75.70 56.0
strain.strainClass Logs Mean weight Median weight
sativa 3 128.00 12.5
hybrid 31 92.10 56.0
indica 5 45.88 22.4
strain.type Logs Mean weight Median weight
regular 8 138.62 85.2
Feminized 11 109.17 75.6
automatic 20 57.93 56.0
strain Logs Mean weight Median weight
garlic crumpet 3 289.18 257.14
white widow 6 103.10 81.50
durban poison 3 88.63 58.40
gelat.og 4 85.80 88.50
bam bam 3 50.67 41.00
breeder_name Logs Mean weight Median weight
th seeds 3 128.00 117.00
seedsman 13 99.52 100.00
barneys farm 9 75.51 82.00
mephisto genetics 4 74.38 63.25
kannabia seeds 3 71.33 90.00
Variable p-value Significant at 0.1
breeder_name 0.006 TRUE
strain.type 0.092 TRUE
strain 0.154 FALSE
strain.strainClass 0.475 FALSE
env 0.612 FALSE
tree_medium 0.752 FALSE
@jcrodriguez1989
jcrodriguez1989 / app.R
Created October 30, 2020 14:24
R's EmojiSweeper 💣💥
library("dplyr")
library("DT")
library("emojifont")
library("shiny")
library("tidyr")
# Icons to show on the board.
squaremoji <- emoji("black_square_button") # "🔲"
numojis <- c("", emoji(c("one", "two", "three", "four", "five", "six", "seven", "eight", "nine")))
bombmoji <- emoji("bomb") # "💣"