截面个体变系数模型如何用R语言做出，请给出详细代码，最后的每个个体的系数又如何得知。奖励20币。