Franjo Ivankovic, PhD FranjoIM

## summary.sh
awk -F ',' '{print $<column_number>}' <file> | sort | uniq -c

## TSLinkage.csv

          
            Chromosomal Location
             Summary
             Reference

## GatekeeperBypass.sh
xattr -d com.apple.quarantine file_name

## index.html
<h3> A standalone progress bar </h3>

<div class="fprogress" >
  <div class="fprogress-bar" id="fA" style="width:90%"> <!-- Edit progress % here -->
    <div class="fbox" id="fA" style="width: 232px"> <!-- Edit shaded area here -->
      <span class="ftext">A Standalone Progress Bar</span>
    </div>
  </div>
</div>

## VLOOKUP.R
# Load a library necessary to run this code
library(plyr)

# Run the code on the dataframes
CombinedDF <- join(MainDF, LookUpDF, by = "Column")

head(CombinedDF)

## DNAReverseComplement.R
# Load a library necessary to run this code
library(stringi)

# Define the reverse complement function
rev.comp <- function(DNASeq)
return(stri_reverse(chartr("acgtACGT", "tgcaTGCA", DNASeq)))

# Run the code on the dataframe called DF
DF$Seq <- ifelse (DF$Strand == c("-"), rev.comp(DF$Seq), DF$Seq)
library(plyr)
	<h3> A standalone progress bar </h3>

	<div class="fprogress" >
	<div class="fprogress-bar" id="fA" style="width:90%"> <!-- Edit progress % here -->
	<div class="fbox" id="fA" style="width: 232px"> <!-- Edit shaded area here -->
	<span class="ftext">A Standalone Progress Bar</span>
	</div>
	</div>
	</div>
	# Load a library necessary to run this code
	library(plyr)

	# Run the code on the dataframes
	CombinedDF <- join(MainDF, LookUpDF, by = "Column")

	head(CombinedDF)
	# Load a library necessary to run this code
	library(stringi)

	# Define the reverse complement function
	rev.comp <- function(DNASeq)
	return(stri_reverse(chartr("acgtACGT", "tgcaTGCA", DNASeq)))

	# Run the code on the dataframe called DF
	DF$Seq <- ifelse (DF$Strand == c("-"), rev.comp(DF$Seq), DF$Seq)
	library(plyr)