library(halfwidthr)
library(Nippon)
library(stringi)
library(microbenchmark)
a <- rep(zenkaku$number, 10000)
zen <- paste0(c(zenkaku$number, zenkaku$lower, zenkaku$upper), collapse = "")
This file contains 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
$targetsfile_loc = "C:\Path\To\Script_Dir\vagrant.list" | |
$vagrant_cmd = "C:\HashiCorp\Vagrant\bin\vagrant.exe" | |
$putty_cmd = "C:\Path\To\putty.exe" | |
$current_loc = Get-Location | |
$targets = Get-Content $targetsfile_loc | |
ForEach ($target in $targets) { | |
$vagrant_dir,$putty_prof = $target.split(",") | |
Set-Location $vagrant_dir -PassThru |
This file contains 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
#cloud-config | |
hostname: HOSTNAME | |
write_files: | |
- path: /etc/iptables.rules | |
permissions: 0644 | |
content: | | |
*filter | |
:INPUT DROP [13:1170] |
This file contains 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(ggplot2) | |
library(animation) | |
library(dplyr) | |
set.seed(100) | |
data <- data.frame(value = rnorm(1000, mean = 5, sd = sqrt(5))) | |
### continuous-scale axis ### | |
# BAD EXAMPLE: Ranges are changing too fast... |
This file contains 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
#include <Rcpp.h> | |
using namespace Rcpp; | |
// [[Rcpp::export]] | |
std::vector<std::string> rcpp_hello_world(std::vector<std::string> strings) { | |
for(std::vector<std::string>::iterator s_it = strings.begin(); s_it != strings.end(); ++s_it) { | |
std::vector<unsigned char> c((*s_it).begin(), (*s_it).end()); | |
int length = c.size(); |
This file contains 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
> a <- runif(1000,1,10) | |
> microbenchmark(base::`+`(a, a), .Primitive("+")(a,a)) | |
Unit: microseconds | |
expr min lq mean median uq max neval | |
base::`+`(a, a) 14.527 16.483 28.85315 19.556 20.6730 716.852 100 | |
.Primitive("+")(a, a) 5.308 6.147 9.96258 9.220 10.1975 49.448 100 |
When specifying named arguments, you have to use =
, instead of <-
.
This code
data.frame(x2 <- x2, y2 <- y2)
is actually iterpreted like this:
I want to verify this similarity by 語句類似度算出API of goo lab.
This file contains 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
var gulp = require('gulp'); | |
var concat = require('gulp-concat'); | |
var uglify = require('gulp-uglify'); | |
var uglifycss = require('gulp-uglifycss'); | |
var mainBowerFiles = require('main-bower-files'); | |
var gulpFilter = require('gulp-filter'); | |
gulp.task('default', function() { | |
var jsFilter = gulpFilter('**/*.js'); | |
var cssFilter = gulpFilter('**/*.css'); |
OlderNewer