mysubset<-function(input,output){
  dataframe0<-read.table("input")
  dataframe1<-subset(dataframe0,V3>=0.6)
  write.table (dataframe1[1:2],file ="output", row.names = FALSE, col.names =FALSE, quote =FALSE)
  }