In trying to simulate RILs with a 3:1 skew, the main question is how to model the skew. Is it that there's selection at a single locus, or some set of loci? You could accommodate that by simulating many more RILs than you need and then subsampling based on genotypes at those sites.
Alternatively, were the RILs derived by first backcrossing the F1 to one of the parents and then doing selfing?
Simulating data with sim.cross but then substituting your observed genotypes with x$geno <- original$geno is not going to be effective, since the those original genotypes will be independent of the simulated phenotypes.
You could instead take your observed genotype data as fixed, pick one marker to be treated as a QTL, and simulate new phenotype data.
karl