Muchas gracias, funcionó, porfis, una ultima dudita. Arme un vector de pólizas que necesito extraer de la base original (al cual llamo "polizas"), pero al querer extraer estos valores mediante el código "muestra_1=datos[datos$Poliza==polizas,]", R me arroja este error: Warning message:In datos$Poliza == polizas : longitud de objeto mayor no es múltiplo de la longitud de uno menor. No se porque no me funciona, solo quiero extraer de la base datos las pólizas indicadas en el vector pólizas. Este es el codigo que estoy utilizando:
a=c(13,14,36,38,40,41,45,46,47,48,51,53,54,55,95,99,213,214,215,248,262,267,270,289,290,291,292,293,
294,297,310,326,327,330,332,336,360,361,362,402,404,500,600,650,700,800,801)
b=c(2643,116,318,69,121,118,981,172,74,133,10,4,11,2,1,2,1,1061,4,356,1,56,429,
102,528,482,79,728,709,29,114,25,9,53,8,590,600,60,13,520,56,159,2586,2459,2315,
1014,1437)
for(i in 1:47)
{A_i=POL[POL$Codigo_Producto==a[i],]
assign(paste0('A_', a[i]), A_i)
B_i=A_i[sample(nrow(A_i),size=b[i]),]
assign(paste0('B_', a[i]), B_i)
if (i==1)
muestra_cap_a=B_i
else
muestra_cap_a=rbind(muestra_cap_a,B_i)}
polizas=as.numeric(muestra_cap_a$Poliza)
muestra_1=datos[datos$Poliza==polizas,]