if (FALSE) {
ped <- read.ped( "myped" ); ## reads in myped.ped
oped <- obfuscate( "myped" );
write.ped( "obfuscate.ped", ped );
phe <- read.phe( "myphe" ); ## reads in myphe.phe
ophe <- obfuscate( "myphe" );
write.phe( "obfuscate.phe", ped );
}
Run the code above in your browser using DataLab