Konrad Stawiski MD PhD kstawiski

## code.R
nasza = read.csv("nasza.csv", header=T, stringsAsFactors = F)


library("openxlsx")
library(dplyr)
miRtarbase = openxlsx::read.xlsx("hsa_MTI.xlsx")
refdb = filter(miRtarbase, Support.Type == "Functional MTI" | Support.Type == "Non-Functional MTI")

miR = unique(nasza$hsa.miRNA)
	nasza = read.csv("nasza.csv", header=T, stringsAsFactors = F)



	library("openxlsx")
	library(dplyr)
	miRtarbase = openxlsx::read.xlsx("hsa_MTI.xlsx")
	refdb = filter(miRtarbase, Support.Type == "Functional MTI" \| Support.Type == "Non-Functional MTI")

	miR = unique(nasza$hsa.miRNA)