Es este:
c=c(13,14,36,38,40,41,45,46,47,48,54,248,270,290,291,293,310,326,327,336,360,361,600,650,700,800,801)
d=c(28628,197,1186,228,197,410,3173,571,270,152,16,457,971,2314,2261,1404,115,50,18,2218,15143,
83,26507,13523,8074,3780,7168)
for(i in 1:27)
{Cced_i=datos[datos$Codigo_Producto==c[i],]
assign(paste0('Cced_', c[i]), Cced_i)
Mced_i=Cced_i[sample(nrow(Cced_i),size=d[i]),]
assign(paste0('Mced_', c[i]), Mced_i)
print((mean(Mced_i$Capital_Cedido)))}
La idea es que me quede una columna con todos los Cced y los Mced, no valores solos que va imprimiento en la consola a medida que va haciendo cada iteración del for.