R语言代码1.使用for循环依次输出1:100之间是6的倍数的那些数。 2.从均值为200、标准差为10的正态总体中产生1000个随机数并将这1000个数据分成组距为10的组，生成频数分布表。

1. R语言代码如下：

for(i in 1:100){
  if(i %% 6 == 0){
    print(i)
  }
}

2. R语言代码如下：

# 生成1000个随机数
set.seed(123)
rand_data <- rnorm(1000, mean = 200, sd = 10)

# 将数据分成组距为10的组并生成频数分布表
freq_table <- table(cut(rand_data, breaks = seq(170, 230, by = 10)))
freq_table

其中，`set.seed()`函数用来设置随机数的种子，保证每次运行生成的随机数都相同。`rnorm()`函数用来生成正态分布的随机数，其中`mean`参数指定均值，`sd`参数指定标准差。`cut()`函数用来将数据分成组距为10的组，`seq()`函数用来生成从170到230的间隔为10的数列。最后，`table()`函数用来生成频数分布表。