df_or = read.csv('F://UOSEST//Data//ac50//25assay_tg403_compare_order.csv')
cor_result = list(name="result")
cols = names(df_or)
assay_list = cols[grep("order_", cols)]
assay_list
for(i in assay_list){
df = df_or
x = "TG403_order"
y = i
df = df[!is.na(df[x]),]
df = df[!is.na(df[y]),]
#sprintf("어세이 이름 : %s", gsub("order_", "", y))
#sprintf("상관계수값은 = %f " ,cor(df[x],df[y]))
#sprintf("물질개수는 = %d ", dim(df[y])[1] )
cat("어세이 이름 : ")
print(gsub("order_", "", y))
cat("상관계수값은 = ")
print(cor(df[x],df[y]))
cat("물질개수는 = ")
print(dim(df[y])[1])
cat("\n")
}
왜 sprintf으로 출력하면 출력이 안될까? 무엇이 문제일까?
나중에 해결해보자