Recibí una respuesta a una pregunta similar que hice ¿Cómo puedo hacer dados para R? La respuesta fue un programa para R además de un programa para "dados íntimos". No estoy seguro de en qué mueren Alice y Bob, pero sugiero usar R además de un escritorio remoto para que cada jugador pueda ver que el otro no está haciendo trampa.
No sé cómo escribir los códigos así que he copiar/pegar la respuesta que recibí:
Si desea hacer dados en el programa estadístico R. comenzar por descargar desde aquí: http://cran.r-project.org/.
para hacer una dados normales utilizan la siguiente secuencia de comandos: #Dice función rollo RollDie = function (n) muestra (1: 6, n, reemplace = T) #use Die RollDie (n)
#If you'd like to spice things up a bit and make a dice for safe and consensual adult
#activities then use the following series of scripts:
#Creating the function, use this script:
#Intimate dice function
Actions= c("kiss","lick","suck","bite",
"spank","blow", "stroke",
"tickle","pinch",
"torment")
Body= c("lips","arms","chest","thighs",
"neck","ear", "wrist",
"navel","nipples",
"the good stuff")
Action= function(n) sample(Actions[1:10],n,replace=T)
Area= function(n) sample(Body[1:10],n,replace=T)
Action(1)
Area(1)
#If you'd like the dice saved to the R global environment so you can be ready for when
the mood is right use the following script:
#Save the following script as yourfile.R in something like this location "C:\\Documents
and Settings\\yourfile.R"
#Intimate dice
Action(1)
Area(1)
#yes
#Now create the following function to save to R's global environment with the following:
#Run all
source("C:\\Documents and Settings\\yourfile.R",echo=T)
hi<-function(){source("C:\\Documents and Settings\\yourfile.R",echo=T)}
#ok
#close and save your R workspace
#upon opening run the following function:
hi()
#If this has been done properly then you should see something along the lines of this:
#Intimate dice
Action(1)
[1] "bite"
Area(1)
[1] "ear"
#yes
#Here's to one more reason for celebrating math & science
¿Cuál fue su respuesta? –
@Justin Morgan: Él acaba de hacer la pregunta hace 2 minutos, dale un momento ... –
Simplemente parecía que olvidó pegarlo, eso es todo :) –