mystring<- sample (1:3, size=100)
我想随机生成这串数字，但我希望 2 的概率为 0.25，1 和 3 的概率分别为 0.375 和 0.375。
我有一个纵向数据
ID<-c(1,1,1,2,2,2,2,3,3,4,4,4)
time<-c(0,12,36,0,7,23,68,0,23,0,32,45)
Age<-rnorm(12,45,9)
Sexe<-c("F","F","F","M","M","M","M","M","M","F","F","F")
biology1<-rnorm(12,12,3)
biology2<-rnorm (12,100,20)
biology3<-rnorm(12,45,9)
biology4<-rnorm(12,20,2)
Death<-c(0,0,1,0,0,0,0,0,0,0,0,1)
data<-data.frame(ID,time,Age,Sexe,biology1,biology2,biology3,biology4,Death)
我想计算每个数值变量（biology1，biology2，biology3，biology4）和每个个体的斜率（从后续开始到结束）；主要是一个计算每个变量斜率的函数，而无需为每个变量重新输入新的代码行。我不知道该怎么做。
我有一个包含很多类别的变量，要求个人选择他们的前 3 个选择。所以选择是A、B、C和D这里（确实，在我的数据库中有超过 4 个可能的选择）
`var1:choice1`<-c("A","B","C")
`var1:choice2`<-c("B","C","A")
`var1:choice3`<-c("C","D","B")
id=1:3
mydata<-data.frame(id,`var1:choice1`,`var1:choice2`,`var1:choice3`)
现在我想将选项更改为虚拟变量，以便我可以获得每个选项出现的次数。我应该有下面这张表：
var1.A var1.B var1.C var1.D
1 1 1 1 0
2 0 1 1 1
3 1 1 1 0