Skip to content

Instantly share code, notes, and snippets.

View klprint's full-sized avatar

Kevin klprint

2 followers · 1 following
View GitHub Profile
@klprint
klprint / FastGrep.py
Created August 9, 2016 10:39
Searches in files with the same extension for sequences being provided by a fasta file. The script picks 15-16 base-pairs in the middle of each sequence in the fasta file and uses grep to find the number of occurrences.
import subprocess
import glob
# Functions
def read_multifasta(file_path):
is_entry = False
fasta_dict = {}
sequence = []
@klprint
klprint / ChangeChmod.txt
Created August 1, 2016 08:18
Change chmod for folder & all subfolders
# Sets chmod 755 for folder and all subfolders
find /opt/lampp/htdocs -type d -exec chmod 755 {} \;
# Sets chmod 655 for all files in this folder & subfolder
find /opt/lampp/htdocs -type f -exec chmod 644 {} \;
@klprint
klprint / ChangeChmod.txt
Created August 1, 2016 08:18
Change chmod for folder & all subfolders
# Sets chmod 755 for folder and all subfolders
find /opt/lampp/htdocs -type d -exec chmod 755 {} \;
# Sets chmod 655 for all files in this folder & subfolder
find /opt/lampp/htdocs -type f -exec chmod 644 {} \;
@klprint
klprint / gist:5b10ff18c91f26d890631a8780faffe1
Created August 1, 2016 07:12 — forked from fajrif/gist:1265203
git clone specific tag
git clone <repo-address>
git tag -l
git checkout <tag-name>
git branch -D master
git checkout -b master
@klprint
klprint / R_Functions.R
Last active December 20, 2016 10:20
# Analyse data using a sliding window
slideFunct <- function(data, window, step){
total <- length(data)
spots <- seq(from=1, to=(total-window), by=step)
result <- vector(length = length(spots))
for(i in 1:length(spots)){
result[i] <- median(data[spots[i]:(spots[i]+window)])
}
return(result)
}