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
SCRIPT_STR(" | |
import http.client, urllib, base64, json | |
YOUR_API_KEY = 'xxx' | |
name = _arg1[0] | |
company = _arg2[0] | |
try: | |
headers = {'Ocp-Apim-Subscription-Key': YOUR_API_KEY } | |
params = urllib.urlencode({'q': name + ' ' + company + ' linkedin','count': '3'}) | |
connection = http.client.HTTPSConnection('api.cognitive.microsoft.com') | |
connection.request('GET', '/bing/v7.0/search?%s' % params, '{body}', headers) |
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
echo "deb http://ftp.fr.debian.org/debian/ wheezy-backports main contrib non-free" | sudo sh -c 'cat >> /etc/apt/sources.list' | |
echo "deb-src http://ftp.fr.debian.org/debian/ wheezy-backports main" | sudo sh -c 'cat >> /etc/apt/sources.list' | |
gpg --keyserver pgpkeys.mit.edu --recv-key 7638D0442B90D010 | |
gpg -a --export 7638D0442B90D010 | sudo apt-key add - | |
sudo apt-get update |
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
SCRIPT_INT(' | |
library(XRJulia) | |
if (!exists("ev")) ev <- RJulia() | |
y <- juliaEval(" | |
4 / 3 * %s * ' + STR([Factor]) + ' * pi ^ 3 | |
", .arg1) | |
', | |
[Radius]) |
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
SCRIPT_STR(' | |
newurl <- .arg1 | |
url <- "" | |
while(url != newurl){ | |
data <- system(toString(paste0("curl -I ", newurl)), intern=T) | |
if(sum(grepl("location: ", tolower(data))) == 0){ | |
url <- newurl | |
}else{ | |
data <- subset(data, tolower(substring(data, 1, 9))=="location:") | |
stringurl <- substring(data[1], 11, nchar(data[1])-1) |
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
REGEXP_EXTRACT( | |
[Post Message], | |
'((?:http|https)://(?:[\w_-]+(?:(?:\.[\w_-]+)+))(?:[\w.,@?^=%&:/~+#-]*[\w@?^=%&/~+#-]))' | |
) |
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(twitteR) | |
library(ROAuth) | |
## Twitter authentication | |
## Replace strings with your credentials | |
setup_twitter_oauth("consumer_key", "consumer_secret", | |
"access_token", "access_secret") | |
# Fetch tweets from user timeline | |
tweets <- userTimeline("xlth", n = 3200) |
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
SCRIPT_INT(' | |
kmeans(data.frame(.arg1,.arg2,.arg3),' + STR([Cluster Amount]) + ')$cluster; | |
', | |
SUM([Sales]), SUM([Profit]), SUM([Quantity])) |
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
SCRIPT_REAL(' | |
import numpy as np | |
return np.corrcoef(_arg1,_arg2)[0,1] | |
', | |
SUM([Sales]), SUM([Profit])) |
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
install.packages("Rcpp") | |
install.packages("http://alexloth.com/utils/sentiment/current/sentiment.zip",repos=NULL) |
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
install.packages("devtools") | |
library(devtools) | |
install_github("aloth/sentiment/sentiment") |
NewerOlder