locate does not work for a single episode

[YanNeu]

psymonitor/R/locate.R

Lines 48 to 49 in 153ea33

	OT <- EP[1:count, ]
	v <- nrow(OT)

This code fails for count = 1, due to OT not being a matrix anymore.
Possible solution:
if (count == 1) {
OT <- matrix(EP[1:count, ], nrow=1, ncol=2)
} else {
OT <- EP[1:count, ]
}

[mlozanoqf]

Or:

if(length(OT) == 2){
 OT <- matrix()
 OT <- rbind(EP[1:count,])
 }