R/rfake.R

In sgr: Sample Generation by Replacement

### function rfake
############   el 07/02/2013
#rm(list=ls())
#library(SGR)
#library(MASS)
#set.seed(20130207)

#Q <- 5
#R <- matrix(c(1,.3,.3,1),2,2)
#Dx <- simdata(n=20,R=R,Q=Q)$data

#PM <- matrix(0,nrow(Dx),ncol(Dx))
#PM[3:10,2] <- 1
#PM[3:10,1] <- 1
#PM[11:15,2] <- 2

#rfake(Dx,PM)

#(Pparm <- list(p=matrix(c(0,.5,.5,0),2,2),
#      gam=matrix(c(1,4,1,4),2,2),del=matrix(c(1,2,1,2),2,2)))
#rfake(Dx,PM,Pparm=Pparm)