library(mice)
library(VIM)

inputdata = read.csv(file="/Users/n0361415/Documents/rustprojects/qwerty.csv", header=TRUE)

#define our selected genes
selected_genes <- c("MMP3_S2", "PLG_S5", "RGS8_S5")

#remove the first row and transpose first column onto its place
tmydf = setNames(data.frame(t(inputdata[,-1])), inputdata[,1])

#update patient_data by dropping all rows except selected gene types
patient_data <- tmydf[selected_genes]


str(patient_data)
summary(patient_data)
print(patient_data)
p <- function(x) {sum(is.na(x))/length(x)*100}
apply(patient_data,2,p)
md.pattern(patient_data)