Dearc <br /> A <- scan()<br /> B <- scan()<br /> LB<- length(B)<br /> (N<- (length(A)-1)*(length(B)))<br /> D<- N/LB<br /> C<- c(rep(A),each=D)<br /> matrix(data=C,nrow=N,ncol=LB)<br /> [s:12] </p>