Algoritmo para regresión BLP en R