Perdida	Cuero
264		A
260		A
258		A
241		A
262		A
255		A
208		B
220		B
216		B
200		B
213		B
206		B
220		C
263		C
219		C
225		C
230		C
228		C
217		D
226		D
215		D
224		D
220		D
222		D
perdida <- read.table("supuesto1.txt", header = TRUE)
perdida