| super_advanced_AI_algorithm_fn <- function(grouping_number) { | |
| ai <- "aWYoZ3JvdXBpbmdfbnVtYmVyID09IDEpIHByaW50KCJXb2FoLCB0aGV5IGRvbid0IGxvb2sgcGFyYWxsZWwiKSBlbHNlIHByaW50KCJMb29rcyBwYXJhbGxlbCB0byBtZSIp" | |
| eval(parse(text = rawToChar(base64enc::base64decode(ai)))) | |
| } | |
| super_advanced_AI_algorithm_fn(grouping_number) |
| ; Ender 3 Custom Start G-code | |
| M140 S{material_bed_temperature_layer_0} ; Set Heat Bed temperature | |
| M190 S{material_bed_temperature_layer_0} ; Wait for Heat Bed temperature | |
| M104 S160; start warming extruder to 160 | |
| G28 ; Home all axes | |
| G29 ; Auto bed-level (BL-Touch) | |
| G92 E0 ; Reset Extruder | |
| M104 S{material_print_temperature_layer_0} ; Set Extruder temperature | |
| G1 X0.1 Y20 Z0.3 F5000.0 ; Move to start position | |
| M109 S{material_print_temperature_layer_0} ; Wait for Extruder temperature |
| nhsNumberCheck <- function(nhs_vector) { | |
| #print(nhs_vector) | |
| df = data.frame( | |
| NHSNumber = nhs_vector, | |
| stringsAsFactors = F | |
| ) | |
| Validity <- df %>% |
| function calculateDist($geoLat,$geoLong,$asLat,$asLong) { | |
| //User Haversine formula to calculate the distance | |
| // http://stackoverflow.com/questions/5260423/torad-javascript-function-throwing-error | |
| //Radius of the earth in: 1.609344 miles, 6371 km | var R = (6371 / 1.609344); | |
| $R = 3958.7558657440545; // Radius of earth in miles | |
| //var R = 6371; // km | |
| $dLat = toRad($asLat-$geoLat); | |
| $dLon = toRad($asLong-$geoLong); | |
| $lat1 = toRad($geoLat); | |
| $lat2 = toRad($asLat); |
| Math.blerp = function (values, x1, y1, x2, y2, x, y) { | |
| let q11 = (((x2 - x) * (y2 - y)) / ((x2 - x1) * (y2 - y1))) * values[x1][y1] | |
| let q21 = (((x - x1) * (y2 - y)) / ((x2 - x1) * (y2 - y1))) * values[x2][y1] | |
| let q12 = (((x2 - x) * (y - y1)) / ((x2 - x1) * (y2 - y1))) * values[x1][y2] | |
| let q22 = (((x - x1) * (y - y1)) / ((x2 - x1) * (y2 - y1))) * values[x2][y2] | |
| return q11 + q21 + q12 + q22 | |
| } |
| library(tidyverse) | |
| library(lubridate) | |
| df <- data.frame( | |
| time1 = sample(seq(ymd_hms('2020-01-01 00:00:00'), ymd_hms('2020-01-01 23:59:59'), by="sec"), 10), | |
| time2 = sample(seq(ymd_hms('2020-01-01 00:00:00'), ymd_hms('2020-01-01 23:59:59'), by="sec"), 10), | |
| stringsAsFactors = F | |
| ) | |
| df1 <- df %>% |
| library(tidyverse) | |
| library(rvest) | |
| # Scrape the ONS website for a list of URLS | |
| weekly_ons_mortality <- read_html("https://www.ons.gov.uk/peoplepopulationandcommunity/birthsdeathsandmarriages/deaths/datasets/weeklyprovisionalfiguresondeathsregisteredinenglandandwales") %>% | |
| html_nodes("a") %>% | |
| html_attr("href") | |
| # Just extract those that are spreadsheets |
| createPlot <- function(dataframe,thelegend=FALSE, wrapwidth=40) { | |
| leg = c(1000,1000) | |
| if(thelegend == TRUE) { | |
| leg = "bottom" | |
| } | |
| plot <- plot(likert(dataframe), type="bar", wrap=wrapwidth, include.center=T, plot.percents=F,plot.percent.low=T, plot.percent.high=T, plot.percent.neutral=T, legend.position=leg, colors=c('#CC0016','#F6A57F','#DFDFDF','#90C5DF','#0070B2')) | |
| return(plot) | |
| } |
| #library(nhsnumber) | |
| #nhsnumber::is_valid(x) | |
| x <- c( | |
| "251 170 9081", # FALSE | |
| "699 864 6585", # TRUE | |
| "A40 6565585", # FALSE | |
| "202 993 9145", # TRUE | |
| "958 408 6391", # TRUE | |
| "490 189 1901", # TRUE |
People
 :bowtie: |
😄 :smile: |
😆 :laughing: |
|---|---|---|
😊 :blush: |
😃 :smiley: |
:relaxed: |
😏 :smirk: |
😍 :heart_eyes: |
😘 :kissing_heart: |
😚 :kissing_closed_eyes: |
😳 :flushed: |
😌 :relieved: |
😆 :satisfied: |
😁 :grin: |
😉 :wink: |
😜 :stuck_out_tongue_winking_eye: |
😝 :stuck_out_tongue_closed_eyes: |
😀 :grinning: |
😗 :kissing: |
😙 :kissing_smiling_eyes: |
😛 :stuck_out_tongue: |