我想问下R中进行广义相加模型时怎么进行加权啊