取卡1=470001，m=999563和初值w0=671800，运用一阶线性同余法，试用R编写生成50个[0，1]上均匀分布的随机数。

一阶线性同余法通常用于模内的随机数生成，它通过取模运算保证生成的数字在给定范围内。在这个例子中，我们需要使用给定的数值作为模和随机种子，然后利用循环结构和模运算来生成一系列随机数。

首先，你需要安装`pryr`包，因为它提供了一种方便的方式来创建匿名函数。在R中，可以这样做：

# 安装并加载pryr包（如果尚未安装）
install.packages("pryr")
library(pryr)

# 定义取模函数，这里采用一阶线性同余法
random_modulo <- function(a, m) {
  # 初始化一个循环，循环次数等于所需随机数的数量
  for (i in seq_len(50)) {
    # 按照公式 w[i+1] = (a * w[i] + c) mod m 生成新的随机数
    # 其中c是你提供的初始值w0
    w <- (a * w0 + c) %/% m
    # 将结果限制在[0, m)区间内，转换成[0, 1]区间的概率分布
    random_num <- w / m
    # 返回生成的随机数
    print(random_num)
  }
}

# 使用提供的取卡值
card1 <- 470001
m <- 999563
w0 <- 671800

# 调用函数生成随机数
random_modulo(card1, m)

注意：由于R的模运算符`%/%`会向下取整，所以生成的结果实际上更接近均匀分布。如果你需要的是真正的均匀分布，你可能需要进一步调整算法或者考虑使用专门的随机数生成函数，如`runif()`。