Hello,

this is probably trivial but I failed to find this particular snippet of code.

What I got:
my_dataframe (contains say a 40k rows and 4 columns)
distances (vector with euclidean distances between a query vector and each of the rows of my_dataframe)

What I do:
after scaling data my_dataframe I calculate distances. order them then extract top five hits

my_dataframe  <- read.table("myDB.csv", header=F, dec=".", sep=";",
row.names=1)
#reads the whole file

scaled_DB <- scale(my_dataframe, center=FALSE)
#scales the values

require(hopach)
#checks necessary R package

distances <- order(distancevector(scaled_DB, scaled_DB['query',], d="euclid"))
#calculates distances and orders the results from lowest

for(i in distances[1:5]) print( dbfile[i,])
#prints top five hits just for debugging
 
What I want to do:
1) create a small top_five frame
sadly this does not work:
for(i in distances[1:5]) top_five[i,] <- my_dataframe[i,]

2) after I got top_five I woul like to get the index of my query entry, something along Pythons 
top_five.index('query_string')

3) possibly combine values in distances with row names from my_dataframe:
row_1 distance_from_query1
row_2 distance_from_query2

Thank you very much for your help

Darek Kedra




 
---------------------------------

	[[alternative HTML version deleted]]

