>df_train <- mutate(df, df_train_sixgenes$scores = df_train_sixgenes$PMCH*( -0.6294544) + df_train_sixgenes$IFNB1*( -0.3168858) + df_train_sixgenes$IGF2*( 0.1835164) + df_train_sixgenes$PYCR1*( -0.3942564))
>df_train_sixgenes$scores <- df_train_sixgenes$PMCH*( -0.6294544) + df_train_sixgenes$IFNB1*( -0.3168858) + df_train_sixgenes$IGF2*( 0.1835164) + df_train_sixgenes$PYCR1*( -0.3942564)