Я получил ответ на аналогичный вопрос, который я спросил, кто такой Как я могу сделать кости для R? Ответ был программой для R в дополнение к программе для «интимных костей». Я не уверен, кого интересуют Алиса и Боб, но я предлагаю использовать R в дополнение к удаленному рабочему столу, чтобы каждый игрок мог видеть, что другой не обманывает.
Я не знаю, как писать коды, поэтому я копировать/вставить в ответ я получил:
Если вы хотите, чтобы кости в статистической программе R. Start, загрузив его здесь: http://cran.r-project.org/.
сделать нормальные кости использовать следующий сценарий: #Dice функции крена RollDie = функция (п) Образец (1: 6, п, заменить = Т) #use Die RollDie (п)
#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
Какой у вас был? –
@ Justin Morgan: Он просто задал вопрос 2 минуты назад, дайте ему мгновение ... –
Просто похоже, что он забыл вставить его, вот и все :) –